read_fixed_values Subroutine

  1. read_bc.f90
  2. read_bc
  3. read_fixed_values

public subroutine read_fixed_values(files, scheme, flow, bc)

Read fixed values for each block face

Arguments

Type IntentOptional AttributesName
type(filetype), intent(in) :: files
type(schemetype), intent(in) :: scheme
type(flowtype), intent(in) :: flow
type(boundarytype), intent(inout) :: bc

Calls

proc~~read_fixed_values~~CallsGraph proc~read_fixed_values read_fixed_values proc~fill_fixed_values fill_fixed_values proc~read_fixed_values->proc~fill_fixed_values proc~get_fixed_values get_fixed_values proc~read_fixed_values->proc~get_fixed_values proc~set_value set_value proc~fill_fixed_values->proc~set_value proc~get_fixed_values->proc~set_value

Called by

proc~~read_fixed_values~~CalledByGraph proc~read_fixed_values read_fixed_values proc~setup_bc setup_bc proc~setup_bc->proc~read_fixed_values proc~setup_solver setup_solver proc~setup_solver->proc~setup_bc proc~start_run start_run proc~start_run->proc~setup_solver program~main main program~main->proc~start_run

Contents

Source Code

read_fixed_values

Source Code

    subroutine read_fixed_values(files, scheme, flow, bc)
      !< Read fixed values for each block face
      implicit none
      type(filetype), intent(in) :: files
      type(schemetype), intent(in) :: scheme
      type(flowtype), intent(in) ::flow
      type(boundarytype), intent(inout) :: bc
      integer :: count=0

      call fill_fixed_values(scheme, flow, bc)

      open(unit=files%BOUNDARY_CONDITIONS_FILE_UNIT, file=files%bcfile)
            read(files%BOUNDARY_CONDITIONS_FILE_UNIT, *)
            read(files%BOUNDARY_CONDITIONS_FILE_UNIT, *)
            read(files%BOUNDARY_CONDITIONS_FILE_UNIT, *)
      do while(count<6)
        read(files%BOUNDARY_CONDITIONS_FILE_UNIT, "(A)") buf
        if(buf(1:1)=='#')then
          count=count+1
          call get_fixed_values(files, scheme,flow, bc, count)
        end if
      end do
      close(files%BOUNDARY_CONDITIONS_FILE_UNIT)

    end subroutine read_fixed_values