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_phys), dimension(im), intent(in) | slmsk, |
|
|
integer, dimension(im), intent(in) | stype, |
|
|
integer, dimension(im), intent(in) | vtype, |
|
|
real (kind_phys), dimension(im), intent(in) | landfrac, |
|
|
real (kind_phys), dimension(im), intent(in) | fice, |
|
|
real (kind_phys), intent(in) | min_seaice, |
|
|
real (kind_phys), dimension(im), intent(in) | tskin_lnd, |
|
|
real (kind_phys), dimension(im), intent(in) | tskin_wat, |
|
|
real (kind_phys), dimension(im), intent(in) | tg3, |
|
|
real (kind_phys), dimension(1:lsoil_ruc), intent(in) | zs, |
|
|
real (kind_phys), dimension(1:lsoil_ruc), intent(in) | dzs, |
|
|
real (kind_phys), dimension(im,lsoil), intent(in) | smc, |
|
|
real (kind_phys), dimension(im,lsoil), intent(in) | slc, |
|
|
real (kind_phys), dimension(im,lsoil), intent(in) | stc, |
|
|
real (kind_phys), dimension(im,lsoil_ruc), intent(inout) | sh2o, |
|
|
real (kind_phys), dimension(im,lsoil_ruc), intent(inout) | smfrkeep, |
|
|
real (kind_phys), dimension(im,lsoil_ruc), intent(inout) | tslb, |
|
|
real (kind_phys), dimension(im,lsoil_ruc), intent(inout) | smois, |
|
|
real (kind_phys), dimension(im), intent(inout) | wetness, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |
|
private |