Symbol Description Uses
jwtype 7



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 58 SWFRAC
      integer   nwtype  , jwtype
./model/src/swfrac.F 95 SWFRAC
      jwtype=2
./model/src/swfrac.F 97 SWFRAC
      jwtype=2