| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/do_fizhi.F |
240 |
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 |
45 |
DO_FIZHI |
_RL ctmt(nchp,Nsxin,Nsyin),xxmt(nchp,Nsxin,Nsyin) |
|
./pkg/fizhi/do_fizhi.F |
46 |
DO_FIZHI |
_RL yymt(nchp,Nsxin,Nsyin) |
|
./pkg/fizhi/do_fizhi.F |
47 |
DO_FIZHI |
_RL zetamt(nchp,Nsxin,Nsyin) |
|
./pkg/fizhi/do_fizhi.F |
48 |
DO_FIZHI |
_RL xlmt(nchp,Nrphin,Nsxin,Nsyin),khmt(nchp,Nrphin,Nsxin,Nsyin) |
|
./pkg/fizhi/do_fizhi.F |
49 |
DO_FIZHI |
_RL tke(nchp,Nrphin,Nsxin,Nsyin) |
|
./pkg/fizhi/do_fizhi.F |
58 |
DO_FIZHI |
_RL chfr(nchp,Nsxin,Nsyin),alai(nchp,Nsxin,Nsyin) |
|
./pkg/fizhi/do_fizhi.F |
59 |
DO_FIZHI |
_RL agrn(nchp,Nsxin,Nsyin) |
|
./pkg/fizhi/do_fizhi.F |
60 |
DO_FIZHI |
integer ityp(nchp,Nsxin,Nsyin),igrd(nchp,Nsxin,Nsyin) |
|
./pkg/fizhi/do_fizhi.F |
61 |
DO_FIZHI |
_RL chlat(nchp,Nsxin,Nsyin),chlon(nchp,Nsxin,Nsyin) |
|
./pkg/fizhi/do_fizhi.F |
62 |
DO_FIZHI |
_RL tcanopy(nchp,Nsxin,Nsyin),tdeep(nchp,Nsxin,Nsyin) |
|
./pkg/fizhi/do_fizhi.F |
63 |
DO_FIZHI |
_RL ecanopy(nchp,Nsxin,Nsyin),swetshal(nchp,Nsxin,Nsyin) |
|
./pkg/fizhi/do_fizhi.F |
64 |
DO_FIZHI |
_RL swetroot(nchp,Nsxin,Nsyin),swetdeep(nchp,Nsxin,Nsyin) |
|
./pkg/fizhi/do_fizhi.F |
65 |
DO_FIZHI |
_RL snodep(nchp,Nsxin,Nsyin),capac(nchp,Nsxin,Nsyin) |
|
./pkg/fizhi/do_fizhi.F |
6 |
DO_FIZHI |
. nchp,nchptot,nchpland, |
|
./pkg/fizhi/fizhi_coms.h |
17 |
NO PROCEDURE |
_RL ctmt(nchp,Nsx,Nsy), xxmt(nchp,Nsx,Nsy), yymt(nchp,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_coms.h |
18 |
NO PROCEDURE |
_RL zetamt(nchp,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_coms.h |
19 |
NO PROCEDURE |
_RL xlmt(nchp,Nrphys,Nsx,Nsy), khmt(nchp,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_coms.h |
20 |
NO PROCEDURE |
_RL tke(nchp,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_driver.F |
205 |
FIZHI_DRIVER |
. nchp,nchptot,nchpland,chfr,chlat,chlon,igrd,ityp, |
|
./pkg/fizhi/fizhi_driver.F |
52 |
FIZHI_DRIVER |
integer nchp,igrd(nchp),nchptot,nchpland,ityp(nchp) |
|
./pkg/fizhi/fizhi_driver.F |
67 |
FIZHI_DRIVER |
_RL chlat(nchp),chlon(nchp),chfr(nchp) |
|
./pkg/fizhi/fizhi_driver.F |
68 |
FIZHI_DRIVER |
_RL tcanopy(nchp),tdeep(nchp),ecanopy(nchp),swetshal(nchp) |
|
./pkg/fizhi/fizhi_driver.F |
69 |
FIZHI_DRIVER |
_RL swetroot(nchp),swetdeep(nchp),capac(nchp),snodep(nchp) |
|
./pkg/fizhi/fizhi_driver.F |
70 |
FIZHI_DRIVER |
_RL ctmt(nchp),xxmt(nchp),yymt(nchp),zetamt(nchp) |
|
./pkg/fizhi/fizhi_driver.F |
71 |
FIZHI_DRIVER |
_RL xlmt(nchp,lm),khmt(nchp,lm),tke(nchp,lm) |
|
./pkg/fizhi/fizhi_driver.F |
82 |
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 |
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 |
1024 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
102 |
TURBIO |
integer nchp,nchptot,nchplnd |
|
./pkg/fizhi/fizhi_turb.F |
1031 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1038 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1042 |
TURBIO |
call DIAG_VEGTILE_FILL (stuflux,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1046 |
TURBIO |
call DIAG_VEGTILE_FILL (stvflux,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1055 |
TURBIO |
call DIAG_VEGTILE_FILL (sttflux,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1064 |
TURBIO |
call DIAG_VEGTILE_FILL (stqflux,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1068 |
TURBIO |
call DIAG_VEGTILE_FILL (sri,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1072 |
TURBIO |
call DIAG_VEGTILE_FILL (skh,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1076 |
TURBIO |
call DIAG_VEGTILE_FILL (skm,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1080 |
TURBIO |
call DIAG_VEGTILE_FILL (sct,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1084 |
TURBIO |
call DIAG_VEGTILE_FILL (scu,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1088 |
TURBIO |
call DIAG_VEGTILE_FILL (swinds,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1092 |
TURBIO |
call DIAG_VEGTILE_FILL (stuflux(1,nlay),igrd,chfrstr,istrip,nchp, |
|
./pkg/fizhi/fizhi_turb.F |
1096 |
TURBIO |
call DIAG_VEGTILE_FILL (stvflux(1,nlay),igrd,chfrstr,istrip,nchp, |
|
./pkg/fizhi/fizhi_turb.F |
10 |
TURBIO |
5 ,nchp,nchptot,nchplnd,chfr,chlt,chlon,igrd,ityp,alai,agrn,thkz |
|
./pkg/fizhi/fizhi_turb.F |
1100 |
TURBIO |
call DIAG_VEGTILE_FILL (sustar,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1104 |
TURBIO |
call DIAG_VEGTILE_FILL (sz0,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1108 |
TURBIO |
call DIAG_VEGTILE_FILL (frqtrb,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1112 |
TURBIO |
call DIAG_VEGTILE_FILL (pbldpth,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1116 |
TURBIO |
call DIAG_VEGTILE_FILL (stu2m,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1120 |
TURBIO |
call DIAG_VEGTILE_FILL (stv2m,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1124 |
TURBIO |
call DIAG_VEGTILE_FILL (stt2m,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
112 |
TURBIO |
_RL ctmt(nchp),xxmt(nchp),yymt(nchp),zetamt(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
1135 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1139 |
TURBIO |
call DIAG_VEGTILE_FILL (stu10m,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
113 |
TURBIO |
_RL xlmt(nchp,nlay),khmt(nchp,nlay),tke(nchp,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
1143 |
TURBIO |
call DIAG_VEGTILE_FILL (stv10m,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1147 |
TURBIO |
call DIAG_VEGTILE_FILL (stt10m,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1158 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1167 |
TURBIO |
call DIAG_VEGTILE_FILL (td,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1171 |
TURBIO |
call DIAG_VEGTILE_FILL (qa,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1175 |
TURBIO |
call DIAG_VEGTILE_FILL (swet1,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1179 |
TURBIO |
call DIAG_VEGTILE_FILL (swet2,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1183 |
TURBIO |
call DIAG_VEGTILE_FILL (swet3,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1187 |
TURBIO |
call DIAG_VEGTILE_FILL (capacity,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
118 |
TURBIO |
_RL tcanopy(nchp),tdeep(nchp),ecanopy(nchp),swetshal(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
1191 |
TURBIO |
call DIAG_VEGTILE_FILL (snowdepth,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
119 |
TURBIO |
_RL swetroot(nchp),swetdeep(nchp),snodep(nchp),capac(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
120 |
TURBIO |
_RL chfr(nchp),chlt(nchp),chlon(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
121 |
TURBIO |
integer igrd(nchp),ityp(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
123 |
TURBIO |
_RL alai(nchp),agrn(nchp),thkz(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
1241 |
TURBIO |
call MSC2GRD(igrd,chfr,dumsc(1,L),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1243 |
TURBIO |
call MSC2GRD(igrd,chfr,dvmsc(1,L),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1245 |
TURBIO |
call MSC2GRD(igrd,chfr,dtmsc(1,L),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1248 |
TURBIO |
call MSC2GRD(igrd,chfr,dqmsc(1,L,nt),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1251 |
TURBIO |
call MSC2GRD(igrd,chfr, tke(1,L),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1254 |
TURBIO |
call MSC2GRD(igrd,chfr, fccmsc(1,L),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1256 |
TURBIO |
call MSC2GRD(igrd,chfr,qliqmsc(1,L),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1309 |
TURBIO |
call MSC2GRD(igrd,chfr,tground ,nchp,nchptot,fracland,tgz ,im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
172 |
TURBIO |
_RL alwcoeff(nchp),blwcoeff(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
173 |
TURBIO |
_RL netsw(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
174 |
TURBIO |
_RL cnvprec(nchp),lsprec(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
175 |
TURBIO |
_RL snowprec(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
176 |
TURBIO |
_RL pardiff(nchp),pardirct(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
177 |
TURBIO |
_RL pmsc(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
178 |
TURBIO |
_RL netlw(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
179 |
TURBIO |
_RL sqscat(nchp), rsoil1(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
180 |
TURBIO |
_RL rsoil2(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
181 |
TURBIO |
_RL rdc(nchp),u2fac(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
182 |
TURBIO |
_RL z2ch(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
183 |
TURBIO |
_RL zoch(nchp),cdrc(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
184 |
TURBIO |
_RL cdsc(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
185 |
TURBIO |
_RL dqsdt(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
186 |
TURBIO |
_RL tground(nchp),qground(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
187 |
TURBIO |
_RL utility(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
188 |
TURBIO |
_RL qice(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
189 |
TURBIO |
_RL dqice(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
191 |
TURBIO |
_RL dumsc(nchp,nlay),dvmsc(nchp,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
192 |
TURBIO |
_RL dtmsc(nchp,nlay),dqmsc(nchp,nlay,ntracers) |
|
./pkg/fizhi/fizhi_turb.F |
194 |
TURBIO |
_RL shg(nchp),z0(nchp),icethk(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
195 |
TURBIO |
integer water(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
248 |
TURBIO |
_RL qliqmsc(nchp,nlay),fccmsc(nchp,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
253 |
TURBIO |
_RL qdiaglsm(nchp,ndlsm) |
|
./pkg/fizhi/fizhi_turb.F |
376 |
TURBIO |
call GRD2MSC(pz(1,1),im,jm,igrd,pmsc,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
378 |
TURBIO |
call GRD2MSC(tgz,im,jm,igrd,tground,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
383 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,alwcoeff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
387 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,blwcoeff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
391 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,pardiff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
395 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,pardirct,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
399 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,netsw,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
403 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,netlw,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
404 |
TURBIO |
call GRD2MSC(thkz,im,jm,igrd,icethk,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
405 |
TURBIO |
call GRD2MSC(rainlsp,im,jm,igrd,lsprec,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
406 |
TURBIO |
call GRD2MSC(rainconv,im,jm,igrd,cnvprec,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
407 |
TURBIO |
call GRD2MSC(snowfall,im,jm,igrd,snowprec,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
411 |
TURBIO |
call CHPPRM(nymd,nhms,nchp,nchplnd,chlt,ityp,alai, |
|
./pkg/fizhi/fizhi_turb.F |
482 |
TURBIO |
call MSC2GRD (igrd,chfr,qice,nchp,nchptot,fracland,tmpdiag,im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
492 |
TURBIO |
call STRIP2TILE(uz,igrd,u,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
493 |
TURBIO |
call STRIP2TILE(vz,igrd,v,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
494 |
TURBIO |
call STRIP2TILE(tz,igrd,th,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
495 |
TURBIO |
call STRIP2TILE(qz(1,1,1,1),igrd,sh,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
496 |
TURBIO |
call STRIP2TILE(dpres,igrd,dpstr,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
497 |
TURBIO |
call STRIP2TILE(plz,igrd,p,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
498 |
TURBIO |
call STRIP2TILE(plze,igrd,pe,nchp,ijall,istrip,nlay+1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
499 |
TURBIO |
call STRIP2TILE(pkz,igrd,pk,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
500 |
TURBIO |
call STRIP2TILE(pkht,igrd,pke,nchp,ijall,istrip,nlay+1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
506 |
TURBIO |
call STRIPIT (z0,stz0,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
507 |
TURBIO |
call STRIPIT (tground,th(1,nlay+1),nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
508 |
TURBIO |
call STRIPIT (pmsc,pe(1,nlay+1),nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
509 |
TURBIO |
call STRIPIT (tke,qq,nchptot,nchp,istrip,nlay-1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
510 |
TURBIO |
call STRIPIT (ctmt,ctsave,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
511 |
TURBIO |
call STRIPIT (xxmt,xxsave,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
512 |
TURBIO |
call STRIPIT (yymt,yysave,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
513 |
TURBIO |
call STRIPIT (zetamt,zetasave,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
514 |
TURBIO |
call STRIPIT (xlmt,xlsave,nchptot,nchp,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
515 |
TURBIO |
call STRIPIT (khmt,khsave,nchptot,nchp,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
516 |
TURBIO |
call STRIPITINT (water,stwatr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
518 |
TURBIO |
call STRIPITINT (igrd,igrdstr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
519 |
TURBIO |
call STRIPIT (chfr,chfrstr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
520 |
TURBIO |
call STRIPIT (icethk,icest,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
521 |
TURBIO |
call STRIPIT (pardiff,pardf,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
522 |
TURBIO |
call STRIPIT (pardirct,pardr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
523 |
TURBIO |
call STRIPIT (chlt,lats,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
524 |
TURBIO |
call STRIPIT (chlon,lons,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
525 |
TURBIO |
call STRIPIT (lsprec,rainls,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
526 |
TURBIO |
call STRIPIT (cnvprec,raincon,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
527 |
TURBIO |
call STRIPIT (snowprec,newsnow,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
528 |
TURBIO |
call STRIPIT (netsw,swnet,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
529 |
TURBIO |
call STRIPIT (netlw,lwstrip,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
530 |
TURBIO |
call STRIPIT (alwcoeff,alwrad,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
531 |
TURBIO |
call STRIPIT (blwcoeff,blwrad,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
532 |
TURBIO |
call STRIPIT (alai,laistrip,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
533 |
TURBIO |
call STRIPIT (agrn,grnstrip,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
534 |
TURBIO |
call STRIPIT (z2ch,z2str,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
535 |
TURBIO |
call STRIPIT (sqscat,scatstr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
536 |
TURBIO |
call STRIPIT (rsoil1,rs1str,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
537 |
TURBIO |
call STRIPIT (rsoil2,rs2str,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
538 |
TURBIO |
call STRIPIT (rdc,rdcstr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
539 |
TURBIO |
call STRIPIT (u2fac,u2fstr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
540 |
TURBIO |
call STRIPIT (shg,shgstr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
541 |
TURBIO |
call STRIPIT (dqsdt,dqsdtstr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
542 |
TURBIO |
call STRIPIT ( qice, qicestr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
543 |
TURBIO |
call STRIPIT (dqice,dqicestr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
544 |
TURBIO |
call STRIPITINT (ityp,types,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
546 |
TURBIO |
call STRIPIT (tground,tc,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
547 |
TURBIO |
call STRIPIT (tdeep,td,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
548 |
TURBIO |
call STRIPIT (qground,qa,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
549 |
TURBIO |
call STRIPIT (swetshal,swet1,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
550 |
TURBIO |
call STRIPIT (swetroot,swet2,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
551 |
TURBIO |
call STRIPIT (swetdeep,swet3,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
552 |
TURBIO |
call STRIPIT (snodep,snowdepth,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
553 |
TURBIO |
call STRIPIT (capac,capacity,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
589 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
639 |
TURBIO |
call DIAG_VEGTILE_FILL (stdiag,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
654 |
TURBIO |
call PASTIT (qq,tke,istrip,nchp,nchptot,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
655 |
TURBIO |
call PASTIT (ctsave,ctmt,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
656 |
TURBIO |
call PASTIT (xxsave,xxmt,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
657 |
TURBIO |
call PASTIT (yysave,yymt,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
658 |
TURBIO |
call PASTIT (zetasave,zetamt,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
659 |
TURBIO |
call PASTIT (xlsave,xlmt,istrip,nchp,nchptot,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
660 |
TURBIO |
call PASTIT (khsave,khmt,istrip,nchp,nchptot,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
662 |
TURBIO |
call PASTIT (qliq ,qliqmsc,istrip,nchp,nchptot,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
663 |
TURBIO |
call PASTIT (turbfcc,fccmsc,istrip,nchp,nchptot,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
729 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
736 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
743 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
747 |
TURBIO |
call DIAG_VEGTILE_FILL (grnstrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
751 |
TURBIO |
call DIAG_VEGTILE_FILL (laistrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
755 |
TURBIO |
call DIAG_VEGTILE_FILL (pardr,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
759 |
TURBIO |
call DIAG_VEGTILE_FILL (pardf,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
763 |
TURBIO |
call DIAG_VEGTILE_FILL (blwrad,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
767 |
TURBIO |
call DIAG_VEGTILE_FILL (dhsdtc,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
771 |
TURBIO |
call DIAG_VEGTILE_FILL (dedtc,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
775 |
TURBIO |
call DIAG_VEGTILE_FILL (dhsdqa,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
779 |
TURBIO |
call DIAG_VEGTILE_FILL (dedqa,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
783 |
TURBIO |
call DIAG_VEGTILE_FILL (hlwdwn,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
820 |
TURBIO |
call DIAG_VEGTILE_FILL (runoff,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
824 |
TURBIO |
call DIAG_VEGTILE_FILL (fwsoil,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
828 |
TURBIO |
call DIAG_VEGTILE_FILL (gdrain,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
832 |
TURBIO |
call DIAG_VEGTILE_FILL (smelt,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
836 |
TURBIO |
call DIAG_VEGTILE_FILL (eveg,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
840 |
TURBIO |
call DIAG_VEGTILE_FILL (esno,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
844 |
TURBIO |
call DIAG_VEGTILE_FILL (esoi,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
848 |
TURBIO |
call DIAG_VEGTILE_FILL (eint,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
852 |
TURBIO |
call DIAG_VEGTILE_FILL (evpot,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
856 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg1,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
860 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg2,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
864 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg3,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
868 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg4,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
872 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg5,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
876 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg6,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
880 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg7,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
884 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg8,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
890 |
TURBIO |
call PSTBITINT(types,qdiaglsm(1,1),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
891 |
TURBIO |
call PSTBMPIT(chfrstr,qdiaglsm(1,2),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
892 |
TURBIO |
call PSTBMPIT(lats,qdiaglsm(1,3),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
893 |
TURBIO |
call PSTBMPIT(lons,qdiaglsm(1,4),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
895 |
TURBIO |
call PSTBMPIT(tc,qdiaglsm(1,6),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
896 |
TURBIO |
call PSTBMPIT(td,qdiaglsm(1,7),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
897 |
TURBIO |
call PSTBMPIT(qa,qdiaglsm(1,8),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
898 |
TURBIO |
call PSTBMPIT(swet1,qdiaglsm(1,9),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
899 |
TURBIO |
call PSTBMPIT(swet2,qdiaglsm(1,10),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
900 |
TURBIO |
call PSTBMPIT(swet3,qdiaglsm(1,11),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
901 |
TURBIO |
call PSTBMPIT(capacity,qdiaglsm(1,12),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
902 |
TURBIO |
call PSTBMPIT(snowdepth,qdiaglsm(1,13),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
903 |
TURBIO |
call PSTBMPIT(eturb,qdiaglsm(1,14),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
904 |
TURBIO |
call PSTBMPIT(hsturb,qdiaglsm(1,15),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
905 |
TURBIO |
call PSTBMPIT(cd,qdiaglsm(1,16),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
906 |
TURBIO |
call PSTBMPIT(laistrip,qdiaglsm(1,17),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
907 |
TURBIO |
call PSTBMPIT(grnstrip,qdiaglsm(1,18),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
908 |
TURBIO |
call PSTBMPIT(eint,qdiaglsm(1,19),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
909 |
TURBIO |
call PSTBMPIT(esoi,qdiaglsm(1,20),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
910 |
TURBIO |
call PSTBMPIT(eveg,qdiaglsm(1,21),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
911 |
TURBIO |
call PSTBMPIT(esno,qdiaglsm(1,22),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
912 |
TURBIO |
call PSTBMPIT(strdg1,qdiaglsm(1,23),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
913 |
TURBIO |
call PSTBMPIT(strdg2,qdiaglsm(1,24),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
914 |
TURBIO |
call PSTBMPIT(strdg3,qdiaglsm(1,25),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
915 |
TURBIO |
call PSTBMPIT(strdg4,qdiaglsm(1,26),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
916 |
TURBIO |
call PSTBMPIT(strdg5,qdiaglsm(1,27),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
917 |
TURBIO |
call PSTBMPIT(strdg6,qdiaglsm(1,28),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
918 |
TURBIO |
call PSTBMPIT(strdg7,qdiaglsm(1,29),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
919 |
TURBIO |
call PSTBMPIT(strdg8,qdiaglsm(1,30),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
920 |
TURBIO |
call PSTBMPIT(strdg9,qdiaglsm(1,31),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
921 |
TURBIO |
call PSTBMPIT(smelt,qdiaglsm(1,32),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
922 |
TURBIO |
call PSTBMPIT(gdrain,qdiaglsm(1,33),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
923 |
TURBIO |
call PSTBMPIT(runsrf,qdiaglsm(1,34),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
924 |
TURBIO |
call PSTBMPIT(fwsoil,qdiaglsm(1,35),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
925 |
TURBIO |
call PSTBMPIT(evpot,qdiaglsm(1,36),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
926 |
TURBIO |
call PSTBMPIT(stt2m,qdiaglsm(1,37),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
927 |
TURBIO |
call PSTBMPIT(stq2m,qdiaglsm(1,38),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
930 |
TURBIO |
call PASTIT (tc,tground,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
931 |
TURBIO |
call PASTIT (td,tdeep,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
932 |
TURBIO |
call PASTIT (qa,qground,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
933 |
TURBIO |
call PASTIT (swet1,swetshal,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
934 |
TURBIO |
call PASTIT (swet2,swetroot,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
935 |
TURBIO |
call PASTIT (swet3,swetdeep,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
936 |
TURBIO |
call PASTIT (capacity,capac,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
937 |
TURBIO |
call PASTIT (snowdepth,snodep,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
971 |
TURBIO |
call STRIP2TILE(uz(1,1,l),igrd,tmpstrip,nchp,ijall, |
|
./pkg/fizhi/fizhi_turb.F |
976 |
TURBIO |
call PASTIT (tends,dumsc(1,l),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
978 |
TURBIO |
call STRIP2TILE(vz(1,1,l),igrd,tmpstrip,nchp,ijall, |
|
./pkg/fizhi/fizhi_turb.F |
983 |
TURBIO |
call PASTIT (tends,dvmsc(1,l),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
985 |
TURBIO |
call STRIP2TILE(tz(1,1,l),igrd,tmpstrip,nchp,ijall, |
|
./pkg/fizhi/fizhi_turb.F |
991 |
TURBIO |
call PASTIT (tends,dtmsc(1,l),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
993 |
TURBIO |
call STRIP2TILE(qz(1,1,l,1),igrd,tmpstrip,nchp,ijall, |
|
./pkg/fizhi/fizhi_turb.F |
999 |
TURBIO |
call PASTIT (tends,dqmsc(1,l,1),istrip,nchp,nchptot,1,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 |
263 |
FIZHI_WRAPPER |
. nchp,nchptot,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
1003 |
GETEMISS |
call EMISSIVITY(snowdep(1,bi,bj),fraci,nchp,nchptot,ityp(1,bi,bj), |
|
./pkg/fizhi/update_earth_exports.F |
1014 |
GETEMISS |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),emisstile(1,k),nchp, |
|
./pkg/fizhi/update_earth_exports.F |
1026 |
EMISSIVITY |
subroutine EMISSIVITY (snowdepth,fraci,nchp,numpts,ityp,newemis) |
|
./pkg/fizhi/update_earth_exports.F |
1028 |
EMISSIVITY |
integer nchp,numpts |
|
./pkg/fizhi/update_earth_exports.F |
1029 |
EMISSIVITY |
integer ityp(nchp) |
|
./pkg/fizhi/update_earth_exports.F |
102 |
UPDATE_EARTH_EXPORTS |
call GETALB(sec,month,day,cosz,snodep,fraci,fracl,im2,jm2,nchp, |
|
./pkg/fizhi/update_earth_exports.F |
1030 |
EMISSIVITY |
_RL snowdepth(nchp) |
|
./pkg/fizhi/update_earth_exports.F |
1031 |
EMISSIVITY |
_RL fraci(nchp) |
|
./pkg/fizhi/update_earth_exports.F |
1032 |
EMISSIVITY |
_RL newemis(nchp,10) |
|
./pkg/fizhi/update_earth_exports.F |
113 |
UPDATE_EARTH_EXPORTS |
call GRD2MSC(fraci,im2,jm2,igrd,ficetile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/update_earth_exports.F |
114 |
UPDATE_EARTH_EXPORTS |
call GETEMISS(fracl,im2,jm2,nchp,nchptot(bi,bj),nSx,nSy,bi,bj, |
|
./pkg/fizhi/update_earth_exports.F |
132 |
UPDATE_EARTH_EXPORTS |
& nchp,nchptot(bi,bj),fracl,tmpij,im2,jm2) |
|
./pkg/fizhi/update_earth_exports.F |
37 |
UPDATE_EARTH_EXPORTS |
_RL ficetile(nchp) |
|
./pkg/fizhi/update_earth_exports.F |
40 |
UPDATE_EARTH_EXPORTS |
_RL tmpchp(nchp) |
|
./pkg/fizhi/update_earth_exports.F |
813 |
GETALB |
& nchp,nchptot,nchpland,nSx,nSy,bi,bj,igrd,ityp,chfr,chlt, |
|
./pkg/fizhi/update_earth_exports.F |
854 |
GETALB |
integer sec,month,day,im,jm,nchp,nchptot,nchpland,nSx,nSy,bi,bj |
|
./pkg/fizhi/update_earth_exports.F |
856 |
GETALB |
_RL snodep(nchp,nSx,nSy),chfr(nchp,nSx,nSy),chlt(nchp,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
857 |
GETALB |
integer igrd(nchp,nSx,nSy),ityp(nchp,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
858 |
GETALB |
_RL alai(nchp,nSx,nSy),agrn(nchp,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
872 |
GETALB |
_RL AVISDR(nchp),ANIRDR(nchp),AVISDF(nchp) |
|
./pkg/fizhi/update_earth_exports.F |
873 |
GETALB |
_RL ANIRDF(nchp) |
|
./pkg/fizhi/update_earth_exports.F |
874 |
GETALB |
_RL zenith(nchp) |
|
./pkg/fizhi/update_earth_exports.F |
890 |
GETALB |
call GRD2MSC(cosz,im,jm,igrd,zenith,nchp,nchpland) |
|
./pkg/fizhi/update_earth_exports.F |
89 |
UPDATE_EARTH_EXPORTS |
& nchp,nSx,nSy,bi,bj,alai,agrn ) |
|
./pkg/fizhi/update_earth_exports.F |
904 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdr,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
917 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdf,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
929 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdr,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
941 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdf,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
952 |
GETEMISS |
subroutine GETEMISS(fracg,im,jm,nchp,nchptot,nSx,nSy,bi,bj, |
|
./pkg/fizhi/update_earth_exports.F |
983 |
GETEMISS |
integer im,jm,nchp,nchptot,nSx,nSy,bi,bj |
|
./pkg/fizhi/update_earth_exports.F |
985 |
GETEMISS |
_RL chfr(nchp,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
986 |
GETEMISS |
integer igrd(nchp,nSx,nSy), ityp(nchp,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
987 |
GETEMISS |
_RL snowdep(nchp,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
988 |
GETEMISS |
_RL fraci(nchp) |
|
./pkg/fizhi/update_earth_exports.F |
991 |
GETEMISS |
_RL emisstile(nchp,10) |
|
./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 |
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,igrd, |
|
./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 |
45 |
DO_FIZHI |
_RL ctmt(nchp,Nsxin,Nsyin),xxmt(nchp,Nsxin,Nsyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
46 |
DO_FIZHI |
_RL yymt(nchp,Nsxin,Nsyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
47 |
DO_FIZHI |
_RL zetamt(nchp,Nsxin,Nsyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
48 |
DO_FIZHI |
_RL xlmt(nchp,Nrphin,Nsxin,Nsyin),khmt(nchp,Nrphin,Nsxin,Nsyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
49 |
DO_FIZHI |
_RL tke(nchp,Nrphin,Nsxin,Nsyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
58 |
DO_FIZHI |
_RL chfr(nchp,Nsxin,Nsyin),alai(nchp,Nsxin,Nsyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
59 |
DO_FIZHI |
_RL agrn(nchp,Nsxin,Nsyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
60 |
DO_FIZHI |
integer ityp(nchp,Nsxin,Nsyin),igrd(nchp,Nsxin,Nsyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
61 |
DO_FIZHI |
_RL chlat(nchp,Nsxin,Nsyin),chlon(nchp,Nsxin,Nsyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
62 |
DO_FIZHI |
_RL tcanopy(nchp,Nsxin,Nsyin),tdeep(nchp,Nsxin,Nsyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
63 |
DO_FIZHI |
_RL ecanopy(nchp,Nsxin,Nsyin),swetshal(nchp,Nsxin,Nsyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
64 |
DO_FIZHI |
_RL swetroot(nchp,Nsxin,Nsyin),swetdeep(nchp,Nsxin,Nsyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
65 |
DO_FIZHI |
_RL snodep(nchp,Nsxin,Nsyin),capac(nchp,Nsxin,Nsyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
6 |
DO_FIZHI |
. nchp,nchptot,nchpland, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
78 |
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 |
231 |
FIZHI_INIT_VARS |
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,igrd, |