From 8a201189647e527cd4d4d28a403096d0099a8572 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 9 Feb 2018 13:02:44 +0100
Subject: [PATCH] Philippe 09/01/2018: IO: bug correction when checking NGRID
---
src/LIB/SURCOUCHE/src/fmwrit_ll.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/LIB/SURCOUCHE/src/fmwrit_ll.f90 b/src/LIB/SURCOUCHE/src/fmwrit_ll.f90
index 1376f0608..9b93ac0f4 100644
--- a/src/LIB/SURCOUCHE/src/fmwrit_ll.f90
+++ b/src/LIB/SURCOUCHE/src/fmwrit_ll.f90
@@ -223,7 +223,7 @@ CONTAINS
CHARACTER(LEN=2) :: YDIMOK,YDIMKO
CHARACTER(LEN=8) :: YTYPEOK,YTYPEKO
!
- IF (TPFIELD%NGRID<0 .OR. TPFIELD%NGRID>4) THEN
+ IF (TPFIELD%NGRID<0 .OR. TPFIELD%NGRID>8) THEN
CALL PRINT_MSG(NVERB_WARNING,'IO',HCALLER,'TPFIELD%NGRID is invalid for '//TRIM(TPFIELD%CMNHNAME))
END IF
IF (TPFIELD%NTYPE/=KTYPE) THEN
--
GitLab