Symbol Description Uses
entrainrate 12


File Line number Procedure Code
./pkg/opps/opps_calc.F 216 OPPS_CALC 
         entrainrate = (newflux - oldflux)/newflux
./pkg/opps/opps_calc.F 226 OPPS_CALC 
     &         - entrainrate*(pmix - Pd(k2,ktr))
./pkg/opps/opps_calc.F 240 OPPS_CALC 
     &    'S/R OPPS_CALC: Dd,De,entr,k ',Dd(k2),De(k2),entrainrate,k2
./pkg/opps/opps_calc.F 246 OPPS_CALC 
         wsqr = wsqr - wsqr*abs(entrainrate)+ gravity*
./pkg/opps/opps_calc.F 266 OPPS_CALC 
     &          'S/R OPPS_CALC: ', wsqr, entrainrate,
./pkg/opps/opps_calc.F 721 NLOPPS 
      real pdensity,wsqr,oldflux,newflux,entrainrate,adtemp
./pkg/opps/opps_calc.F 896 NLOPPS 
                 entrainrate = (newflux - oldflux)/newflux
./pkg/opps/opps_calc.F 910 NLOPPS 
                  sd(k2+1)=sd(k2) - entrainrate*(smix - sd(k2))
./pkg/opps/opps_calc.F 911 NLOPPS 
                  td(k2+1)=td(k2) - entrainrate*(thmix - td(k2))
./pkg/opps/opps_calc.F 923 NLOPPS 
                   write(0,*)"Dd,De,entr,k ",Dd(k2),De(k2),entrainrate,k2
./pkg/opps/opps_calc.F 926 NLOPPS 
                 wsqr = wsqr - wsqr*abs(entrainrate)+ 9.81*
./pkg/opps/opps_calc.F 94 OPPS_CALC 
      _RL wsqr,oldflux,newflux,entrainrate