INTEGER ENUM_PPM_MONO_LIMIT
PARAMETER(ENUM_PPM_MONO_LIMIT=41)
& advectionScheme.EQ.ENUM_PPM_MONO_LIMIT .OR.
& vertAdvecScheme.EQ.ENUM_PPM_MONO_LIMIT .OR.
CALL GAD_ADVSCHEME_SET( ENUM_PPM_MONO_LIMIT, 3, errCode, myThid )
elseif ( method.eq.ENUM_PPM_MONO_LIMIT ) then