FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | unit |
subroutine wnml_nonlinear_terms(unit)
implicit none
integer, intent(in) :: unit
if (.not. exist) return
if (nonlinear_mode_switch == nonlinear_mode_on) then
write (unit, *)
write (unit, fmt="(' &',a)") "nonlinear_terms_knobs"
write (unit, fmt="(' nonlinear_mode = ',a)") '"on"'
write (unit, fmt="(' cfl = ',e17.10)") cfl
write (unit, fmt="(' nl_forbid_force_zero = ',L1)") nl_forbid_force_zero
if (zip) write (unit, fmt="(' zip = ',L1)") zip
write (unit, fmt="(' /')")
endif
end subroutine wnml_nonlinear_terms