SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
sfx_oasis_end.F90
Go to the documentation of this file.
1
!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
2
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
3
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
4
!SFX_LIC for details. version 1.
5
!#########
6
SUBROUTINE
sfx_oasis_end
7
!########################
8
!
9
!!**** *SFX_OASIS_END* - end coupling SFX - OASIS
10
!!
11
!! PURPOSE
12
!! -------
13
!!
14
!!** METHOD
15
!! ------
16
!!
17
!! EXTERNAL
18
!! --------
19
!!
20
!!
21
!! IMPLICIT ARGUMENTS
22
!! ------------------
23
!!
24
!! REFERENCE
25
!! ---------
26
!!
27
!!
28
!! AUTHOR
29
!! ------
30
!! B. Decharme *Meteo France*
31
!!
32
!! MODIFICATIONS
33
!! -------------
34
!! Original 10/2013
35
!-------------------------------------------------------------------------------
36
!
37
!* 0. DECLARATIONS
38
! ------------
39
!
40
USE
modd_sfx_oasis
, ONLY
: loasis
41
!
42
#ifdef CPLOASIS
43
USE
mod_oasis
44
#endif
45
!
46
IMPLICIT NONE
47
!
48
!* 0.1 Declarations of arguments
49
! -------------------------
50
!
51
!
52
!* 0.2 Declarations of local variables
53
! -------------------------------
54
!
55
INTEGER
:: ierr
! Error info
56
!
57
!-------------------------------------------------------------------------------
58
#ifdef CPLOASIS
59
!-------------------------------------------------------------------------------
60
!
61
IF
(loasis)
THEN
!Same test than in offline.F90 because use for Arpege-Aladin-Arome
62
CALL oasis_terminate(ierr)
63
IF
(ierr/=oasis_ok)
THEN
64
WRITE
(*,
'(A)'
)
'Error OASIS terminate'
65
WRITE
(*,
'(A,I4)'
)
'Return code from oasis_terminate : '
,ierr
66
CALL abort
67
stop
68
ENDIF
69
ENDIF
70
!
71
!-------------------------------------------------------------------------------
72
#endif
73
!-------------------------------------------------------------------------------
74
!
75
END SUBROUTINE
sfx_oasis_end
modd_sfx_oasis
Definition:
modd_sfx_oasis.F90:6
sfx_oasis_end
subroutine sfx_oasis_end
Definition:
sfx_oasis_end.F90:6
Generated on Fri May 13 2016 09:31:05 for SURFEX by
1.8.5