|
C $Header$ |
|
|
C $Name$ |
|
|
|
|
1 |
c Land State Common |
c Land State Common |
2 |
c ----------------- |
c ----------------- |
3 |
common /land_state/ tcanopy, tdeep, ecanopy, |
common /land_state/ tcanopy, tdeep, ecanopy, |
4 |
. swetshal, swetroot, swetdeep, snodep, capac |
. swetshal, swetroot, swetdeep, snodep, capac |
5 |
_RL tcanopy(nchp), tdeep(nchp), ecanopy(nchp), swetshal(nchp) |
_RL tcanopy(nchp,Nsx,Nsy) |
6 |
_RL swetroot(nchp), swetdeep(nchp), snodep(nchp), capac(nchp) |
_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 |
c Land Mapping Common |
15 |
c ------------------- |
c ------------------- |
16 |
common /land_mapping/ chlt, chlon, igrd |
common /land_mapping/ chlt, chlon, igrd |
17 |
_RL chlt(nchp), chlon(nchp) |
_RL chlt(nchp,Nsx,Nsy) |
18 |
integer igrd(nchp) |
_RL chlon(nchp,Nsx,Nsy) |
19 |
|
integer igrd(nchp,Nsx,Nsy) |