Symbol Description Uses
newflux 16


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 552 NLOPPS 
      real pdensity,wsqr,oldflux,newflux,entrainrate,adtemp
./pkg/opps/opps_calc.F 701 NLOPPS 
                 newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)*0.50*
./pkg/opps/opps_calc.F 704 NLOPPS 
                 PlumeEntrainment(k2+1) = newflux/StartingFlux
./pkg/opps/opps_calc.F 706 NLOPPS 
                 IF(newflux.LT.0.0) then
./pkg/opps/opps_calc.F 717 NLOPPS 
                 entrainrate = (newflux - oldflux)/newflux
./pkg/opps/opps_calc.F 718 NLOPPS 
                 oldflux = newflux
./pkg/opps/opps_calc.F 761 NLOPPS 
                 radius=sqrt(newflux/(Wd(k2)*Dd(k2)))