Symbol Description Uses
dd20 20


File Line number Procedure Code
./pkg/salt_plume/salt_plume_frac.F 102 SALT_PLUME_FRAC 
         dd20 = (abs(SPDepth(i)))
./pkg/salt_plume/salt_plume_frac.F 104 SALT_PLUME_FRAC 
         IF ( dd20 .GT. zero ) THEN
./pkg/salt_plume/salt_plume_frac.F 105 SALT_PLUME_FRAC 
          S   = (facz/dd20)
./pkg/salt_plume/salt_plume_frac.F 117 SALT_PLUME_FRAC 
          So = dd20*So
./pkg/salt_plume/salt_plume_frac.F 133 SALT_PLUME_FRAC 
         dd20 = (abs(SPDepth(i)))
./pkg/salt_plume/salt_plume_frac.F 134 SALT_PLUME_FRAC 
         dd   = dd20/SPovershoot
./pkg/salt_plume/salt_plume_frac.F 135 SALT_PLUME_FRAC 
         So=dd20-dd
./pkg/salt_plume/salt_plume_frac.F 137 SALT_PLUME_FRAC 
         IF( (facz.GE.dd).AND.(facz.LT.dd20) ) THEN
./pkg/salt_plume/salt_plume_frac.F 146 SALT_PLUME_FRAC 
         dd20 = one
./pkg/salt_plume/salt_plume_frac.F 147 SALT_PLUME_FRAC 
         IF( (facz.GE.dd).AND.(facz.LT.dd20) ) THEN
./pkg/salt_plume/salt_plume_frac.F 154 SALT_PLUME_FRAC 
         dd20 = (abs(SPDepth(i)))
./pkg/salt_plume/salt_plume_frac.F 156 SALT_PLUME_FRAC 
         IF ( dd20 .GT. zero ) THEN
./pkg/salt_plume/salt_plume_frac.F 157 SALT_PLUME_FRAC 
          S  = (facz/dd20)
./pkg/salt_plume/salt_plume_frac.F 160 SALT_PLUME_FRAC 
          So = 1. _d 0/dd20
./pkg/salt_plume/salt_plume_frac.F 176 SALT_PLUME_FRAC 
          So = dd20*So
./pkg/salt_plume/salt_plume_frac.F 179 SALT_PLUME_FRAC 
          plumek(i) = max(zero,two/dd20*facz-S/So)
./pkg/salt_plume/salt_plume_frac.F 182 SALT_PLUME_FRAC 
     &         three/dd20*facz - three/(dd20*dd20)*facz*facz + S/So)
./pkg/salt_plume/salt_plume_frac.F 72 SALT_PLUME_FRAC 
      _RL facz, dd, dd20