Symbol Description Uses
rfac 4



File Line number Procedure Code
./model/src/swfrac.F 105 SWFRAC
            swdk(i) =       rfac(jwtype)  * exp(facz/a1(jwtype))
./model/src/swfrac.F 106 SWFRAC
     $                + (1.-rfac(jwtype)) * exp(facz/a2(jwtype))
./model/src/swfrac.F 61 SWFRAC
      _RL rfac(nwtype),a1(nwtype),a2(nwtype)
./model/src/swfrac.F 75 SWFRAC
      DATA rfac         /  0.58 ,  0.62 ,  0.67 ,  0.77 ,  0.78 /