subroutine module_sf_ruclsm::soilvegin |
( |
logical, intent(in) |
debug_print, |
|
|
integer, intent(in) |
mosaic_lu, |
|
|
integer, intent(in) |
mosaic_soil, |
|
|
real (kind_phys), dimension( 1:nscat ), intent(in) |
soilfrac, |
|
|
integer, intent(in) |
nscat, |
|
|
real (kind_phys), intent(in) |
shdmin, |
|
|
real (kind_phys), intent(in) |
shdmax, |
|
|
integer, intent(in) |
NLCAT, |
|
|
integer |
IVGTYP, |
|
|
integer |
ISLTYP, |
|
|
integer, intent(in) |
iswater, |
|
|
logical, intent(in) |
MYJ, |
|
|
integer, intent(out) |
IFOREST, |
|
|
real (kind_phys), dimension( 1:nlcat ), intent(in) |
lufrac, |
|
|
real (kind_phys), intent(in) |
vegfrac, |
|
|
real (kind_phys), intent(inout) |
EMISS, |
|
|
real (kind_phys), intent(out) |
PC, |
|
|
real (kind_phys), intent(out) |
MSNF, |
|
|
real (kind_phys), intent(out) |
FACSNF, |
|
|
real (kind_phys), intent(inout) |
ZNT, |
|
|
real (kind_phys), intent(inout) |
LAI, |
|
|
logical, intent(in) |
RDLAI2D, |
|
|
real (kind_phys), intent(out) |
QWRTZ, |
|
|
real (kind_phys), intent(out) |
RHOCS, |
|
|
real (kind_phys), intent(out) |
BCLH, |
|
|
real (kind_phys), intent(out) |
DQM, |
|
|
real (kind_phys), intent(out) |
KSAT, |
|
|
real (kind_phys), intent(out) |
PSIS, |
|
|
real (kind_phys), intent(out) |
QMIN, |
|
|
real (kind_phys), intent(out) |
REF, |
|
|
real (kind_phys), intent(out) |
WILT, |
|
|
integer, intent(in) |
I, |
|
|
integer, intent(in) |
J, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |
|
private |