DSOSetServices Derived Type

type, public, extends(AbstractUserSetServices) :: DSOSetServices


Inherits

type~~dsosetservices~~InheritsGraph type~dsosetservices DSOSetServices type~abstractusersetservices AbstractUserSetServices type~dsosetservices->type~abstractusersetservices

Components

Type Visibility Attributes Name Initial
character(len=:), public, allocatable :: sharedObj
character(len=:), public, allocatable :: userRoutine

Type-Bound Procedures

procedure, public :: run => run_DSOSetServices

  • private subroutine run_DSOSetServices(this, GridComp, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(DSOSetServices), intent(in) :: this
    type(ESMF_GridComp) :: GridComp
    integer, intent(out) :: rc

generic, public :: write(formatted) => write_formatted

  • private subroutine write_formatted_proc(this, unit, iotype, v_list, iostat, iomsg)

    Arguments

    Type IntentOptional Attributes Name
    class(ProcSetServices), intent(in) :: this
    integer, intent(in) :: unit
    character(len=*), intent(in) :: iotype
    integer, intent(in) :: v_list(:)
    integer, intent(out) :: iostat
    character(len=*), intent(inout) :: iomsg

procedure, public :: write_formatted => write_formatted_dso

  • private subroutine write_formatted_dso(this, unit, iotype, v_list, iostat, iomsg)

    Arguments

    Type IntentOptional Attributes Name
    class(DSOSetServices), intent(in) :: this
    integer, intent(in) :: unit
    character(len=*), intent(in) :: iotype
    integer, intent(in) :: v_list(:)
    integer, intent(out) :: iostat
    character(len=*), intent(inout) :: iomsg

Source Code

   type, extends(AbstractUserSetServices) :: DSOSetServices
      character(:), allocatable :: sharedObj    ! ESMF naming convention
      character(:), allocatable :: userRoutine  ! ESMF naming convention
   contains
      procedure :: run => run_DSOSetServices
      procedure :: write_formatted => write_formatted_dso
   end type DSOSetServices