& (advectionScheme.EQ.ENUM_DST3_FLUX_LIMIT .AND. inAdMode)
& (vertAdvecScheme.EQ.ENUM_DST3_FLUX_LIMIT .AND. inAdMode)
if ( inAdMode ) then
IF ( inAdMode ) THEN
LOGICAL inAdMode, inAdTrue, inAdFalse, inAdExact
& inAdMode, inAdTrue, inAdFalse, inAdExact,
inAdMode = inAdTrue
inAdMode = inAdFalse
inAdMode = .FALSE.