I tracerIdentity, advectionScheme, vertAdvecScheme,
IF (vertAdvecScheme.EQ.ENUM_CENTERED_2ND) THEN
ELSEIF (vertAdvecScheme.EQ.ENUM_FLUX_LIMIT) THEN
ELSEIF (vertAdvecScheme.EQ.ENUM_UPWIND_3RD ) THEN
ELSEIF (vertAdvecScheme.EQ.ENUM_CENTERED_4TH) THEN
ELSEIF (vertAdvecScheme.EQ.ENUM_DST3 ) THEN
ELSEIF (vertAdvecScheme.EQ.ENUM_DST3_FLUX_LIMIT ) THEN
INTEGER advectionScheme, vertAdvecScheme
I implicitAdvection, advectionScheme, vertAdvecScheme,
IF (vertAdvecScheme.EQ.ENUM_FLUX_LIMIT) THEN