Symbol Description Uses
newflux 16


File Line number Procedure Code
./pkg/opps/opps_calc.F 193 OPPS_CALC 
         newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)*
./pkg/opps/opps_calc.F 198 OPPS_CALC 
         PlumeEntrainment(k2+1) = newflux/StartingFlux
./pkg/opps/opps_calc.F 200 OPPS_CALC 
         IF(newflux.LE.0.0) then
./pkg/opps/opps_calc.F 216 OPPS_CALC 
         entrainrate = (newflux - oldflux)/newflux
./pkg/opps/opps_calc.F 217 OPPS_CALC 
         oldflux = newflux
./pkg/opps/opps_calc.F 280 OPPS_CALC 
         radius=sqrt(newflux/(Wd(k2)*Dd(k2)))
./pkg/opps/opps_calc.F 721 NLOPPS 
      real pdensity,wsqr,oldflux,newflux,entrainrate,adtemp
./pkg/opps/opps_calc.F 880 NLOPPS 
                 newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)*0.50*
./pkg/opps/opps_calc.F 883 NLOPPS 
                 PlumeEntrainment(k2+1) = newflux/StartingFlux
./pkg/opps/opps_calc.F 885 NLOPPS 
                 IF(newflux.LT.0.0) then
./pkg/opps/opps_calc.F 896 NLOPPS 
                 entrainrate = (newflux - oldflux)/newflux
./pkg/opps/opps_calc.F 897 NLOPPS 
                 oldflux = newflux
./pkg/opps/opps_calc.F 944 NLOPPS 
                 radius=sqrt(newflux/(Wd(k2)*Dd(k2)))
./pkg/opps/opps_calc.F 94 OPPS_CALC 
      _RL wsqr,oldflux,newflux,entrainrate