16 |
. landtype, tgz, nchptot, nchpland, ityp |
. landtype, tgz, nchptot, nchpland, ityp |
17 |
integer nchptot,nchpland |
integer nchptot,nchpland |
18 |
integer ityp(nchp,Nsx,Nsy) |
integer ityp(nchp,Nsx,Nsy) |
19 |
|
integer landtype(sNx,sNy,Nsx,Nsy) |
20 |
_RL chfr(nchp,Nsx,Nsy) |
_RL chfr(nchp,Nsx,Nsy) |
21 |
_RL alai(nchp,Nsx,Nsy) |
_RL alai(nchp,Nsx,Nsy) |
22 |
_RL agrn(nchp,Nsx,Nsy) |
_RL agrn(nchp,Nsx,Nsy) |
25 |
_RL albnirdr(sNx,sNy,Nsx,Nsy) |
_RL albnirdr(sNx,sNy,Nsx,Nsy) |
26 |
_RL albnirdf(sNx,sNy,Nsx,Nsy) |
_RL albnirdf(sNx,sNy,Nsx,Nsy) |
27 |
_RL emiss(sNx,sNy,10,Nsx,Nsy) |
_RL emiss(sNx,sNy,10,Nsx,Nsy) |
|
_RL landtype(sNx,sNy,Nsx,Nsy) |
|
28 |
_RL tgz(sNx,sNy,Nsx,Nsy) |
_RL tgz(sNx,sNy,Nsx,Nsy) |