IF ( momStepping ) THEN
IF ( momStepping .AND. nonHydrostatic ) THEN
IF ( momStepping .AND. nonlinFreeSurf.GT.2 ) THEN
CALL WRITE_0D_L( momStepping, INDEX_NONE,
IF (.NOT.vectorInvariantMomentum.AND.momStepping) THEN
IF (momStepping)
& tempStepping, saltStepping, momStepping,
nonHydrostatic = momStepping .AND. nonHydrostatic
quasiHydrostatic = momStepping .AND. quasiHydrostatic
momAdvection = momStepping .AND. momAdvection
momViscosity = momStepping .AND. momViscosity
momForcing = momStepping .AND. momForcing
useCoriolis = momStepping .AND. useCoriolis
useCDscheme = momStepping .AND. useCDscheme
momPressureForcing= momStepping .AND. momPressureForcing
& momStepping, tempStepping, saltStepping,
LOGICAL momStepping
IF ( momStepping .AND. nShapUV.GT.0) THEN
momStepping = .TRUE.