INTEGER ENUM_SOM_PRATHER
PARAMETER(ENUM_SOM_PRATHER=80)
IF ( tempAdvScheme.EQ.ENUM_SOM_PRATHER
& .OR.saltAdvScheme.EQ.ENUM_SOM_PRATHER
tempSOM_Advection = tempAdvScheme.GE.ENUM_SOM_PRATHER
saltSOM_Advection = saltAdvScheme.GE.ENUM_SOM_PRATHER
CALL GAD_ADVSCHEME_SET( ENUM_SOM_PRATHER , 1, errCode, myThid )
IF ( advectionScheme.EQ.ENUM_SOM_PRATHER
IF ( vertAdvecScheme.EQ.ENUM_SOM_PRATHER
& PTRACERS_advScheme(iTracer).GE.ENUM_SOM_PRATHER