subroutine __module_sf_noahmplsm_f90__::phasechange |
( |
type (noahmp_parameters), intent(in) | parameters, |
|
|
integer, intent(in) | nsnow, |
|
|
integer, intent(in) | nsoil, |
|
|
integer, intent(in) | isnow, |
|
|
real (kind=kind_phys), intent(in) | dt, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) | fact, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) | dzsnso, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) | hcpct, |
|
|
integer, intent(in) | ist, |
|
|
integer, intent(in) | iloc, |
|
|
integer, intent(in) | jloc, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) | stc, |
|
|
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), intent(inout) | sneqv, |
|
|
real (kind=kind_phys), intent(inout) | snowh, |
|
|
| ifdef, |
|
|
| ccpp ) |
|
private |