| 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. _d 0 - rfac(jwtype)) * exp( facz/a2(jwtype) ) |
| ./model/src/swfrac.F | 63 | SWFRAC |
_RL rfac(nwtype),a1(nwtype),a2(nwtype) |
| ./model/src/swfrac.F | 77 | SWFRAC |
DATA rfac / 0.58 _d 0, 0.62 _d 0, 0.67 _d 0, 0.77 _d 0, 0.78 _d 0/ |