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
& .AND. GAD_VALID_ADVSCHEME( ENUM_SOM_PRATHER )
GAD_Scheme_olSize( ENUM_SOM_PRATHER ) = 1
IF ( advectionScheme.EQ.ENUM_SOM_PRATHER
IF ( vertAdvecScheme.EQ.ENUM_SOM_PRATHER
& .OR. advScheme .EQ. ENUM_SOM_PRATHER
& PTRACERS_advScheme(iTracer).GE.ENUM_SOM_PRATHER