| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagstats_calc.F |
102 |
DIAGSTATS_CALC |
statArr(im) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
103 |
DIAGSTATS_CALC |
statArr(ix) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
105 |
DIAGSTATS_CALC |
statArr(im) = MIN(tmpFld,statArr(im)) |
|
./pkg/diagnostics/diagstats_calc.F |
106 |
DIAGSTATS_CALC |
statArr(ix) = MAX(tmpFld,statArr(ix)) |
|
./pkg/diagnostics/diagstats_calc.F |
114 |
DIAGSTATS_CALC |
statArr(1) = statArr(1) + tmpVol*tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
115 |
DIAGSTATS_CALC |
statArr(2) = statArr(2) + tmpVol*tmpFld*tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
126 |
DIAGSTATS_CALC |
tmpFld = tmpFac*inpArr(i,j)*inpArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
128 |
DIAGSTATS_CALC |
tmpFld = tmpFac*inpArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
131 |
DIAGSTATS_CALC |
statArr(im) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
132 |
DIAGSTATS_CALC |
statArr(ix) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
134 |
DIAGSTATS_CALC |
statArr(im) = MIN(tmpFld,statArr(im)) |
|
./pkg/diagnostics/diagstats_calc.F |
135 |
DIAGSTATS_CALC |
statArr(ix) = MAX(tmpFld,statArr(ix)) |
|
./pkg/diagnostics/diagstats_calc.F |
143 |
DIAGSTATS_CALC |
statArr(1) = statArr(1) + tmpVol*tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
144 |
DIAGSTATS_CALC |
statArr(2) = statArr(2) + tmpVol*tmpFld*tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
156 |
DIAGSTATS_CALC |
tmpFld = tmpFac*inpArr(i,j)*inpArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
158 |
DIAGSTATS_CALC |
tmpFld = tmpFac*inpArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
161 |
DIAGSTATS_CALC |
statArr(im) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
162 |
DIAGSTATS_CALC |
statArr(ix) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
164 |
DIAGSTATS_CALC |
statArr(im) = MIN(tmpFld,statArr(im)) |
|
./pkg/diagnostics/diagstats_calc.F |
165 |
DIAGSTATS_CALC |
statArr(ix) = MAX(tmpFld,statArr(ix)) |
|
./pkg/diagnostics/diagstats_calc.F |
173 |
DIAGSTATS_CALC |
statArr(1) = statArr(1) + tmpVol*tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
174 |
DIAGSTATS_CALC |
statArr(2) = statArr(2) + tmpVol*tmpFld*tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
185 |
DIAGSTATS_CALC |
tmpFld = tmpFac*inpArr(i,j)*inpArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
187 |
DIAGSTATS_CALC |
tmpFld = tmpFac*inpArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
190 |
DIAGSTATS_CALC |
statArr(im) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
191 |
DIAGSTATS_CALC |
statArr(ix) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
193 |
DIAGSTATS_CALC |
statArr(im) = MIN(tmpFld,statArr(im)) |
|
./pkg/diagnostics/diagstats_calc.F |
194 |
DIAGSTATS_CALC |
statArr(ix) = MAX(tmpFld,statArr(ix)) |
|
./pkg/diagnostics/diagstats_calc.F |
202 |
DIAGSTATS_CALC |
statArr(1) = statArr(1) + tmpVol*tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
203 |
DIAGSTATS_CALC |
statArr(2) = statArr(2) + tmpVol*tmpFld*tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
216 |
DIAGSTATS_CALC |
tmpFld = tmpFac*inpArr(i,j)*inpArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
218 |
DIAGSTATS_CALC |
tmpFld = tmpFac*inpArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
221 |
DIAGSTATS_CALC |
statArr(im) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
222 |
DIAGSTATS_CALC |
statArr(ix) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
224 |
DIAGSTATS_CALC |
statArr(im) = MIN(tmpFld,statArr(im)) |
|
./pkg/diagnostics/diagstats_calc.F |
225 |
DIAGSTATS_CALC |
statArr(ix) = MAX(tmpFld,statArr(ix)) |
|
./pkg/diagnostics/diagstats_calc.F |
233 |
DIAGSTATS_CALC |
statArr(1) = statArr(1) + tmpVol*tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
234 |
DIAGSTATS_CALC |
statArr(2) = statArr(2) + tmpVol*tmpFld*tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
246 |
DIAGSTATS_CALC |
tmpFld = tmpFac*inpArr(i,j)*inpArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
248 |
DIAGSTATS_CALC |
tmpFld = tmpFac*inpArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
251 |
DIAGSTATS_CALC |
statArr(im) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
252 |
DIAGSTATS_CALC |
statArr(ix) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
254 |
DIAGSTATS_CALC |
statArr(im) = MIN(tmpFld,statArr(im)) |
|
./pkg/diagnostics/diagstats_calc.F |
255 |
DIAGSTATS_CALC |
statArr(ix) = MAX(tmpFld,statArr(ix)) |
|
./pkg/diagnostics/diagstats_calc.F |
263 |
DIAGSTATS_CALC |
statArr(1) = statArr(1) + tmpVol*tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
264 |
DIAGSTATS_CALC |
statArr(2) = statArr(2) + tmpVol*tmpFld*tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
277 |
DIAGSTATS_CALC |
tmpFld = tmpFac*inpArr(i,j)*inpArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
279 |
DIAGSTATS_CALC |
tmpFld = tmpFac*inpArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
282 |
DIAGSTATS_CALC |
statArr(im) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
283 |
DIAGSTATS_CALC |
statArr(ix) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
285 |
DIAGSTATS_CALC |
statArr(im) = MIN(tmpFld,statArr(im)) |
|
./pkg/diagnostics/diagstats_calc.F |
286 |
DIAGSTATS_CALC |
statArr(ix) = MAX(tmpFld,statArr(ix)) |
|
./pkg/diagnostics/diagstats_calc.F |
294 |
DIAGSTATS_CALC |
statArr(1) = statArr(1) + tmpVol*tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
295 |
DIAGSTATS_CALC |
statArr(2) = statArr(2) + tmpVol*tmpFld*tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
307 |
DIAGSTATS_CALC |
tmpFld = tmpFac*inpArr(i,j)*inpArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
309 |
DIAGSTATS_CALC |
tmpFld = tmpFac*inpArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
312 |
DIAGSTATS_CALC |
statArr(im) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
313 |
DIAGSTATS_CALC |
statArr(ix) = tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
315 |
DIAGSTATS_CALC |
statArr(im) = MIN(tmpFld,statArr(im)) |
|
./pkg/diagnostics/diagstats_calc.F |
316 |
DIAGSTATS_CALC |
statArr(ix) = MAX(tmpFld,statArr(ix)) |
|
./pkg/diagnostics/diagstats_calc.F |
324 |
DIAGSTATS_CALC |
statArr(1) = statArr(1) + tmpVol*tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
325 |
DIAGSTATS_CALC |
statArr(2) = statArr(2) + tmpVol*tmpFld*tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
79 |
DIAGSTATS_CALC |
_RL tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
97 |
DIAGSTATS_CALC |
tmpFld = tmpFac*inpArr(i,j)*inpArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
99 |
DIAGSTATS_CALC |
tmpFld = tmpFac*inpArr(i,j) |
|
./pkg/aim_v23/aim_write_local.F |
45 |
AIM_WRITE_LOCAL |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/aim_v23/aim_write_local.F |
59 |
AIM_WRITE_LOCAL |
tmpFld(i,j,k) = field(i,j,Katm) |
|
./pkg/aim_v23/aim_write_local.F |
67 |
AIM_WRITE_LOCAL |
tmpFld(i,j,k) = field(i,j,k) |
|
./pkg/aim_v23/aim_write_local.F |
79 |
AIM_WRITE_LOCAL |
CALL WRITE_LOCAL_RL(pref,suff,nNr,tmpFld, |
|
./model/src/diags_rho.F |
101 |
DIAGS_RHO |
CALL DIAGNOSTICS_FILL(tmpFld,'WRHOMASS',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
53 |
DIAGS_RHO |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/diags_rho.F |
60 |
DIAGS_RHO |
tmpFld(i,j) = rhoK(i,j)*rhoK(i,j) |
|
./model/src/diags_rho.F |
63 |
DIAGS_RHO |
CALL DIAGNOSTICS_FILL(tmpFld,'RHOANOSQ',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
69 |
DIAGS_RHO |
tmpFld(i,j) = uVel(i,j,k,bi,bj)*_hFacW(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
73 |
DIAGS_RHO |
CALL DIAGNOSTICS_FILL(tmpFld,'URHOMASS',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
79 |
DIAGS_RHO |
tmpFld(i,j) = vVel(i,j,k,bi,bj)*_hFacS(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
83 |
DIAGS_RHO |
CALL DIAGNOSTICS_FILL(tmpFld,'VRHOMASS',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
90 |
DIAGS_RHO |
tmpFld(i,j) = wVel(i,j,k,bi,bj)*rhoK(i,j) |
|
./model/src/diags_rho.F |
96 |
DIAGS_RHO |
tmpFld(i,j) = wVel(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_surf_flux.F |
100 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j)= |
|
./pkg/timeave/timeave_surf_flux.F |
110 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/timeave/timeave_surf_flux.F |
117 |
TIMEAVE_SURF_FLUX |
CALL TIMEAVE_CUMUL_1T( sFluxtave, tmpFld, 1, |
|
./pkg/timeave/timeave_surf_flux.F |
38 |
TIMEAVE_SURF_FLUX |
_RL tmpFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/timeave/timeave_surf_flux.F |
74 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j) = |
|
./pkg/timeave/timeave_surf_flux.F |
87 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/timeave/timeave_surf_flux.F |
94 |
TIMEAVE_SURF_FLUX |
CALL TIMEAVE_CUMUL_1T( tFluxtave, tmpFld, 1, |
|
./pkg/thsice/thsice_diagnostics_fill.F |
43 |
THSICE_DIAGNOSTICS_FILL |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_diagnostics_fill.F |
77 |
THSICE_DIAGNOSTICS_FILL |
tmpFld(i,j) = iceMask(i,j,bi,bj)*iceheight(i,j,bi,bj) |
|
./pkg/thsice/thsice_diagnostics_fill.F |
82 |
THSICE_DIAGNOSTICS_FILL |
I tmpFld,tmpFac,1,'SI_Qice1', |
|
./pkg/thsice/thsice_diagnostics_fill.F |
86 |
THSICE_DIAGNOSTICS_FILL |
I tmpFld,tmpFac,1,'SI_Qice2', |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
10 |
SHAP_FILT_TRACER_S1 |
U field, tmpFld, |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
113 |
SHAP_FILT_TRACER_S1 |
& -0.5*tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
114 |
SHAP_FILT_TRACER_S1 |
tmpFld(i,j,k,bi,bj)=tmpScal |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
127 |
SHAP_FILT_TRACER_S1 |
_EXCH_XYZ_R8( tmpFld, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
129 |
SHAP_FILT_TRACER_S1 |
_EXCH_XY_R8( tmpFld, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
139 |
SHAP_FILT_TRACER_S1 |
& ( tmpFld(i,j+1,k,bi,bj)-tmpFld(i, j ,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
141 |
SHAP_FILT_TRACER_S1 |
& -( tmpFld(i, j ,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
148 |
SHAP_FILT_TRACER_S1 |
tmpFld(i,j,k,bi,bj) = tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
165 |
SHAP_FILT_TRACER_S1 |
& -0.5*tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
41 |
SHAP_FILT_TRACER_S1 |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
61 |
SHAP_FILT_TRACER_S1 |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
74 |
SHAP_FILT_TRACER_S1 |
_EXCH_XYZ_R8( tmpFld, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
76 |
SHAP_FILT_TRACER_S1 |
_EXCH_XY_R8( tmpFld, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
86 |
SHAP_FILT_TRACER_S1 |
& ( tmpFld(i+1,j,k,bi,bj)-tmpFld( i ,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
88 |
SHAP_FILT_TRACER_S1 |
& -( tmpFld( i ,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
95 |
SHAP_FILT_TRACER_S1 |
tmpFld(i,j,k,bi,bj) = tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
100 |
SHAP_FILT_TRACER_S2 |
_EXCH_XY_R8( tmpFld, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
10 |
SHAP_FILT_TRACER_S2 |
U field, tmpFld, |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
118 |
SHAP_FILT_TRACER_S2 |
& tmpFld(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
127 |
SHAP_FILT_TRACER_S2 |
& ( tmpFld(i,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
136 |
SHAP_FILT_TRACER_S2 |
& ( tmpFld(i,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
149 |
SHAP_FILT_TRACER_S2 |
& tmpFld(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
158 |
SHAP_FILT_TRACER_S2 |
& ( tmpFld(i,j,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
167 |
SHAP_FILT_TRACER_S2 |
& ( tmpFld(i,j,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
186 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
193 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
200 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
222 |
SHAP_FILT_TRACER_S2 |
& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
223 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj)= -tmpFld(i,j,k,bi,bj)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
50 |
SHAP_FILT_TRACER_S2 |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
83 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
98 |
SHAP_FILT_TRACER_S2 |
_EXCH_XYZ_R8( tmpFld, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
10 |
SHAP_FILT_TRACER_S4 |
U field, tmpFld, |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
111 |
SHAP_FILT_TRACER_S4 |
& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
112 |
SHAP_FILT_TRACER_S4 |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
125 |
SHAP_FILT_TRACER_S4 |
_EXCH_XY_R8( tmpFld, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
127 |
SHAP_FILT_TRACER_S4 |
_EXCH_XYZ_R8( tmpFld, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
137 |
SHAP_FILT_TRACER_S4 |
& ( tmpFld(i,j+1,k,bi,bj)-tmpFld(i, j ,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
139 |
SHAP_FILT_TRACER_S4 |
& -( tmpFld(i, j ,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
146 |
SHAP_FILT_TRACER_S4 |
tmpFld(i,j,k,bi,bj) = tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
163 |
SHAP_FILT_TRACER_S4 |
& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
41 |
SHAP_FILT_TRACER_S4 |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,kSize,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
60 |
SHAP_FILT_TRACER_S4 |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
73 |
SHAP_FILT_TRACER_S4 |
_EXCH_XYZ_R8( tmpFld, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
75 |
SHAP_FILT_TRACER_S4 |
_EXCH_XY_R8( tmpFld, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
85 |
SHAP_FILT_TRACER_S4 |
& ( tmpFld(i+1,j,k,bi,bj)-tmpFld( i ,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
87 |
SHAP_FILT_TRACER_S4 |
& -( tmpFld( i ,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
94 |
SHAP_FILT_TRACER_S4 |
tmpFld(i,j,k,bi,bj) = tmpGrd(i,j) |