subroutine, private noahmp_glacier_routines::rosr12_glacier |
( |
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) |
p, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) |
a, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) |
b, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) |
c, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) |
d, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) |
delta, |
|
|
integer, intent(in) |
ntop, |
|
|
integer, intent(in) |
nsoil, |
|
|
integer, intent(in) |
nsnow |
|
) |
| |
|
private |