CouplingSpec.F90 Source File


Files dependent on this one

sourcefile~~couplingspec.f90~~AfferentGraph sourcefile~couplingspec.f90 CouplingSpec.F90 sourcefile~fieldspec.f90 FieldSpec.F90 sourcefile~fieldspec.f90->sourcefile~couplingspec.f90 sourcefile~oomph.f90 oomph.F90 sourcefile~oomph.f90->sourcefile~fieldspec.f90 sourcefile~varconnpoint.f90 VarConnPoint.F90 sourcefile~varconnpoint.f90->sourcefile~oomph.f90 sourcefile~varspectype.f90 VarSpecType.F90 sourcefile~varspectype.f90->sourcefile~oomph.f90 sourcefile~mapl_generic.f90 MAPL_Generic.F90 sourcefile~mapl_generic.f90->sourcefile~varspectype.f90 sourcefile~statespecification.f90 StateSpecification.F90 sourcefile~statespecification.f90->sourcefile~varspectype.f90 sourcefile~varconn.f90 VarConn.F90 sourcefile~varconn.f90->sourcefile~varconnpoint.f90 sourcefile~varconntype.f90 VarConnType.F90 sourcefile~varconntype.f90->sourcefile~varconnpoint.f90 sourcefile~varspec.f90 VarSpec.F90 sourcefile~varspec.f90->sourcefile~varspectype.f90 sourcefile~varspecmiscmod.f90 VarSpecMiscMod.F90 sourcefile~varspecmiscmod.f90->sourcefile~varconnpoint.f90 sourcefile~varspecmiscmod.f90->sourcefile~varspectype.f90

Source Code

module oomph_CouplingSpec
   implicit none
   private

   public :: CouplingSpec

   ! In multiples of component heartbeat
   type :: CouplingSpec
      private
      integer :: accumulatate_interval
      integer :: coupling_interval
      integer :: offset
   end type CouplingSpec

   interface CouplingSpec
      module procedure new_CouplingSpec_empty
   end interface CouplingSpec

contains

   pure function new_CouplingSpec_empty() result(coupling_spec)
      type(CouplingSpec) :: coupling_spec

      coupling_spec%accumulatate_interval = 1
      coupling_spec%coupling_interval = 1
      coupling_spec%offset = 0
      
   end function new_CouplingSpec_empty

end module oomph_CouplingSpec