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 |