subroutine, private noahmp_glacier_routines::water_glacier |
( |
integer, intent(in) | nsnow, |
|
|
integer, intent(in) | nsoil, |
|
|
integer, dimension(-nsnow+1:0), intent(in) | imelt, |
|
|
real (kind=kind_phys), intent(in) | dt, |
|
|
real (kind=kind_phys), intent(in) | prcp, |
|
|
real (kind=kind_phys), intent(in) | sfctmp, |
|
|
real (kind=kind_phys), intent(inout) | qvap, |
|
|
real (kind=kind_phys), intent(inout) | qdew, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(in) | ficeold, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(in) | zsoil, |
|
|
integer, intent(inout) | isnow, |
|
|
real (kind=kind_phys), intent(inout) | snowh, |
|
|
real (kind=kind_phys), intent(inout) | sneqv, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(inout) | snice, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(inout) | snliq, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) | stc, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) | dzsnso, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(inout) | sh2o, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(inout) | sice, |
|
|
real (kind=kind_phys), intent(inout) | ponding, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) | zsnso, |
|
|
real (kind=kind_phys), intent(inout) | fsh, |
|
|
real (kind=kind_phys), intent(out) | runsrf, |
|
|
real (kind=kind_phys), intent(out) | runsub, |
|
|
real (kind=kind_phys), intent(out) | qsnow, |
|
|
real (kind=kind_phys), intent(out) | ponding1, |
|
|
real (kind=kind_phys), intent(out) | ponding2, |
|
|
real (kind=kind_phys), intent(out) | qsnbot, |
|
|
real (kind=kind_phys), intent(out) | fpice, |
|
|
real (kind=kind_phys), intent(out) | esnow ) |
|
private |