my_run Subroutine

private subroutine my_run(ccomp, importstate, exportstate, externalclock, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_CplComp) :: ccomp
type(ESMF_State) :: importstate
type(ESMF_State) :: exportstate
type(ESMF_Clock) :: externalclock
integer, intent(out) :: rc

Calls

proc~~my_run~2~~CallsGraph proc~my_run~2 my_run proc~esmf_logwrite ESMF_LogWrite proc~my_run~2->proc~esmf_logwrite 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

    subroutine my_run(ccomp, importstate, exportstate, externalclock, rc)
      type(ESMF_CplComp) :: ccomp
      type(ESMF_State) :: importstate, exportstate
      type(ESMF_Clock) :: externalclock
      integer, intent(out) :: rc
     
      call ESMF_LogWrite("Coupler Run routine called", ESMF_LOGMSG_INFO)

      call ESMF_LogWrite("Coupler Run routine returning", ESMF_LOGMSG_INFO)
      rc=ESMF_SUCCESS

    end subroutine my_run