& useCDscheme, vectorInvariantMomentum,
LOGICAL useCDscheme
IF (.NOT.useCDscheme) THEN
& .NOT.( useCDscheme .OR. useAbsVorticity.AND.momAdvection )
IF ( useCDscheme ) THEN
IF (.NOT.useCDscheme .AND. (tauCD.NE.0. .OR. rCD.NE.-1.) ) THEN
IF ( useCDscheme .AND. useCubedSphereExchange ) THEN
CALL WRITE_0D_L( useCDscheme, INDEX_NONE,
IF (useCDscheme) THEN
IF (implicitViscosity.AND.useCDscheme) THEN
& useCDscheme, useJamartWetPoints, useJamartMomAdv, useNHMTerms,
IF (useCDscheme) CALL PACKAGES_ERROR_MSG(
useCDscheme = .FALSE.
useCDscheme = momStepping .AND. useCDscheme
IF ( externForcDiagIsOn .OR. useCDscheme ) THEN
IF ( useCDscheme .AND. useDiagnostics ) THEN