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 |