read_fluid_input Subroutine

private subroutine read_fluid_input(filename, params)

Reads the &fluid_input namelist block.

Arguments

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

Calls

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

Called by

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

Namelists

Namelist fluid_input


Variables

Name Type Default Description
rho real(kind=rk) None
nu real(kind=rk) None
enable_cantera logical None
cantera_mech_file character(len=path_len) None
background_temp real(kind=rk) None
background_press real(kind=rk) None
transport_update_interval integer None
enable_variable_density logical None
enable_variable_nu logical None

Source Code

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

      real(rk) :: rho, nu
      logical :: enable_cantera
      character(len=path_len) :: cantera_mech_file
      real(rk) :: background_temp
      real(rk) :: background_press
      integer :: transport_update_interval
      integer :: unit_id, ios
      logical :: enable_variable_density
      logical :: enable_variable_nu
      namelist /fluid_input/ rho, nu, enable_cantera, cantera_mech_file, background_temp, background_press, transport_update_interval, enable_variable_density, enable_variable_nu

      rho = params%rho
      nu = params%nu
      enable_cantera = params%enable_cantera_fluid
      cantera_mech_file = params%cantera_mech_file
      background_temp = params%background_temp
      background_press = params%background_press
      transport_update_interval = params%transport_update_interval

      call open_namelist_file(filename, unit_id, ios)

      if (ios == 0) then
      enable_variable_density = params%enable_variable_density
      enable_variable_nu = params%enable_variable_nu
         read(unit_id, nml=fluid_input, iostat=ios)
         close(unit_id)
      end if

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

      params%rho = rho
      params%nu = nu
      params%enable_cantera_fluid = enable_cantera
         params%enable_variable_density = enable_variable_density
         params%enable_variable_nu = enable_variable_nu
      params%cantera_mech_file = cantera_mech_file
      params%background_temp = background_temp
      params%background_press = background_press
      params%transport_update_interval = transport_update_interval
   end subroutine read_fluid_input