| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_phys.F |
230 |
ECCO_PHYS |
itr = gencost_itracer(kgen) |
|
./pkg/ecco/ecco_phys.F |
273 |
ECCO_PHYS |
tmpfld=pTracer(i,j,k,bi,bj,itr) |
|
./pkg/ecco/ecco_phys.F |
45 |
ECCO_PHYS |
integer kgen, kgen3d, itr |
|
./pkg/opps/opps_interface.F |
120 |
OPPS_INTERFACE |
DO itr = 3, nTracerInUse |
|
./pkg/opps/opps_interface.F |
122 |
OPPS_INTERFACE |
tracerLoc(K,itr) = ptracer(I,J,K,bi,bj,itr-2) |
|
./pkg/opps/opps_interface.F |
176 |
OPPS_INTERFACE |
DO itr = 3, nTracerInUse |
|
./pkg/opps/opps_interface.F |
178 |
OPPS_INTERFACE |
ptracer(I,J,K,bi,bj,itr-2) = tracerLoc(K,itr) |
|
./pkg/opps/opps_interface.F |
65 |
OPPS_INTERFACE |
INTEGER itr |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
47 |
PTRACERS_CALC_WSURF_TR |
INTEGER i,j,bi,bj,ks,itr |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
53 |
PTRACERS_CALC_WSURF_TR |
DO itr=1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
62 |
PTRACERS_CALC_WSURF_TR |
DO itr=1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
63 |
PTRACERS_CALC_WSURF_TR |
wT_Tile(bi,bj,itr) = 0. |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
68 |
PTRACERS_CALC_WSURF_TR |
wT_Tile(bi,bj,itr) = wT_Tile(bi,bj,itr) |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
79 |
PTRACERS_CALC_WSURF_TR |
DO itr=1,PTRACERS_numInUse |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
80 |
PTRACERS_CALC_WSURF_TR |
CALL GLOBAL_SUM_TILE_RL( wT_Tile(1,1,itr), wT_Mean(iTr), |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
87 |
PTRACERS_CALC_WSURF_TR |
DO itr=1,PTRACERS_numInUse |
|
./pkg/ecco/cost_gencost_customize.F |
117 |
COST_GENCOST_CUSTOMIZE |
itr=gencost_itracer(k) |
|
./pkg/ecco/cost_gencost_customize.F |
230 |
COST_GENCOST_CUSTOMIZE |
& pTracer(i,j,k2,bi,bj,itr)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
63 |
COST_GENCOST_CUSTOMIZE |
integer itr |