subroutine qcbyfc |
( |
real (kind=kind_io8), dimension(len) |
tsffcs, |
|
|
real (kind=kind_io8), dimension(len) |
snofcs, |
|
|
real (kind=kind_io8) |
qctsfs, |
|
|
real (kind=kind_io8) |
qcsnos, |
|
|
real (kind=kind_io8) |
qctsfi, |
|
|
integer |
len, |
|
|
integer |
lsoil, |
|
|
real (kind=kind_io8), dimension(len) |
snoanl, |
|
|
real (kind=kind_io8), dimension(len) |
aisanl, |
|
|
real (kind=kind_io8), dimension(len) |
slianl, |
|
|
real (kind=kind_io8), dimension(len) |
tsfanl, |
|
|
real (kind=kind_io8), dimension(len,4) |
albanl, |
|
|
real (kind=kind_io8), dimension(len) |
zoranl, |
|
|
real (kind=kind_io8), dimension(len,lsoil) |
smcanl, |
|
|
real (kind=kind_io8), dimension(len,lsoil) |
smcclm, |
|
|
real (kind=kind_io8) |
tsfsmx, |
|
|
real (kind=kind_io8) |
albomx, |
|
|
real (kind=kind_io8) |
zoromx, |
|
|
integer |
me |
|
) |
| |