ESMF_TraceGetGridCompID Subroutine

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

Arguments

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

Calls

proc~~esmf_tracegetgridcompid~~CallsGraph proc~esmf_tracegetgridcompid ESMF_TraceGetGridCompID c_esmftrace_mapvmid c_esmftrace_mapvmid proc~esmf_tracegetgridcompid->c_esmftrace_mapvmid proc~esmf_basegetid ESMF_BaseGetId proc~esmf_tracegetgridcompid->proc~esmf_basegetid proc~esmf_gridcompget ESMF_GridCompGet proc~esmf_tracegetgridcompid->proc~esmf_gridcompget proc~esmf_logfounderror ESMF_LogFoundError proc~esmf_tracegetgridcompid->proc~esmf_logfounderror proc~esmf_vmgetvmid ESMF_VMGetVMId proc~esmf_tracegetgridcompid->proc~esmf_vmgetvmid interface~c_esmc_getid c_ESMC_GetId proc~esmf_basegetid->interface~c_esmc_getid proc~esmf_gridcompget->proc~esmf_logfounderror proc~esmf_compget ESMF_CompGet proc~esmf_gridcompget->proc~esmf_compget proc~esmf_compstatusget ESMF_CompStatusGet proc~esmf_gridcompget->proc~esmf_compstatusget proc~esmf_gridcompgetinit ESMF_GridCompGetInit proc~esmf_gridcompget->proc~esmf_gridcompgetinit proc~esmf_imerr ESMF_IMErr proc~esmf_gridcompget->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_tracegetgridcompid~~CalledByGraph proc~esmf_tracegetgridcompid ESMF_TraceGetGridCompID interface~esmf_tracegetcompid ESMF_TraceGetCompID interface~esmf_tracegetcompid->proc~esmf_tracegetgridcompid 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_TraceGetGridCompID(comp, vmid, baseid, rc)
! !ARGUMENTS: 
    type(ESMF_GridComp), 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_GridCompGet(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_TraceGetGridCompID