| subroutine __noahmpdrv_f90__::noahmpdrv_timestep_init |
( |
integer, intent(in) |
itime, |
|
|
real(kind=kind_phys), intent(in) |
fhour, |
|
|
real(kind=kind_phys), intent(in) |
delt, |
|
|
integer, intent(in) |
km, |
|
|
integer, intent(in) |
ncols, |
|
|
integer, intent(in) |
isot, |
|
|
integer, intent(in) |
ivegsrc, |
|
|
integer, dimension(:), intent(in) |
soiltyp, |
|
|
integer, dimension(:), intent(in) |
vegtype, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
weasd, |
|
|
type(land_iau_control_type), intent(inout) |
land_iau_control, |
|
|
type(land_iau_external_data_type), intent(inout) |
land_iau_data, |
|
|
type(land_iau_state_type), intent(inout) |
land_iau_state, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
stc, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
slc, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
smc, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg, |
|
|
real(kind=kind_phys), intent(in) |
con_g, |
|
|
real(kind=kind_phys), intent(in) |
con_t0c, |
|
|
real(kind=kind_phys), intent(in) |
con_hfus |
|
) |
| |
|
private |