| Symbol | Description | Uses |
| wsqr | 15 |
| File | Line number | Procedure | Code |
| ./pkg/opps/opps_calc.F | 156 | OPPS_CALC |
wsqr=Wd(k)*Wd(k) |
| ./pkg/opps/opps_calc.F | 246 | OPPS_CALC |
wsqr = wsqr - wsqr*abs(entrainrate)+ gravity* |
| ./pkg/opps/opps_calc.F | 252 | OPPS_CALC |
IF(wsqr.LE.0.0)then |
| ./pkg/opps/opps_calc.F | 266 | OPPS_CALC |
& 'S/R OPPS_CALC: ', wsqr, entrainrate, |
| ./pkg/opps/opps_calc.F | 275 | OPPS_CALC |
Wd(k2+1)=sqrt(wsqr) |
| ./pkg/opps/opps_calc.F | 721 | NLOPPS |
real pdensity,wsqr,oldflux,newflux,entrainrate,adtemp |
| ./pkg/opps/opps_calc.F | 854 | NLOPPS |
wsqr=Wd(k)*Wd(k) |
| ./pkg/opps/opps_calc.F | 926 | NLOPPS |
wsqr = wsqr - wsqr*abs(entrainrate)+ 9.81* |
| ./pkg/opps/opps_calc.F | 932 | NLOPPS |
IF(wsqr.LT.0.0)then |
| ./pkg/opps/opps_calc.F | 940 | NLOPPS |
Wd(k2+1)=sqrt(wsqr) |
| ./pkg/opps/opps_calc.F | 94 | OPPS_CALC |
_RL wsqr,oldflux,newflux,entrainrate |