13 |
common /earth_exports/ |
common /earth_exports/ |
14 |
. chfr, alai, agrn, |
. chfr, alai, agrn, |
15 |
. albvisdr, albvisdf, albnirdr, albnirdf, emiss, |
. albvisdr, albvisdf, albnirdr, albnirdf, emiss, |
16 |
. landtype, tgz, nchptot, nchpland, ityp |
. tgz, landtype, nchptot, nchpland, ityp |
|
integer nchptot(Nsx,Nsy),nchpland(Nsx,Nsy) |
|
|
integer ityp(nchp,Nsx,Nsy) |
|
|
integer landtype(sNx,sNy,Nsx,Nsy) |
|
17 |
_RL chfr(nchp,Nsx,Nsy) |
_RL chfr(nchp,Nsx,Nsy) |
18 |
_RL alai(nchp,Nsx,Nsy) |
_RL alai(nchp,Nsx,Nsy) |
19 |
_RL agrn(nchp,Nsx,Nsy) |
_RL agrn(nchp,Nsx,Nsy) |
23 |
_RL albnirdf(sNx,sNy,Nsx,Nsy) |
_RL albnirdf(sNx,sNy,Nsx,Nsy) |
24 |
_RL emiss(sNx,sNy,10,Nsx,Nsy) |
_RL emiss(sNx,sNy,10,Nsx,Nsy) |
25 |
_RL tgz(sNx,sNy,Nsx,Nsy) |
_RL tgz(sNx,sNy,Nsx,Nsy) |
26 |
|
integer landtype(sNx,sNy,Nsx,Nsy) |
27 |
|
integer nchptot(Nsx,Nsy),nchpland(Nsx,Nsy) |
28 |
|
integer ityp(nchp,Nsx,Nsy) |