Symbol Description Uses
facz 26


File Line number Procedure Code
./pkg/salt_plume/salt_plume_frac.F 105 SALT_PLUME_FRAC 
          S   = (facz/dd20)
./pkg/salt_plume/salt_plume_frac.F 116 SALT_PLUME_FRAC 
          S  = facz*S              !raise to the Npowerloc+1
./pkg/salt_plume/salt_plume_frac.F 124 SALT_PLUME_FRAC 
         S  = exp(facz/dd)-one
./pkg/salt_plume/salt_plume_frac.F 136 SALT_PLUME_FRAC 
         S =facz-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 147 SALT_PLUME_FRAC 
         IF( (facz.GE.dd).AND.(facz.LT.dd20) ) THEN
./pkg/salt_plume/salt_plume_frac.F 157 SALT_PLUME_FRAC 
          S  = (facz/dd20)
./pkg/salt_plume/salt_plume_frac.F 166 SALT_PLUME_FRAC 
          plumek(i) = max(zero,two*So*facz-S)
./pkg/salt_plume/salt_plume_frac.F 169 SALT_PLUME_FRAC 
     &         three*So*facz - three*So*So*facz*facz + S)
./pkg/salt_plume/salt_plume_frac.F 175 SALT_PLUME_FRAC 
          S  = facz*S              !raise to the Npower+1
./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
./pkg/salt_plume/salt_plume_frac.F 85 SALT_PLUME_FRAC 
       facz = abs(fact*plumek(i))
./pkg/salt_plume/salt_plume_frac.F 98 SALT_PLUME_FRAC 
       IF (SPDepth(i).GE.facz .and. SPDepth(i) .GT. zero) THEN
./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