304 |
& ' /* metric-Terms on/off flag */') |
& ' /* metric-Terms on/off flag */') |
305 |
CALL WRITE_0D_L( useNHMTerms, INDEX_NONE, 'useNHMTerms =', |
CALL WRITE_0D_L( useNHMTerms, INDEX_NONE, 'useNHMTerms =', |
306 |
& ' /* Non-Hydrostatic Metric-Terms on/off */') |
& ' /* Non-Hydrostatic Metric-Terms on/off */') |
307 |
|
CALL WRITE_0D_L( useConstantF, INDEX_NONE, |
308 |
|
& 'useConstantF =', ' /* use Constant f0 Coriolis flag */') |
309 |
|
CALL WRITE_0D_L( useBetaPlaneF, INDEX_NONE, |
310 |
|
& 'useBetaPlaneF =', ' /* use Beta-Plane Coriolis flag */') |
311 |
|
CALL WRITE_0D_L( useSphereF, INDEX_NONE, |
312 |
|
& 'useSphereF =', ' /* use Spherical Coriolis flag */') |
313 |
|
CALL WRITE_0D_L( use3dCoriolis, INDEX_NONE, |
314 |
|
& 'use3dCoriolis =', ' /* 3-D Coriolis on/off flag */') |
315 |
CALL WRITE_0D_L( useCoriolis, INDEX_NONE, |
CALL WRITE_0D_L( useCoriolis, INDEX_NONE, |
316 |
& 'useCoriolis =', ' /* Coriolis on/off flag */') |
& 'useCoriolis =', ' /* Coriolis on/off flag */') |
317 |
CALL WRITE_0D_L( useCDscheme, INDEX_NONE, |
CALL WRITE_0D_L( useCDscheme, INDEX_NONE, |