ESMF_TraceGetCplCompID Subroutine

private subroutine ESMF_TraceGetCplCompID(comp, vmid, baseid, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_CplComp), intent(in) :: comp
integer, intent(out) :: vmid
integer, intent(out) :: baseid
integer, intent(out), optional :: rc

Calls

proc~~esmf_tracegetcplcompid~~CallsGraph proc~esmf_tracegetcplcompid ESMF_TraceGetCplCompID c_esmftrace_mapvmid c_esmftrace_mapvmid proc~esmf_tracegetcplcompid->c_esmftrace_mapvmid proc~esmf_basegetid ESMF_BaseGetId proc~esmf_tracegetcplcompid->proc~esmf_basegetid proc~esmf_cplcompget ESMF_CplCompGet proc~esmf_tracegetcplcompid->proc~esmf_cplcompget proc~esmf_logfounderror ESMF_LogFoundError proc~esmf_tracegetcplcompid->proc~esmf_logfounderror proc~esmf_vmgetvmid ESMF_VMGetVMId proc~esmf_tracegetcplcompid->proc~esmf_vmgetvmid interface~c_esmc_getid c_ESMC_GetId proc~esmf_basegetid->interface~c_esmc_getid proc~esmf_cplcompget->proc~esmf_logfounderror proc~esmf_compget ESMF_CompGet proc~esmf_cplcompget->proc~esmf_compget proc~esmf_compstatusget ESMF_CompStatusGet proc~esmf_cplcompget->proc~esmf_compstatusget proc~esmf_cplcompgetinit ESMF_CplCompGetInit proc~esmf_cplcompget->proc~esmf_cplcompgetinit proc~esmf_imerr ESMF_IMErr proc~esmf_cplcompget->proc~esmf_imerr esmf_breakpoint esmf_breakpoint proc~esmf_logfounderror->esmf_breakpoint proc~esmf_logrc2msg ESMF_LogRc2Msg proc~esmf_logfounderror->proc~esmf_logrc2msg proc~esmf_logwrite ESMF_LogWrite proc~esmf_logfounderror->proc~esmf_logwrite proc~esmf_vmgetvmid->proc~esmf_logfounderror c_esmc_vmgetvmid c_esmc_vmgetvmid proc~esmf_vmgetvmid->c_esmc_vmgetvmid proc~esmf_vmgetvmid->proc~esmf_imerr proc~esmf_vmgetinit ESMF_VMGetInit proc~esmf_vmgetvmid->proc~esmf_vmgetinit

Called by

proc~~esmf_tracegetcplcompid~~CalledByGraph proc~esmf_tracegetcplcompid ESMF_TraceGetCplCompID interface~esmf_tracegetcompid ESMF_TraceGetCompID interface~esmf_tracegetcompid->proc~esmf_tracegetcplcompid proc~esmf_tracecplcompphaseenter ESMF_TraceCplCompPhaseEnter proc~esmf_tracecplcompphaseenter->interface~esmf_tracegetcompid proc~esmf_tracecplcompphaseepilogueexit ESMF_TraceCplCompPhaseEpilogueExit proc~esmf_tracecplcompphaseepilogueexit->interface~esmf_tracegetcompid proc~esmf_tracecplcompphaseexit ESMF_TraceCplCompPhaseExit proc~esmf_tracecplcompphaseexit->interface~esmf_tracegetcompid proc~esmf_tracecplcompphaseprologueenter ESMF_TraceCplCompPhasePrologueEnter proc~esmf_tracecplcompphaseprologueenter->interface~esmf_tracegetcompid proc~esmf_tracegridcompphaseenter ESMF_TraceGridCompPhaseEnter proc~esmf_tracegridcompphaseenter->interface~esmf_tracegetcompid proc~esmf_tracegridcompphaseepilogueexit ESMF_TraceGridCompPhaseEpilogueExit proc~esmf_tracegridcompphaseepilogueexit->interface~esmf_tracegetcompid proc~esmf_tracegridcompphaseexit ESMF_TraceGridCompPhaseExit proc~esmf_tracegridcompphaseexit->interface~esmf_tracegetcompid proc~esmf_tracegridcompphaseprologueenter ESMF_TraceGridCompPhasePrologueEnter proc~esmf_tracegridcompphaseprologueenter->interface~esmf_tracegetcompid interface~esmf_tracephaseenter ESMF_TracePhaseEnter interface~esmf_tracephaseenter->proc~esmf_tracecplcompphaseenter interface~esmf_tracephaseenter->proc~esmf_tracegridcompphaseenter interface~esmf_tracephaseepilogueexit ESMF_TracePhaseEpilogueExit interface~esmf_tracephaseepilogueexit->proc~esmf_tracecplcompphaseepilogueexit interface~esmf_tracephaseepilogueexit->proc~esmf_tracegridcompphaseepilogueexit interface~esmf_tracephaseexit ESMF_TracePhaseExit interface~esmf_tracephaseexit->proc~esmf_tracecplcompphaseexit interface~esmf_tracephaseexit->proc~esmf_tracegridcompphaseexit interface~esmf_tracephaseprologueenter ESMF_TracePhasePrologueEnter interface~esmf_tracephaseprologueenter->proc~esmf_tracecplcompphaseprologueenter interface~esmf_tracephaseprologueenter->proc~esmf_tracegridcompphaseprologueenter proc~ic_final~2 ic_final proc~ic_final~2->interface~esmf_tracephaseenter proc~ic_final~2->interface~esmf_tracephaseepilogueexit proc~ic_final~2->interface~esmf_tracephaseexit proc~ic_final~2->interface~esmf_tracephaseprologueenter proc~ic_init~2 ic_init proc~ic_init~2->interface~esmf_tracephaseenter proc~ic_init~2->interface~esmf_tracephaseepilogueexit proc~ic_init~2->interface~esmf_tracephaseexit proc~ic_init~2->interface~esmf_tracephaseprologueenter proc~ic_run~2 ic_run proc~ic_run~2->interface~esmf_tracephaseenter proc~ic_run~2->interface~esmf_tracephaseepilogueexit proc~ic_run~2->interface~esmf_tracephaseexit proc~ic_run~2->interface~esmf_tracephaseprologueenter

Source Code

  subroutine ESMF_TraceGetCplCompID(comp, vmid, baseid, rc)
! !ARGUMENTS: 
    type(ESMF_CplComp),  intent(in)            :: comp
    integer,             intent(out)           :: vmid
    integer,             intent(out)           :: baseid
    integer,             intent(out), optional :: rc    
!
!EOPI
!-------------------------------------------------------------------------------    
    ! local
    type(ESMF_VM)   :: vm
    type(ESMF_VMId) :: vmIdObj
    
    if (present(rc)) rc = ESMF_SUCCESS
    
    call ESMF_BaseGetID(comp%compp%base, baseid, rc=rc)
    if (ESMF_LogFoundError(rc, ESMF_ERR_PASSTHRU, &
        ESMF_CONTEXT, rcToReturn=rc)) return

    call ESMF_CplCompGet(comp, vm=vm, rc=rc)
    if (ESMF_LogFoundError(rc, ESMF_ERR_PASSTHRU, &
      ESMF_CONTEXT, rcToReturn=rc)) return
    
    call ESMF_VMGetVMId(vm=vm, vmId=vmIdObj, rc=rc)
    if (ESMF_LogFoundError(rc, ESMF_ERR_PASSTHRU, &
      ESMF_CONTEXT, rcToReturn=rc)) return

    call c_esmftrace_mapvmid(vmIdObj, vmid, rc)
    if (ESMF_LogFoundError(rc, ESMF_ERR_PASSTHRU, &
      ESMF_CONTEXT, rcToReturn=rc)) return
    
  end subroutine ESMF_TraceGetCplCompID