initialize Subroutine

public subroutine initialize(this, importState, exportState, clock, rc)

Uses

  • proc~~initialize~29~~UsesGraph proc~initialize~29 ConvertUnitsAction%initialize ESMF ESMF proc~initialize~29->ESMF

Type Bound

ConvertUnitsAction

Arguments

Type IntentOptional Attributes Name
class(ConvertUnitsAction), intent(inout) :: this
type(ESMF_State) :: importState
type(ESMF_State) :: exportState
type(ESMF_Clock) :: clock
integer, intent(out), optional :: rc

Calls

proc~~initialize~29~~CallsGraph proc~initialize~29 ConvertUnitsAction%initialize proc~get_converter get_converter proc~initialize~29->proc~get_converter proc~mapl_return MAPL_Return proc~initialize~29->proc~mapl_return proc~mapl_verify MAPL_Verify proc~initialize~29->proc~mapl_verify none~is_free CptrWrapper%is_free proc~get_converter->none~is_free at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine initialize(this, importState, exportState, clock, rc)
      use esmf
      class(ConvertUnitsAction), intent(inout) :: this
      type(ESMF_State)      :: importState
      type(ESMF_State)      :: exportState
      type(ESMF_Clock)      :: clock      
      integer, optional, intent(out) :: rc

      integer :: status

      call UDUNITS_GetConverter(this%converter, from=this%src_units, to=this%dst_units, _RC)

      _RETURN(_SUCCESS)
      _UNUSED_DUMMY(exportState)
      _UNUSED_DUMMY(importState)
      _UNUSED_DUMMY(clock)
   end subroutine initialize