Symbol Description Uses
dd20 16


File Line number Procedure Code
./pkg/salt_plume/salt_plume_frac.F 103 SALT_PLUME_FRAC 
               dd20 = one
./pkg/salt_plume/salt_plume_frac.F 104 SALT_PLUME_FRAC 
               IF( (facz.GE.dd).AND.(facz.LT.dd20) ) THEN
./pkg/salt_plume/salt_plume_frac.F 105 SALT_PLUME_FRAC 
                  plumek(i) = one - min(one,(facz-dd)/(dd20-dd))
./pkg/salt_plume/salt_plume_frac.F 111 SALT_PLUME_FRAC 
               dd20 = (abs(SPDepth(i)))
./pkg/salt_plume/salt_plume_frac.F 116 SALT_PLUME_FRAC 
                  tempN20 = dd20*tempN20
./pkg/salt_plume/salt_plume_frac.F 119 SALT_PLUME_FRAC 
                  plumek(i) = one - min(one,two/dd20*facz-tempN/tempN20)
./pkg/salt_plume/salt_plume_frac.F 122 SALT_PLUME_FRAC 
     &                 three/dd20*facz - three/(dd20*dd20)*facz*facz
./pkg/salt_plume/salt_plume_frac.F 62 SALT_PLUME_FRAC 
      _RL facz, dd, dd20
./pkg/salt_plume/salt_plume_frac.F 73 SALT_PLUME_FRAC 
               dd20 = (abs(SPDepth(i)))
./pkg/salt_plume/salt_plume_frac.F 78 SALT_PLUME_FRAC 
                  tempN20 = dd20*tempN20
./pkg/salt_plume/salt_plume_frac.F 92 SALT_PLUME_FRAC 
               dd20 = (abs(SPDepth(i)))
./pkg/salt_plume/salt_plume_frac.F 93 SALT_PLUME_FRAC 
               dd   = dd20/SPovershoot
./pkg/salt_plume/salt_plume_frac.F 94 SALT_PLUME_FRAC 
               IF( (facz.GE.dd).AND.(facz.LT.dd20) ) THEN
./pkg/salt_plume/salt_plume_frac.F 95 SALT_PLUME_FRAC 
                  plumek(i) = one - min(one,(facz-dd)/(dd20-dd))