Symbol Description Uses
swdk on input: vertical depth for desired sw fraction 5


File Line number Procedure Code
./model/src/swfrac.F 101 SWFRAC 
         facz = fact*swdk(i)
./model/src/swfrac.F 103 SWFRAC 
            swdk(i) = 0.
./model/src/swfrac.F 105 SWFRAC 
            swdk(i) =       rfac(jwtype)  * exp(facz/a1(jwtype))
./model/src/swfrac.F 13 SWFRAC 
     U     swdk )
./model/src/swfrac.F 53 SWFRAC 
      _RL     swdk(imax)