subroutine, private noahmp_glacier_routines::atm_glacier |
( |
real (kind=kind_phys), intent(in) | ep_2, |
|
|
real (kind=kind_phys), intent(in) | epsm1, |
|
|
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 |