| 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   |