| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_earth_coms.h |
6 |
NO PROCEDURE |
common /earth_state/ phis_var, tilefrac, surftype |
|
./pkg/fizhi/fizhi_earth_coms.h |
9 |
NO PROCEDURE |
integer surftype(sNx,sNy,maxtyp,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_init_fixed.F |
106 |
FIZHI_INIT_FIXED |
& surftype,tilefrac,igrd,ityp,chfr,chlt,chlon) |
|
./pkg/fizhi/fizhi_init_fixed.F |
112 |
FIZHI_INIT_FIXED |
& surftype,tilefrac,fracland(1,1,bi,bj)) |
|
./pkg/fizhi/fizhi_init_fixed.F |
115 |
FIZHI_INIT_FIXED |
landtype(i,j,bi,bj) = surftype(i,j,1,bi,bj) |
|
./pkg/fizhi/fizhi_init_fixed.F |
116 |
FIZHI_INIT_FIXED |
if(fracland(i,j,bi,bj).ge.0.3.and.surftype(i,j,1,bi,bj).ge.100) |
|
./pkg/fizhi/fizhi_init_fixed.F |
117 |
FIZHI_INIT_FIXED |
& landtype(i,j,bi,bj) = surftype(i,j,2,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
135 |
FIZHI_INIT_VEG |
surftype(i,j,k,bi,bj) = iveg_32(i,j,k,biglobal,bjglobal) |
|
./pkg/fizhi/fizhi_init_veg.F |
168 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).lt.100 .and. |
|
./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 |
186 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).ge.100 .and. |
|
./pkg/fizhi/fizhi_init_veg.F |
190 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
59 |
FIZHI_INIT_VEG |
INTEGER surftype(im,jm,maxtyp,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 |
95 |
FIZHI_INIT_VEGSURFTILES |
. surftype,tilefrac,fracland(1,1,bi,bj)) |
|
./pkg/fizhi/fizhi_wrapper.F |
230 |
FIZHI_WRAPPER |
& surftype,tilefrac,fracland(1,1,bi,bj)) |
|
./pkg/fizhi/update_earth_exports.F |
1221 |
GET_LANDFRAC |
SUBROUTINE GET_LANDFRAC(im,jm,nSx,nSy,bi,bj,maxtyp,surftype, |
|
./pkg/fizhi/update_earth_exports.F |
1231 |
GET_LANDFRAC |
INTEGER surftype(im,jm,maxtyp,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
1246 |
GET_LANDFRAC |
if( (surftype(i,j,k,bi,bj).lt.100.).and. |
|
./pkg/fizhi/update_earth_exports.F |
82 |
UPDATE_EARTH_EXPORTS |
call GET_LANDFRAC(im2,jm2,nSx,nSy,bi,bj,maxtyp,surftype,tilefrac, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
85 |
FIZHI_INIT_FIXED |
& surftype,tilefrac,igrd,ityp,chfr,chlt,chlon) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
91 |
FIZHI_INIT_FIXED |
& surftype,tilefrac,fracland(1,1,bi,bj)) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
94 |
FIZHI_INIT_FIXED |
landtype(i,j,bi,bj) = surftype(i,j,1,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
95 |
FIZHI_INIT_FIXED |
if(fracland(i,j,bi,bj).ge.0.3.and.surftype(i,j,1,bi,bj).ge.100) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
96 |
FIZHI_INIT_FIXED |
& landtype(i,j,bi,bj) = surftype(i,j,2,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
122 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).ge.100 .and. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
126 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
59 |
FIZHI_INIT_VEG |
INTEGER surftype(im,jm,maxtyp,nSx,nSy) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
77 |
FIZHI_INIT_VEG |
surftype(i,j,1,bi,bj) = 100 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
79 |
FIZHI_INIT_VEG |
surftype(i,j,2,bi,bj) = 100 |
|
./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_veg.F |
86 |
FIZHI_INIT_VEG |
surftype(i,j,k,bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
85 |
FIZHI_INIT_FIXED |
& surftype,tilefrac,igrd,ityp,chfr,chlt,chlon) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
91 |
FIZHI_INIT_FIXED |
& surftype,tilefrac,fracland(1,1,bi,bj)) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
94 |
FIZHI_INIT_FIXED |
landtype(i,j,bi,bj) = surftype(i,j,1,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
95 |
FIZHI_INIT_FIXED |
if(fracland(i,j,bi,bj).ge.0.3.and.surftype(i,j,1,bi,bj).ge.100) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
96 |
FIZHI_INIT_FIXED |
& landtype(i,j,bi,bj) = surftype(i,j,2,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
132 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).lt.100 .and. |
|
./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 |
150 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).ge.100 .and. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
154 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
59 |
FIZHI_INIT_VEG |
INTEGER surftype(im,jm,maxtyp,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
7 |
FIZHI_INIT_VEG |
& maxtyp,nchp,nchptot,nchpland,lons,lats,surftype,tilefrac, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
84 |
FIZHI_INIT_VEG |
surftype(i,j,1,bi,bj) = 1 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
86 |
FIZHI_INIT_VEG |
surftype(i,j,2,bi,bj) = 2 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
89 |
FIZHI_INIT_VEG |
surftype(i,j,1,bi,bj) = 100 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
91 |
FIZHI_INIT_VEG |
surftype(i,j,2,bi,bj) = 100 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
99 |
FIZHI_INIT_VEG |
surftype(i,j,k,bi,bj) = 0 |