Writes out a namelist representing the current state of the config object
theta_grid_gridgen_config_type
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(theta_grid_gridgen_config_type), | intent(in) | :: | self | |||
integer, | intent(in), | optional | :: | unit |
subroutine write_theta_grid_gridgen_config(self, unit)
implicit none
class(theta_grid_gridgen_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("npadd", self%npadd ,unit_internal)
call self%write_key_val("alknob", self%alknob ,unit_internal)
call self%write_key_val("epsknob", self%epsknob ,unit_internal)
call self%write_key_val("bpknob", self%bpknob ,unit_internal)
call self%write_key_val("extrknob", self%extrknob ,unit_internal)
call self%write_key_val("skip_gridgen", self%skip_gridgen, unit_internal)
call self%write_key_val("tension", self%tension ,unit_internal)
call self%write_key_val("thetamax", self%thetamax ,unit_internal)
call self%write_key_val("deltaw", self%deltaw ,unit_internal)
call self%write_key_val("widthw", self%widthw ,unit_internal)
call self%write_namelist_footer(unit_internal)
end subroutine write_theta_grid_gridgen_config