Philippe 09/01/2018: IO: bug correction when checking NGRID

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