| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/exch2_check_depths.F |
100 |
EXCH2_CHECK_DEPTHS |
IF ( tmpFld(i,j).GT.0. ) errE = errE + 1 |
|
./pkg/exch2/exch2_check_depths.F |
106 |
EXCH2_CHECK_DEPTHS |
IF ( tmpFld(i,j).GT.0. ) errW = errW + 1 |
|
./pkg/exch2/exch2_check_depths.F |
46 |
EXCH2_CHECK_DEPTHS |
_RS tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/exch2/exch2_check_depths.F |
65 |
EXCH2_CHECK_DEPTHS |
tmpFld(0,j) = rHigh( 1 ,j,bi,bj) - rLow( 1 ,j,bi,bj) |
|
./pkg/exch2/exch2_check_depths.F |
66 |
EXCH2_CHECK_DEPTHS |
tmpFld(i,j) = rHigh(sNx,j,bi,bj) - rLow(sNx,j,bi,bj) |
|
./pkg/exch2/exch2_check_depths.F |
70 |
EXCH2_CHECK_DEPTHS |
tmpFld(i,0) = rHigh(i, 1 ,bi,bj) - rLow(i, 1 ,bi,bj) |
|
./pkg/exch2/exch2_check_depths.F |
71 |
EXCH2_CHECK_DEPTHS |
tmpFld(i,j) = rHigh(i,sNy,bi,bj) - rLow(i,sNy,bi,bj) |
|
./pkg/exch2/exch2_check_depths.F |
79 |
EXCH2_CHECK_DEPTHS |
tmpFld(i,j) = 0. |
|
./pkg/exch2/exch2_check_depths.F |
88 |
EXCH2_CHECK_DEPTHS |
IF ( tmpFld(i,j).GT.0. ) errN = errN + 1 |
|
./pkg/exch2/exch2_check_depths.F |
94 |
EXCH2_CHECK_DEPTHS |
IF ( tmpFld(i,j).GT.0. ) errS = errS + 1 |
|
./pkg/gmredi/gmredi_slope_limit.F |
111 |
GMREDI_SLOPE_LIMIT |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/gmredi/gmredi_slope_limit.F |
147 |
GMREDI_SLOPE_LIMIT |
tmpFld(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
166 |
GMREDI_SLOPE_LIMIT |
tmpFld(i,j) = dSigmaDx(i,j)*dSigmaDx(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
168 |
GMREDI_SLOPE_LIMIT |
IF ( tmpFld(i,j) .EQ. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
171 |
GMREDI_SLOPE_LIMIT |
dSigmMod(i,j) = SQRT( tmpFld(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
184 |
GMREDI_SLOPE_LIMIT |
tmpFld(i,j) = -dSigmMod(i,j)*GM_rMaxSlope |
|
./pkg/gmredi/gmredi_slope_limit.F |
185 |
GMREDI_SLOPE_LIMIT |
IF ( dSigmaDr(i,j) .GE. tmpFld(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
186 |
GMREDI_SLOPE_LIMIT |
& dSigmaDr(i,j) = tmpFld(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
248 |
GMREDI_SLOPE_LIMIT |
tmpFld(i,j) = dSigmaDx(i,j)*dSigmaDx(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
250 |
GMREDI_SLOPE_LIMIT |
IF ( tmpFld(i,j).GT.0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
251 |
GMREDI_SLOPE_LIMIT |
locVar(i,j) = SQRT( tmpFld(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
276 |
GMREDI_SLOPE_LIMIT |
tmpFld(i,j) = Lrho(i,j)*SlopeMod(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
280 |
GMREDI_SLOPE_LIMIT |
& MIN( MAX( tmpFld(i,j), minTransLay ), |
|
./pkg/monitor/mon_ke.F |
186 |
MON_KE |
tmpFld(i,j) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
201 |
MON_KE |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/monitor/mon_ke.F |
211 |
MON_KE |
tmpFld(i,j) = tmpFld(i,j)*u2zonDir(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
219 |
MON_KE |
tileAMu(bi,bj) = tileAMu(bi,bj) + tmpFld(i,j) |
|
./pkg/monitor/mon_ke.F |
225 |
MON_KE |
tmpFld(i,j) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
240 |
MON_KE |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/monitor/mon_ke.F |
250 |
MON_KE |
tmpFld(i,j) = tmpFld(i,j)*v2zonDir(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
257 |
MON_KE |
tileAMu(bi,bj) = tileAMu(bi,bj) + tmpFld(i,j) |
|
./pkg/monitor/mon_ke.F |
265 |
MON_KE |
tmpFld(i,j) = etaHnm1(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
267 |
MON_KE |
tmpFld(i,j) = 0. |
|
./pkg/monitor/mon_ke.F |
274 |
MON_KE |
tmpFld(i,j) = etaN(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
288 |
MON_KE |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/monitor/mon_ke.F |
298 |
MON_KE |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/monitor/mon_ke.F |
306 |
MON_KE |
tileAMs(bi,bj) = tileAMs(bi,bj) + tmpFld(i,j) |
|
./pkg/monitor/mon_ke.F |
46 |
MON_KE |
_RL tmpFld(1:sNx,1:sNy) |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
112 |
CPL_DIAGNOSTICS_FILL |
tmpFld(i,j) = sIceFrac_cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
118 |
CPL_DIAGNOSTICS_FILL |
I tmpFld, tmpFac, 1, 'CPL_Qic1', |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
122 |
CPL_DIAGNOSTICS_FILL |
I tmpFld, tmpFac, 1, 'CPL_Qic2', |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
44 |
CPL_DIAGNOSTICS_FILL |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
38 |
OCN_EXPORT_OCNCONFIG |
INTEGER tmpFld(1) |
|
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
56 |
OCN_EXPORT_OCNCONFIG |
tmpFld(1) = nTimeSteps |
|
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
57 |
OCN_EXPORT_OCNCONFIG |
CALL COMPSEND_I4VEC( 'nCouplingSteps', 1, tmpFld ) |
|
./model/src/diags_rho.F |
152 |
DIAGS_RHO_G |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/diags_rho.F |
169 |
DIAGS_RHO_G |
tmpFld(i,j) = uFld(i,j,k,bi,bj)*_hFacW(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
174 |
DIAGS_RHO_G |
CALL DIAGNOSTICS_FILL(tmpFld,'URHOMASS',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
186 |
DIAGS_RHO_G |
tmpFld(i,j) = vFld(i,j,k,bi,bj)*_hFacS(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
191 |
DIAGS_RHO_G |
CALL DIAGNOSTICS_FILL(tmpFld,'VRHOMASS',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
204 |
DIAGS_RHO_G |
tmpFld(i,j) = wFld(i,j,k,bi,bj)*rho3d(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
210 |
DIAGS_RHO_G |
tmpFld(i,j) = wFld(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
216 |
DIAGS_RHO_G |
CALL DIAGNOSTICS_FILL(tmpFld,'WRHOMASS',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
64 |
DIAGS_RHO_L |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/diags_rho.F |
73 |
DIAGS_RHO_L |
tmpFld(i,j) = wFld(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
77 |
DIAGS_RHO_L |
CALL DIAGNOSTICS_FILL(tmpFld,'WdRHO_P ',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
86 |
DIAGS_RHO_L |
tmpFld(i,j) = wFld(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
90 |
DIAGS_RHO_L |
CALL DIAGNOSTICS_FILL(tmpFld,'WdRHOdP ',k,1,2,bi,bj,myThid) |
|
./pkg/seaice/advect.F |
127 |
ADVECT |
& ( tmpFld(i ,j ,bi,bj)+tmpFld(i+1,j ,bi,bj)) |
|
./pkg/seaice/advect.F |
129 |
ADVECT |
& ( tmpFld(i ,j ,bi,bj)+tmpFld(i-1,j ,bi,bj)) |
|
./pkg/seaice/advect.F |
133 |
ADVECT |
& ( tmpFld(i ,j ,bi,bj)+tmpFld(i ,j+1,bi,bj)) |
|
./pkg/seaice/advect.F |
136 |
ADVECT |
& ( tmpFld(i ,j ,bi,bj)+tmpFld(i ,j-1,bi,bj)) |
|
./pkg/seaice/advect.F |
152 |
ADVECT |
& * 0.5 _d 0 * (tmpFld(i,j,bi,bj)+tmpFld(i-1,j,bi,bj)) |
|
./pkg/seaice/advect.F |
154 |
ADVECT |
& * 0.5 _d 0 * (tmpFld(i,j,bi,bj)+tmpFld(i,j-1,bi,bj)) |
|
./pkg/seaice/advect.F |
182 |
ADVECT |
tmpFld(i,j,bi,bj) = fldNm1(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
200 |
ADVECT |
CALL DIFFUS( tmpFld, DIFFA, iceMsk, myThid ) |
|
./pkg/seaice/advect.F |
207 |
ADVECT |
& +tmpFld(i,j,bi,bj)*DIFF1*DELTT |
|
./pkg/seaice/advect.F |
216 |
ADVECT |
_EXCH_XY_RL( tmpFld, myThid ) |
|
./pkg/seaice/advect.F |
232 |
ADVECT |
CALL DIFFUS( tmpFld, DIFFA, iceMsk, myThid ) |
|
./pkg/seaice/advect.F |
239 |
ADVECT |
& +tmpFld(i,j,bi,bj)*DIFF1*DELTT |
|
./pkg/seaice/advect.F |
62 |
ADVECT |
_RL tmpFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/advect.F |
97 |
ADVECT |
tmpFld(i,j,bi,bj)=HALF*(fld(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
108 |
DIFFUS |
tmpFld(i,j) = 0.0 _d 0 |
|
./pkg/seaice/diffus.F |
119 |
DIFFUS |
tmpFld(i,j) = |
|
./pkg/seaice/diffus.F |
148 |
DIFFUS |
fld(i,j,bi,bj) = tmpFld(i,j) |
|
./pkg/seaice/diffus.F |
48 |
DIFFUS |
_RL tmpFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
118 |
SEAICE_BOTTOMDRAG_COEFFS |
tmpFld(I,J) = SEAICEbasalDragK2 / SQRT(tmp + u0sq) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
149 |
SEAICE_BOTTOMDRAG_COEFFS |
& + tmpFld(I,J) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
80 |
SEAICE_BOTTOMDRAG_COEFFS |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
99 |
SEAICE_BOTTOMDRAG_COEFFS |
tmpFld(I,J) = 0. _d 0 |
|
./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_RL( tmpFld, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
129 |
SHAP_FILT_TRACER_S1 |
_EXCH_XY_RL( 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_RL( tmpFld, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
76 |
SHAP_FILT_TRACER_S1 |
_EXCH_XY_RL( 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 |
10 |
SHAP_FILT_TRACER_S2 |
U field, tmpFld, |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
117 |
SHAP_FILT_TRACER_S2 |
& tmpFld(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
126 |
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 |
135 |
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 |
148 |
SHAP_FILT_TRACER_S2 |
& tmpFld(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
157 |
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 |
166 |
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 |
185 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
192 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
199 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
221 |
SHAP_FILT_TRACER_S2 |
& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
222 |
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 |
97 |
SHAP_FILT_TRACER_S2 |
_EXCH_XYZ_RL( tmpFld, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
99 |
SHAP_FILT_TRACER_S2 |
_EXCH_XY_RL( 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_RL( tmpFld, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
127 |
SHAP_FILT_TRACER_S4 |
_EXCH_XYZ_RL( 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_RL( tmpFld, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
75 |
SHAP_FILT_TRACER_S4 |
_EXCH_XY_RL( 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) |
|
./model/src/ini_masks_etc.F |
182 |
INI_MASKS_ETC |
tmpFld(i,j,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
191 |
INI_MASKS_ETC |
tmpFld(i,j,bi,bj) = tmpFld(i,j,bi,bj) + 1. |
|
./model/src/ini_masks_etc.F |
234 |
INI_MASKS_ETC |
tmpFld(i,j,bi,bj) = tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
46 |
INI_MASKS_ETC |
_RS tmpFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_diagnostics_state.F |
49 |
THSICE_DIAGNOSTICS_STATE |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_diagnostics_state.F |
86 |
THSICE_DIAGNOSTICS_STATE |
tmpFld(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_diagnostics_state.F |
91 |
THSICE_DIAGNOSTICS_STATE |
I tmpFld, tmpFac, 1, 'SI_Qice1', |
|
./pkg/thsice/thsice_diagnostics_state.F |
95 |
THSICE_DIAGNOSTICS_STATE |
I tmpFld, tmpFac, 1, 'SI_Qice2', |
|
./pkg/thsice/thsice_diffusion.F |
101 |
THSICE_DIFFUSION |
& *recip_dyC(i,j,bi,bj)/tmpFld |
|
./pkg/thsice/thsice_diffusion.F |
64 |
THSICE_DIFFUSION |
_RL tmpFld, hIceEpsil |
|
./pkg/thsice/thsice_diffusion.F |
85 |
THSICE_DIFFUSION |
tmpFld = MAX( iceFld(i-1,j),iceFld(i,j) ) |
|
./pkg/thsice/thsice_diffusion.F |
87 |
THSICE_DIFFUSION |
IF ( tmpFld.GT.hIceEpsil ) |
|
./pkg/thsice/thsice_diffusion.F |
90 |
THSICE_DIFFUSION |
& *recip_dxC(i,j,bi,bj)/tmpFld |
|
./pkg/thsice/thsice_diffusion.F |
96 |
THSICE_DIFFUSION |
tmpFld = MAX( iceFld(i,j-1),iceFld(i,j) ) |
|
./pkg/thsice/thsice_diffusion.F |
98 |
THSICE_DIFFUSION |
IF ( tmpFld.GT.hIceEpsil ) |
|
./pkg/timeave/timeave_surf_flux.F |
101 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/timeave/timeave_surf_flux.F |
107 |
TIMEAVE_SURF_FLUX |
CALL TIMEAVE_CUMUL_1T( sFluxtave, tmpFld, 1, |
|
./pkg/timeave/timeave_surf_flux.F |
37 |
TIMEAVE_SURF_FLUX |
_RL tmpFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/timeave/timeave_surf_flux.F |
49 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j)=fu(i,j,bi,bj)*foFacMom*_maskW(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_surf_flux.F |
52 |
TIMEAVE_SURF_FLUX |
CALL TIMEAVE_CUMUL_1T(uFluxtave,tmpFld,1, |
|
./pkg/timeave/timeave_surf_flux.F |
58 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j)=fv(i,j,bi,bj)*foFacMom*_maskS(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_surf_flux.F |
61 |
TIMEAVE_SURF_FLUX |
CALL TIMEAVE_CUMUL_1T(vFluxtave,tmpFld,1, |
|
./pkg/timeave/timeave_surf_flux.F |
67 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j) = |
|
./pkg/timeave/timeave_surf_flux.F |
80 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/timeave/timeave_surf_flux.F |
86 |
TIMEAVE_SURF_FLUX |
CALL TIMEAVE_CUMUL_1T( tFluxtave, tmpFld, 1, |
|
./pkg/timeave/timeave_surf_flux.F |
92 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j)= |
|
./model/src/ini_sigma_hfac.F |
106 |
INI_SIGMA_HFAC |
& + dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/ini_sigma_hfac.F |
48 |
INI_SIGMA_HFAC |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/ini_sigma_hfac.F |
71 |
INI_SIGMA_HFAC |
tmpFld(i,j) = Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
73 |
INI_SIGMA_HFAC |
IF ( tmpFld(i,j).LT.hFacInf*rFullDepth ) |
|
./model/src/ini_sigma_hfac.F |
74 |
INI_SIGMA_HFAC |
& tmpFld(i,j) = 0. _d 0 |
|
./model/src/ini_sigma_hfac.F |
85 |
INI_SIGMA_HFAC |
IF ( tmpFld(i,j).GT.0. _d 0 ) THEN |
|
./model/src/ini_sigma_hfac.F |
89 |
INI_SIGMA_HFAC |
recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpFld(i,j) |
|
./model/src/update_sigma.F |
107 |
UPDATE_SIGMA |
tmpFld(i,j) = etaHc(i,j,bi,bj) |
|
./model/src/update_sigma.F |
110 |
UPDATE_SIGMA |
tmpFld(i,j) = rFullDepth |
|
./model/src/update_sigma.F |
119 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
123 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
133 |
UPDATE_SIGMA |
tmpFld(i,j) = etaHw(i,j,bi,bj) |
|
./model/src/update_sigma.F |
136 |
UPDATE_SIGMA |
tmpFld(i,j) = rFullDepth |
|
./model/src/update_sigma.F |
145 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
149 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
159 |
UPDATE_SIGMA |
tmpFld(i,j) = etaHs(i,j,bi,bj) |
|
./model/src/update_sigma.F |
162 |
UPDATE_SIGMA |
tmpFld(i,j) = rFullDepth |
|
./model/src/update_sigma.F |
171 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
175 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
60 |
UPDATE_SIGMA |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/aim_v23/aim_write_local.F |
50 |
AIM_WRITE_LOCAL |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/aim_v23/aim_write_local.F |
77 |
AIM_WRITE_LOCAL |
tmpFld(i,j,k) = field(i,j,Katm) |
|
./pkg/aim_v23/aim_write_local.F |
86 |
AIM_WRITE_LOCAL |
tmpFld(i,j,k) = field(i,j,k) |
|
./pkg/aim_v23/aim_write_local.F |
93 |
AIM_WRITE_LOCAL |
CALL WRITE_LOCAL_RL( pref, suff, nNr, tmpFld, |
|
./pkg/aim_v23/aim_write_phys.F |
107 |
AIM_WRITE_PHYS |
tmpFld(i,j,1) = field(i,j,kLev,ith) |
|
./pkg/aim_v23/aim_write_phys.F |
116 |
AIM_WRITE_PHYS |
tmpFld(i,j,k) = field(i,j,Katm,ith) |
|
./pkg/aim_v23/aim_write_phys.F |
125 |
AIM_WRITE_PHYS |
tmpFld(i,j,k) = field(i,j,k,ith) |
|
./pkg/aim_v23/aim_write_phys.F |
132 |
AIM_WRITE_PHYS |
CALL WRITE_LOCAL_RL( pref, suff, nLoc, tmpFld, |
|
./pkg/aim_v23/aim_write_phys.F |
53 |
AIM_WRITE_PHYS |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/atm2d/cpl_recv_ocn_ocnconfig.F |
33 |
CPL_RECV_OCN_OCNCONFIG |
INTEGER tmpFld(1) |
|
./pkg/atm2d/cpl_recv_ocn_ocnconfig.F |
40 |
CPL_RECV_OCN_OCNCONFIG |
O tmpFld ) |
|
./pkg/atm_compon_interf/atm_export_atmconfig.F |
44 |
ATM_EXPORT_ATMCONFIG |
INTEGER tmpFld(1) |
|
./pkg/atm_compon_interf/atm_export_atmconfig.F |
58 |
ATM_EXPORT_ATMCONFIG |
tmpFld(1) = nTimeSteps/cplSendFrq_iter |
|
./pkg/atm_compon_interf/atm_export_atmconfig.F |
59 |
ATM_EXPORT_ATMCONFIG |
CALL COMPSEND_I4VEC( 'nCouplingSteps', 1, tmpFld ) |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
44 |
CPL_DIAGNOSTICS_FILL |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
87 |
CPL_DIAGNOSTICS_FILL |
tmpFld(i,j) = sIceFrac_cpl(i,j,bi,bj) |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
93 |
CPL_DIAGNOSTICS_FILL |
I tmpFld, tmpFac, 1, 'CPL_Qic1', |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
97 |
CPL_DIAGNOSTICS_FILL |
I tmpFld, tmpFac, 1, 'CPL_Qic2', |
|
./pkg/atm_ocn_coupler/cpl_recv_atm_atmconfig.F |
31 |
CPL_RECV_ATM_ATMCONFIG |
INTEGER tmpFld(1) |
|
./pkg/atm_ocn_coupler/cpl_recv_atm_atmconfig.F |
38 |
CPL_RECV_ATM_ATMCONFIG |
O tmpFld ) |
|
./pkg/atm_ocn_coupler/cpl_recv_atm_atmconfig.F |
39 |
CPL_RECV_ATM_ATMCONFIG |
nSteps_atm = tmpFld(1) |
|
./pkg/atm_ocn_coupler/cpl_recv_ocn_ocnconfig.F |
32 |
CPL_RECV_OCN_OCNCONFIG |
INTEGER tmpFld(1) |
|
./pkg/atm_ocn_coupler/cpl_recv_ocn_ocnconfig.F |
39 |
CPL_RECV_OCN_OCNCONFIG |
O tmpFld ) |
|
./pkg/atm_ocn_coupler/cpl_recv_ocn_ocnconfig.F |
40 |
CPL_RECV_OCN_OCNCONFIG |
nSteps_ocn = tmpFld(1) |
|
./pkg/atm_ocn_coupler/cpl_send_ocn_fields.F |
38 |
CPL_SEND_OCN_FIELDS |
_RL tmpFld(Nx_ocn,Ny_ocn) |
|
./pkg/atm_ocn_coupler/cpl_send_ocn_fields.F |
58 |
CPL_SEND_OCN_FIELDS |
O tmpFld, |
|
./pkg/bling/bling_write_pickup.F |
43 |
BLING_WRITE_PICKUP |
_RL tmpFld(2) |
|
./pkg/cheapaml/cheapaml.F |
163 |
CHEAPAML |
U gTairm(1-OLx,1-OLy,bi,bj), tmpFld, |
|
./pkg/cheapaml/cheapaml.F |
201 |
CHEAPAML |
U gqairm(1-OLx,1-OLy,bi,bj), tmpFld, |
|
./pkg/cheapaml/cheapaml.F |
240 |
CHEAPAML |
U gCheaptracerm(1-OLx,1-OLy,bi,bj), tmpFld, |
|
./pkg/cheapaml/cheapaml.F |
92 |
CHEAPAML |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
349 |
DIAGNOSTICS_HF_CUMUL |
_RL tmpFld(sNx+1,sNy+1) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
358 |
DIAGNOSTICS_HF_CUMUL |
tmpFld(i,j) = scaleFact*inpFldRL(i,j,k,ti,tj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
364 |
DIAGNOSTICS_HF_CUMUL |
tmpFld(i,j) = scaleFact*inpFldRS(i,j,k,ti,tj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
374 |
DIAGNOSTICS_HF_CUMUL |
tmpFld(i,j) = tmpFld(i,j)*tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
383 |
DIAGNOSTICS_HF_CUMUL |
& + tmpFld(i,j)*hFacC(i,j,km,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
390 |
DIAGNOSTICS_HF_CUMUL |
& + tmpFld(i,j)*hFacW(i,j,km,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
397 |
DIAGNOSTICS_HF_CUMUL |
& + tmpFld(i,j)*hFacS(i,j,km,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
403 |
DIAGNOSTICS_HF_CUMUL |
cumFld(i,j) = cumFld(i,j) + tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
113 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
120 |
DIAGNOSTICS_SUM_LEVELS |
fld3d(i,j,1,bi,bj) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
137 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
153 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
169 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
191 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
202 |
DIAGNOSTICS_SUM_LEVELS |
fld3d(i,j,1,bi,bj) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
60 |
DIAGNOSTICS_SUM_LEVELS |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
79 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
90 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) + fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
96 |
DIAGNOSTICS_SUM_LEVELS |
fld3d(i,j,1,bi,bj) = tmpFld(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
104 |
DIAGSTATS_CALC |
tmpFld(i,j) = scaleFact*inpArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
105 |
DIAGSTATS_CALC |
tmpFld(i,j) = tmpFld(i,j)*tmpFld(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
111 |
DIAGSTATS_CALC |
tmpFld(i,j) = scaleFact*inpArr(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
189 |
DIAGSTATS_CALC |
statArr(im) = tmpFld(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
191 |
DIAGSTATS_CALC |
statArr(1) = statArr(1) + tmpVol(i,j)*tmpFld(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
192 |
DIAGSTATS_CALC |
statArr(2) = statArr(2) + tmpVol(i,j)*tmpFld(i,j)*tmpFld(i,j) |
|
./pkg/diagnostics/diagstats_calc.F |
200 |
DIAGSTATS_CALC |
statArr(im) = MIN(tmpFld(i,j),statArr(im)) |
|
./pkg/diagnostics/diagstats_calc.F |
201 |
DIAGSTATS_CALC |
statArr(ix) = MAX(tmpFld(i,j),statArr(ix)) |
|
./pkg/diagnostics/diagstats_calc.F |
302 |
DIAGSTATS_CALC |
tmpFld = 0. _d 0 |
|
./pkg/diagnostics/diagstats_calc.F |
305 |
DIAGSTATS_CALC |
tmpFld(i,j) = inpArr(i,j)*scaleFact |
|
./pkg/diagnostics/diagstats_calc.F |
309 |
DIAGSTATS_CALC |
tmpFld = tmpFld*tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
315 |
DIAGSTATS_CALC |
tmpVol = tmpVol*tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
318 |
DIAGSTATS_CALC |
tmpVol = tmpVol*tmpFld |
|
./pkg/diagnostics/diagstats_calc.F |
320 |
DIAGSTATS_CALC |
statArr(im) = MINVAL(tmpFld, MASK = arrMaskL0.) |
|
./pkg/diagnostics/diagstats_calc.F |
321 |
DIAGSTATS_CALC |
statArr(ix) = MAXVAL(tmpFld, MASK = arrMaskL0.) |
|
./pkg/diagnostics/diagstats_calc.F |
81 |
DIAGSTATS_CALC |
_RL tmpFld(sNx+1,sNy+1) |
|
./pkg/diagnostics/diagstats_calc.F |
88 |
DIAGSTATS_CALC |
_RL tmpFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/dic/dic_read_co2_pickup.F |
35 |
DIC_READ_CO2_PICKUP |
REAL*8 tmpFld(2) |
|
./pkg/dic/dic_read_co2_pickup.F |
74 |
DIC_READ_CO2_PICKUP |
READ(ioUnit,rec=1) tmpFld |
|
./pkg/dic/dic_read_co2_pickup.F |
76 |
DIC_READ_CO2_PICKUP |
CALL MDS_BYTESWAPR8( 2, tmpFld ) |
|
./pkg/dic/dic_read_co2_pickup.F |
78 |
DIC_READ_CO2_PICKUP |
total_atmos_carbon = tmpFld(1) |
|
./pkg/dic/dic_read_co2_pickup.F |
79 |
DIC_READ_CO2_PICKUP |
atpco2 = tmpFld(2) |
|
./pkg/dic/dic_write_pickup.F |
45 |
DIC_WRITE_PICKUP |
_RL tmpFld(2) |
|
./pkg/dic/dic_write_pickup.F |
64 |
DIC_WRITE_PICKUP |
tmpFld(1) = total_atmos_carbonv |
|
./pkg/dic/dic_write_pickup.F |
65 |
DIC_WRITE_PICKUP |
tmpFld(2) = atpco2v |
|
./pkg/dic/dic_write_pickup.F |
67 |
DIC_WRITE_PICKUP |
tmpFld(1) = total_atmos_carbon |
|
./pkg/dic/dic_write_pickup.F |
68 |
DIC_WRITE_PICKUP |
tmpFld(2) = atpco2 |
|
./pkg/dic/dic_write_pickup.F |
73 |
DIC_WRITE_PICKUP |
I 'RL', 2, tmpFld, dummyRS, |
|
./pkg/down_slope/dwnslp_apply.F |
147 |
DWNSLP_APPLY |
tmpFld = tracer(ijs,kshelf) |
|
./pkg/down_slope/dwnslp_apply.F |
151 |
DWNSLP_APPLY |
& *( tmpFld - tracer(ijd,k) ) |
|
./pkg/down_slope/dwnslp_apply.F |
155 |
DWNSLP_APPLY |
tmpFld = tracer(ijd,k) |
|
./pkg/down_slope/dwnslp_apply.F |
160 |
DWNSLP_APPLY |
& *( tmpFld - tracer(ijs,k) ) |
|
./pkg/down_slope/dwnslp_apply.F |
179 |
DWNSLP_APPLY |
& (tmpFld-tracer(ijs,kshelf)) |
|
./pkg/down_slope/dwnslp_apply.F |
76 |
DWNSLP_APPLY |
_RL tmpFld |