my_final Subroutine

    subroutine my_final(gcomp, importState, exportState, externalclock, rc)
      type(ESMF_GridComp) :: gcomp
      type(ESMF_State) :: importState
      type(ESMF_State) :: exportState
      type(ESMF_Clock) :: externalclock
      integer, intent(out) :: rc
     
      call ESMF_LogWrite("User finalize routine called", ESMF_LOGMSG_INFO)
      rc = ESMF_SUCCESS

    end subroutine my_final