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

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
 !
 !