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