| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_slope_limit.F |
108 |
GMREDI_SLOPE_LIMIT |
_RL tmpFld(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_slope_limit.F |
144 |
GMREDI_SLOPE_LIMIT |
tmpFld(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
231 |
GMREDI_SLOPE_LIMIT |
tmpFld(i,j) = dSigmaDx(i,j)*dSigmaDx(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
233 |
GMREDI_SLOPE_LIMIT |
IF ( tmpFld(i,j) .EQ. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
236 |
GMREDI_SLOPE_LIMIT |
dSigmMod(i,j) = SQRT( tmpFld(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
249 |
GMREDI_SLOPE_LIMIT |
tmpFld(i,j) = -dSigmMod(i,j)*GM_rMaxSlope |
|
./pkg/gmredi/gmredi_slope_limit.F |
250 |
GMREDI_SLOPE_LIMIT |
IF ( dSigmaDr(i,j) .GE. tmpFld(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
251 |
GMREDI_SLOPE_LIMIT |
& dSigmaDr(i,j) = tmpFld(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
313 |
GMREDI_SLOPE_LIMIT |
tmpFld(i,j) = dSigmaDx(i,j)*dSigmaDx(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
315 |
GMREDI_SLOPE_LIMIT |
IF ( tmpFld(i,j).GT.0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
316 |
GMREDI_SLOPE_LIMIT |
locVar(i,j) = SQRT( tmpFld(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
341 |
GMREDI_SLOPE_LIMIT |
tmpFld(i,j) = Lrho(i,j)*SlopeMod(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
345 |
GMREDI_SLOPE_LIMIT |
& MIN( MAX( tmpFld(i,j), minTransLay ), |
|
./model/src/diags_rho.F |
133 |
DIAGS_RHO_G |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/diags_rho.F |
152 |
DIAGS_RHO_G |
tmpFld(i,j) = uFld(i,j,k,bi,bj)*_hFacW(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
157 |
DIAGS_RHO_G |
CALL DIAGNOSTICS_FILL(tmpFld,'URHOMASS',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
169 |
DIAGS_RHO_G |
tmpFld(i,j) = vFld(i,j,k,bi,bj)*_hFacS(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
174 |
DIAGS_RHO_G |
CALL DIAGNOSTICS_FILL(tmpFld,'VRHOMASS',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
61 |
DIAGS_RHO_L |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/diags_rho.F |
68 |
DIAGS_RHO_L |
tmpFld(i,j) = wFld(i,j,k,bi,bj)*rhoK(i,j) |
|
./model/src/diags_rho.F |
74 |
DIAGS_RHO_L |
tmpFld(i,j) = wFld(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
79 |
DIAGS_RHO_L |
CALL DIAGNOSTICS_FILL(tmpFld,'WRHOMASS',k,1,2,bi,bj,myThid) |
|
./pkg/seaice/advect.F |
108 |
ADVECT |
& ( tmpFld(I ,J ,bi,bj)+tmpFld(I+1,J ,bi,bj)) |
|
./pkg/seaice/advect.F |
110 |
ADVECT |
& ( tmpFld(I ,J ,bi,bj)+tmpFld(I-1,J ,bi,bj)) |
|
./pkg/seaice/advect.F |
114 |
ADVECT |
& ( tmpFld(I ,J ,bi,bj)+tmpFld(I ,J+1,bi,bj)) |
|
./pkg/seaice/advect.F |
117 |
ADVECT |
& ( tmpFld(I ,J ,bi,bj)+tmpFld(I ,J-1,bi,bj)) |
|
./pkg/seaice/advect.F |
133 |
ADVECT |
& * 0.5 _d 0 * (tmpFld(I,J,bi,bj)+tmpFld(I-1,J,bi,bj)) |
|
./pkg/seaice/advect.F |
135 |
ADVECT |
& * 0.5 _d 0 * (tmpFld(I,J,bi,bj)+tmpFld(I,J-1,bi,bj)) |
|
./pkg/seaice/advect.F |
161 |
ADVECT |
tmpFld(i,j,bi,bj)=fldNm1(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
196 |
ADVECT |
CALL DIFFUS(tmpFld,DIFFA,iceMsk,DELTT, myThid) |
|
./pkg/seaice/advect.F |
202 |
ADVECT |
fld(I,J,bi,bj)=(fld(I,J,bi,bj)+tmpFld(i,j,bi,bj)) |
|
./pkg/seaice/advect.F |
43 |
ADVECT |
_RL tmpFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/advect.F |
78 |
ADVECT |
tmpFld(i,j,bi,bj)=HALF*(fld(I,J,bi,bj) |
|
./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 |
100 |
SHAP_FILT_TRACER_S2 |
_EXCH_XY_RL( 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_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) |
|
./pkg/thsice/thsice_diagnostics_state.F |
43 |
THSICE_DIAGNOSTICS_STATE |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_diagnostics_state.F |
77 |
THSICE_DIAGNOSTICS_STATE |
tmpFld(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_diagnostics_state.F |
82 |
THSICE_DIAGNOSTICS_STATE |
I tmpFld,tmpFac,1,'SI_Qice1', |
|
./pkg/thsice/thsice_diagnostics_state.F |
86 |
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 |
102 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/timeave/timeave_surf_flux.F |
109 |
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 |
87 |
TIMEAVE_SURF_FLUX |
CALL TIMEAVE_CUMUL_1T( tFluxtave, tmpFld, 1, |
|
./pkg/timeave/timeave_surf_flux.F |
93 |
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 |
104 |
UPDATE_SIGMA |
tmpFld(i,j) = etaHc(i,j,bi,bj) |
|
./model/src/update_sigma.F |
107 |
UPDATE_SIGMA |
tmpFld(i,j) = rFullDepth |
|
./model/src/update_sigma.F |
116 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
120 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
130 |
UPDATE_SIGMA |
tmpFld(i,j) = etaHw(i,j,bi,bj) |
|
./model/src/update_sigma.F |
133 |
UPDATE_SIGMA |
tmpFld(i,j) = rFullDepth |
|
./model/src/update_sigma.F |
142 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
146 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
156 |
UPDATE_SIGMA |
tmpFld(i,j) = etaHs(i,j,bi,bj) |
|
./model/src/update_sigma.F |
159 |
UPDATE_SIGMA |
tmpFld(i,j) = rFullDepth |
|
./model/src/update_sigma.F |
168 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
172 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
57 |
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/diagnostics/diagnostics_sum_levels.F |
110 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
117 |
DIAGNOSTICS_SUM_LEVELS |
fld3d(i,j,1,bi,bj) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
134 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
150 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
166 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
188 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
199 |
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 |
77 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
88 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) + fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
94 |
DIAGNOSTICS_SUM_LEVELS |
fld3d(i,j,1,bi,bj) = tmpFld(i,j) |
|
./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/dic/dic_read_co2_pickup.F |
40 |
DIC_READ_CO2_PICKUP |
REAL*8 tmpFld(2) |
|
./pkg/dic/dic_read_co2_pickup.F |
69 |
DIC_READ_CO2_PICKUP |
READ(ioUnit,rec=1) tmpFld |
|
./pkg/dic/dic_read_co2_pickup.F |
71 |
DIC_READ_CO2_PICKUP |
CALL MDS_BYTESWAPR8( 2, tmpFld ) |
|
./pkg/dic/dic_read_co2_pickup.F |
73 |
DIC_READ_CO2_PICKUP |
total_atmos_carbon = tmpFld(1) |
|
./pkg/dic/dic_read_co2_pickup.F |
74 |
DIC_READ_CO2_PICKUP |
atpco2 = tmpFld(2) |
|
./pkg/dic/dic_write_pickup.F |
46 |
DIC_WRITE_PICKUP |
_RL tmpFld(2) |
|
./pkg/dic/dic_write_pickup.F |
66 |
DIC_WRITE_PICKUP |
tmpFld(1) = total_atmos_carbon |
|
./pkg/dic/dic_write_pickup.F |
67 |
DIC_WRITE_PICKUP |
tmpFld(2) = atpco2 |
|
./pkg/dic/dic_write_pickup.F |
71 |
DIC_WRITE_PICKUP |
I 'RL', 2, tmpFld, dummyRS, |
|
./pkg/down_slope/dwnslp_apply.F |
144 |
DWNSLP_APPLY |
tmpFld = tracer(ijs,kshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
148 |
DWNSLP_APPLY |
& *( tmpFld - tracer(ijd,k,bi,bj) ) |
|
./pkg/down_slope/dwnslp_apply.F |
153 |
DWNSLP_APPLY |
tmpFld = tracer(ijd,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
158 |
DWNSLP_APPLY |
& *( tmpFld - tracer(ijs,k,bi,bj) ) |
|
./pkg/down_slope/dwnslp_apply.F |
186 |
DWNSLP_APPLY |
& (tmpFld-tracer(ijs,kshelf,bi,bj)) |
|
./pkg/down_slope/dwnslp_apply.F |
70 |
DWNSLP_APPLY |
_RL tmpFld |
|
./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 |