INTEGER ENUM_CENTERED_4TH
PARAMETER(ENUM_CENTERED_4TH=4)
ELSEIF (advectionScheme.EQ.ENUM_CENTERED_4TH) THEN
ELSEIF (vertAdvecScheme.EQ.ENUM_CENTERED_4TH) THEN
& .OR. advectionScheme.EQ.ENUM_CENTERED_4TH
& .OR.tempAdvScheme.EQ.ENUM_CENTERED_4TH ) THEN
& .OR.saltAdvScheme.EQ.ENUM_CENTERED_4TH ) THEN
CALL GAD_ADVSCHEME_SET( ENUM_CENTERED_4TH , 2, errCode, myThid )
flagC4 = advectionScheme.EQ.ENUM_CENTERED_4TH
& PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_4TH .OR.
& PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_4TH
& .OR.SEAICEadvScheme.EQ.ENUM_CENTERED_4TH ) THEN
& .OR.thSIceAdvScheme.EQ.ENUM_CENTERED_4TH ) THEN