hydro/Routing/Subsurface/module_subsurface_input.F

   1 module module_subsurface_input
   2     implicit none
   3
   4     type subsurface_input_interface
   5
   6         ! infiltration excess from the land surface model (mm) on the routing grid
   7         real, pointer, dimension(:,:) :: infiltration_excess
   8     contains
   9         procedure :: init => subsurface_input_init
  10         procedure :: destroy => subsurface_input_destroy
  11     end type subsurface_input_interface
  12
  13     contains
  14
  15     subroutine subsurface_input_init(this, ix, jx, infiltration_excess)
  16         implicit none
  17         class(subsurface_input_interface), intent(inout) :: this ! the type object being initialized
  18         integer, intent(in) :: ix                     ! x grid size
  19         integer, intent(in) :: jx                     ! y grid size
  20         real, pointer, dimension(:,:) :: infiltration_excess
  21
  22         this%infiltration_excess => infiltration_excess
  23
  24     end subroutine subsurface_input_init
  25
  26     subroutine subsurface_input_destroy(this)
  27         implicit none
  28         class(subsurface_input_interface), intent(inout) :: this ! the type object being initialized
  29
  30     end subroutine subsurface_input_destroy
  31
  32 end module module_subsurface_input