FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | unit |
subroutine wnml_kt_grids_single(unit)
implicit none
integer, intent(in) :: unit
write (unit, *)
write (unit, fmt="(' &',a)") "kt_grids_single_parameters"
write (unit, fmt="(' aky = ',e17.10)") aky
write (unit, fmt="(' theta0 = ',e17.10)") theta0
write (unit, fmt="(' /')")
end subroutine wnml_kt_grids_single