File |
Line number |
Procedure |
Code |
./pkg/fizhi/do_fizhi.F |
242 |
DO_FIZHI |
& phis_var(1,1,bi,bj),tgz(1,1,bi,bj),sea_ice,nchp,chlat(1,bi,bj), |
./pkg/fizhi/do_fizhi.F |
35 |
DO_FIZHI |
INTEGER Nrphin,nSxIn,nSyIn,bi,bj,nchp |
./pkg/fizhi/do_fizhi.F |
46 |
DO_FIZHI |
_RL ctmt(nchp,nSxIn,nSyIn),xxmt(nchp,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
47 |
DO_FIZHI |
_RL yymt(nchp,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
48 |
DO_FIZHI |
_RL zetamt(nchp,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
49 |
DO_FIZHI |
_RL xlmt(nchp,Nrphin,nSxIn,nSyIn),khmt(nchp,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
50 |
DO_FIZHI |
_RL tke(nchp,Nrphin,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
59 |
DO_FIZHI |
_RL chfr(nchp,nSxIn,nSyIn),alai(nchp,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
60 |
DO_FIZHI |
_RL agrn(nchp,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
61 |
DO_FIZHI |
INTEGER ityp(nchp,nSxIn,nSyIn),igrd(nchp,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
62 |
DO_FIZHI |
_RL chlat(nchp,nSxIn,nSyIn),chlon(nchp,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
63 |
DO_FIZHI |
_RL tcanopy(nchp,nSxIn,nSyIn),tdeep(nchp,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
64 |
DO_FIZHI |
_RL ecanopy(nchp,nSxIn,nSyIn),swetshal(nchp,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
65 |
DO_FIZHI |
_RL swetroot(nchp,nSxIn,nSyIn),swetdeep(nchp,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
66 |
DO_FIZHI |
_RL snodep(nchp,nSxIn,nSyIn),capac(nchp,nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
6 |
DO_FIZHI |
& turbStart, nchp,nchptot,nchpland, |
./pkg/fizhi/fizhi_coms.h |
16 |
NO PROCEDURE |
_RL ctmt(nchp,nSx,nSy), xxmt(nchp,nSx,nSy), yymt(nchp,nSx,nSy) |
./pkg/fizhi/fizhi_coms.h |
17 |
NO PROCEDURE |
_RL zetamt(nchp,nSx,nSy) |
./pkg/fizhi/fizhi_coms.h |
18 |
NO PROCEDURE |
_RL xlmt(nchp,Nrphys,nSx,nSy), khmt(nchp,Nrphys,nSx,nSy) |
./pkg/fizhi/fizhi_coms.h |
19 |
NO PROCEDURE |
_RL tke(nchp,Nrphys,nSx,nSy) |
./pkg/fizhi/fizhi_driver.F |
208 |
FIZHI_DRIVER |
& nchp,nchptot,nchpland,chfr,chlat,chlon,igrd,ityp, |
./pkg/fizhi/fizhi_driver.F |
54 |
FIZHI_DRIVER |
INTEGER nchp,igrd(nchp),nchptot,nchpland,ityp(nchp) |
./pkg/fizhi/fizhi_driver.F |
69 |
FIZHI_DRIVER |
_RL chlat(nchp),chlon(nchp),chfr(nchp) |
./pkg/fizhi/fizhi_driver.F |
70 |
FIZHI_DRIVER |
_RL tcanopy(nchp),tdeep(nchp),ecanopy(nchp),swetshal(nchp) |
./pkg/fizhi/fizhi_driver.F |
71 |
FIZHI_DRIVER |
_RL swetroot(nchp),swetdeep(nchp),capac(nchp),snodep(nchp) |
./pkg/fizhi/fizhi_driver.F |
72 |
FIZHI_DRIVER |
_RL ctmt(nchp),xxmt(nchp),yymt(nchp),zetamt(nchp) |
./pkg/fizhi/fizhi_driver.F |
73 |
FIZHI_DRIVER |
_RL xlmt(nchp,lm),khmt(nchp,lm),tke(nchp,lm) |
./pkg/fizhi/fizhi_driver.F |
84 |
FIZHI_DRIVER |
_RL alai(nchp),agrn(nchp) |
./pkg/fizhi/fizhi_driver.F |
9 |
FIZHI_DRIVER |
& nchp,chlat,chlon,igrd,nchptot,nchpland,chfr,ityp, |
./pkg/fizhi/fizhi_earth_coms.h |
17 |
NO PROCEDURE |
_RL chfr(nchp,Nsx,Nsy) |
./pkg/fizhi/fizhi_earth_coms.h |
18 |
NO PROCEDURE |
_RL alai(nchp,Nsx,Nsy) |
./pkg/fizhi/fizhi_earth_coms.h |
19 |
NO PROCEDURE |
_RL agrn(nchp,Nsx,Nsy) |
./pkg/fizhi/fizhi_earth_coms.h |
28 |
NO PROCEDURE |
integer ityp(nchp,Nsx,Nsy) |
./pkg/fizhi/fizhi_init_fixed.F |
105 |
FIZHI_INIT_FIXED |
& nSx*nPx,nSy*nPy,maxtyp,nchp,nchptot,nchpland,lons,lats, |
./pkg/fizhi/fizhi_init_vars.F |
228 |
FIZHI_INIT_VARS |
do i = 1,nchp |
./pkg/fizhi/fizhi_init_vars.F |
235 |
FIZHI_INIT_VARS |
do i = 1,nchp |
./pkg/fizhi/fizhi_init_veg.F |
159 |
FIZHI_INIT_VEG |
do i=1,nchp |
./pkg/fizhi/fizhi_init_veg.F |
57 |
FIZHI_INIT_VEG |
INTEGER myThid,im,jm,maxtyp,nchp,nSx,nSy,Nxg,Nyg |
./pkg/fizhi/fizhi_init_veg.F |
60 |
FIZHI_INIT_VEG |
INTEGER igrd(nchp,nSx,nSy),ityp(nchp,nSx,nSy) |
./pkg/fizhi/fizhi_init_veg.F |
63 |
FIZHI_INIT_VEG |
_RL chfr(nchp,nSx,nSy),chlt(nchp,nSx,nSy),chlon(nchp,nSx,nSy) |
./pkg/fizhi/fizhi_init_veg.F |
7 |
FIZHI_INIT_VEG |
& maxtyp,nchp,nchptot,nchpland,lons,lats,surftype,tilefrac, |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
103 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
104 |
FIZHI_INIT_VEGSURFTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
116 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
117 |
FIZHI_INIT_VEGSURFTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
129 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
130 |
FIZHI_INIT_VEGSURFTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
142 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
143 |
FIZHI_INIT_VEGSURFTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
155 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
156 |
FIZHI_INIT_VEGSURFTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
168 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
169 |
FIZHI_INIT_VEGSURFTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
181 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
182 |
FIZHI_INIT_VEGSURFTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
194 |
FIZHI_INIT_VEGSURFTILES |
. temptile,nchp,nchptot(bi,bj)) |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
195 |
FIZHI_INIT_VEGSURFTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
51 |
FIZHI_INIT_VEGSURFTILES |
_RL temptile(nchp) |
./pkg/fizhi/fizhi_land_SIZE.h |
6 |
NO PROCEDURE |
integer nchp, maxtyp |
./pkg/fizhi/fizhi_land_SIZE.h |
8 |
NO PROCEDURE |
parameter (nchp = sNx*sNy*maxtyp) |
./pkg/fizhi/fizhi_land_coms.h |
10 |
NO PROCEDURE |
_RL ecanopy(nchp,Nsx,Nsy) |
./pkg/fizhi/fizhi_land_coms.h |
11 |
NO PROCEDURE |
_RL swetshal(nchp,Nsx,Nsy) |
./pkg/fizhi/fizhi_land_coms.h |
12 |
NO PROCEDURE |
_RL swetroot(nchp,Nsx,Nsy) |
./pkg/fizhi/fizhi_land_coms.h |
13 |
NO PROCEDURE |
_RL swetdeep(nchp,Nsx,Nsy) |
./pkg/fizhi/fizhi_land_coms.h |
14 |
NO PROCEDURE |
_RL snodep(nchp,Nsx,Nsy) |
./pkg/fizhi/fizhi_land_coms.h |
15 |
NO PROCEDURE |
_RL capac(nchp,Nsx,Nsy) |
./pkg/fizhi/fizhi_land_coms.h |
20 |
NO PROCEDURE |
_RL chlt(nchp,Nsx,Nsy) |
./pkg/fizhi/fizhi_land_coms.h |
21 |
NO PROCEDURE |
_RL chlon(nchp,Nsx,Nsy) |
./pkg/fizhi/fizhi_land_coms.h |
22 |
NO PROCEDURE |
integer igrd(nchp,Nsx,Nsy) |
./pkg/fizhi/fizhi_land_coms.h |
8 |
NO PROCEDURE |
_RL tcanopy(nchp,Nsx,Nsy) |
./pkg/fizhi/fizhi_land_coms.h |
9 |
NO PROCEDURE |
_RL tdeep(nchp,Nsx,Nsy) |
./pkg/fizhi/fizhi_mnc_init.F |
243 |
FIZHI_MNC_INIT |
dim(1) = nchp |
./pkg/fizhi/fizhi_mnc_init.F |
245 |
FIZHI_MNC_INIT |
ie(1) = nchp |
./pkg/fizhi/fizhi_mnc_init.F |
268 |
FIZHI_MNC_INIT |
dim(1) = nchp |
./pkg/fizhi/fizhi_mnc_init.F |
270 |
FIZHI_MNC_INIT |
ie(1) = nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
109 |
FIZHI_WRITE_VEGTILES |
length_of_rec=MDS_RECLEN( fileprec, nchp, mythid ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
130 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
134 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
138 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
142 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
146 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
150 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
154 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
158 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
164 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
168 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
175 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
179 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
186 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
190 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
197 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
201 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
206 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
210 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
215 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
219 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
224 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
228 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
233 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
237 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
242 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
246 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
251 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
255 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
260 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
264 |
FIZHI_WRITE_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
324 |
FIZHI_READ_VEGTILES |
Real*8 r8seg(nchp) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
364 |
FIZHI_READ_VEGTILES |
length_of_rec=MDS_RECLEN( fileprec, nchp, mythid ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
389 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
391 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
397 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
399 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
405 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
407 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
413 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
415 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
424 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
426 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
435 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
437 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
446 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
448 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
457 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
459 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
466 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
468 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
475 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
477 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
484 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
486 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
493 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
495 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
502 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
504 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
511 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
513 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
520 |
FIZHI_READ_VEGTILES |
call MDS_BYTESWAPR8( nchp, r8seg ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
522 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
52 |
FIZHI_WRITE_VEGTILES |
Real*8 r8seg(nchp) |
./pkg/fizhi/fizhi_turb.F |
1000 |
TURBIO |
call DIAG_VEGTILE_FILL (stuflux(1,nlay),igrd,chfrstr,istrip,nchp, |
./pkg/fizhi/fizhi_turb.F |
1004 |
TURBIO |
call DIAG_VEGTILE_FILL (stvflux(1,nlay),igrd,chfrstr,istrip,nchp, |
./pkg/fizhi/fizhi_turb.F |
1008 |
TURBIO |
call DIAG_VEGTILE_FILL (sustar,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
1012 |
TURBIO |
call DIAG_VEGTILE_FILL (sz0,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
1016 |
TURBIO |
call DIAG_VEGTILE_FILL (frqtrb,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
1020 |
TURBIO |
call DIAG_VEGTILE_FILL (pbldpth,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
1024 |
TURBIO |
call DIAG_VEGTILE_FILL (stu2m,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
1028 |
TURBIO |
call DIAG_VEGTILE_FILL (stv2m,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
1032 |
TURBIO |
call DIAG_VEGTILE_FILL (stt2m,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
1043 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
1047 |
TURBIO |
call DIAG_VEGTILE_FILL (stu10m,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
1051 |
TURBIO |
call DIAG_VEGTILE_FILL (stv10m,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
1055 |
TURBIO |
call DIAG_VEGTILE_FILL (stt10m,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
1066 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
1075 |
TURBIO |
call DIAG_VEGTILE_FILL (td,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
1079 |
TURBIO |
call DIAG_VEGTILE_FILL (qa,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
1083 |
TURBIO |
call DIAG_VEGTILE_FILL (swet1,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
1087 |
TURBIO |
call DIAG_VEGTILE_FILL (swet2,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
1091 |
TURBIO |
call DIAG_VEGTILE_FILL (swet3,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
1095 |
TURBIO |
call DIAG_VEGTILE_FILL (capacity,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
1099 |
TURBIO |
call DIAG_VEGTILE_FILL (snowdepth,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
1149 |
TURBIO |
call MSC2GRD(igrd,chfr,dumsc(1,L),nchp,nchptot,fracland, |
./pkg/fizhi/fizhi_turb.F |
1151 |
TURBIO |
call MSC2GRD(igrd,chfr,dvmsc(1,L),nchp,nchptot,fracland, |
./pkg/fizhi/fizhi_turb.F |
1153 |
TURBIO |
call MSC2GRD(igrd,chfr,dtmsc(1,L),nchp,nchptot,fracland, |
./pkg/fizhi/fizhi_turb.F |
1156 |
TURBIO |
call MSC2GRD(igrd,chfr,dqmsc(1,L,nt),nchp,nchptot,fracland, |
./pkg/fizhi/fizhi_turb.F |
1159 |
TURBIO |
call MSC2GRD(igrd,chfr, tke(1,L),nchp,nchptot,fracland, |
./pkg/fizhi/fizhi_turb.F |
1162 |
TURBIO |
call MSC2GRD(igrd,chfr, fccmsc(1,L),nchp,nchptot,fracland, |
./pkg/fizhi/fizhi_turb.F |
1164 |
TURBIO |
call MSC2GRD(igrd,chfr,qliqmsc(1,L),nchp,nchptot,fracland, |
./pkg/fizhi/fizhi_turb.F |
117 |
TURBIO |
integer nchp,nchptot,nchplnd |
./pkg/fizhi/fizhi_turb.F |
1192 |
TURBIO |
call MSC2GRD(igrd,chfr,tground ,nchp,nchptot,fracland,tgz ,im,jm) |
./pkg/fizhi/fizhi_turb.F |
124 |
TURBIO |
_RL ctmt(nchp),xxmt(nchp),yymt(nchp),zetamt(nchp) |
./pkg/fizhi/fizhi_turb.F |
125 |
TURBIO |
_RL xlmt(nchp,nlay),khmt(nchp,nlay),tke(nchp,nlay) |
./pkg/fizhi/fizhi_turb.F |
128 |
TURBIO |
_RL tcanopy(nchp),tdeep(nchp),ecanopy(nchp),swetshal(nchp) |
./pkg/fizhi/fizhi_turb.F |
129 |
TURBIO |
_RL swetroot(nchp),swetdeep(nchp),snodep(nchp),capac(nchp) |
./pkg/fizhi/fizhi_turb.F |
130 |
TURBIO |
_RL chfr(nchp),chlt(nchp),chlon(nchp) |
./pkg/fizhi/fizhi_turb.F |
131 |
TURBIO |
integer igrd(nchp),ityp(nchp) |
./pkg/fizhi/fizhi_turb.F |
132 |
TURBIO |
_RL alai(nchp),agrn(nchp),thkz(im*jm,1) |
./pkg/fizhi/fizhi_turb.F |
168 |
TURBIO |
_RL alwcoeff(nchp),blwcoeff(nchp) |
./pkg/fizhi/fizhi_turb.F |
169 |
TURBIO |
_RL netsw(nchp) |
./pkg/fizhi/fizhi_turb.F |
170 |
TURBIO |
_RL cnvprec(nchp),lsprec(nchp) |
./pkg/fizhi/fizhi_turb.F |
171 |
TURBIO |
_RL snowprec(nchp) |
./pkg/fizhi/fizhi_turb.F |
172 |
TURBIO |
_RL pardiff(nchp),pardirct(nchp) |
./pkg/fizhi/fizhi_turb.F |
173 |
TURBIO |
_RL pmsc(nchp) |
./pkg/fizhi/fizhi_turb.F |
174 |
TURBIO |
_RL netlw(nchp) |
./pkg/fizhi/fizhi_turb.F |
175 |
TURBIO |
_RL sqscat(nchp), rsoil1(nchp) |
./pkg/fizhi/fizhi_turb.F |
176 |
TURBIO |
_RL rsoil2(nchp) |
./pkg/fizhi/fizhi_turb.F |
177 |
TURBIO |
_RL rdc(nchp),u2fac(nchp) |
./pkg/fizhi/fizhi_turb.F |
178 |
TURBIO |
_RL z2ch(nchp) |
./pkg/fizhi/fizhi_turb.F |
179 |
TURBIO |
_RL zoch(nchp),cdrc(nchp) |
./pkg/fizhi/fizhi_turb.F |
180 |
TURBIO |
_RL cdsc(nchp) |
./pkg/fizhi/fizhi_turb.F |
181 |
TURBIO |
_RL dqsdt(nchp) |
./pkg/fizhi/fizhi_turb.F |
182 |
TURBIO |
_RL tground(nchp),qground(nchp) |
./pkg/fizhi/fizhi_turb.F |
183 |
TURBIO |
_RL utility(nchp) |
./pkg/fizhi/fizhi_turb.F |
184 |
TURBIO |
_RL qice(nchp) |
./pkg/fizhi/fizhi_turb.F |
185 |
TURBIO |
_RL dqice(nchp) |
./pkg/fizhi/fizhi_turb.F |
187 |
TURBIO |
_RL dumsc(nchp,nlay),dvmsc(nchp,nlay) |
./pkg/fizhi/fizhi_turb.F |
188 |
TURBIO |
_RL dtmsc(nchp,nlay),dqmsc(nchp,nlay,ntracers) |
./pkg/fizhi/fizhi_turb.F |
190 |
TURBIO |
_RL shg(nchp),z0(nchp),icethk(nchp) |
./pkg/fizhi/fizhi_turb.F |
191 |
TURBIO |
integer water(nchp) |
./pkg/fizhi/fizhi_turb.F |
244 |
TURBIO |
_RL qliqmsc(nchp,nlay),fccmsc(nchp,nlay) |
./pkg/fizhi/fizhi_turb.F |
31 |
TURBIO |
5 ,nchp,nchptot,nchplnd,chfr,chlt,chlon,igrd,ityp,alai,agrn,thkz |
./pkg/fizhi/fizhi_turb.F |
325 |
TURBIO |
call GRD2MSC(pz(1,1),im,jm,igrd,pmsc,nchp,nchptot) |
./pkg/fizhi/fizhi_turb.F |
327 |
TURBIO |
call GRD2MSC(tgz,im,jm,igrd,tground,nchp,nchptot) |
./pkg/fizhi/fizhi_turb.F |
332 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,alwcoeff,nchp,nchptot) |
./pkg/fizhi/fizhi_turb.F |
336 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,blwcoeff,nchp,nchptot) |
./pkg/fizhi/fizhi_turb.F |
340 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,pardiff,nchp,nchptot) |
./pkg/fizhi/fizhi_turb.F |
344 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,pardirct,nchp,nchptot) |
./pkg/fizhi/fizhi_turb.F |
348 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,netsw,nchp,nchptot) |
./pkg/fizhi/fizhi_turb.F |
352 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,netlw,nchp,nchptot) |
./pkg/fizhi/fizhi_turb.F |
353 |
TURBIO |
call GRD2MSC(thkz,im,jm,igrd,icethk,nchp,nchptot) |
./pkg/fizhi/fizhi_turb.F |
354 |
TURBIO |
call GRD2MSC(rainlsp,im,jm,igrd,lsprec,nchp,nchptot) |
./pkg/fizhi/fizhi_turb.F |
355 |
TURBIO |
call GRD2MSC(rainconv,im,jm,igrd,cnvprec,nchp,nchptot) |
./pkg/fizhi/fizhi_turb.F |
356 |
TURBIO |
call GRD2MSC(snowfall,im,jm,igrd,snowprec,nchp,nchptot) |
./pkg/fizhi/fizhi_turb.F |
360 |
TURBIO |
call CHPPRM(nymd,nhms,nchp,nchplnd,chlt,ityp,alai, |
./pkg/fizhi/fizhi_turb.F |
431 |
TURBIO |
call MSC2GRD (igrd,chfr,qice,nchp,nchptot,fracland,tmpdiag,im,jm) |
./pkg/fizhi/fizhi_turb.F |
441 |
TURBIO |
call STRIP2TILE(uz,igrd,u,nchp,ijall,istrip,nlay,nn) |
./pkg/fizhi/fizhi_turb.F |
442 |
TURBIO |
call STRIP2TILE(vz,igrd,v,nchp,ijall,istrip,nlay,nn) |
./pkg/fizhi/fizhi_turb.F |
443 |
TURBIO |
call STRIP2TILE(tz,igrd,th,nchp,ijall,istrip,nlay,nn) |
./pkg/fizhi/fizhi_turb.F |
444 |
TURBIO |
call STRIP2TILE(qz(1,1,1,1),igrd,sh,nchp,ijall,istrip,nlay,nn) |
./pkg/fizhi/fizhi_turb.F |
445 |
TURBIO |
call STRIP2TILE(dpres,igrd,dpstr,nchp,ijall,istrip,nlay,nn) |
./pkg/fizhi/fizhi_turb.F |
446 |
TURBIO |
call STRIP2TILE(plz,igrd,p,nchp,ijall,istrip,nlay,nn) |
./pkg/fizhi/fizhi_turb.F |
447 |
TURBIO |
call STRIP2TILE(plze,igrd,pe,nchp,ijall,istrip,nlay+1,nn) |
./pkg/fizhi/fizhi_turb.F |
448 |
TURBIO |
call STRIP2TILE(pkz,igrd,pk,nchp,ijall,istrip,nlay,nn) |
./pkg/fizhi/fizhi_turb.F |
449 |
TURBIO |
call STRIP2TILE(pkht,igrd,pke,nchp,ijall,istrip,nlay+1,nn) |
./pkg/fizhi/fizhi_turb.F |
455 |
TURBIO |
call STRIPIT (z0,stz0,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
456 |
TURBIO |
call STRIPIT (tground,th(1,nlay+1),nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
457 |
TURBIO |
call STRIPIT (pmsc,pe(1,nlay+1),nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
458 |
TURBIO |
call STRIPIT (tke,qq,nchptot,nchp,istrip,nlay-1,nn) |
./pkg/fizhi/fizhi_turb.F |
459 |
TURBIO |
call STRIPIT (ctmt,ctsave,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
460 |
TURBIO |
call STRIPIT (xxmt,xxsave,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
461 |
TURBIO |
call STRIPIT (yymt,yysave,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
462 |
TURBIO |
call STRIPIT (zetamt,zetasave,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
463 |
TURBIO |
call STRIPIT (xlmt,xlsave,nchptot,nchp,istrip,nlay,nn) |
./pkg/fizhi/fizhi_turb.F |
464 |
TURBIO |
call STRIPIT (khmt,khsave,nchptot,nchp,istrip,nlay,nn) |
./pkg/fizhi/fizhi_turb.F |
465 |
TURBIO |
call STRIPITINT (water,stwatr,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
467 |
TURBIO |
call STRIPITINT (igrd,igrdstr,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
468 |
TURBIO |
call STRIPIT (chfr,chfrstr,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
469 |
TURBIO |
call STRIPIT (icethk,icest,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
470 |
TURBIO |
call STRIPIT (pardiff,pardf,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
471 |
TURBIO |
call STRIPIT (pardirct,pardr,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
472 |
TURBIO |
call STRIPIT (chlt,lats,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
473 |
TURBIO |
call STRIPIT (chlon,lons,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
474 |
TURBIO |
call STRIPIT (lsprec,rainls,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
475 |
TURBIO |
call STRIPIT (cnvprec,raincon,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
476 |
TURBIO |
call STRIPIT (snowprec,newsnow,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
477 |
TURBIO |
call STRIPIT (netsw,swnet,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
478 |
TURBIO |
call STRIPIT (netlw,lwstrip,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
479 |
TURBIO |
call STRIPIT (alwcoeff,alwrad,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
480 |
TURBIO |
call STRIPIT (blwcoeff,blwrad,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
481 |
TURBIO |
call STRIPIT (alai,laistrip,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
482 |
TURBIO |
call STRIPIT (agrn,grnstrip,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
483 |
TURBIO |
call STRIPIT (z2ch,z2str,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
484 |
TURBIO |
call STRIPIT (sqscat,scatstr,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
485 |
TURBIO |
call STRIPIT (rsoil1,rs1str,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
486 |
TURBIO |
call STRIPIT (rsoil2,rs2str,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
487 |
TURBIO |
call STRIPIT (rdc,rdcstr,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
488 |
TURBIO |
call STRIPIT (u2fac,u2fstr,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
489 |
TURBIO |
call STRIPIT (shg,shgstr,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
490 |
TURBIO |
call STRIPIT (dqsdt,dqsdtstr,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
491 |
TURBIO |
call STRIPIT ( qice, qicestr,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
492 |
TURBIO |
call STRIPIT (dqice,dqicestr,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
493 |
TURBIO |
call STRIPITINT (ityp,types,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
495 |
TURBIO |
call STRIPIT (tground,tc,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
496 |
TURBIO |
call STRIPIT (tdeep,td,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
497 |
TURBIO |
call STRIPIT (qground,qa,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
498 |
TURBIO |
call STRIPIT (swetshal,swet1,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
499 |
TURBIO |
call STRIPIT (swetroot,swet2,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
500 |
TURBIO |
call STRIPIT (swetdeep,swet3,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
501 |
TURBIO |
call STRIPIT (snodep,snowdepth,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
502 |
TURBIO |
call STRIPIT (capac,capacity,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
538 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
588 |
TURBIO |
call DIAG_VEGTILE_FILL (stdiag,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
603 |
TURBIO |
call PASTIT (qq,tke,istrip,nchp,nchptot,nlay,nn) |
./pkg/fizhi/fizhi_turb.F |
604 |
TURBIO |
call PASTIT (ctsave,ctmt,istrip,nchp,nchptot,1,nn) |
./pkg/fizhi/fizhi_turb.F |
605 |
TURBIO |
call PASTIT (xxsave,xxmt,istrip,nchp,nchptot,1,nn) |
./pkg/fizhi/fizhi_turb.F |
606 |
TURBIO |
call PASTIT (yysave,yymt,istrip,nchp,nchptot,1,nn) |
./pkg/fizhi/fizhi_turb.F |
607 |
TURBIO |
call PASTIT (zetasave,zetamt,istrip,nchp,nchptot,1,nn) |
./pkg/fizhi/fizhi_turb.F |
608 |
TURBIO |
call PASTIT (xlsave,xlmt,istrip,nchp,nchptot,nlay,nn) |
./pkg/fizhi/fizhi_turb.F |
609 |
TURBIO |
call PASTIT (khsave,khmt,istrip,nchp,nchptot,nlay,nn) |
./pkg/fizhi/fizhi_turb.F |
611 |
TURBIO |
call PASTIT (qliq ,qliqmsc,istrip,nchp,nchptot,nlay,nn) |
./pkg/fizhi/fizhi_turb.F |
612 |
TURBIO |
call PASTIT (turbfcc,fccmsc,istrip,nchp,nchptot,nlay,nn) |
./pkg/fizhi/fizhi_turb.F |
678 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
685 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
692 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
696 |
TURBIO |
call DIAG_VEGTILE_FILL (grnstrip,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
700 |
TURBIO |
call DIAG_VEGTILE_FILL (laistrip,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
704 |
TURBIO |
call DIAG_VEGTILE_FILL (pardr,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
708 |
TURBIO |
call DIAG_VEGTILE_FILL (pardf,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
712 |
TURBIO |
call DIAG_VEGTILE_FILL (blwrad,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
716 |
TURBIO |
call DIAG_VEGTILE_FILL (dhsdtc,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
720 |
TURBIO |
call DIAG_VEGTILE_FILL (dedtc,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
724 |
TURBIO |
call DIAG_VEGTILE_FILL (dhsdqa,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
728 |
TURBIO |
call DIAG_VEGTILE_FILL (dedqa,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
732 |
TURBIO |
call DIAG_VEGTILE_FILL (hlwdwn,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
769 |
TURBIO |
call DIAG_VEGTILE_FILL (runoff,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
773 |
TURBIO |
call DIAG_VEGTILE_FILL (fwsoil,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
777 |
TURBIO |
call DIAG_VEGTILE_FILL (gdrain,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
781 |
TURBIO |
call DIAG_VEGTILE_FILL (smelt,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
785 |
TURBIO |
call DIAG_VEGTILE_FILL (eveg,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
789 |
TURBIO |
call DIAG_VEGTILE_FILL (esno,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
793 |
TURBIO |
call DIAG_VEGTILE_FILL (esoi,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
797 |
TURBIO |
call DIAG_VEGTILE_FILL (eint,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
801 |
TURBIO |
call DIAG_VEGTILE_FILL (evpot,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
805 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg1,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
809 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg2,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
813 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg3,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
817 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg4,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
821 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg5,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
825 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg6,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
829 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg7,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
833 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg8,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
838 |
TURBIO |
call PASTIT (tc,tground,istrip,nchp,nchptot,1,nn) |
./pkg/fizhi/fizhi_turb.F |
839 |
TURBIO |
call PASTIT (td,tdeep,istrip,nchp,nchptot,1,nn) |
./pkg/fizhi/fizhi_turb.F |
840 |
TURBIO |
call PASTIT (qa,qground,istrip,nchp,nchptot,1,nn) |
./pkg/fizhi/fizhi_turb.F |
841 |
TURBIO |
call PASTIT (swet1,swetshal,istrip,nchp,nchptot,1,nn) |
./pkg/fizhi/fizhi_turb.F |
842 |
TURBIO |
call PASTIT (swet2,swetroot,istrip,nchp,nchptot,1,nn) |
./pkg/fizhi/fizhi_turb.F |
843 |
TURBIO |
call PASTIT (swet3,swetdeep,istrip,nchp,nchptot,1,nn) |
./pkg/fizhi/fizhi_turb.F |
844 |
TURBIO |
call PASTIT (capacity,capac,istrip,nchp,nchptot,1,nn) |
./pkg/fizhi/fizhi_turb.F |
845 |
TURBIO |
call PASTIT (snowdepth,snodep,istrip,nchp,nchptot,1,nn) |
./pkg/fizhi/fizhi_turb.F |
879 |
TURBIO |
call STRIP2TILE(uz(1,1,l),igrd,tmpstrip,nchp,ijall, |
./pkg/fizhi/fizhi_turb.F |
884 |
TURBIO |
call PASTIT (tends,dumsc(1,l),istrip,nchp,nchptot,1,nn) |
./pkg/fizhi/fizhi_turb.F |
886 |
TURBIO |
call STRIP2TILE(vz(1,1,l),igrd,tmpstrip,nchp,ijall, |
./pkg/fizhi/fizhi_turb.F |
891 |
TURBIO |
call PASTIT (tends,dvmsc(1,l),istrip,nchp,nchptot,1,nn) |
./pkg/fizhi/fizhi_turb.F |
893 |
TURBIO |
call STRIP2TILE(tz(1,1,l),igrd,tmpstrip,nchp,ijall, |
./pkg/fizhi/fizhi_turb.F |
899 |
TURBIO |
call PASTIT (tends,dtmsc(1,l),istrip,nchp,nchptot,1,nn) |
./pkg/fizhi/fizhi_turb.F |
901 |
TURBIO |
call STRIP2TILE(qz(1,1,l,1),igrd,tmpstrip,nchp,ijall, |
./pkg/fizhi/fizhi_turb.F |
907 |
TURBIO |
call PASTIT (tends,dqmsc(1,l,1),istrip,nchp,nchptot,1,nn) |
./pkg/fizhi/fizhi_turb.F |
932 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
939 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
946 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
950 |
TURBIO |
call DIAG_VEGTILE_FILL (stuflux,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
954 |
TURBIO |
call DIAG_VEGTILE_FILL (stvflux,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
963 |
TURBIO |
call DIAG_VEGTILE_FILL (sttflux,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
972 |
TURBIO |
call DIAG_VEGTILE_FILL (stqflux,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
976 |
TURBIO |
call DIAG_VEGTILE_FILL (sri,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
980 |
TURBIO |
call DIAG_VEGTILE_FILL (skh,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
984 |
TURBIO |
call DIAG_VEGTILE_FILL (skm,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
988 |
TURBIO |
call DIAG_VEGTILE_FILL (sct,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
992 |
TURBIO |
call DIAG_VEGTILE_FILL (scu,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_turb.F |
996 |
TURBIO |
call DIAG_VEGTILE_FILL (swinds,igrd,chfrstr,istrip,nchp,nn, |
./pkg/fizhi/fizhi_utils.F |
655 |
GRD2MSC |
integer im,jm,mxchps,nchp |
./pkg/fizhi/fizhi_utils.F |
680 |
MSC2GRD |
integer im,jm,mxchps,nchp |
./pkg/fizhi/fizhi_utils.F |
711 |
CHPPRM |
subroutine CHPPRM(nymd,nhms,mxchps,nchp,chlt,ityp,alai, |
./pkg/fizhi/fizhi_utils.F |
716 |
CHPPRM |
integer nymd,nhms,nchp,mxchps,ityp(mxchps) |
./pkg/fizhi/fizhi_utils.F |
868 |
CHPPRM |
do i=1,nchp |
./pkg/fizhi/fizhi_wrapper.F |
264 |
FIZHI_WRAPPER |
& turbStart(bi,bj), nchp,nchptot,nchpland, |
./pkg/fizhi/update_earth_exports.F |
1002 |
GETEMISS |
_RL emisstile(nchp,10) |
./pkg/fizhi/update_earth_exports.F |
1014 |
GETEMISS |
call EMISSIVITY(snowdep(1,bi,bj),fraci,nchp,nchptot,ityp(1,bi,bj), |
./pkg/fizhi/update_earth_exports.F |
101 |
UPDATE_EARTH_EXPORTS |
& nchp,nSx,nSy,bi,bj,alai,agrn ) |
./pkg/fizhi/update_earth_exports.F |
1025 |
GETEMISS |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),emisstile(1,k),nchp, |
./pkg/fizhi/update_earth_exports.F |
1039 |
EMISSIVITY |
SUBROUTINE EMISSIVITY (snowdepth,fraci,nchp,numpts,ityp,newemis) |
./pkg/fizhi/update_earth_exports.F |
1041 |
EMISSIVITY |
INTEGER nchp,numpts |
./pkg/fizhi/update_earth_exports.F |
1042 |
EMISSIVITY |
INTEGER ityp(nchp) |
./pkg/fizhi/update_earth_exports.F |
1043 |
EMISSIVITY |
_RL snowdepth(nchp) |
./pkg/fizhi/update_earth_exports.F |
1044 |
EMISSIVITY |
_RL fraci(nchp) |
./pkg/fizhi/update_earth_exports.F |
1045 |
EMISSIVITY |
_RL newemis(nchp,10) |
./pkg/fizhi/update_earth_exports.F |
114 |
UPDATE_EARTH_EXPORTS |
call GETALB(sec,month,day,cosz,snodep,fraci,fracl,im2,jm2,nchp, |
./pkg/fizhi/update_earth_exports.F |
126 |
UPDATE_EARTH_EXPORTS |
& nchp,nchptot(bi,bj)) |
./pkg/fizhi/update_earth_exports.F |
127 |
UPDATE_EARTH_EXPORTS |
call GETEMISS(fracl,im2,jm2,nchp,nchptot(bi,bj),nSx,nSy,bi,bj, |
./pkg/fizhi/update_earth_exports.F |
145 |
UPDATE_EARTH_EXPORTS |
& nchp,nchptot(bi,bj),fracl,tmpij,im2,jm2) |
./pkg/fizhi/update_earth_exports.F |
49 |
UPDATE_EARTH_EXPORTS |
_RL ficetile(nchp) |
./pkg/fizhi/update_earth_exports.F |
52 |
UPDATE_EARTH_EXPORTS |
_RL tmpchp(nchp) |
./pkg/fizhi/update_earth_exports.F |
821 |
GETALB |
& nchp,nchptot,nchpland,nSx,nSy,bi,bj,igrd,ityp,chfr,chlt, |
./pkg/fizhi/update_earth_exports.F |
862 |
GETALB |
INTEGER sec,month,day,im,jm,nchp,nchptot,nchpland,nSx,nSy,bi,bj |
./pkg/fizhi/update_earth_exports.F |
864 |
GETALB |
_RL snodep(nchp,nSx,nSy),chfr(nchp,nSx,nSy),chlt(nchp,nSx,nSy) |
./pkg/fizhi/update_earth_exports.F |
865 |
GETALB |
INTEGER igrd(nchp,nSx,nSy),ityp(nchp,nSx,nSy) |
./pkg/fizhi/update_earth_exports.F |
866 |
GETALB |
_RL alai(nchp,nSx,nSy),agrn(nchp,nSx,nSy) |
./pkg/fizhi/update_earth_exports.F |
881 |
GETALB |
_RL avisdr(nchp),anirdr(nchp),avisdf(nchp) |
./pkg/fizhi/update_earth_exports.F |
882 |
GETALB |
_RL anirdf(nchp) |
./pkg/fizhi/update_earth_exports.F |
883 |
GETALB |
_RL zenith(nchp) |
./pkg/fizhi/update_earth_exports.F |
899 |
GETALB |
call GRD2MSC(cosz,im,jm,igrd(1,bi,bj),zenith,nchp,nchpland) |
./pkg/fizhi/update_earth_exports.F |
913 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdr,nchp,nchpland, |
./pkg/fizhi/update_earth_exports.F |
926 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdf,nchp,nchpland, |
./pkg/fizhi/update_earth_exports.F |
938 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdr,nchp,nchpland, |
./pkg/fizhi/update_earth_exports.F |
950 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdf,nchp,nchpland, |
./pkg/fizhi/update_earth_exports.F |
963 |
GETEMISS |
SUBROUTINE GETEMISS(fracg,im,jm,nchp,nchptot,nSx,nSy,bi,bj, |
./pkg/fizhi/update_earth_exports.F |
994 |
GETEMISS |
INTEGER im,jm,nchp,nchptot,nSx,nSy,bi,bj |
./pkg/fizhi/update_earth_exports.F |
996 |
GETEMISS |
_RL chfr(nchp,nSx,nSy) |
./pkg/fizhi/update_earth_exports.F |
997 |
GETEMISS |
INTEGER igrd(nchp,nSx,nSy), ityp(nchp,nSx,nSy) |
./pkg/fizhi/update_earth_exports.F |
998 |
GETEMISS |
_RL snowdep(nchp,nSx,nSy) |
./pkg/fizhi/update_earth_exports.F |
999 |
GETEMISS |
_RL fraci(nchp) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
84 |
FIZHI_INIT_FIXED |
& nSx*nPx,nSy*nPy,maxtyp,nchp,nchptot,nchpland,lons,lats, |
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
110 |
FIZHI_INIT_VEG |
do i=1,nchp |
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
57 |
FIZHI_INIT_VEG |
INTEGER myThid,im,jm,maxtyp,nchp,nSx,nSy,Nxg,Nyg |
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
60 |
FIZHI_INIT_VEG |
INTEGER igrd(nchp,nSx,nSy),ityp(nchp,nSx,nSy) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
63 |
FIZHI_INIT_VEG |
_RL chfr(nchp,nSx,nSy),chlt(nchp,nSx,nSy),chlon(nchp,nSx,nSy) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
7 |
FIZHI_INIT_VEG |
& maxtyp,nchp,nchptot,nchpland,lons,lats,surftype,tilefrac, |
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
43 |
FIZHI_INIT_VEGSURFTILES |
do n = 1,nchp |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
35 |
DO_FIZHI |
INTEGER Nrphin,nSxin,nSyin,bi,bj,nchp |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
46 |
DO_FIZHI |
_RL ctmt(nchp,nSxin,nSyin),xxmt(nchp,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
47 |
DO_FIZHI |
_RL yymt(nchp,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
48 |
DO_FIZHI |
_RL zetamt(nchp,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
49 |
DO_FIZHI |
_RL xlmt(nchp,Nrphin,nSxin,nSyin),khmt(nchp,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
50 |
DO_FIZHI |
_RL tke(nchp,Nrphin,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
59 |
DO_FIZHI |
_RL chfr(nchp,nSxin,nSyin),alai(nchp,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
60 |
DO_FIZHI |
_RL agrn(nchp,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
61 |
DO_FIZHI |
INTEGER ityp(nchp,nSxin,nSyin),igrd(nchp,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
62 |
DO_FIZHI |
_RL chlat(nchp,nSxin,nSyin),chlon(nchp,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
63 |
DO_FIZHI |
_RL tcanopy(nchp,nSxin,nSyin),tdeep(nchp,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
64 |
DO_FIZHI |
_RL ecanopy(nchp,nSxin,nSyin),swetshal(nchp,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
65 |
DO_FIZHI |
_RL swetroot(nchp,nSxin,nSyin),swetdeep(nchp,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
66 |
DO_FIZHI |
_RL snodep(nchp,nSxin,nSyin),capac(nchp,nSxin,nSyin) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
6 |
DO_FIZHI |
& turbStart, nchp,nchptot,nchpland, |
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
84 |
FIZHI_INIT_FIXED |
& nSx*nPx,nSy*nPy,maxtyp,nchp,nchptot,nchpland,lons,lats, |
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
209 |
FIZHI_INIT_VARS |
do i = 1,nchp |
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
216 |
FIZHI_INIT_VARS |
do i = 1,nchp |
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
232 |
FIZHI_INIT_VARS |
do i = 1,nchp |
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
123 |
FIZHI_INIT_VEG |
do i=1,nchp |
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
57 |
FIZHI_INIT_VEG |
INTEGER myThid,im,jm,maxtyp,nchp,nSx,nSy,Nxg,Nyg |
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
60 |
FIZHI_INIT_VEG |
INTEGER igrd(nchp,nSx,nSy),ityp(nchp,nSx,nSy) |
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
63 |
FIZHI_INIT_VEG |
_RL chfr(nchp,nSx,nSy),chlt(nchp,nSx,nSy),chlon(nchp,nSx,nSy) |
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
7 |
FIZHI_INIT_VEG |
& maxtyp,nchp,nchptot,nchpland,lons,lats,surftype,tilefrac, |