290 |
& 'useAbsVorticity=',' /* Work with f+zeta in Coriolis */') |
& 'useAbsVorticity=',' /* Work with f+zeta in Coriolis */') |
291 |
CALL WRITE_0D_L( highOrderVorticity, INDEX_NONE, |
CALL WRITE_0D_L( highOrderVorticity, INDEX_NONE, |
292 |
& 'highOrderVorticity=',' /* High order interp. of vort. flag */') |
& 'highOrderVorticity=',' /* High order interp. of vort. flag */') |
293 |
|
CALL WRITE_0D_L( upwindShear, INDEX_NONE, |
294 |
|
& 'upwindShear=', ' /* Upwind vertical Shear advection flag */') |
295 |
CALL WRITE_0D_L( momForcing, INDEX_NONE, |
CALL WRITE_0D_L( momForcing, INDEX_NONE, |
296 |
& 'momForcing =', ' /* Momentum forcing on/off flag */') |
& 'momForcing =', ' /* Momentum forcing on/off flag */') |
297 |
CALL WRITE_0D_L( momPressureForcing, INDEX_NONE, |
CALL WRITE_0D_L( momPressureForcing, INDEX_NONE, |