Symbol Description Uses
facz 21


File Line number Procedure Code
./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 115 SALT_PLUME_FRAC 
                  tempN   = facz*tempN        !raise to the Npower+1
./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 68 SALT_PLUME_FRAC 
         facz = abs(fact*plumek(i))
./pkg/salt_plume/salt_plume_frac.F 69 SALT_PLUME_FRAC 
         IF (SPDepth(i).GT.facz) THEN
./pkg/salt_plume/salt_plume_frac.F 77 SALT_PLUME_FRAC 
                  tempN   = facz*tempN        !raise to the Npower+1
./pkg/salt_plume/salt_plume_frac.F 85 SALT_PLUME_FRAC 
     &              (exp(facz/dd)-one)/
./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))
./model/src/swfrac.F 101 SWFRAC 
        facz = fact*swdk(i)
./model/src/swfrac.F 102 SWFRAC 
        IF ( facz .LT. -200. _d 0 ) THEN
./model/src/swfrac.F 105 SWFRAC 
          swdk(i) =       rfac(jwtype)  * exp( facz/a1(jwtype) )
./model/src/swfrac.F 106 SWFRAC 
     &       + (1. _d 0 - rfac(jwtype)) * exp( facz/a2(jwtype) )
./model/src/swfrac.F 62 SWFRAC 
      _RL facz