mf6lists.f90

Go to the documentation of this file.

module listsmodule
  ! -- Contains lists of base types BaseModelType,
  !    BaseSolutionType, SolutionGroupType, and
  !    BaseExchangeType for use by any MF6 module.
 
  use kindmodule, only: dp, i4b
  use listmodule, only: listtype
 
  implicit none
  private
  public :: basemodellist, basesolutionlist, solutiongrouplist, &
            baseexchangelist, baseconnectionlist
  public :: lists_da
 
  ! -- list of all models in simulation
  type(listtype) :: basemodellist
 
  ! -- list of all solutions in simulation
  type(listtype) :: basesolutionlist
 
  ! -- list of all solutiongroups in simulation
  type(listtype) :: solutiongrouplist
 
  ! -- list of all exchanges in simulation
  type(listtype) :: baseexchangelist
 
  ! -- list of all connections in simulation
  type(listtype) :: baseconnectionlist
 
contains
 
  subroutine lists_da()
! ******************************************************************************
! Deallocate the lists
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
! ------------------------------------------------------------------------------
    !
    call basemodellist%Clear()
    call basesolutionlist%Clear()
    call solutiongrouplist%Clear()
    call baseexchangelist%Clear()
    call baseconnectionlist%Clear()
 
    return
  end subroutine lists_da
 
end module listsmodule