Symbol Description Uses
Pda 6



File Line number Procedure Code
./pkg/opps/opps_calc.F 349 OPPS_CALC
          Pda(k2,ktr) = Pd(k2,ktr)
./pkg/opps/opps_calc.F 364 OPPS_CALC
         Pda(maxdepth,ktr) = Pd(maxdepth,ktr)
./pkg/opps/opps_calc.F 374 OPPS_CALC
     &        (mda(k)*(Pda(k,ktr)-Paa(k,ktr)))*dt*recip_drF(k)
./pkg/opps/opps_calc.F 390 OPPS_CALC
     &           (mda(k2m1)*(Pda(k2m1,ktr)-Paa(k2m1,ktr))
./pkg/opps/opps_calc.F 391 OPPS_CALC
     &           -mda(k2)  *(Pda(k2,ktr)  -Paa(k2,ktr))  )
./pkg/opps/opps_calc.F 402 OPPS_CALC
     &        mda(kmx)*(Pda(kmx,ktr)-Paa(kmx,ktr))*dt*recip_drF(kmx+1)