ESMF_ClockSetThis Subroutine

public subroutine ESMF_ClockSetThis(clock, this, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Clock), intent(inout) :: clock
type(ESMF_Pointer), intent(in) :: this
integer, intent(out), optional :: rc

Called by

proc~~esmf_clocksetthis~~CalledByGraph proc~esmf_clocksetthis ESMF_ClockSetThis proc~esmf_compexecute ESMF_CompExecute proc~esmf_compexecute->proc~esmf_clocksetthis proc~f_esmf_compexecute f_esmf_compexecute proc~f_esmf_compexecute->proc~esmf_clocksetthis proc~f_esmf_compexecute->proc~esmf_compexecute proc~f_esmf_cplcompcreate f_esmf_cplcompcreate proc~f_esmf_cplcompcreate->proc~esmf_clocksetthis proc~f_esmf_cplcompfinalize f_esmf_cplcompfinalize proc~f_esmf_cplcompfinalize->proc~esmf_clocksetthis proc~f_esmf_cplcompinitialize f_esmf_cplcompinitialize proc~f_esmf_cplcompinitialize->proc~esmf_clocksetthis proc~f_esmf_cplcomprun f_esmf_cplcomprun proc~f_esmf_cplcomprun->proc~esmf_clocksetthis proc~f_esmf_gridcompcreate f_esmf_gridcompcreate proc~f_esmf_gridcompcreate->proc~esmf_clocksetthis proc~f_esmf_gridcompfinalize f_esmf_gridcompfinalize proc~f_esmf_gridcompfinalize->proc~esmf_clocksetthis proc~f_esmf_gridcompinitialize f_esmf_gridcompinitialize proc~f_esmf_gridcompinitialize->proc~esmf_clocksetthis proc~f_esmf_gridcomprun f_esmf_gridcomprun proc~f_esmf_gridcomprun->proc~esmf_clocksetthis proc~esmf_compdestruct ESMF_CompDestruct proc~esmf_compdestruct->proc~esmf_compexecute proc~esmf_cplcompfinalize ESMF_CplCompFinalize proc~esmf_cplcompfinalize->proc~esmf_compexecute proc~esmf_cplcompfinalizeact ESMF_CplCompFinalizeAct proc~esmf_cplcompfinalizeact->proc~esmf_compexecute proc~esmf_cplcompinitialize ESMF_CplCompInitialize proc~esmf_cplcompinitialize->proc~esmf_compexecute proc~esmf_cplcompinitializeact ESMF_CplCompInitializeAct proc~esmf_cplcompinitializeact->proc~esmf_compexecute proc~esmf_cplcompreadrestart ESMF_CplCompReadRestart proc~esmf_cplcompreadrestart->proc~esmf_compexecute proc~esmf_cplcomprun ESMF_CplCompRun proc~esmf_cplcomprun->proc~esmf_compexecute proc~esmf_cplcomprunact ESMF_CplCompRunAct proc~esmf_cplcomprunact->proc~esmf_compexecute proc~esmf_cplcompserviceloop ESMF_CplCompServiceLoop proc~esmf_cplcompserviceloop->proc~esmf_compexecute proc~esmf_cplcompwriterestart ESMF_CplCompWriteRestart proc~esmf_cplcompwriterestart->proc~esmf_compexecute proc~esmf_gridcompfinalize ESMF_GridCompFinalize proc~esmf_gridcompfinalize->proc~esmf_compexecute proc~esmf_gridcompfinalizeact ESMF_GridCompFinalizeAct proc~esmf_gridcompfinalizeact->proc~esmf_compexecute proc~esmf_gridcompinitialize ESMF_GridCompInitialize proc~esmf_gridcompinitialize->proc~esmf_compexecute proc~esmf_gridcompinitializeact ESMF_GridCompInitializeAct proc~esmf_gridcompinitializeact->proc~esmf_compexecute proc~esmf_gridcompreadrestart ESMF_GridCompReadRestart proc~esmf_gridcompreadrestart->proc~esmf_compexecute proc~esmf_gridcomprun ESMF_GridCompRun proc~esmf_gridcomprun->proc~esmf_compexecute proc~esmf_gridcomprunact ESMF_GridCompRunAct proc~esmf_gridcomprunact->proc~esmf_compexecute proc~esmf_gridcompserviceloop ESMF_GridCompServiceLoop proc~esmf_gridcompserviceloop->proc~esmf_compexecute proc~esmf_gridcompwriterestart ESMF_GridCompWriteRestart proc~esmf_gridcompwriterestart->proc~esmf_compexecute

Source Code

      subroutine ESMF_ClockSetThis(clock, this, rc)
!
! !ARGUMENTS:
      type(ESMF_Clock),   intent(inout)          :: clock
      type(ESMF_Pointer), intent(in)             :: this
      integer,            intent(out),  optional :: rc  
!         
!
! !DESCRIPTION:
!     Set C++ pointer in Clock.
!
!     The arguments are:
!     \begin{description}
!     \item[clock] 
!          Specified {\tt ESMF\_Clock} object.
!     \item[this] 
!          C++ pointer.
!     \item[{[rc]}] 
!          Return code; equals {\tt ESMF\_SUCCESS} if there are no errors.
!     \end{description}
!
!EOPI
!------------------------------------------------------------------------------

      ! initialize return code; assume routine not implemented
      if (present(rc)) rc = ESMF_RC_NOT_IMPL
    
      ! Copy C++ pointer
      clock%this = this

      ! return successfully
      if (present(rc)) rc = ESMF_SUCCESS
    
      end subroutine ESMF_ClockSetThis