write_normalisations_config Subroutine

private subroutine write_normalisations_config(self, unit)

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

Type Bound

normalisations_config_type

Arguments

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

Contents

Source Code

write_normalisations_config

Source Code

  subroutine write_normalisations_config(self, unit)
    implicit none
    class(normalisations_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("aref", self%aref, unit_internal)
    call self%write_key_val("bref", self%bref, unit_internal)
    call self%write_key_val("mref", self%mref, unit_internal)
    call self%write_key_val("nref", self%nref, unit_internal)
    call self%write_key_val("rhoref", self%rhoref, unit_internal)
    call self%write_key_val("tref", self%tref, unit_internal)
    call self%write_key_val("vref", self%vref, unit_internal)
    call self%write_key_val("zref", self%zref, unit_internal)
    call self%write_namelist_footer(unit_internal)
  end subroutine write_normalisations_config