hydro/OrchestratorLayer/orchestrator.F90

   1 module orchestrator_base
   2   use io_manager_base
   3   use config_base
   4   implicit none
   5
   6   ! interface orchestrator_
   7   !    procedure orchestrator_init
   8   ! end interface orchestrator_
   9
  10   type orchestrator_
  11
  12      !class(FluxAggregator_) :: flux_aggregator
  13      !class(Groundwater_) :: groundwater
  14      !class(TimeManager_) :: time_manager
  15      type(IOManager_) :: IO_manager
  16      type(Configuration_) :: config
  17      !class(SpatialObject_) :: spatial_object
  18
  19    contains
  20
  21      procedure, public, pass(self) :: init => orchestrator_init
  22
  23   end type orchestrator_
  24
  25   type(orchestrator_), save :: orchestrator
  26
  27 contains
  28
  29   !We may want routines to access the various components
  30
  31   subroutine orchestrator_init(self)
  32     class (orchestrator_) :: self
  33
  34     self%config = Configuration_()
  35
  36     call self%config%init()
  37     ! Read configuration and decide how to assemble the various components
  38     ! Assuming IO_Manager_serial_ selected
  39     self%IO_manager = IOManager_()
  40
  41   end subroutine orchestrator_init
  42
  43 end module orchestrator_base