VirtualSolution.f90

Go to the documentation of this file.

module virtualsolutionmodule
  use kindmodule, only: i4b
  use listmodule
  use virtualdatacontainermodule, only: vdcptrtype
  use interfacemapmodule
  implicit none
  private
 
  !> This bundles all virtual data for a particular solution
  !< for convenience, it never owns any of it
  type, public :: virtualsolutiontype
    integer(I4B) :: solution_id = -1
    type(vdcptrtype), dimension(:), pointer :: models => null() !< the models as virtual data containers (wrapped)
    type(vdcptrtype), dimension(:), pointer :: exchanges => null() !< the exchanges as virtual data containers (wrapped)
    class(*), pointer :: numerical_solution => null() !< points back to the actual numerical solution
    type(interfacemaptype), pointer :: interface_map => null() !< contains the aggregate interface map for the solution
                                                               !! NB: the aggregation is over multiple interface models
                                                               !! and there is no unique numbering there. The target
                                                               !! indexes should therefore be considered invalid.
  end type virtualsolutiontype
 
end module virtualsolutionmodule