Writes out a namelist representing the current state of the config object
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(species_element_config_type), | intent(in) | :: | self | |||
integer, | intent(in), | optional | :: | unit |
subroutine write_species_element_config(self, unit)
implicit none
class(species_element_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("bess_fac", self%bess_fac, unit_internal)
call self%write_key_val("dens", self%dens, unit_internal)
call self%write_key_val("dens0", self%dens0, unit_internal)
call self%write_key_val("f0type", self%f0type, unit_internal)
call self%write_key_val("fprim", self%fprim, unit_internal)
call self%write_key_val("mass", self%mass, unit_internal)
call self%write_key_val("nu_h", self%nu_h, unit_internal)
call self%write_key_val("temp", self%temp, unit_internal)
call self%write_key_val("tpar0", self%tpar0, unit_internal)
call self%write_key_val("tperp0", self%tperp0, unit_internal)
call self%write_key_val("tprim", self%tprim, unit_internal)
call self%write_key_val("type", self%type, unit_internal)
call self%write_key_val("u0", self%u0, unit_internal)
call self%write_key_val("uprim", self%uprim, unit_internal)
call self%write_key_val("uprim2", self%uprim2, unit_internal)
call self%write_key_val("vcprim", self%vcprim, unit_internal)
call self%write_key_val("vcrit", self%vcrit, unit_internal)
call self%write_key_val("vnewk", self%vnewk, unit_internal)
call self%write_key_val("z", self%z, unit_internal)
call self%write_namelist_footer(unit_internal)
end subroutine write_species_element_config