Symbol Description Uses
Wd 22


File Line number Procedure Code
./pkg/opps/opps_calc.F 110 OPPS_CALC 
      _RL Ad(Nr),Wd(Nr),Dd(Nr),Md(Nr)
./pkg/opps/opps_calc.F 140 OPPS_CALC 
       Wd(k)= - .5*(wVel(K)+wVel(K+1))
./pkg/opps/opps_calc.F 156 OPPS_CALC 
       wsqr=Wd(k)*Wd(k)
./pkg/opps/opps_calc.F 170 OPPS_CALC 
       StartingFlux=radius*radius*Wd(k)*Dd(k)
./pkg/opps/opps_calc.F 193 OPPS_CALC 
         newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)*
./pkg/opps/opps_calc.F 275 OPPS_CALC 
         Wd(k2+1)=sqrt(wsqr)
./pkg/opps/opps_calc.F 280 OPPS_CALC 
         radius=sqrt(newflux/(Wd(k2)*Dd(k2)))
./pkg/opps/opps_calc.F 305 OPPS_CALC 
        Md(k)=Wd(k)*Ad(k)
./pkg/opps/opps_calc.F 312 OPPS_CALC 
     &         'S/R OPPS_CALC: Md, Wd, and  k are ',Md(k2),Wd(k2),k2
./pkg/opps/opps_calc.F 331 OPPS_CALC 
         IF ( Wd(K2) .NE. 0. _d 0 ) dt = min(dt,drF(k2)/Wd(k2))
./pkg/opps/opps_calc.F 757 NLOPPS 
      REAL Ad(km),Sd(km),Td(km),Wd(km),Dd(km),Md(km)
./pkg/opps/opps_calc.F 846 NLOPPS 
          Wd(k) = 0.03
./pkg/opps/opps_calc.F 854 NLOPPS 
          wsqr=Wd(k)*Wd(k)
./pkg/opps/opps_calc.F 861 NLOPPS 
          StartingFlux=radius*radius*Wd(k)*Dd(k)
./pkg/opps/opps_calc.F 880 NLOPPS 
                 newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)*0.50*
./pkg/opps/opps_calc.F 940 NLOPPS 
                 Wd(k2+1)=sqrt(wsqr)
./pkg/opps/opps_calc.F 944 NLOPPS 
                 radius=sqrt(newflux/(Wd(k2)*Dd(k2)))
./pkg/opps/opps_calc.F 970 NLOPPS 
             Md(k)=Wd(k)*Ad(k)
./pkg/opps/opps_calc.F 975 NLOPPS 
                 write(0,*)"Md, Wd, and  k are ",Md(k2),Wd(k2),k2