LocalDisplacementEnsemble Derived Type

type, public :: LocalDisplacementEnsemble


Inherits

type~~localdisplacementensemble~~InheritsGraph type~localdisplacementensemble LocalDisplacementEnsemble ESMF_Field ESMF_Field type~localdisplacementensemble->ESMF_Field hfield ESMF_RouteHandle ESMF_RouteHandle type~localdisplacementensemble->ESMF_RouteHandle routehandle

Type-Bound Procedures

procedure, public :: destroy

  • private subroutine destroy(this, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(LocalDisplacementEnsemble), intent(inout) :: this
    integer, intent(out), optional :: rc

procedure, public :: fill

  • private subroutine fill(this, array_in, array_out, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(LocalDisplacementEnsemble), intent(inout) :: this
    real, intent(in) :: array_in(:,:)
    real, intent(inout), allocatable :: array_out(:,:,:)
    integer, intent(out), optional :: rc

procedure, public :: get

  • private subroutine get(this, num_members, max_members, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(LocalDisplacementEnsemble), intent(in) :: this
    integer, optional, allocatable :: num_members(:,:)
    integer, optional :: max_members
    integer, intent(out), optional :: rc

procedure, public :: initialize

  • private subroutine initialize(this, grid, halo_width, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(LocalDisplacementEnsemble), intent(inout) :: this
    type(ESMF_Grid), intent(in) :: grid
    integer, intent(in) :: halo_width
    integer, intent(out), optional :: rc

Source Code

   type :: LocalDisplacementEnsemble
      private
      integer :: hw
      integer :: num_members
      integer, allocatable :: mapping(:,:,:,:)
      type(ESMF_RouteHandle) :: routehandle
      type(esmf_Field) :: hfield ! 2d, R4
   contains
      procedure :: initialize
      procedure :: get
      procedure :: fill
      procedure :: destroy
   end type LocalDisplacementEnsemble