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