_RL SaltPlumeCriterion, SPovershoot
COMMON /SALT_PLUME_PARAMS_R/ SaltPlumeCriterion, SPovershoot
& GG.GE.SaltPlumeCriterion ) THEN
IF (GGm1.LE.SaltPlumeCriterion) THEN
tmpFac = (SaltPlumeCriterion - GGm1)
rhoMxL(i,j) = rhoSurf(i,j) + SaltPlumeCriterion
& SaltPlumeCriterion, SPovershoot
SaltPlumeCriterion = UNSET_RL
IF ( SaltPlumeCriterion .EQ. UNSET_RL ) THEN
SaltPlumeCriterion = 0.4 _d 0
SaltPlumeCriterion = 0.005 _d 0