subroutine __module_sf_noahmplsm_f90__::canres |
( |
type (noahmp_parameters), intent(in) | parameters, |
|
|
real (kind=kind_phys), intent(in) | ep_2, |
|
|
real (kind=kind_phys), intent(in) | epsm1, |
|
|
real (kind=kind_phys), intent(in) | par, |
|
|
real (kind=kind_phys), intent(in) | sfctmp, |
|
|
real (kind=kind_phys), intent(in) | rcsoil, |
|
|
real (kind=kind_phys), intent(in) | eah, |
|
|
real (kind=kind_phys), intent(in) | sfcprs, |
|
|
real (kind=kind_phys), intent(out) | rc, |
|
|
real (kind=kind_phys), intent(out) | psn, |
|
|
integer, intent(in) | iloc, |
|
|
integer, intent(in) | jloc ) |
|
private |