IF (useCDscheme) CALL PACKAGES_CHECK_ERROR('CD_CODE', myThid)
IF (useCDscheme) THEN
IF (useCDscheme) CALL CD_CODE_INI_VARS( myThid )
CALL WRITE_0D_L( useCDscheme, INDEX_NONE,
IF (.NOT.useCDscheme .AND. (tauCD.NE.0. .OR. rCD.NE.-1.) ) THEN
IF ( useCDscheme .AND. useCubedSphereExchange ) THEN
& useCDscheme, useJamartWetPoints, useJamartMomAdv, useNHMTerms,
useCDscheme = momStepping .AND. useCDscheme
IF (implicitViscosity.AND.useCDscheme) THEN
& useCDscheme,
LOGICAL useCDscheme
IF (.NOT.useCDscheme) THEN
& .NOT.( useCDscheme .OR. useAbsVorticity.AND.momAdvection )
useCDscheme = .FALSE.