subroutine, private noahmp_glacier_routines::radiation_glacier |
( |
real (kind=kind_phys), intent(in) |
dt, |
|
|
real (kind=kind_phys), intent(in) |
tg, |
|
|
real (kind=kind_phys), intent(in) |
sneqvo, |
|
|
real (kind=kind_phys), intent(in) |
sneqv, |
|
|
real (kind=kind_phys), intent(in) |
cosz, |
|
|
real (kind=kind_phys), intent(in) |
qsnow, |
|
|
real (kind=kind_phys), dimension(1:2), intent(in) |
solad, |
|
|
real (kind=kind_phys), dimension(1:2), intent(in) |
solai, |
|
|
real (kind=kind_phys), intent(inout) |
albold, |
|
|
real (kind=kind_phys), intent(inout) |
tauss, |
|
|
real (kind=kind_phys), intent(out) |
sag, |
|
|
real (kind=kind_phys), intent(out) |
fsr, |
|
|
real (kind=kind_phys), intent(out) |
fsa, |
|
|
real (kind=kind_phys), dimension(1:2) |
albsnd, |
|
|
real (kind=kind_phys), dimension(1:2) |
albsni |
|
) |
| |
|
private |