| File |
Line number |
Procedure |
Code |
|
./pkg/opps/opps_calc.F |
136 |
OPPS_CALC |
DO ktr=1,nTracerInUse |
|
./pkg/opps/opps_calc.F |
137 |
OPPS_CALC |
Pd(k,ktr) = tracerEnv(k,ktr) |
|
./pkg/opps/opps_calc.F |
223 |
OPPS_CALC |
DO ktr=1,nTracerInUse |
|
./pkg/opps/opps_calc.F |
224 |
OPPS_CALC |
pmix=(dz1*tracerEnv(k2,ktr)+dz2*tracerEnv(k2+1,ktr)) |
|
./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 |
348 |
OPPS_CALC |
DO ktr = 1, nTracerInUse |
|
./pkg/opps/opps_calc.F |
349 |
OPPS_CALC |
Pda(k2,ktr) = Pd(k2,ktr) |
|
./pkg/opps/opps_calc.F |
350 |
OPPS_CALC |
Paa(k2,ktr) = tracerEnv(k2+1,ktr) |
|
./pkg/opps/opps_calc.F |
363 |
OPPS_CALC |
DO ktr=1,nTracerInUse |
|
./pkg/opps/opps_calc.F |
364 |
OPPS_CALC |
Pda(maxdepth,ktr) = Pd(maxdepth,ktr) |
|
./pkg/opps/opps_calc.F |
372 |
OPPS_CALC |
DO ktr = 1,nTracerInUse |
|
./pkg/opps/opps_calc.F |
373 |
OPPS_CALC |
tracerEnv(k,ktr) = tracerEnv(k,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 |
388 |
OPPS_CALC |
DO ktr = 1,nTracerInUse |
|
./pkg/opps/opps_calc.F |
389 |
OPPS_CALC |
tracerEnv(k2,ktr) = tracerEnv(k2,ktr) + |
|
./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 |
400 |
OPPS_CALC |
DO ktr=1,nTracerInUse |
|
./pkg/opps/opps_calc.F |
401 |
OPPS_CALC |
tracerEnv(kmx+1,ktr) = tracerEnv(kmx+1,ktr)+ |
|
./pkg/opps/opps_calc.F |
402 |
OPPS_CALC |
& mda(kmx)*(Pda(kmx,ktr)-Paa(kmx,ktr))*dt*recip_drF(kmx+1) |
|
./pkg/opps/opps_calc.F |
407 |
OPPS_CALC |
DO ktr=1,nTracerInUse |
|
./pkg/opps/opps_calc.F |
409 |
OPPS_CALC |
paa(k2,ktr) = tracerEnv(k2+1,ktr) |
|
./pkg/opps/opps_calc.F |
96 |
OPPS_CALC |
INTEGER K, K2, K2m1, K2p1, ktr |