File |
Line number |
Procedure |
Code |
./pkg/fizhi/do_fizhi.F |
243 |
DO_FIZHI |
& chlon(1,bi,bj),igrd(1,bi,bj),nchptot(bi,bj),nchpland(bi,bj), |
./pkg/fizhi/do_fizhi.F |
37 |
DO_FIZHI |
INTEGER nchptot(nSxIn,nSyIn),nchpland(nSxIn,nSyIn) |
./pkg/fizhi/do_fizhi.F |
6 |
DO_FIZHI |
& turbStart, nchp,nchptot,nchpland, |
./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 |
9 |
FIZHI_DRIVER |
& nchp,chlat,chlon,igrd,nchptot,nchpland,chfr,ityp, |
./pkg/fizhi/fizhi_earth_coms.h |
16 |
NO PROCEDURE |
. tgz, landtype, nchptot, nchpland, ityp |
./pkg/fizhi/fizhi_earth_coms.h |
27 |
NO PROCEDURE |
integer nchptot(Nsx,Nsy),nchpland(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_veg.F |
164 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = 0 |
./pkg/fizhi/fizhi_init_veg.F |
170 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = nchpland(bi,bj) + 1 |
./pkg/fizhi/fizhi_init_veg.F |
171 |
FIZHI_INIT_VEG |
igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im |
./pkg/fizhi/fizhi_init_veg.F |
172 |
FIZHI_INIT_VEG |
ityp (nchpland(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
./pkg/fizhi/fizhi_init_veg.F |
173 |
FIZHI_INIT_VEG |
chfr (nchpland(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
./pkg/fizhi/fizhi_init_veg.F |
174 |
FIZHI_INIT_VEG |
chlon(nchpland(bi,bj),bi,bj) = lons(i,j,bi,bj) |
./pkg/fizhi/fizhi_init_veg.F |
175 |
FIZHI_INIT_VEG |
chlt (nchpland(bi,bj),bi,bj) = lats(i,j,bi,bj) |
./pkg/fizhi/fizhi_init_veg.F |
182 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchpland(bi,bj) |
./pkg/fizhi/fizhi_init_veg.F |
200 |
FIZHI_INIT_VEG |
& ', bj=', bj, ', # of Land Tiles=', nchpland(bi,bj), |
./pkg/fizhi/fizhi_init_veg.F |
58 |
FIZHI_INIT_VEG |
INTEGER nchptot(nSx,nSy), nchpland(nSx,nSy) |
./pkg/fizhi/fizhi_init_veg.F |
7 |
FIZHI_INIT_VEG |
& maxtyp,nchp,nchptot,nchpland,lons,lats,surftype,tilefrac, |
./pkg/fizhi/fizhi_wrapper.F |
264 |
FIZHI_WRAPPER |
& turbStart(bi,bj), nchp,nchptot,nchpland, |
./pkg/fizhi/update_earth_exports.F |
100 |
UPDATE_EARTH_EXPORTS |
call GETLGR (sec,month,day,chlt,ityp,nchpland(bi,bj), |
./pkg/fizhi/update_earth_exports.F |
115 |
UPDATE_EARTH_EXPORTS |
& nchptot(bi,bj),nchpland(bi,bj),nSx,nSy,bi,bj,igrd,ityp, |
./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 |
899 |
GETALB |
call GRD2MSC(cosz,im,jm,igrd(1,bi,bj),zenith,nchp,nchpland) |
./pkg/fizhi/update_earth_exports.F |
904 |
GETALB |
& agrn(1,bi,bj),zenith,snodep(1,bi,bj),ityp(1,bi,bj),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, |
./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 |
115 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = 0 |
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
118 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchpland(bi,bj) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
136 |
FIZHI_INIT_VEG |
& ', bj=', bj, ', # of Land Tiles=', nchpland(bi,bj), |
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
58 |
FIZHI_INIT_VEG |
INTEGER nchptot(nSx,nSy), nchpland(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-gridalt-hs/code/do_fizhi.F |
37 |
DO_FIZHI |
INTEGER nchptot(nSxin,nSyin),nchpland(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_veg.F |
128 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = 0 |
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
134 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = nchpland(bi,bj) + 1 |
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
135 |
FIZHI_INIT_VEG |
igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im |
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
136 |
FIZHI_INIT_VEG |
ityp (nchpland(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
137 |
FIZHI_INIT_VEG |
chfr (nchpland(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
138 |
FIZHI_INIT_VEG |
chlon(nchpland(bi,bj),bi,bj) = lons(i,j,bi,bj) |
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
139 |
FIZHI_INIT_VEG |
chlt (nchpland(bi,bj),bi,bj) = lats(i,j,bi,bj) |
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
146 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchpland(bi,bj) |
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
164 |
FIZHI_INIT_VEG |
& ', bj=', bj, ', # of Land Tiles=', nchpland(bi,bj), |
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
58 |
FIZHI_INIT_VEG |
INTEGER nchptot(nSx,nSy), nchpland(nSx,nSy) |
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
7 |
FIZHI_INIT_VEG |
& maxtyp,nchp,nchptot,nchpland,lons,lats,surftype,tilefrac, |