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