write_parameter_scan_config Subroutine

private subroutine write_parameter_scan_config(self, unit)

Writes out a namelist representing the current state of the config object

Type Bound

parameter_scan_config_type

Arguments

Type IntentOptional Attributes Name
class(parameter_scan_config_type), intent(in) :: self
integer, intent(in), optional :: unit

Contents


Source Code

  subroutine write_parameter_scan_config(self, unit)
    implicit none
    class(parameter_scan_config_type), intent(in) :: self
    integer, intent(in) , optional:: unit
    integer :: unit_internal

    unit_internal = 6 ! @todo -- get stdout from file_utils
    if (present(unit)) then
       unit_internal = unit
    endif

    call self%write_namelist_header(unit_internal)
    call self%write_key_val("delta_t_inc", self%delta_t_inc, unit_internal)
    call self%write_key_val("delta_t_init", self%delta_t_init, unit_internal)
    call self%write_key_val("inc_con", self%inc_con, unit_internal)
    call self%write_key_val("nstep_inc", self%nstep_inc, unit_internal)
    call self%write_key_val("nstep_init", self%nstep_init, unit_internal)
    call self%write_key_val("par_end", self%par_end, unit_internal)
    call self%write_key_val("par_inc", self%par_inc, unit_internal)
    call self%write_key_val("par_start", self%par_start, unit_internal)
    call self%write_key_val("scan_par", self%scan_par, unit_internal)
    call self%write_key_val("scan_restarted", self%scan_restarted, unit_internal)
    call self%write_key_val("scan_spec", self%scan_spec, unit_internal)
    call self%write_key_val("scan_type", self%scan_type, unit_internal)
    call self%write_key_val("target_par", self%target_par, unit_internal)
    call self%write_key_val("target_val", self%target_val, unit_internal)
    call self%write_namelist_footer(unit_internal)
  end subroutine write_parameter_scan_config