& implicitDiffusion, implicitViscosity,
LOGICAL implicitViscosity
IF (.NOT.implicitViscosity) THEN
IF ( .NOT.implicitViscosity .AND. momStepping ) THEN
IF ( useDiagnostics .AND. implicitViscosity ) THEN
IF ( implicitViscosity .AND. Nr.GT.1 ) THEN
IF (implicitViscosity) THEN
IF (.NOT.implicitViscosity)
IF (momViscosity.AND..NOT.implicitViscosity) THEN
IF ( implicitViscosity .AND. use3Dsolver ) THEN
IF ( implicitViscosity .AND. nonHydrostatic ) THEN
CALL WRITE_0D_L( implicitViscosity, INDEX_NONE,
ELSEIF ( implicitViscosity ) THEN
IF ( implicitViscosity ) THEN
IF (implicitViscosity.AND.useCDscheme) THEN
implicitViscosity = .FALSE.
implicitViscosity= momViscosity .AND. implicitViscosity