read_time_input Subroutine

private subroutine read_time_input(filename, params)

Reads the &time_input namelist block.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
type(case_params_t), intent(inout) :: params

Calls

proc~~read_time_input~~CallsGraph proc~read_time_input mod_input::read_time_input proc~fatal_error mod_kinds::fatal_error proc~read_time_input->proc~fatal_error proc~open_namelist_file mod_input::open_namelist_file proc~read_time_input->proc~open_namelist_file

Called by

proc~~read_time_input~~CalledByGraph proc~read_time_input mod_input::read_time_input proc~read_case_params mod_input::read_case_params proc~read_case_params->proc~read_time_input program~lowmach_react_hex lowmach_react_hex program~lowmach_react_hex->proc~read_case_params

Namelists

Namelist time_input


Variables

Name Type Default Description
nsteps integer None
dt real(kind=rk) None
output_interval integer None
use_dynamic_dt logical None
max_cfl real(kind=rk) None

Source Code

   subroutine read_time_input(filename, params)
      character(len=*), intent(in) :: filename
      type(case_params_t), intent(inout) :: params

      integer :: nsteps, output_interval
      real(rk) :: dt, max_cfl
      logical :: use_dynamic_dt
      integer :: unit_id, ios

      namelist /time_input/ nsteps, dt, output_interval, use_dynamic_dt, max_cfl

      nsteps = params%nsteps
      dt = params%dt
      output_interval = params%output_interval
      use_dynamic_dt = params%use_dynamic_dt
      max_cfl = params%max_cfl

      call open_namelist_file(filename, unit_id, ios)

      if (ios == 0) then
         read(unit_id, nml=time_input, iostat=ios)
         close(unit_id)
      end if

      if (ios > 0) call fatal_error('input', 'failed reading &time_input')

      params%nsteps = nsteps
      params%dt = dt
      params%output_interval = output_interval
      params%use_dynamic_dt = use_dynamic_dt
      params%max_cfl = max_cfl
   end subroutine read_time_input