subroutine lsm_ruc::rucinit |
( |
logical, intent(in) |
restart, |
|
|
integer, intent(in) |
im, |
|
|
integer, intent(in) |
lsoil_ruc, |
|
|
integer, intent(in) |
lsoil, |
|
|
integer, intent(in) |
nlev, |
|
|
integer, intent(in) |
isot, |
|
|
integer, dimension(im), intent(inout) |
soiltyp, |
|
|
integer, dimension(im), intent(inout) |
vegtype, |
|
|
real (kind=kind_phys), dimension(im), intent(inout) |
fice, |
|
|
logical, dimension(im), intent(in) |
land, |
|
|
real (kind=kind_phys), dimension(im), intent(in) |
tsurf, |
|
|
real (kind=kind_phys), dimension(im), intent(in) |
tsurf_ocn, |
|
|
real (kind=kind_phys), dimension(im), intent(in) |
tg3, |
|
|
real (kind=kind_phys), dimension(im,lsoil), intent(in) |
smc, |
|
|
real (kind=kind_phys), dimension(im,lsoil), intent(in) |
slc, |
|
|
real (kind=kind_phys), dimension(im,lsoil), intent(in) |
stc, |
|
|
real (kind=kind_phys), dimension(im), intent(inout) |
smcref2, |
|
|
real (kind=kind_phys), dimension(im), intent(inout) |
smcwlt2, |
|
|
integer, intent(in) |
lsm_ruc, |
|
|
integer, intent(in) |
lsm, |
|
|
real (kind=kind_phys), dimension(1:lsoil_ruc), intent(out) |
zs, |
|
|
real (kind=kind_phys), dimension(im,lsoil_ruc), intent(inout) |
sh2o, |
|
|
real (kind=kind_phys), dimension(im,lsoil_ruc), intent(inout) |
smfrkeep, |
|
|
real (kind=kind_phys), dimension(im,lsoil_ruc), intent(inout) |
tslb, |
|
|
real (kind=kind_phys), dimension(im,lsoil_ruc), intent(inout) |
smois, |
|
|
real (kind=kind_phys), dimension(im), intent(inout) |
wetness, |
|
|
integer, intent(in) |
me, |
|
|
integer, intent(in) |
master, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |
|
private |