StubComponent.F90 Source File

#include "MAPL_Exceptions.h"
#include "MAPL_ErrLog.h"
module MAPL_StubComponent
   use ESMF
   use mapl_MaplComponent
   use mapl_KeywordEnforcerMod
   use mapl_ErrorHandlingMod

   implicit none
   private

   public :: StubComponent

   type, extends(MaplComponent) :: StubComponent
      private
      
   contains
      procedure :: initialize
      procedure :: run
      procedure :: finalize
   end type StubComponent


contains

   subroutine initialize(this, import_state, export_state, clock, phase, unusable, rc)
      class(StubComponent), intent(inout) :: this
      type(ESMF_State), intent(inout) :: import_state
      type(ESMF_State), intent(inout) :: export_state
      type(ESMF_Clock), intent(inout) :: clock
      character(*), intent(in) :: phase
      class(KeywordEnforcer), optional, intent(in) :: unusable
      integer, optional, intent(out) :: rc

      _UNUSED_DUMMY(this)
      _UNUSED_DUMMY(import_state)
      _UNUSED_DUMMY(export_state)
      _UNUSED_DUMMY(clock)
      _UNUSED_DUMMY(phase)
      _UNUSED_DUMMY(unusable)
      _RETURN(_FAILURE)

   end subroutine initialize

   subroutine run(this, import_state, export_state, clock, phase, unusable, rc)
      class(StubComponent), intent(inout) :: this
      type(ESMF_State), intent(inout) :: import_state
      type(ESMF_State), intent(inout) :: export_state
      type(ESMF_Clock), intent(inout) :: clock
      character(*), intent(in) :: phase
      class(KeywordEnforcer), optional, intent(in) :: unusable
      integer, optional, intent(out) :: rc

      _UNUSED_DUMMY(this)
      _UNUSED_DUMMY(import_state)
      _UNUSED_DUMMY(export_state)
      _UNUSED_DUMMY(clock)
      _UNUSED_DUMMY(phase)
      _UNUSED_DUMMY(unusable)
      _RETURN(_FAILURE)
   end subroutine run
   
   subroutine finalize(this, import_state, export_state, clock, phase, unusable, rc)
      class(StubComponent), intent(inout) :: this
      type(ESMF_State), intent(inout) :: import_state
      type(ESMF_State), intent(inout) :: export_state
      type(ESMF_Clock), intent(inout) :: clock
      character(*), intent(in) :: phase
      class(KeywordEnforcer), optional, intent(in) :: unusable
      integer, optional, intent(out) :: rc

      _UNUSED_DUMMY(this)
      _UNUSED_DUMMY(import_state)
      _UNUSED_DUMMY(export_state)
      _UNUSED_DUMMY(clock)
      _UNUSED_DUMMY(phase)
      _UNUSED_DUMMY(unusable)
      _RETURN(_FAILURE)
   end subroutine finalize

end module MAPL_StubComponent