| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
809 |
GETALB |
. nchp,nchptot,nchpland,nSx,nSy,bi,bj,igrd,ityp,chfr,chlt, |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
850 |
GETALB |
integer sec,month,day,im,jm,nchp,nchptot,nchpland,nSx,nSy,bi,bj |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
886 |
GETALB |
call GRD2MSC(cosz,im,jm,igrd,zenith,nchp,nchpland) |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
88 |
UPDATE_EARTH_EXPORTS |
call GETLGR (sec,month,day,chlt,ityp,nchpland(bi,bj), |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
891 |
GETALB |
. agrn(1,bi,bj),zenith,snodep(1,bi,bj),ityp(1,bi,bj),nchpland) |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
900 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdr,nchp,nchpland, |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
913 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdf,nchp,nchpland, |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
925 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdr,nchp,nchpland, |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
937 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdf,nchp,nchpland, |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
99 |
UPDATE_EARTH_EXPORTS |
. nchptot(bi,bj),nchpland(bi,bj),nSx,nSy,bi,bj,igrd,ityp, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_veg.F |
105 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = 0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_veg.F |
109 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchpland(bi,bj) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_veg.F |
128 |
FIZHI_INIT_VEG |
print *,'Number of Land Tiles for bi=',bi,': ',nchpland(bi,bj) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_veg.F |
58 |
FIZHI_INIT_VEG |
integer nchptot(Nsx,Nsy),nchpland(Nsx,Nsy) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_veg.F |
7 |
FIZHI_INIT_VEG |
. maxtyp,nchp,nchptot,nchpland,lons,lats,surftype,tilefrac,igrd, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_fixed.F |
84 |
FIZHI_INIT_FIXED |
. nSx*nPx,nSy*nPy,maxtyp,nchp,nchptot,nchpland,lons,lats, |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
238 |
DO_FIZHI |
. chlon(1,bi,bj),igrd(1,bi,bj),nchptot(bi,bj),nchpland(bi,bj), |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
36 |
DO_FIZHI |
integer nchptot(Nsxin,Nsyin),nchpland(Nsxin,Nsyin) |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
6 |
DO_FIZHI |
. nchp,nchptot,nchpland, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
117 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
123 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = nchpland(bi,bj) + 1 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
124 |
FIZHI_INIT_VEG |
igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
125 |
FIZHI_INIT_VEG |
ityp (nchpland(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
126 |
FIZHI_INIT_VEG |
chfr (nchpland(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
127 |
FIZHI_INIT_VEG |
chlon(nchpland(bi,bj),bi,bj) = lons(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
128 |
FIZHI_INIT_VEG |
chlt (nchpland(bi,bj),bi,bj) = lats(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
136 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchpland(bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
155 |
FIZHI_INIT_VEG |
print *,'Number of Land Tiles for bi=',bi,': ',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,igrd, |
|
./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/do_fizhi.F |
36 |
DO_FIZHI |
integer nchptot(Nsxin,Nsyin),nchpland(Nsxin,Nsyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
6 |
DO_FIZHI |
. nchp,nchptot,nchpland, |
|
./pkg/fizhi/fizhi_driver.F |
203 |
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 |
9 |
FIZHI_DRIVER |
. nchp,chlat,chlon,igrd,nchptot,nchpland,chfr,ityp, |
|
./pkg/fizhi/update_earth_exports.F |
809 |
GETALB |
. nchp,nchptot,nchpland,nSx,nSy,bi,bj,igrd,ityp,chfr,chlt, |
|
./pkg/fizhi/update_earth_exports.F |
850 |
GETALB |
integer sec,month,day,im,jm,nchp,nchptot,nchpland,nSx,nSy,bi,bj |
|
./pkg/fizhi/update_earth_exports.F |
886 |
GETALB |
call GRD2MSC(cosz,im,jm,igrd,zenith,nchp,nchpland) |
|
./pkg/fizhi/update_earth_exports.F |
88 |
UPDATE_EARTH_EXPORTS |
call GETLGR (sec,month,day,chlt,ityp,nchpland(bi,bj), |
|
./pkg/fizhi/update_earth_exports.F |
891 |
GETALB |
. agrn(1,bi,bj),zenith,snodep(1,bi,bj),ityp(1,bi,bj),nchpland) |
|
./pkg/fizhi/update_earth_exports.F |
900 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdr,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
913 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdf,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
925 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdr,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
937 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdf,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
99 |
UPDATE_EARTH_EXPORTS |
. nchptot(bi,bj),nchpland(bi,bj),nSx,nSy,bi,bj,igrd,ityp, |
|
./pkg/fizhi/fizhi_init_veg.F |
147 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = 0 |
|
./pkg/fizhi/fizhi_init_veg.F |
153 |
FIZHI_INIT_VEG |
nchpland(bi,bj) = nchpland(bi,bj) + 1 |
|
./pkg/fizhi/fizhi_init_veg.F |
154 |
FIZHI_INIT_VEG |
igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im |
|
./pkg/fizhi/fizhi_init_veg.F |
155 |
FIZHI_INIT_VEG |
ityp (nchpland(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
156 |
FIZHI_INIT_VEG |
chfr (nchpland(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
157 |
FIZHI_INIT_VEG |
chlon(nchpland(bi,bj),bi,bj) = lons(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
158 |
FIZHI_INIT_VEG |
chlt (nchpland(bi,bj),bi,bj) = lats(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
166 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchpland(bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
185 |
FIZHI_INIT_VEG |
print *,'No of Land Tiles for bi=',bi,': ',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_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 |
85 |
FIZHI_INIT_FIXED |
. nSx*nPx,nSy*nPy,maxtyp,nchp,nchptot,nchpland,lons,lats, |
|
./pkg/fizhi/fizhi_wrapper.F |
139 |
FIZHI_WRAPPER |
. nchp,nchptot,nchpland, |
|
./pkg/fizhi/do_fizhi.F |
237 |
DO_FIZHI |
. chlon(1,bi,bj),igrd(1,bi,bj),nchptot(bi,bj),nchpland(bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
36 |
DO_FIZHI |
integer nchptot(Nsxin,Nsyin),nchpland(Nsxin,Nsyin) |
|
./pkg/fizhi/do_fizhi.F |
6 |
DO_FIZHI |
. nchp,nchptot,nchpland, |