NUOPC_TraceComponentInfo Subroutine

private recursive subroutine NUOPC_TraceComponentInfo(comp, rc)

Arguments

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

Calls

proc~~nuopc_tracecomponentinfo~2~~CallsGraph proc~nuopc_tracecomponentinfo~2 NUOPC_TraceComponentInfo interface~esmf_tracecomponentinfo ESMF_TraceComponentInfo proc~nuopc_tracecomponentinfo~2->interface~esmf_tracecomponentinfo proc~esmf_logfounderror ESMF_LogFoundError proc~nuopc_tracecomponentinfo~2->proc~esmf_logfounderror proc~esmf_tracecplcomponentinfo ESMF_TraceCplComponentInfo interface~esmf_tracecomponentinfo->proc~esmf_tracecplcomponentinfo proc~esmf_tracegridcomponentinfo ESMF_TraceGridComponentInfo interface~esmf_tracecomponentinfo->proc~esmf_tracegridcomponentinfo 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 c_esmc_loggeterrormsg c_esmc_loggeterrormsg proc~esmf_logrc2msg->c_esmc_loggeterrormsg c_esmc_vmwtime c_esmc_vmwtime proc~esmf_logwrite->c_esmc_vmwtime proc~esmf_logclose ESMF_LogClose proc~esmf_logwrite->proc~esmf_logclose proc~esmf_logflush ESMF_LogFlush proc~esmf_logwrite->proc~esmf_logflush proc~esmf_logopenfile ESMF_LogOpenFile proc~esmf_logwrite->proc~esmf_logopenfile proc~esmf_utiliounitflush ESMF_UtilIOUnitFlush proc~esmf_logwrite->proc~esmf_utiliounitflush proc~esmf_utilstring2array ESMF_UtilString2Array proc~esmf_logwrite->proc~esmf_utilstring2array proc~esmf_logclose->proc~esmf_logflush proc~esmf_logflush->proc~esmf_utiliounitflush proc~esmf_utilarray2string ESMF_UtilArray2String proc~esmf_logflush->proc~esmf_utilarray2string proc~esmf_logopenfile->proc~esmf_utiliounitflush proc~esmf_utiliounitget ESMF_UtilIOUnitGet proc~esmf_logopenfile->proc~esmf_utiliounitget

Source Code

    recursive subroutine NUOPC_TraceComponentInfo(comp, rc)
      
      type(ESMF_GridComp), intent(in) :: comp
      integer, intent(out)  :: rc

      character(len=5)  :: attrConv(4)
      character(len=8)  :: attrPurp(4)
      character(len=20) :: attrName(4)
      character(len=10) :: attrKey(4)
      
      rc = ESMF_SUCCESS      
      
      attrConv = "NUOPC"
      attrPurp = "Instance"

      attrName(1) = "Kind"
      attrKey(1) = "Kind"
      
      attrName(2) = "InitializePhaseMap"
      attrKey(2) = "IPM"
      
      attrName(3) = "RunPhaseMap"
      attrKey(3) = "RPM"

      attrName(4) = "FinalizePhaseMap"
      attrKey(4) = "FPM"
      
      call ESMF_TraceComponentInfo(comp, attrConv, &
           attrPurp, attrName, attrKey, rc=rc)
      if (ESMF_LogFoundError(rc, &
           line=__LINE__, &
           file=FILENAME)) &
           return  
      
    end subroutine NUOPC_TraceComponentInfo