subroutine, private noahmp_glacier_routines::hrt_glacier |
( |
integer, intent(in) | nsnow, |
|
|
integer, intent(in) | nsoil, |
|
|
integer, intent(in) | isnow, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) | zsnso, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) | stc, |
|
|
real (kind=kind_phys), intent(in) | tbot, |
|
|
real (kind=kind_phys), intent(in) | zbot, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) | df, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) | hcpct, |
|
|
real (kind=kind_phys), intent(in) | ssoil, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) | phi, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(out) | ai, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(out) | bi, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(out) | ci, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(out) | rhsts, |
|
|
real (kind=kind_phys), intent(out) | botflx ) |
|
private |