subroutine, private noahmp_glacier_routines::atm_glacier |
( |
real (kind=kind_phys), intent(in) |
sfcprs, |
|
|
real (kind=kind_phys), intent(in) |
sfctmp, |
|
|
real (kind=kind_phys), intent(in) |
q2, |
|
|
real (kind=kind_phys), intent(in) |
soldn, |
|
|
real (kind=kind_phys), intent(in) |
cosz, |
|
|
real (kind=kind_phys), intent(out) |
thair, |
|
|
real (kind=kind_phys), intent(out) |
qair, |
|
|
real (kind=kind_phys), intent(out) |
eair, |
|
|
real (kind=kind_phys), intent(out) |
rhoair, |
|
|
real (kind=kind_phys), dimension( 1: 2), intent(out) |
solad, |
|
|
real (kind=kind_phys), dimension( 1: 2), intent(out) |
solai, |
|
|
real (kind=kind_phys), intent(out) |
swdown |
|
) |
| |
|
private |