| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
100 |
FIZHI_INIT_VEGSURFTILES |
. tempgrid(i,j) = globalarr(i+bislot,j+bjslot,1) - 0.5 |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
103 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd,temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
110 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,3) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
111 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
112 |
FIZHI_INIT_VEGSURFTILES |
. tempgrid(i,j) = 0.01 |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
115 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd,temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
122 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,4) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
123 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
124 |
FIZHI_INIT_VEGSURFTILES |
. tempgrid(i,j) = 0.7 |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
127 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd,temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
134 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,5) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
135 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
136 |
FIZHI_INIT_VEGSURFTILES |
. tempgrid(i,j) = 0.5 |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
139 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd,temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
146 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,6) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
147 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
148 |
FIZHI_INIT_VEGSURFTILES |
. tempgrid(i,j) = 0.3 |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
151 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd,temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
158 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,7) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
159 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
160 |
FIZHI_INIT_VEGSURFTILES |
. tempgrid(i,j) = 0. |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
163 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd,temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
170 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,8) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
171 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
172 |
FIZHI_INIT_VEGSURFTILES |
. tempgrid(i,j) = 0. |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
175 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd,temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
48 |
FIZHI_INIT_VEGSURFTILES |
_RL tempgrid(sNx,sNy) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
88 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,1) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
91 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd,temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
98 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,2) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
99 |
FIZHI_INIT_VEGSURFTILES |
if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001) |