259 |
& 'useCDscheme =', ' /* CD scheme on/off flag */') |
& 'useCDscheme =', ' /* CD scheme on/off flag */') |
260 |
CALL WRITE_0D_L( useJamartWetPoints, INDEX_NONE, |
CALL WRITE_0D_L( useJamartWetPoints, INDEX_NONE, |
261 |
& 'useJamartWetPoints=',' /* Coriolis WetPoints method flag */') |
& 'useJamartWetPoints=',' /* Coriolis WetPoints method flag */') |
262 |
|
CALL WRITE_0D_L( SadournyCoriolis, INDEX_NONE, |
263 |
|
& 'SadournyCoriolis=',' /* Sadourny Coriolis discr. flag */') |
264 |
|
CALL WRITE_0D_L( upwindVorticity, INDEX_NONE, |
265 |
|
& 'upwindVorticity=',' /* Upwind bias vorticity flag */') |
266 |
|
CALL WRITE_0D_L( useAbsVorticity, INDEX_NONE, |
267 |
|
& 'useAbsVorticity=',' /* Work with f+zeta in Coriolis */') |
268 |
|
CALL WRITE_0D_L( highOrderVorticity, INDEX_NONE, |
269 |
|
& 'highOrderVorticity=',' /* High order interp. of vort. flag */') |
270 |
CALL WRITE_0D_L( momForcing, INDEX_NONE, |
CALL WRITE_0D_L( momForcing, INDEX_NONE, |
271 |
& 'momForcing =', ' /* Momentum forcing on/off flag */') |
& 'momForcing =', ' /* Momentum forcing on/off flag */') |
272 |
CALL WRITE_0D_L( momPressureForcing, INDEX_NONE, |
CALL WRITE_0D_L( momPressureForcing, INDEX_NONE, |