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 ) |