Write namelist for kt_grids_box
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | unit |
subroutine wnml_kt_grids_box (unit)
implicit none
integer, intent(in) :: unit
write (unit, *)
write (unit, fmt="(' &',a)") "kt_grids_box_parameters"
write (unit, fmt="(' nx = ',i4)") nx_private
write (unit, fmt="(' ntheta0 = ',i4)") ntheta0_private
write (unit, fmt="(' ny = ',i4)") ny_private
write (unit, fmt="(' naky = ',i4)") naky_private
write (unit, fmt="(' Ly = ',e17.10)") ly
if (rtwist /= 0.) then
write (unit, fmt="(' rtwist = ',e17.10)") rtwist
else
write (unit, fmt="(' jtwist = ',i4)") jtwist
end if
write (unit, fmt="(' /')")
end subroutine wnml_kt_grids_box