& momViscosity, momAdvection, momForcing,
LOGICAL momViscosity
IF ( momViscosity) THEN
IF (momViscosity) THEN
IF (momViscosity.AND..NOT.implicitViscosity) THEN
IF (momViscosity.AND.no_slip_sides) THEN
IF (momViscosity.AND.bottomDragTerms) THEN
IF (useShelfIce.AND.momViscosity.AND.bottomDragTerms) THEN
IF ( momViscosity .AND. k.GT.1 .AND. viscA4W.NE.0. ) THEN
IF ( momViscosity .AND. k.GT.1 ) THEN
IF ( momViscosity .AND. k.GT.1 .AND. no_slip_sides ) THEN
IF ( momViscosity .AND. momDissip_In_AB) THEN
IF ( momViscosity .AND. .NOT.momDissip_In_AB ) THEN
CALL WRITE_0D_L( momViscosity, INDEX_NONE,
& momViscosity, momAdvection, momForcing, useCoriolis,
momViscosity = .TRUE.
momViscosity = momStepping .AND. momViscosity
implicitViscosity= momViscosity .AND. implicitViscosity
IF ( momViscosity ) THEN