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. _d 0
./model/src/swfrac.F 105 SWFRAC 
          swdk(i) =       rfac(jwtype)  * exp( facz/a1(jwtype) )
./model/src/swfrac.F 12 SWFRAC 
     U                  swdk,
./model/src/swfrac.F 55 SWFRAC 
      _RL     swdk(imax)