| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
97 |
LWRIO |
do L =1,lm |
|
./pkg/fizhi/CtoA.F |
42 |
CTOA |
integer i, j, L, bi, bj |
|
./pkg/fizhi/CtoA.F |
55 |
CTOA |
do L = 1,numlevs |
|
./pkg/fizhi/CtoA.F |
58 |
CTOA |
tmpfld1(i,j) = fieldin1(i,j,L,bi,bj)*mask1(i,j,L,bi,bj) |
|
./pkg/fizhi/CtoA.F |
59 |
CTOA |
tmpfld2(i,j) = fieldin2(i,j,L,bi,bj)*mask2(i,j,L,bi,bj) |
|
./pkg/fizhi/CtoA.F |
64 |
CTOA |
if( (mask1(i,j,L,bi,bj).ne.0.) .or. |
|
./pkg/fizhi/CtoA.F |
65 |
CTOA |
. (mask1(i+1,j,L,bi,bj).ne.0.) ) then |
|
./pkg/fizhi/CtoA.F |
70 |
CTOA |
fieldout1(i,j,L,bi,bj) = |
|
./pkg/fizhi/CtoA.F |
72 |
CTOA |
. ( mask1(i,j,L,bi,bj) + mask1(i+1,j,L,bi,bj) ) |
|
./pkg/fizhi/CtoA.F |
74 |
CTOA |
fieldout1(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/CtoA.F |
76 |
CTOA |
if( (mask2(i,j,L,bi,bj).ne.0.) .or. |
|
./pkg/fizhi/CtoA.F |
77 |
CTOA |
. (mask2(i,j+1,L,bi,bj).ne.0.) ) then |
|
./pkg/fizhi/CtoA.F |
82 |
CTOA |
fieldout2(i,j,L,bi,bj) = |
|
./pkg/fizhi/CtoA.F |
84 |
CTOA |
. ( mask2(i,j,L,bi,bj) + mask2(i,j+1,L,bi,bj) ) |
|
./pkg/fizhi/CtoA.F |
86 |
CTOA |
fieldout2(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/step_physics.F |
25 |
STEP_PHYSICS |
integer i,j,L |
|
./pkg/fizhi/step_physics.F |
27 |
STEP_PHYSICS |
do L = 1,Nrphys |
|
./pkg/fizhi/step_physics.F |
30 |
STEP_PHYSICS |
uphy(i,j,L,bi,bj) = uphy(i,j,L,bi,bj) + duphy(i,j,L,bi,bj) * dt |
|
./pkg/fizhi/step_physics.F |
31 |
STEP_PHYSICS |
vphy(i,j,L,bi,bj) = vphy(i,j,L,bi,bj) + dvphy(i,j,L,bi,bj) * dt |
|
./pkg/fizhi/step_physics.F |
32 |
STEP_PHYSICS |
thphy(i,j,L,bi,bj)=thphy(i,j,L,bi,bj) + dthphy(i,j,L,bi,bj)* dt |
|
./pkg/fizhi/step_physics.F |
33 |
STEP_PHYSICS |
sphy(i,j,L,bi,bj) = sphy(i,j,L,bi,bj) + dsphy(i,j,L,bi,bj) * dt |
|
./pkg/fizhi/AtoC.F |
40 |
ATOC |
integer i, j, L, bi, bj |
|
./pkg/fizhi/AtoC.F |
51 |
ATOC |
do L = 1,numlevs |
|
./pkg/fizhi/AtoC.F |
54 |
ATOC |
tmpfld1(i,j) = fieldin1(i,j,L,bi,bj)*mask(i,j,L,bi,bj) |
|
./pkg/fizhi/AtoC.F |
55 |
ATOC |
tmpfld2(i,j) = fieldin2(i,j,L,bi,bj)*mask(i,j,L,bi,bj) |
|
./pkg/fizhi/AtoC.F |
62 |
ATOC |
if( (mask(i-1,j,L,bi,bj).ne.0.) .or. |
|
./pkg/fizhi/AtoC.F |
63 |
ATOC |
. (mask(i,j,L,bi,bj).ne.0.) ) then |
|
./pkg/fizhi/AtoC.F |
68 |
ATOC |
fieldout1(i,j,L,bi,bj) = |
|
./pkg/fizhi/AtoC.F |
70 |
ATOC |
. ( mask(i-1,j,L,bi,bj) + mask(i,j,L,bi,bj) ) |
|
./pkg/fizhi/AtoC.F |
72 |
ATOC |
fieldout1(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/AtoC.F |
74 |
ATOC |
if( (mask(i,j-1,L,bi,bj).ne.0.) .or. |
|
./pkg/fizhi/AtoC.F |
75 |
ATOC |
. (mask(i,j,L,bi,bj).ne.0.) ) then |
|
./pkg/fizhi/AtoC.F |
80 |
ATOC |
fieldout2(i,j,L,bi,bj) = |
|
./pkg/fizhi/AtoC.F |
82 |
ATOC |
. ( mask(i,j,L,bi,bj) + mask(i,j-1,L,bi,bj) ) |
|
./pkg/fizhi/AtoC.F |
84 |
ATOC |
fieldout2(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_wrapper.F |
116 |
FIZHI_WRAPPER |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_wrapper.F |
117 |
FIZHI_WRAPPER |
tempphy(i,j,L,bi,bj) = pephy4fiz(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
164 |
FIZHI_WRAPPER |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_wrapper.F |
165 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=duphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
173 |
FIZHI_WRAPPER |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_wrapper.F |
174 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dvphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
182 |
FIZHI_WRAPPER |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_wrapper.F |
183 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dthphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
191 |
FIZHI_WRAPPER |
do L = 1,Nrphys |
|
./pkg/fizhi/fizhi_wrapper.F |
192 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dsphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
46 |
FIZHI_WRAPPER |
integer i, j, L, Lbotij, bi, bj |
|
./pkg/fizhi/fizhi_wrapper.F |
68 |
FIZHI_WRAPPER |
do L = 2,Nrphys+1 |
|
./pkg/fizhi/fizhi_wrapper.F |
69 |
FIZHI_WRAPPER |
pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys(i,j,L-1,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
72 |
FIZHI_WRAPPER |
do L = 1,Nrphys+1 |
|
./pkg/fizhi/fizhi_wrapper.F |
73 |
FIZHI_WRAPPER |
pephy4fiz(i,j,Nrphys+2-L,bi,bj)=pephy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
82 |
FIZHI_WRAPPER |
do L = 1,Nr |
|
./pkg/fizhi/fizhi_wrapper.F |
83 |
FIZHI_WRAPPER |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_wrapper.F |
97 |
FIZHI_WRAPPER |
do L = Lbotij+1,Nr+1 |
|
./pkg/fizhi/fizhi_wrapper.F |
98 |
FIZHI_WRAPPER |
pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) - |
|
./pkg/fizhi/fizhi_wrapper.F |
99 |
FIZHI_WRAPPER |
. drF(L-1)*hfacC(i,j,L-1,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
130 |
DO_FIZHI |
integer i,j,L |
|
./pkg/fizhi/do_fizhi.F |
198 |
DO_FIZHI |
do L = 1,Nrphys |
|
./pkg/fizhi/do_fizhi.F |
201 |
DO_FIZHI |
u(i,j,L) = uphy(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
202 |
DO_FIZHI |
v(i,j,L) = vphy(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
203 |
DO_FIZHI |
t(i,j,L) = thphy(i,j,L,bi,bj)/p0kappa |
|
./pkg/fizhi/do_fizhi.F |
204 |
DO_FIZHI |
q(i,j,L,1) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
205 |
DO_FIZHI |
pl(i,j,L,bi,bj) = (pephy(i,j,L,bi,bj)+pephy(i,j,L+1,bi,bj))/200. |
|
./pkg/fizhi/do_fizhi.F |
206 |
DO_FIZHI |
dpres(i,j,L,bi,bj)=(pephy(i,j,L+1,bi,bj)-pephy(i,j,L,bi,bj))/100. |
|
./pkg/fizhi/do_fizhi.F |
207 |
DO_FIZHI |
ple(i,j,L,bi,bj) = pephy(i,j,L,bi,bj)/100. |
|
./pkg/fizhi/do_fizhi.F |
208 |
DO_FIZHI |
if (ple(i,j,L,bi,bj).gt.0.) then |
|
./pkg/fizhi/do_fizhi.F |
209 |
DO_FIZHI |
pkle(i,j,L,bi,bj) = ple(i,j,L,bi,bj) **kappa |
|
./pkg/fizhi/do_fizhi.F |
211 |
DO_FIZHI |
pkle(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/do_fizhi.F |
213 |
DO_FIZHI |
cldtot_lw(i,j,L) = cldtotlwin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
214 |
DO_FIZHI |
cldlsp_lw(i,j,L) = cldlsplwin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
215 |
DO_FIZHI |
cldras_lw(i,j,L) = cldraslwin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
216 |
DO_FIZHI |
lwlz(i,j,L) = lwlzin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
217 |
DO_FIZHI |
qliqavelw(i,j,L) = qliqavelwin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
218 |
DO_FIZHI |
fccavelw(i,j,L) = fccavelwin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
219 |
DO_FIZHI |
cldtot_sw(i,j,L) = cldtotswin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
220 |
DO_FIZHI |
cldlsp_sw(i,j,L) = cldlspswin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
221 |
DO_FIZHI |
cldras_sw(i,j,L) = cldrasswin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
222 |
DO_FIZHI |
swlz(i,j,L) = swlzin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
223 |
DO_FIZHI |
qliqavesw(i,j,L) = qliqaveswin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
224 |
DO_FIZHI |
fccavesw(i,j,L) = fccaveswin(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
262 |
DO_FIZHI |
do L = 1,Nrphys |
|
./pkg/fizhi/do_fizhi.F |
265 |
DO_FIZHI |
cldtotlwin(i,j,L,bi,bj) = cldtot_lw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
266 |
DO_FIZHI |
cldlsplwin(i,j,L,bi,bj) = cldlsp_lw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
267 |
DO_FIZHI |
cldraslwin(i,j,L,bi,bj) = cldras_lw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
268 |
DO_FIZHI |
lwlzin(i,j,L,bi,bj) = lwlz(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
269 |
DO_FIZHI |
qliqavelwin(i,j,L,bi,bj) = qliqavelw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
270 |
DO_FIZHI |
fccavelwin(i,j,L,bi,bj) = fccavelw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
271 |
DO_FIZHI |
cldtotswin(i,j,L,bi,bj) = cldtot_sw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
272 |
DO_FIZHI |
cldlspswin(i,j,L,bi,bj) = cldlsp_sw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
273 |
DO_FIZHI |
cldrasswin(i,j,L,bi,bj) = cldras_sw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
274 |
DO_FIZHI |
swlzin(i,j,L,bi,bj) = swlz(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
275 |
DO_FIZHI |
qliqaveswin(i,j,L,bi,bj) = qliqavesw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
276 |
DO_FIZHI |
fccaveswin(i,j,L,bi,bj) = fccavesw(i,j,L) |
|
./pkg/fizhi/do_fizhi.F |
291 |
DO_FIZHI |
do L = 1,Nrphys |
|
./pkg/fizhi/do_fizhi.F |
294 |
DO_FIZHI |
duphy(i,j,L,bi,bj) = moistu(i,j,L,bi,bj) + turbu(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
295 |
DO_FIZHI |
dvphy(i,j,L,bi,bj) = moistv(i,j,L,bi,bj) + turbv(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
296 |
DO_FIZHI |
dthphy(i,j,L,bi,bj) = ((moistt(i,j,L,bi,bj)+turbt(i,j,L,bi,bj)+ |
|
./pkg/fizhi/do_fizhi.F |
297 |
DO_FIZHI |
. lwdt(i,j,L,bi,bj) + |
|
./pkg/fizhi/do_fizhi.F |
298 |
DO_FIZHI |
. dlwdtg(i,j,L,bi,bj) * (tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) + |
|
./pkg/fizhi/do_fizhi.F |
299 |
DO_FIZHI |
. swdt(i,j,L,bi,bj)*radswt(i,j,bi,bj) )*p0kappa ) / p(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
300 |
DO_FIZHI |
dsphy(i,j,L,bi,bj) = (moistq(i,j,L,1,bi,bj)+turbq(i,j,L,1,bi,bj)) |