subroutine __noahmpdrv_f90__::noahmpdrv_init |
( |
integer, intent(in) |
lsm, |
|
|
integer, intent(in) |
lsm_noahmp, |
|
|
integer, intent(in) |
me, |
|
|
integer, intent(in) |
isot, |
|
|
integer, intent(in) |
ivegsrc, |
|
|
integer, intent(in) |
nlunit, |
|
|
real (kind=kind_phys), dimension(:), intent(out) |
pores, |
|
|
real (kind=kind_phys), dimension(:), intent(out) |
resid, |
|
|
logical, intent(in) |
do_mynnsfclay, |
|
|
logical, intent(in) |
do_mynnedmf, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |
|
private |