File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_moist.F |
100 |
MOISTIO |
_RL saveu (istrip,lm,ntracerin+2-ptracer) |
./pkg/fizhi/fizhi_moist.F |
101 |
MOISTIO |
_RL usubcl (istrip, ntracerin+2-ptracer) |
./pkg/fizhi/fizhi_moist.F |
110 |
MOISTIO |
_RL UL(ISTRIP,lm,ntracerin+2-ptracer) |
./pkg/fizhi/fizhi_moist.F |
111 |
MOISTIO |
_RL cvu(istrip,lm,ntracerin+2-ptracer) |
./pkg/fizhi/fizhi_moist.F |
158 |
MOISTIO |
ntracer = ntracerin + 2 |
./pkg/fizhi/fizhi_moist.F |
160 |
MOISTIO |
ntracer = ntracerin |
./pkg/fizhi/fizhi_moist.F |
21 |
MOISTIO |
integer bi,bj,ntracerin,ptracer |
./pkg/fizhi/fizhi_moist.F |
25 |
MOISTIO |
_RL tz(im,jm,lm),qz(im,jm,lm,ntracerin) |
./pkg/fizhi/fizhi_moist.F |
294 |
MOISTIO |
do nt = 1,ntracerin-ptracer |
./pkg/fizhi/fizhi_moist.F |
29 |
MOISTIO |
_RL dtmoist(im,jm,lm),dqmoist(im,jm,lm,ntracerin) |
./pkg/fizhi/fizhi_moist.F |
314 |
MOISTIO |
ugather(indx,L,ntracerin-ptracer+1) = uz(i,j,L) |
./pkg/fizhi/fizhi_moist.F |
315 |
MOISTIO |
ugather(indx,L,ntracerin-ptracer+2) = vz(i,j,L) |
./pkg/fizhi/fizhi_moist.F |
336 |
MOISTIO |
do nt = 1,ntracerin |
./pkg/fizhi/fizhi_moist.F |
7 |
MOISTIO |
. pz,plz,plze,dpres,pkht,pkl,uz,vz,tz,qz,bi,bj,ntracerin,ptracer, |
./pkg/fizhi/fizhi_moist.F |
804 |
MOISTIO |
do nt = 1,ntracerin-ptracer |
./pkg/fizhi/fizhi_moist.F |
816 |
MOISTIO |
call BACK2GRD (delugather(1,L,ntracerin-ptracer+1),pblindex, |
./pkg/fizhi/fizhi_moist.F |
818 |
MOISTIO |
call BACK2GRD (delugather(1,L,ntracerin-ptracer+2),pblindex, |
./pkg/fizhi/fizhi_moist.F |
87 |
MOISTIO |
_RL ugather(im*jm,lm,ntracerin+2-ptracer) |
./pkg/fizhi/fizhi_moist.F |
88 |
MOISTIO |
_RL delugather(im*jm,lm,ntracerin+2-ptracer) |