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. _d 0 - rfac(jwtype)) * exp( facz/a2(jwtype) )
./model/src/swfrac.F 60 SWFRAC 
      INTEGER   nwtype  , jwtype
./model/src/swfrac.F 95 SWFRAC 
      jwtype=2
./model/src/swfrac.F 97 SWFRAC 
      jwtype=2