Skip to content
Snippets Groups Projects
Commit e4860ae1 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 17/06/2016: minor: added default case to abort if unknown HTEMP_SCHEME

parent acec00b2
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 3 additions and 0 deletions
src/MNH/advecuvw_rk.f90
+ 3
− 0
View file @ e4860ae1
...@@ -219,6 +219,9 @@ SELECT CASE (HTEMP_SCHEME) ...@@ -219,6 +219,9 @@ SELECT CASE (HTEMP_SCHEME)
ISPL = 6 ISPL = 6
CASE('RK65') CASE('RK65')
ISPL = 6 ISPL = 6
CASE DEFAULT
PRINT *,'ERROR: UNKNOWN HTEMP_SCHEME'
CALL ABORT()
END SELECT END SELECT
! !
! !
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme