& PTRACERS_advScheme(iTracer).NE.ENUM_CENTERED_4TH ) THEN
& .OR.PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_4TH ) THEN
& .OR.PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_4TH )
& .OR. PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_4TH
& advectionScheme.EQ.ENUM_CENTERED_4TH) THEN
flagC4 = advectionScheme.EQ.ENUM_CENTERED_4TH
ELSEIF (advectionScheme.EQ.ENUM_CENTERED_4TH) THEN
ELSEIF (vertAdvecScheme.EQ.ENUM_CENTERED_4TH) THEN
& .OR.tempAdvScheme.EQ.ENUM_CENTERED_4TH ) THEN
& .OR.saltAdvScheme.EQ.ENUM_CENTERED_4TH ) THEN
INTEGER ENUM_CENTERED_4TH
PARAMETER(ENUM_CENTERED_4TH=4)