File |
Line number |
Procedure |
Code |
./pkg/opps/opps_calc.F |
100 |
OPPS_CALC |
_RL wsqr,oldflux,newflux,entrainrate |
./pkg/opps/opps_calc.F |
195 |
OPPS_CALC |
newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)* |
./pkg/opps/opps_calc.F |
200 |
OPPS_CALC |
PlumeEntrainment(k2+1) = newflux/StartingFlux |
./pkg/opps/opps_calc.F |
202 |
OPPS_CALC |
IF(newflux.LE.0.0) then |
./pkg/opps/opps_calc.F |
218 |
OPPS_CALC |
entrainrate = (newflux - oldflux)/newflux |
./pkg/opps/opps_calc.F |
219 |
OPPS_CALC |
oldflux = newflux |
./pkg/opps/opps_calc.F |
281 |
OPPS_CALC |
radius=sqrt(newflux/(Wd(k2)*Dd(k2))) |
./pkg/opps/opps_calc.F |
567 |
NLOPPS |
real pdensity,wsqr,oldflux,newflux,entrainrate,adtemp |
./pkg/opps/opps_calc.F |
716 |
NLOPPS |
newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)*0.50* |
./pkg/opps/opps_calc.F |
719 |
NLOPPS |
PlumeEntrainment(k2+1) = newflux/StartingFlux |
./pkg/opps/opps_calc.F |
721 |
NLOPPS |
IF(newflux.LT.0.0) then |
./pkg/opps/opps_calc.F |
732 |
NLOPPS |
entrainrate = (newflux - oldflux)/newflux |
./pkg/opps/opps_calc.F |
733 |
NLOPPS |
oldflux = newflux |
./pkg/opps/opps_calc.F |
776 |
NLOPPS |
radius=sqrt(newflux/(Wd(k2)*Dd(k2))) |