| Symbol | Description | Uses |
| wsqr | 15 |
| File | Line number | Procedure | Code |
| ./pkg/opps/opps_calc.F | 100 | OPPS_CALC |
_RL wsqr,oldflux,newflux,entrainrate |
| ./pkg/opps/opps_calc.F | 160 | OPPS_CALC |
wsqr=Wd(k)*Wd(k) |
| ./pkg/opps/opps_calc.F | 247 | OPPS_CALC |
wsqr = wsqr - wsqr*abs(entrainrate)+ gravity* |
| ./pkg/opps/opps_calc.F | 253 | OPPS_CALC |
IF(wsqr.LE.0.0)then |
| ./pkg/opps/opps_calc.F | 267 | OPPS_CALC |
& 'S/R OPPS_CALC: ', wsqr, entrainrate, |
| ./pkg/opps/opps_calc.F | 276 | OPPS_CALC |
Wd(k2+1)=sqrt(wsqr) |
| ./pkg/opps/opps_calc.F | 567 | NLOPPS |
real pdensity,wsqr,oldflux,newflux,entrainrate,adtemp |
| ./pkg/opps/opps_calc.F | 692 | NLOPPS |
wsqr=Wd(k)*Wd(k) |
| ./pkg/opps/opps_calc.F | 758 | NLOPPS |
wsqr = wsqr - wsqr*abs(entrainrate)+ 9.81* |
| ./pkg/opps/opps_calc.F | 764 | NLOPPS |
IF(wsqr.LT.0.0)then |
| ./pkg/opps/opps_calc.F | 772 | NLOPPS |
Wd(k2+1)=sqrt(wsqr) |