my_final Subroutine

private subroutine my_final(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

Source Code

    subroutine my_final(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 Finalize routine called", ESMF_LOGMSG_INFO)

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

    end subroutine my_final