subroutine lsm_ruc::rucinit |
( |
logical, intent(in) |
lsm_cold_start, |
|
|
integer, intent(in) |
im, |
|
|
integer, intent(in) |
lsoil_ruc, |
|
|
integer, intent(in) |
lsoil, |
|
|
integer, intent(in) |
nlev, |
|
|
integer, intent(in) |
me, |
|
|
integer, intent(in) |
master, |
|
|
integer, intent(in) |
lsm_ruc, |
|
|
integer, intent(in) |
lsm, |
|
|
real (kind=kind_phys), dimension(im), intent(in) |
slmsk, |
|
|
integer, dimension(im), intent(in) |
stype, |
|
|
integer, dimension(im), intent(in) |
vtype, |
|
|
real (kind=kind_phys), dimension(im), intent(in) |
landfrac, |
|
|
real (kind=kind_phys), dimension(im), intent(in) |
fice, |
|
|
real (kind=kind_phys), intent(in) |
min_seaice, |
|
|
real (kind=kind_phys), dimension(im), intent(in) |
tskin_lnd, |
|
|
real (kind=kind_phys), dimension(im), intent(in) |
tskin_wat, |
|
|
real (kind=kind_phys), dimension(im), intent(in) |
tg3, |
|
|
real (kind=kind_phys), dimension(1:lsoil_ruc), intent(in) |
zs, |
|
|
real (kind=kind_phys), dimension(1:lsoil_ruc), intent(in) |
dzs, |
|
|
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,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, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |
|
private |