| File |
Line number |
Procedure |
Code |
|
./pkg/opps/opps_calc.F |
132 |
OPPS_CALC |
DO ktr=1,nTracerInUse |
|
./pkg/opps/opps_calc.F |
133 |
OPPS_CALC |
Pd(k,ktr) = tracerEnv(k,ktr) |
|
./pkg/opps/opps_calc.F |
222 |
OPPS_CALC |
DO ktr=1,nTracerInUse |
|
./pkg/opps/opps_calc.F |
223 |
OPPS_CALC |
pmix=(dz1*tracerEnv(k2,ktr)+dz2*tracerEnv(k2+1,ktr)) |
|
./pkg/opps/opps_calc.F |
225 |
OPPS_CALC |
Pd(k2+1,ktr)=Pd(k2,ktr) |
|
./pkg/opps/opps_calc.F |
226 |
OPPS_CALC |
& - entrainrate*(pmix - Pd(k2,ktr)) |
|
./pkg/opps/opps_calc.F |
351 |
OPPS_CALC |
DO ktr = 1, nTracerInUse |
|
./pkg/opps/opps_calc.F |
352 |
OPPS_CALC |
Pda(k2,ktr) = Pd(k2,ktr) |
|
./pkg/opps/opps_calc.F |
353 |
OPPS_CALC |
Paa(k2,ktr) = tracerEnv(k2+1,ktr) |
|
./pkg/opps/opps_calc.F |
366 |
OPPS_CALC |
DO ktr=1,nTracerInUse |
|
./pkg/opps/opps_calc.F |
367 |
OPPS_CALC |
Pda(maxdepth,ktr) = Pd(maxdepth,ktr) |
|
./pkg/opps/opps_calc.F |
375 |
OPPS_CALC |
DO ktr = 1,nTracerInUse |
|
./pkg/opps/opps_calc.F |
376 |
OPPS_CALC |
tracerEnv(k,ktr) = tracerEnv(k,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 |
391 |
OPPS_CALC |
DO ktr = 1,nTracerInUse |
|
./pkg/opps/opps_calc.F |
392 |
OPPS_CALC |
tracerEnv(k2,ktr) = tracerEnv(k2,ktr) + |
|
./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 |
403 |
OPPS_CALC |
DO ktr=1,nTracerInUse |
|
./pkg/opps/opps_calc.F |
404 |
OPPS_CALC |
tracerEnv(kmx+1,ktr) = tracerEnv(kmx+1,ktr)+ |
|
./pkg/opps/opps_calc.F |
405 |
OPPS_CALC |
& mda(kmx)*(Pda(kmx,ktr)-Paa(kmx,ktr))*dt*recip_drF(kmx+1) |
|
./pkg/opps/opps_calc.F |
410 |
OPPS_CALC |
DO ktr=1,nTracerInUse |
|
./pkg/opps/opps_calc.F |
412 |
OPPS_CALC |
paa(k2,ktr) = tracerEnv(k2+1,ktr) |
|
./pkg/opps/opps_calc.F |
90 |
OPPS_CALC |
INTEGER K, K2, K2m1, K2p1, ktr |
|
./pkg/opps/opps_interface.F |
129 |
OPPS_INTERFACE |
DO ktr = 3, nTracerInUse |
|
./pkg/opps/opps_interface.F |
131 |
OPPS_INTERFACE |
tracerLoc(K,ktr) = ptracer(I,J,K,bi,bj,ktr-2) |
|
./pkg/opps/opps_interface.F |
185 |
OPPS_INTERFACE |
DO ktr = 3, nTracerInUse |
|
./pkg/opps/opps_interface.F |
187 |
OPPS_INTERFACE |
ptracer(I,J,K,bi,bj,ktr-2) = tracerLoc(K,ktr) |
|
./pkg/opps/opps_interface.F |
70 |
OPPS_INTERFACE |
INTEGER i, j, K, kSurface, kMax, ktr, nTracerInUse |