| File |
Line number |
Procedure |
Code |
|
./pkg/opps/opps_calc.F |
100 |
OPPS_CALC |
_RL wsqr,oldflux,newflux,entrainrate |
|
./pkg/opps/opps_calc.F |
173 |
OPPS_CALC |
oldflux=StartingFlux |
|
./pkg/opps/opps_calc.F |
195 |
OPPS_CALC |
newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)* |
|
./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 |
567 |
NLOPPS |
real pdensity,wsqr,oldflux,newflux,entrainrate,adtemp |
|
./pkg/opps/opps_calc.F |
698 |
NLOPPS |
oldflux=StartingFlux |
|
./pkg/opps/opps_calc.F |
716 |
NLOPPS |
newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)*0.50* |
|
./pkg/opps/opps_calc.F |
732 |
NLOPPS |
entrainrate = (newflux - oldflux)/newflux |
|
./pkg/opps/opps_calc.F |
733 |
NLOPPS |
oldflux = newflux |