From d1a4f8ad2a11f26be16a70d8cafe6950a8c75b1b Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 4 Feb 2019 09:16:59 +0100
Subject: [PATCH] Philippe 04/02/2019: minor bug: remove a MPPDB_CHECK3D for
 XLSWM which is not allocated in some cases

---
 src/MNH/ver_dyn.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/MNH/ver_dyn.f90 b/src/MNH/ver_dyn.f90
index 5b6911d3e..b3ddda0d0 100644
--- a/src/MNH/ver_dyn.f90
+++ b/src/MNH/ver_dyn.f90
@@ -383,7 +383,7 @@ END IF
 !
 !20131126 add check on XWM,XLSWM
 CALL MPPDB_CHECK3D(XWT,"VER_DYN5::XWT",PRECISION)
-CALL MPPDB_CHECK3D(XLSWM,"VER_DYN5::XLSWM",PRECISION)
+! CALL MPPDB_CHECK3D(XLSWM,"VER_DYN5::XLSWM",PRECISION)
 !
 DEALLOCATE(NKLIN)
 DEALLOCATE(XCOEFLIN)
-- 
GitLab