subroutine __module_sf_noahmplsm_f90__::stomata |
( |
type (noahmp_parameters), intent(in) | parameters, |
|
|
integer, intent(in) | vegtyp, |
|
|
real (kind=kind_phys), intent(in) | mpe, |
|
|
real (kind=kind_phys), intent(in) | apar, |
|
|
real (kind=kind_phys), intent(in) | foln, |
|
|
integer, intent(in) | iloc, |
|
|
integer, intent(in) | jloc, |
|
|
real (kind=kind_phys), intent(in) | tv, |
|
|
real (kind=kind_phys), intent(in) | ei, |
|
|
real (kind=kind_phys), intent(in) | ea, |
|
|
real (kind=kind_phys), intent(in) | sfctmp, |
|
|
real (kind=kind_phys), intent(in) | sfcprs, |
|
|
real (kind=kind_phys), intent(in) | o2, |
|
|
real (kind=kind_phys), intent(in) | co2, |
|
|
real (kind=kind_phys), intent(in) | igs, |
|
|
real (kind=kind_phys), intent(in) | btran, |
|
|
real (kind=kind_phys), intent(in) | rb, |
|
|
real (kind=kind_phys), intent(out) | rs, |
|
|
real (kind=kind_phys), intent(out) | psn ) |
|
private |