subroutine ice_soilfr |
( |
character(len=*), intent(in) |
HSNOW_ISBA, |
|
|
character(len=*), intent(in) |
HSOILFRZ, |
|
|
real, intent(in) |
PTSTEP, |
|
|
real, dimension(:), intent(in) |
PKSFC_IVEG, |
|
|
real, dimension(:), intent(in) |
PCG, |
|
|
real, dimension(:), intent(in) |
PCT, |
|
|
real, dimension(:), intent(in) |
PPSNG, |
|
|
real, dimension(:), intent(in) |
PFFG, |
|
|
real, dimension(:), intent(in) |
PTAUICE, |
|
|
real, dimension(:), intent(out) |
PDWGI1, |
|
|
real, dimension(:), intent(out) |
PDWGI2, |
|
|
real, dimension(:,:), intent(in) |
PWSATZ, |
|
|
real, dimension(:,:), intent(in) |
PMPOTSATZ, |
|
|
real, dimension(:,:), intent(in) |
PBCOEFZ, |
|
|
real, dimension(:,:), intent(in) |
PD_G, |
|
|
real, dimension(:,:), intent(inout) |
PTG, |
|
|
real, dimension(:,:), intent(inout) |
PWGI, |
|
|
real, dimension(:,:), intent(inout) |
PWG |
|
) |
| |