subroutine analy |
( |
integer |
lugb, |
|
|
integer |
iy, |
|
|
integer |
im, |
|
|
integer |
id, |
|
|
integer |
ih, |
|
|
real (kind=kind_io8) |
fh, |
|
|
integer |
len, |
|
|
integer |
lsoil, |
|
|
real (kind=kind_io8), dimension(len) |
slmask, |
|
|
character*500 |
fntsfa, |
|
|
character*500 |
fnweta, |
|
|
character*500 |
fnsnoa, |
|
|
character*500 |
fnzora, |
|
|
character*500 |
fnalba, |
|
|
character*500 |
fnaisa, |
|
|
character*500 |
fntg3a, |
|
|
character*500 |
fnscva, |
|
|
character*500 |
fnsmca, |
|
|
character*500 |
fnstca, |
|
|
character*500 |
fnacna, |
|
|
character*500 |
fnvega, |
|
|
character*500 |
fnveta, |
|
|
character*500 |
fnsota, |
|
|
|
fnvmna, |
|
|
|
fnvmxa, |
|
|
|
fnslpa, |
|
|
|
fnabsa, |
|
|
real (kind=kind_io8), dimension(len) |
tsfanl, |
|
|
real (kind=kind_io8), dimension(len) |
wetanl, |
|
|
real (kind=kind_io8), dimension(len) |
snoanl, |
|
|
real (kind=kind_io8), dimension(len) |
zoranl, |
|
|
real (kind=kind_io8), dimension(len,4) |
albanl, |
|
|
real (kind=kind_io8), dimension(len) |
aisanl, |
|
|
real (kind=kind_io8), dimension(len) |
tg3anl, |
|
|
real (kind=kind_io8), dimension (len) |
cvanl, |
|
|
real (kind=kind_io8), dimension(len) |
cvbanl, |
|
|
real (kind=kind_io8), dimension(len) |
cvtanl, |
|
|
real (kind=kind_io8), dimension(len,lsoil) |
smcanl, |
|
|
real (kind=kind_io8), dimension(len,lsoil) |
stcanl, |
|
|
real (kind=kind_io8), dimension(len) |
slianl, |
|
|
real (kind=kind_io8), dimension(len) |
scvanl, |
|
|
real (kind=kind_io8), dimension(len) |
acnanl, |
|
|
real (kind=kind_io8), dimension(len) |
veganl, |
|
|
real (kind=kind_io8), dimension(len) |
vetanl, |
|
|
real (kind=kind_io8), dimension(len) |
sotanl, |
|
|
real (kind=kind_io8), dimension(len,2) |
alfanl, |
|
|
real (kind=kind_io8), dimension(len) |
tsfan0, |
|
|
real (kind=kind_io8), dimension(len) |
vmnanl, |
|
|
real (kind=kind_io8), dimension(len) |
vmxanl, |
|
|
real (kind=kind_io8), dimension(len) |
slpanl, |
|
|
real (kind=kind_io8), dimension(len) |
absanl, |
|
|
integer |
kpdtsf, |
|
|
integer |
kpdwet, |
|
|
integer |
kpdsno, |
|
|
integer |
kpdsnd, |
|
|
integer |
kpdzor, |
|
|
integer, dimension(4) |
kpdalb, |
|
|
integer |
kpdais, |
|
|
integer |
kpdtg3, |
|
|
integer |
kpdscv, |
|
|
integer |
kpdacn, |
|
|
integer |
kpdsmc, |
|
|
integer |
kpdstc, |
|
|
integer |
kpdveg, |
|
|
integer |
kprvet, |
|
|
integer |
kpdsot, |
|
|
integer, dimension(2) |
kpdalf, |
|
|
integer |
kpdvmn, |
|
|
integer |
kpdvmx, |
|
|
integer |
kpdslp, |
|
|
integer |
kpdabs, |
|
|
integer |
irttsf, |
|
|
integer |
irtwet, |
|
|
integer |
irtsno, |
|
|
integer |
irtzor, |
|
|
integer |
irtalb, |
|
|
integer |
irtais, |
|
|
integer |
irttg3, |
|
|
integer |
irtscv, |
|
|
integer |
irtacn, |
|
|
integer |
irtsmc, |
|
|
integer |
irtstc, |
|
|
integer |
irtveg, |
|
|
integer |
irtvet, |
|
|
integer |
irtsot, |
|
|
integer |
irtalf, |
|
|
integer |
irtvmn, |
|
|
integer |
irtvmx, |
|
|
integer |
irtslp, |
|
|
integer |
irtabs, |
|
|
integer |
imsk, |
|
|
integer |
jmsk, |
|
|
real (kind=kind_io8), dimension(imsk,jmsk) |
slmskh, |
|
|
real (kind=kind_io8), dimension(len) |
outlat, |
|
|
real (kind=kind_io8), dimension(len) |
outlon, |
|
|
logical |
gaus, |
|
|
real (kind=kind_io8) |
blno, |
|
|
real (kind=kind_io8) |
blto, |
|
|
integer |
me, |
|
|
logical |
lanom |
|
) |
| |