| subroutine, private module_sf_noahmplsm::twostream |
( |
type (noahmp_parameters), intent(in) |
parameters, |
|
|
integer, intent(in) |
ib, |
|
|
integer, intent(in) |
ic, |
|
|
integer, intent(in) |
vegtyp, |
|
|
real (kind=kind_phys), intent(in) |
cosz, |
|
|
real (kind=kind_phys), intent(in) |
vai, |
|
|
real (kind=kind_phys), intent(in) |
fwet, |
|
|
real (kind=kind_phys), intent(in) |
t, |
|
|
real (kind=kind_phys), dimension(1:2), intent(in) |
albgrd, |
|
|
real (kind=kind_phys), dimension(1:2), intent(in) |
albgri, |
|
|
real (kind=kind_phys), dimension(1:2), intent(in) |
rho, |
|
|
real (kind=kind_phys), dimension(1:2), intent(in) |
tau, |
|
|
real (kind=kind_phys), intent(in) |
fveg, |
|
|
integer, intent(in) |
ist, |
|
|
integer, intent(in) |
iloc, |
|
|
integer, intent(in) |
jloc, |
|
|
real (kind=kind_phys), dimension(1:2), intent(out) |
fab, |
|
|
real (kind=kind_phys), dimension(1:2), intent(out) |
fre, |
|
|
real (kind=kind_phys), dimension(1:2), intent(out) |
ftd, |
|
|
real (kind=kind_phys), dimension(1:2), intent(out) |
fti, |
|
|
real (kind=kind_phys), intent(out) |
gdir, |
|
|
real (kind=kind_phys), dimension(1:2), intent(out) |
frev, |
|
|
real (kind=kind_phys), dimension(1:2), intent(out) |
freg, |
|
|
real (kind=kind_phys), intent(inout) |
bgap, |
|
|
real (kind=kind_phys), intent(inout) |
wgap |
|
) |
| |
|
private |
1.9.4