1 |
c Land State Common |
2 |
c ----------------- |
3 |
common /land_state/ tcanopy, tdeep, ecanopy, |
4 |
. swetshal, swetroot, swetdeep, snodep, capac |
5 |
_RL tcanopy(nchp,Nsx,Nsy) |
6 |
_RL tdeep(nchp,Nsx,Nsy) |
7 |
_RL ecanopy(nchp,Nsx,Nsy) |
8 |
_RL swetshal(nchp,Nsx,Nsy) |
9 |
_RL swetroot(nchp,Nsx,Nsy) |
10 |
_RL swetdeep(nchp,Nsx,Nsy) |
11 |
_RL snodep(nchp,Nsx,Nsy) |
12 |
_RL capac(nchp,Nsx,Nsy) |
13 |
|
14 |
c Land Mapping Common |
15 |
c ------------------- |
16 |
common /land_mapping/ chlt, chlon, igrd |
17 |
_RL chlt(nchp,Nsx,Nsy) |
18 |
_RL chlon(nchp,Nsx,Nsy) |
19 |
integer igrd(nchp,Nsx,Nsy) |