& momViscosity, momAdvection, momForcing,
LOGICAL momAdvection
IF (momAdvection) THEN
IF (momAdvection.AND.k.EQ.1) THEN
IF ( momAdvection .AND. k.LT.Nr ) THEN
& .NOT.( useCDscheme .OR. useAbsVorticity.AND.momAdvection )
IF ( momAdvection ) THEN
CALL WRITE_0D_L( momAdvection, INDEX_NONE,
& momViscosity, momAdvection, momForcing, useCoriolis,
momAdvection = .TRUE.
momAdvection = momStepping .AND. momAdvection
momImplVertAdv = momAdvection .AND. momImplVertAdv