From e4860ae132cdf83c793042f9d741bcc1a64061a5 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 17 Jun 2016 09:53:59 +0200
Subject: [PATCH] Philippe 17/06/2016: minor: added default case to abort if
unknown HTEMP_SCHEME
---
src/MNH/advecuvw_rk.f90 | 3 +++
1 file changed, 3 insertions(+)
diff --git a/src/MNH/advecuvw_rk.f90 b/src/MNH/advecuvw_rk.f90
index 9e9dfe35d..018508723 100644
--- 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
!
!
--
GitLab