Symbol Description Uses
Pda 6



File Line number Procedure Code
./pkg/opps/opps_calc.F 352 OPPS_CALC
          Pda(k2,ktr) = Pd(k2,ktr)
./pkg/opps/opps_calc.F 367 OPPS_CALC
         Pda(maxdepth,ktr) = Pd(maxdepth,ktr)
./pkg/opps/opps_calc.F 377 OPPS_CALC
     &        (mda(k)*(Pda(k,ktr)-Paa(k,ktr)))*dt*recip_drF(k)
./pkg/opps/opps_calc.F 393 OPPS_CALC
     &           (mda(k2m1)*(Pda(k2m1,ktr)-Paa(k2m1,ktr))
./pkg/opps/opps_calc.F 394 OPPS_CALC
     &           -mda(k2)  *(Pda(k2,ktr)  -Paa(k2,ktr))  )
./pkg/opps/opps_calc.F 405 OPPS_CALC
     &        mda(kmx)*(Pda(kmx,ktr)-Paa(kmx,ktr))*dt*recip_drF(kmx+1)