subroutine __module_sf_noahmplsm_f90__::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 |