ESMF_ClockGetThis Subroutine

public subroutine ESMF_ClockGetThis(clock, this, rc)

Arguments

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

Called by

proc~~esmf_clockgetthis~~CalledByGraph proc~esmf_clockgetthis ESMF_ClockGetThis proc~clockusageincoming clockUsageIncoming proc~clockusageincoming->proc~esmf_clockgetthis proc~clockusageoutgoing clockUsageOutgoing proc~clockusageoutgoing->proc~esmf_clockgetthis proc~f_esmf_compexecute f_esmf_compexecute proc~f_esmf_compexecute->proc~esmf_clockgetthis proc~f_esmf_cplcompcreate f_esmf_cplcompcreate proc~f_esmf_cplcompcreate->proc~esmf_clockgetthis proc~f_esmf_cplcompfinalize f_esmf_cplcompfinalize proc~f_esmf_cplcompfinalize->proc~esmf_clockgetthis proc~f_esmf_cplcompinitialize f_esmf_cplcompinitialize proc~f_esmf_cplcompinitialize->proc~esmf_clockgetthis proc~f_esmf_cplcomprun f_esmf_cplcomprun proc~f_esmf_cplcomprun->proc~esmf_clockgetthis proc~f_esmf_gridcompcreate f_esmf_gridcompcreate proc~f_esmf_gridcompcreate->proc~esmf_clockgetthis proc~f_esmf_gridcompfinalize f_esmf_gridcompfinalize proc~f_esmf_gridcompfinalize->proc~esmf_clockgetthis proc~f_esmf_gridcompinitialize f_esmf_gridcompinitialize proc~f_esmf_gridcompinitialize->proc~esmf_clockgetthis proc~f_esmf_gridcomprun f_esmf_gridcomprun proc~f_esmf_gridcomprun->proc~esmf_clockgetthis proc~nuopc_checkclockusageincoming NUOPC_CheckClockUsageIncoming proc~nuopc_checkclockusageincoming->proc~esmf_clockgetthis proc~nuopc_checkclockusageoutgoing NUOPC_CheckClockUsageOutgoing proc~nuopc_checkclockusageoutgoing->proc~esmf_clockgetthis proc~ic_final~2 ic_final proc~ic_final~2->proc~clockusageincoming proc~ic_final~2->proc~clockusageoutgoing proc~ic_final~3 ic_final proc~ic_final~3->proc~nuopc_checkclockusageincoming proc~ic_final~3->proc~nuopc_checkclockusageoutgoing proc~ic_init~2 ic_init proc~ic_init~2->proc~clockusageincoming proc~ic_init~2->proc~clockusageoutgoing proc~ic_init~3 ic_init proc~ic_init~3->proc~nuopc_checkclockusageincoming proc~ic_init~3->proc~nuopc_checkclockusageoutgoing proc~ic_run~2 ic_run proc~ic_run~2->proc~clockusageincoming proc~ic_run~2->proc~clockusageoutgoing proc~ic_run~3 ic_run proc~ic_run~3->proc~nuopc_checkclockusageincoming proc~ic_run~3->proc~nuopc_checkclockusageoutgoing

Source Code

      subroutine ESMF_ClockGetThis(clock, this, rc)
!
! !ARGUMENTS:
      type(ESMF_Clock),   intent(in)             :: clock
      type(ESMF_Pointer), intent(out)            :: this
      integer,            intent(out),  optional :: rc  
!         
!
! !DESCRIPTION:
!     Internal access routine for C++ pointer.
!
!     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
      this = clock%this

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