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 |