subroutine, private module_sf_noahmplsm::albedo |
( |
type (noahmp_parameters), intent(in) |
parameters, |
|
|
integer, intent(in) |
vegtyp, |
|
|
integer, intent(in) |
ist, |
|
|
integer, intent(in) |
ice, |
|
|
integer, intent(in) |
nsoil, |
|
|
real (kind=kind_phys), intent(in) |
dt, |
|
|
real (kind=kind_phys), intent(in) |
cosz, |
|
|
real (kind=kind_phys) |
fage, |
|
|
real (kind=kind_phys), intent(in) |
elai, |
|
|
real (kind=kind_phys), intent(in) |
esai, |
|
|
real (kind=kind_phys), intent(in) |
tg, |
|
|
real (kind=kind_phys), intent(in) |
tv, |
|
|
real (kind=kind_phys), intent(in) |
snowh, |
|
|
real (kind=kind_phys), intent(in) |
fsno, |
|
|
real (kind=kind_phys), intent(in) |
fwet, |
|
|
real (kind=kind_phys), dimension(1:nsoil), intent(in) |
smc, |
|
|
real (kind=kind_phys), intent(in) |
sneqvo, |
|
|
real (kind=kind_phys), intent(in) |
sneqv, |
|
|
real (kind=kind_phys), intent(in) |
qsnow, |
|
|
real (kind=kind_phys), intent(in) |
fveg, |
|
|
integer, intent(in) |
iloc, |
|
|
integer, intent(in) |
jloc, |
|
|
real (kind=kind_phys), intent(inout) |
albold, |
|
|
real (kind=kind_phys), intent(inout) |
tauss, |
|
|
real (kind=kind_phys), dimension(1: 2), intent(out) |
albgrd, |
|
|
real (kind=kind_phys), dimension(1: 2), intent(out) |
albgri, |
|
|
real (kind=kind_phys), dimension(1: 2), intent(out) |
albd, |
|
|
real (kind=kind_phys), dimension(1: 2), intent(out) |
albi, |
|
|
real (kind=kind_phys), dimension(1: 2), intent(out) |
fabd, |
|
|
real (kind=kind_phys), dimension(1: 2), intent(out) |
fabi, |
|
|
real (kind=kind_phys), dimension(1: 2), intent(out) |
ftdd, |
|
|
real (kind=kind_phys), dimension(1: 2), intent(out) |
ftid, |
|
|
real (kind=kind_phys), dimension(1: 2), intent(out) |
ftii, |
|
|
real (kind=kind_phys), intent(out) |
fsun, |
|
|
real (kind=kind_phys), dimension(1: 2), intent(out) |
frevi, |
|
|
real (kind=kind_phys), dimension(1: 2), intent(out) |
frevd, |
|
|
real (kind=kind_phys), dimension(1: 2), intent(out) |
fregd, |
|
|
real (kind=kind_phys), dimension(1: 2), intent(out) |
fregi, |
|
|
real (kind=kind_phys), intent(out) |
bgap, |
|
|
real (kind=kind_phys), intent(out) |
wgap, |
|
|
real (kind=kind_phys), dimension(1:2) |
albsnd, |
|
|
real (kind=kind_phys), dimension(1:2) |
albsni |
|
) |
| |
|
private |