AsciiInputLoadType.f90

Go to the documentation of this file.

!> @brief This module contains the AsciiInputLoadTypeModule
!!
!! This module defines an abstract type that support generic
!! IDP dynamic input loading for traditional MODFLOW 6 ascii
!! files.
!!
!<
module asciiinputloadtypemodule
 
  use kindmodule, only: dp, i4b, lgp
  use inputloadtypemodule, only: dynamicpkgloadtype
  use blockparsermodule, only: blockparsertype
  use modflowinputmodule, only: modflowinputtype
 
  implicit none
  private
  public :: asciidynamicpkgloadbasetype
 
  !> @brief base abstract type for ascii source dynamic load
  !!
  !<
  type, abstract, extends(dynamicpkgloadtype) :: asciidynamicpkgloadbasetype
  contains
    procedure(load_init_if), deferred :: ainit !< source loader init
    procedure(period_load_if), deferred :: rp !< source loader read and prepare
  end type asciidynamicpkgloadbasetype
 
  abstract interface
    subroutine period_load_if(this, parser)
      import asciidynamicpkgloadbasetype, blockparsertype
      class(asciidynamicpkgloadbasetype), intent(inout) :: this
      type(blockparsertype), pointer, intent(inout) :: parser !< block parser
    end subroutine
    subroutine load_init_if(this, mf6_input, component_name, &
                            component_input_name, input_name, &
                            iperblock, parser, iout)
      import i4b, asciidynamicpkgloadbasetype, blockparsertype, modflowinputtype
      class(asciidynamicpkgloadbasetype), intent(inout) :: this
      type(modflowinputtype), intent(in) :: mf6_input !< description of input
      character(len=*), intent(in) :: component_name !< component name
      character(len=*), intent(in) :: component_input_name !< component input name, e.g. model name file
      character(len=*), intent(in) :: input_name !< input name, e.g. package *.chd file
      integer(I4B), intent(in) :: iperblock !< index of period block on block definition list
      type(blockparsertype), pointer, intent(inout) :: parser !< block parser
      integer(I4B), intent(in) :: iout
    end subroutine
  end interface
 
end module asciiinputloadtypemodule