get_states.F90 Source File

#include "MAPL_ErrLog.h"

submodule(mapl3g_GriddedComponentDriver) get_states_smod

   use mapl_ErrorHandling
   use mapl3g_OuterMetaComponent
   use mapl3g_MethodPhasesMapUtils
   use mapl3g_CouplerPhases, only: GENERIC_COUPLER_INVALIDATE, GENERIC_COUPLER_UPDATE

   implicit none

contains

   module function get_states(this) result(states)
      type(MultiState) :: states
      class(GriddedComponentDriver), intent(in) :: this

      states = this%states
   end function get_states

end submodule get_states_smod