INTEGER ENUM_PQM_MONO_LIMIT
PARAMETER(ENUM_PQM_MONO_LIMIT=51)
& advectionScheme.EQ.ENUM_PQM_MONO_LIMIT .OR.
& vertAdvecScheme.EQ.ENUM_PQM_MONO_LIMIT .OR.
CALL GAD_ADVSCHEME_SET( ENUM_PQM_MONO_LIMIT, 4, errCode, myThid )
elseif ( method.eq.ENUM_PQM_MONO_LIMIT ) then