| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
208 |
GWDRAG |
tmpdiag(i,j) = dragu(i,j,L)*86400 |
|
./pkg/fizhi/fizhi_gwdrag.F |
211 |
GWDRAG |
call DIAGNOSTICS_FILL(tmpdiag,'GWDU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
217 |
GWDRAG |
tmpdiag(i,j) = dragv(i,j,L)*86400 |
|
./pkg/fizhi/fizhi_gwdrag.F |
220 |
GWDRAG |
call DIAGNOSTICS_FILL(tmpdiag,'GWDV ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
226 |
GWDRAG |
tmpdiag(i,j) = dragt(i,j,L)*86400 |
|
./pkg/fizhi/fizhi_gwdrag.F |
229 |
GWDRAG |
call DIAGNOSTICS_FILL(tmpdiag,'GWDT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
263 |
GWDRAG |
tmpdiag(i,j) = dragx(i,j) + sumu(i,j)*pz(i,j)/grav*100 |
|
./pkg/fizhi/fizhi_gwdrag.F |
266 |
GWDRAG |
call DIAGNOSTICS_FILL(tmpdiag,'GWDUT ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
286 |
GWDRAG |
tmpdiag(i,j) = dragy(i,j) + sumu(i,j)*pz(i,j)/grav*100 |
|
./pkg/fizhi/fizhi_gwdrag.F |
289 |
GWDRAG |
call DIAGNOSTICS_FILL(tmpdiag,'GWDVT ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
84 |
GWDRAG |
_RL tmpdiag(im,jm) |
|
./pkg/fizhi/fizhi_lwrad.F |
290 |
LWRIO |
tmpdiag(i,j) = tz(i,j,L)*pkz(i,j,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
293 |
LWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'TLW ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
299 |
LWRIO |
tmpdiag(i,j) = qz(i,j,L)*1000. |
|
./pkg/fizhi/fizhi_lwrad.F |
302 |
LWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'SHRAD ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
308 |
LWRIO |
tmpdiag(i,j) = oz(i,j,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
311 |
LWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'OZLW ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
77 |
LWRIO |
_RL tmpdiag(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
1134 |
MOISTIO |
tmpdiag(i,j) = cldtmp(i,j)*totcld(i,j)/tmpimjm(i,j) |
|
./pkg/fizhi/fizhi_moist.F |
1137 |
MOISTIO |
tmpdiag(i,j) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
1142 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDTMP ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
1151 |
MOISTIO |
tmpdiag(i,j) = cldprs(i,j)*totcld(i,j)/tmpimjm(i,j) |
|
./pkg/fizhi/fizhi_moist.F |
1154 |
MOISTIO |
tmpdiag(i,j) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
1159 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDPRS ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
148 |
MOISTIO |
_RL tmpdiag(im,jm),tmpdiag2(im,jm) |
|
./pkg/fizhi/fizhi_moist.F |
860 |
MOISTIO |
tmpdiag(i,j) = cldsr(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
863 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDNP ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
874 |
MOISTIO |
tmpdiag(i,j)=(dtmoist(i,j,L)*sday*pkzgather(indgath,L)/pz(i,j)) |
|
./pkg/fizhi/fizhi_moist.F |
877 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'MOISTT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
887 |
MOISTIO |
tmpdiag(i,j)=(dqmoist(i,j,L,1)*sday*1000./pz(i,j)) |
|
./pkg/fizhi/fizhi_moist.F |
890 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'MOISTQ ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
900 |
MOISTIO |
tmpdiag(i,j)=dumoist(i,j,L)*sday |
|
./pkg/fizhi/fizhi_moist.F |
903 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'MOISTU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
913 |
MOISTIO |
tmpdiag(i,j)=dvmoist(i,j,L)*sday |
|
./pkg/fizhi/fizhi_moist.F |
916 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'MOISTV ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
927 |
MOISTIO |
tmpdiag(i,j)=tmpgather(indgath,L) |
|
./pkg/fizhi/fizhi_moist.F |
930 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDMAS ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
941 |
MOISTIO |
tmpdiag(i,j)=pkegather(indgath,L) |
|
./pkg/fizhi/fizhi_moist.F |
944 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'DTRAIN ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
955 |
MOISTIO |
tmpdiag(i,j)=deltrnev(indgath,L) |
|
./pkg/fizhi/fizhi_moist.F |
958 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'DTLS ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
969 |
MOISTIO |
tmpdiag(i,j)=delqrnev(indgath,L) |
|
./pkg/fizhi/fizhi_moist.F |
972 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'DQLS ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
981 |
MOISTIO |
tmpdiag(i,j) = (lsp_new(I,j) + snow_new(I,j) + conv_new(i,j)) |
|
./pkg/fizhi/fizhi_moist.F |
985 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'PREACC ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
994 |
MOISTIO |
tmpdiag(i,j) = raincgath(indgath)*sday*tminv |
|
./pkg/fizhi/fizhi_moist.F |
997 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'PRECON ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_rayleigh.F |
105 |
RAYLEIGH |
tmpdiag(i,j) = rfu(i,j,L)*86400 |
|
./pkg/fizhi/fizhi_rayleigh.F |
114 |
RAYLEIGH |
tmpdiag(i,j) = rfv(i,j,L)*86400 |
|
./pkg/fizhi/fizhi_rayleigh.F |
123 |
RAYLEIGH |
tmpdiag(i,j) = rft(i,j,L)*86400 |
|
./pkg/fizhi/fizhi_rayleigh.F |
52 |
RAYLEIGH |
_RL tmpdiag(im,jm) |
|
./pkg/fizhi/fizhi_step_diag.F |
100 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'OSR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
108 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = (1.0-osrclr(i,j,bi,bj))*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
111 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'OSRCLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
120 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = osr(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
122 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = 0. |
|
./pkg/fizhi/fizhi_step_diag.F |
126 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'PLALBEDO',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
134 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = st4(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
138 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'LWGUP ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
146 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = radlwg(i,j,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
150 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'RADLWG ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
158 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = lwgclr(i,j,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
162 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'LWGCLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
173 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = (moistu (i,j,L,bi,bj)+turbu(i,j,L,bi,bj) )*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
176 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'DIABU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
184 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = (moistv (i,j,L,bi,bj)+turbv(i,j,L,bi,bj) )*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
187 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'DIABV ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
195 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = |
|
./pkg/fizhi/fizhi_step_diag.F |
203 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'DIABT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
211 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = |
|
./pkg/fizhi/fizhi_step_diag.F |
216 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'DIABQ ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
224 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = |
|
./pkg/fizhi/fizhi_step_diag.F |
230 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'RADLW ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
238 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = |
|
./pkg/fizhi/fizhi_step_diag.F |
244 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'LWCLR ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
252 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = |
|
./pkg/fizhi/fizhi_step_diag.F |
257 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'RADSW ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
265 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = |
|
./pkg/fizhi/fizhi_step_diag.F |
270 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'SWCLR ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
278 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = uphy(i,j,L) |
|
./pkg/fizhi/fizhi_step_diag.F |
281 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'UWND ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
289 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = vphy(i,j,L) |
|
./pkg/fizhi/fizhi_step_diag.F |
292 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VWND ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
300 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = thphy(i,j,L)*pk(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
303 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'TMPU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
311 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qq(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
314 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'TKE ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
322 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = sphy(i,j,L) * 1000. |
|
./pkg/fizhi/fizhi_step_diag.F |
325 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'SPHU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
350 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
353 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VDTMOIST',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
374 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
377 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VDTTURB ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
399 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
402 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VDTRADLW',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
423 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j) * |
|
./pkg/fizhi/fizhi_step_diag.F |
427 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VDTRADSW',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
43 |
FIZHI_STEP_DIAG |
_RL pinv(im2,jm2), qbar(im2,jm2),tmpdiag(im2,jm2) |
|
./pkg/fizhi/fizhi_step_diag.F |
449 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*10. _d 0 /gravity |
|
./pkg/fizhi/fizhi_step_diag.F |
452 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'TPW ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
75 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = radswg(i,j,bi,bj)*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
78 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'RADSWG ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
86 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = swgclr(i,j,bi,bj)*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
89 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'SWGCLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
97 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = (1.0-osr(i,j,bi,bj))*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_swrad.F |
242 |
SWRIO |
tmpdiag(i,j) = cswmo(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
245 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDRAS ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
253 |
SWRIO |
tmpdiag(i,j) = cldtot(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
256 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDTOT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
276 |
SWRIO |
tmpdiag(i,j) = swlz(i,j,L) * 1.0e6 |
|
./pkg/fizhi/fizhi_swrad.F |
279 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'LZRAD ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
321 |
SWRIO |
tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L)) |
|
./pkg/fizhi/fizhi_swrad.F |
324 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'TAUAVE ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
334 |
SWRIO |
tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L)) |
|
./pkg/fizhi/fizhi_swrad.F |
337 |
SWRIO |
tmpdiag(i,j) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
342 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'TAUCLD ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
343 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'TAUCLDC ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
360 |
SWRIO |
tmpdiag(i,j) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
379 |
SWRIO |
tmpdiag(i,j) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
398 |
SWRIO |
tmpdiag(i,j) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
515 |
SWRIO |
tmpdiag(i,j) = albedo(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
518 |
SWRIO |
tmpdiag(i,j) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
523 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'ALBEDO ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
95 |
SWRIO |
_RL tmpdiag(im,jm),tmpdiag2(im,jm) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
110 |
FIZHI_TENDENCY_APPLY_V |
_RL tmpdiag(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
135 |
FIZHI_TENDENCY_APPLY_V |
tmpdiag(i,j) = ( maskS(i,j,kLev,bi,bj) * gvphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
140 |
FIZHI_TENDENCY_APPLY_V |
call DIAGNOSTICS_FILL(tmpdiag,'DIABVDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
146 |
FIZHI_TENDENCY_APPLY_V |
tmpdiag(i,j) = -1. _d 0 * rayleighdrag * |
|
./pkg/fizhi/fizhi_tendency_apply.F |
150 |
FIZHI_TENDENCY_APPLY_V |
call DIAGNOSTICS_FILL(tmpdiag,'RFV ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
184 |
FIZHI_TENDENCY_APPLY_T |
_RL tmpdiag(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
218 |
FIZHI_TENDENCY_APPLY_T |
tmpdiag(i,j) = ( maskC(i,j,kLev,bi,bj) * gthphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
229 |
FIZHI_TENDENCY_APPLY_T |
call DIAGNOSTICS_FILL(tmpdiag,'DIABTDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
235 |
FIZHI_TENDENCY_APPLY_T |
tmpdiag(i,j) = ( rayleighdrag * 0.5 * |
|
./pkg/fizhi/fizhi_tendency_apply.F |
245 |
FIZHI_TENDENCY_APPLY_T |
call DIAGNOSTICS_FILL(tmpdiag,'RFT ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
278 |
FIZHI_TENDENCY_APPLY_S |
_RL tmpdiag(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
296 |
FIZHI_TENDENCY_APPLY_S |
tmpdiag(i,j) = ( maskC(i,j,kLev,bi,bj) * gsphy(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
300 |
FIZHI_TENDENCY_APPLY_S |
call DIAGNOSTICS_FILL(tmpdiag,'DIABQDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
35 |
FIZHI_TENDENCY_APPLY_U |
_RL tmpdiag(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
60 |
FIZHI_TENDENCY_APPLY_U |
tmpdiag(i,j) = ( maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
65 |
FIZHI_TENDENCY_APPLY_U |
call DIAGNOSTICS_FILL(tmpdiag,'DIABUDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
71 |
FIZHI_TENDENCY_APPLY_U |
tmpdiag(i,j) = -1. _d 0 * rayleighdrag * |
|
./pkg/fizhi/fizhi_tendency_apply.F |
75 |
FIZHI_TENDENCY_APPLY_U |
call DIAGNOSTICS_FILL(tmpdiag,'RFU ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_turb.F |
1329 |
TURBIO |
tmpdiag(i,1) = tz(i,1,nlay) * pkht(i,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
1331 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'TS ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1387 |
TURBIO |
tmpdiag(i,1) = dtturb(i,1,l) * pkz(i,1,l)*atimstp*secday |
|
./pkg/fizhi/fizhi_turb.F |
1389 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'TURBT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
166 |
TURBIO |
_RL tmpdiag(im*jm,1), tmpFac |
|
./pkg/fizhi/fizhi_turb.F |
380 |
TURBIO |
tmpdiag(i,1) = st4(i,1) + dst4(i,1)*(tgz(i,1)-tempref(i,1)) |
|
./pkg/fizhi/fizhi_turb.F |
383 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,alwcoeff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
385 |
TURBIO |
tmpdiag(i,1) = dst4(i,1) |
|
./pkg/fizhi/fizhi_turb.F |
387 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,blwcoeff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
389 |
TURBIO |
tmpdiag(i,1) = fdifpar(i,1) * radswt(i,1) |
|
./pkg/fizhi/fizhi_turb.F |
391 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,pardiff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
393 |
TURBIO |
tmpdiag(i,1) = fdirpar(i,1) * radswt(i,1) |
|
./pkg/fizhi/fizhi_turb.F |
395 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,pardirct,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
397 |
TURBIO |
tmpdiag(i,1) = radswg(i,1) * radswt(i,1) |
|
./pkg/fizhi/fizhi_turb.F |
399 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,netsw,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
401 |
TURBIO |
tmpdiag(i,1) = radlwg(i,1) + dst4(i,1)*(tgz(i,1)-tempref(i,1)) |
|
./pkg/fizhi/fizhi_turb.F |
403 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,netlw,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
480 |
TURBIO |
tmpdiag(i,1) = 0.0 |
|
./pkg/fizhi/fizhi_turb.F |
482 |
TURBIO |
call MSC2GRD (igrd,chfr,qice,nchp,nchptot,fracland,tmpdiag,im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
483 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'QICE ',0,1,3,bi,bj,myid) |