Philippe 17/06/2016: minor: added default case to abort if unknown HTEMP_SCHEME
[MNH-git_open_source-lfs.git] / src / MNH / advecuvw_rk.f90
index 9e9dfe3..0185087 100644 (file)
@@ -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
 !
 !