Symbol Description Uses
Pd tracers, vertical velocity in plume 13



File Line number Procedure Code
./pkg/opps/opps_calc.F 119 OPPS_CALC
      _RL Pd(Nr,nTracer)
./pkg/opps/opps_calc.F 137 OPPS_CALC
        Pd(k,ktr) = tracerEnv(k,ktr)
./pkg/opps/opps_calc.F 139 OPPS_CALC
       Dd(k)=STATE1(Pd(k,2),Pd(k,1),i,j,k,bi,bj,myThid)
./pkg/opps/opps_calc.F 177 OPPS_CALC
        D1=STATE1( Pd(k2,2), Pd(k2,1),i,j,k2+1,bi,bj,myThid)
./pkg/opps/opps_calc.F 226 OPPS_CALC
          Pd(k2+1,ktr)=Pd(k2,ktr)
./pkg/opps/opps_calc.F 227 OPPS_CALC
     &         - entrainrate*(pmix - Pd(k2,ktr))
./pkg/opps/opps_calc.F 233 OPPS_CALC
         Dd(k2+1)=STATE1(Pd(k2+1,2),Pd(k2+1,1),i,j,k2+1,bi,bj,myThid)
./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)