trip_oasis_end.F90

Go to the documentation of this file.

!#########
SUBROUTINE trip_oasis_end(OOASIS,OXIOS)
!########################
!
!!****  *TRIP_OASIS_END* - end coupling TRIP - OASIS
!!
!!    PURPOSE
!!    -------
!!
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!
!!    AUTHOR
!!    ------
!!      B. Decharme   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    10/2013
!!      S.Sénési    08/11/16 : interface to XIOS
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
#ifdef CPLOASIS
USE mod_oasis
#endif
!
#ifdef WXIOS
USE xios
#endif
!
IMPLICIT NONE
!
!*       0.1   Declarations of arguments
!              -------------------------
!
LOGICAL, INTENT(IN)           :: OOASIS      ! key to use OASIS
LOGICAL, INTENT(IN)           :: OXIOS       ! key to use XIOS
!
!*       0.2   Declarations of local variables
!              -------------------------------
!
INTEGER                    :: IERR   ! Error info
!
IF (oxios) THEN
!-------------------------------------------------------------------------------
#ifdef WXIOS
!-------------------------------------------------------------------------------
   CALL xios_context_finalize()
   CALL xios_finalize()
!-------------------------------------------------------------------------------
#endif
!-------------------------------------------------------------------------------
ELSE

  IF (ooasis) THEN
  !
  !-------------------------------------------------------------------------------
#ifdef CPLOASIS
!-------------------------------------------------------------------------------
!
    CALL oasis_terminate(ierr)
    IF (ierr/=oasis_ok) THEN
      WRITE(*,'(A)'   )'Error OASIS terminate'
      WRITE(*,'(A,I4)')'Return code from oasis_terminate : ',ierr
      CALL abort
      stop
    ENDIF
!
!-------------------------------------------------------------------------------
#endif
  ENDIF
!-------------------------------------------------------------------------------
ENDIF
!-------------------------------------------------------------------------------
!
END SUBROUTINE trip_oasis_end