IF ( momImplVertAdv .AND. Nr.GT.1 ) THEN
CALL WRITE_0D_L( momImplVertAdv, INDEX_NONE, 'momImplVertAdv =',
IF ( momImplVertAdv ) THEN
& tempImplVertAdv, saltImplVertAdv, momImplVertAdv,
momImplVertAdv = momAdvection .AND. momImplVertAdv
IF ( useOBCS .AND.(implicitViscosity.OR.momImplVertAdv) ) THEN
LOGICAL momImplVertAdv
IF ( .NOT. momImplVertAdv ) THEN
momImplVertAdv = .FALSE.