projects / MNH-git_open_source-lfs.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (from parent 1: acec00b)
Philippe 17/06/2016: minor: added default case to abort if unknown HTEMP_SCHEME
authorPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Fri, 17 Jun 2016 07:53:59 +0000 (09:53 +0200)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Fri, 17 Jun 2016 07:53:59 +0000 (09:53 +0200)
src/MNH/advecuvw_rk.f90 patch | blob | history

diff --git a/src/MNH/advecuvw_rk.f90 b/src/MNH/advecuvw_rk.f90
index 9e9dfe3..0185087 100644 (file)
--- a/src/MNH/advecuvw_rk.f90
+++ b/src/MNH/advecuvw_rk.f90
@@ -219,6 +219,9 @@ SELECT CASE (HTEMP_SCHEME)
   ISPL = 6
  CASE('RK65')
   ISPL = 6
+ CASE DEFAULT
+  PRINT *,'ERROR: UNKNOWN HTEMP_SCHEME'
+  CALL ABORT()
 END SELECT
 !
 !