Symbol Description Uses
Wd tracers, vertical velocity in plume 22


File Line number Procedure Code
./pkg/opps/opps_calc.F 116 OPPS_CALC 
      _RL Ad(Nr),Wd(Nr),Dd(Nr),Md(Nr)
./pkg/opps/opps_calc.F 144 OPPS_CALC 
       Wd(k)= - .5*(wVel(K)+wVel(K+1))
./pkg/opps/opps_calc.F 160 OPPS_CALC 
       wsqr=Wd(k)*Wd(k)
./pkg/opps/opps_calc.F 172 OPPS_CALC 
       StartingFlux=radius*radius*Wd(k)*Dd(k)
./pkg/opps/opps_calc.F 195 OPPS_CALC 
         newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)*
./pkg/opps/opps_calc.F 276 OPPS_CALC 
         Wd(k2+1)=sqrt(wsqr)
./pkg/opps/opps_calc.F 281 OPPS_CALC 
         radius=sqrt(newflux/(Wd(k2)*Dd(k2)))
./pkg/opps/opps_calc.F 304 OPPS_CALC 
        Md(k)=Wd(k)*Ad(k)
./pkg/opps/opps_calc.F 311 OPPS_CALC 
     &         'S/R OPPS_CALC: Md, Wd, and  k are ',Md(k2),Wd(k2),k2
./pkg/opps/opps_calc.F 328 OPPS_CALC 
         IF ( Wd(K2) .NE. 0. _d 0 ) dt = min(dt,drF(k2)/Wd(k2))
./pkg/opps/opps_calc.F 600 NLOPPS 
      REAL Ad(km),Sd(km),Td(km),Wd(km),Dd(km),Md(km)
./pkg/opps/opps_calc.F 684 NLOPPS 
          Wd(k) = 0.03
./pkg/opps/opps_calc.F 692 NLOPPS 
          wsqr=Wd(k)*Wd(k)
./pkg/opps/opps_calc.F 697 NLOPPS 
          StartingFlux=radius*radius*Wd(k)*Dd(k)
./pkg/opps/opps_calc.F 716 NLOPPS 
                 newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)*0.50*
./pkg/opps/opps_calc.F 772 NLOPPS 
                 Wd(k2+1)=sqrt(wsqr)
./pkg/opps/opps_calc.F 776 NLOPPS 
                 radius=sqrt(newflux/(Wd(k2)*Dd(k2)))
./pkg/opps/opps_calc.F 800 NLOPPS 
             Md(k)=Wd(k)*Ad(k)
./pkg/opps/opps_calc.F 805 NLOPPS 
                 write(0,*)"Md, Wd, and  k are ",Md(k2),Wd(k2),k2