subroutine, private module_sf_noahmplsm::ragrb |
( |
type (noahmp_parameters), intent(in) |
parameters, |
|
|
integer, intent(in) |
iter, |
|
|
real (kind=kind_phys), intent(in) |
vai, |
|
|
real (kind=kind_phys), intent(in) |
rhoair, |
|
|
real (kind=kind_phys), intent(in) |
hg, |
|
|
real (kind=kind_phys), intent(in) |
tah, |
|
|
real (kind=kind_phys), intent(in) |
zpd, |
|
|
real (kind=kind_phys), intent(in) |
z0mg, |
|
|
real (kind=kind_phys), intent(in) |
z0hg, |
|
|
real (kind=kind_phys), intent(in) |
hcan, |
|
|
real (kind=kind_phys), intent(in) |
uc, |
|
|
real (kind=kind_phys), intent(in) |
z0h, |
|
|
real (kind=kind_phys), intent(in) |
fv, |
|
|
real (kind=kind_phys), intent(in) |
cwp, |
|
|
integer, intent(in) |
vegtyp, |
|
|
real (kind=kind_phys), intent(in) |
mpe, |
|
|
real (kind=kind_phys), intent(in) |
tv, |
|
|
real (kind=kind_phys), intent(inout) |
mozg, |
|
|
real (kind=kind_phys), intent(inout) |
fhg, |
|
|
real (kind=kind_phys), intent(inout) |
fhgh, |
|
|
integer, intent(in) |
iloc, |
|
|
integer, intent(in) |
jloc, |
|
|
real (kind=kind_phys) |
ramg, |
|
|
real (kind=kind_phys) |
rahg, |
|
|
real (kind=kind_phys) |
rawg, |
|
|
real (kind=kind_phys) |
rb |
|
) |
| |
|
private |