SimpleParentGridComp.F90 Source File

#include "MAPL_ErrLog.h"

! See external setservices() procedure at end of file


module SimpleParentGridComp
   use mapl_ErrorHandling
   use mapl3g_OuterMetaComponent
   use mapl3g_Generic
   use mapl3g_UserSetServices
   use scratchpad
   use esmf
   implicit none
   private

   public :: setservices
   
contains

   subroutine setservices(gc, rc)
      use mapl3g_Generic, only: MAPL_GridCompSetEntryPoint
      type(ESMF_GridComp) :: gc
      integer, intent(out) :: rc

      integer :: status
      type(ESMF_HConfig) :: config_A, config_B

      call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_RUN, run, _RC)
      call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_RUN, run_extra, phase_name='extra', _RC)
      call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_INITIALIZE, init, _RC)
      call MAPL_GridCompSetEntryPoint(gc, ESMF_METHOD_FINALIZE, finalize, _RC)

      config_A = ESMF_HConfigCreate(filename='./scenarios/leaf_A.yaml',rc=status)
      _ASSERT(status == 0, 'bad config')
      config_B = ESMF_HConfigCreate(filename='./scenarios/leaf_B.yaml',rc=status)
      _ASSERT(status == 0, 'bad config')
      

      _RETURN(ESMF_SUCCESS)
   end subroutine setservices

   recursive subroutine run(gc, importState, exportState, clock, rc)
      type(ESMF_GridComp) :: gc
      type(ESMF_State) :: importState
      type(ESMF_State) :: exportState
      type(ESMF_Clock) :: clock
      integer, intent(out) :: rc

      type(OuterMetaComponent), pointer :: outer_meta
      integer :: status

      call append_message('wasRun')
!!$      outer_meta => get_outer_meta(gc, _RC)
      outer_meta => get_outer_meta_from_inner_gc(gc, _RC)
      call outer_meta%run_children(_RC)
      
      _RETURN(ESMF_SUCCESS)
   end subroutine run
   
   recursive subroutine run_extra(gc, importState, exportState, clock, rc)
      type(ESMF_GridComp) :: gc
      type(ESMF_State) :: importState
      type(ESMF_State) :: exportState
      type(ESMF_Clock) :: clock
      integer, intent(out) :: rc

      call append_message('wasRun_extra')
      

      _RETURN(ESMF_SUCCESS)
   end subroutine run_extra

   recursive subroutine init(gc, importState, exportState, clock, rc)
      type(ESMF_GridComp) :: gc
      type(ESMF_State) :: importState
      type(ESMF_State) :: exportState
      type(ESMF_Clock) :: clock
      integer, intent(out) :: rc

      call append_message('wasInit')
      
      _RETURN(ESMF_SUCCESS)
   end subroutine init
   
   recursive subroutine finalize(gc, importState, exportState, clock, rc)
      type(ESMF_GridComp) :: gc
      type(ESMF_State) :: importState
      type(ESMF_State) :: exportState
      type(ESMF_Clock) :: clock
      integer, intent(out) :: rc

      call append_message('wasFinal')
      
      _RETURN(ESMF_SUCCESS)
   end subroutine finalize

end module SimpleParentGridComp

subroutine setServices(gc, rc)
   use esmf, only: ESMF_GridComp
   use esmf, only: ESMF_SUCCESS
   use mapl_ErrorHandling
   use SimpleParentGridComp, only: inner_setservices => setservices
   type(ESMF_GridComp) :: gc
   integer, intent(out) :: rc

   integer :: status

   call inner_setservices(gc, _RC)

   _RETURN(ESMF_SUCCESS)
end subroutine setServices