& momViscosity, momAdvection, momForcing,
LOGICAL momViscosity
IF (momViscosity) THEN
IF ( momViscosity .AND. k.GT.1 .AND. biharmonicVisc ) 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
IF ( momViscosity .AND. no_slip_sides
CALL WRITE_0D_L( momViscosity, INDEX_NONE,
IF ( .NOT.momViscosity ) THEN
IF ( momViscosity ) THEN
& momViscosity, momAdvection, momForcing, useCoriolis,
momViscosity = .TRUE.
useVariableVisc = momViscosity .AND. useVariableVisc
useHarmonicVisc = momViscosity .AND. useHarmonicVisc
useBiharmonicVisc = momViscosity .AND. useBiharmonicVisc
momViscosity = momStepping .AND. momViscosity
implicitViscosity= momViscosity .AND. implicitViscosity
useSmag3D = momViscosity .AND. useSmag3D