Philippe 23/05/2018: IO: minor: COVERxxx comments are known

src/MNH/read_surf_mnh.f90

@@ -827,7 +827,6 @@ IF (.NOT. GCOVER_PACKED) THEN
   ICOVER=0
   TZFIELD%CSTDNAME   = ''
   TZFIELD%CUNITS     = ''
-  TZFIELD%CCOMMENT   = '' !Expected comment is not known
   TZFIELD%NGRID      = 4
   TZFIELD%NTYPE      = TYPEREAL
   TZFIELD%NDIMS      = 2
@@ -836,6 +835,7 @@ IF (.NOT. GCOVER_PACKED) THEN
     WRITE(YREC,'(A5,I3.3)') 'COVER',JL2
     TZFIELD%CMNHNAME   = TRIM(YREC)
     TZFIELD%CLONGNAME  = TRIM(YREC)
+    TZFIELD%CCOMMENT   = 'X_Y_'//TRIM(YREC)
     TZFIELD%CDIR       = YDIR
     IF (OFLAG(JL2)) THEN
       ICOVER=ICOVER+1
@@ -1025,7 +1025,7 @@ IF (.NOT. GCOVER_PACKED) THEN
   TZFIELD%CLONGNAME  = TRIM(YREC)
   TZFIELD%CUNITS     = ''
   TZFIELD%CDIR       = YDIR1
-  TZFIELD%CCOMMENT   = '' !Expected comment is not known
+  TZFIELD%CCOMMENT   = 'X_Y_'//TRIM(YREC)
   TZFIELD%NGRID      = 4
   TZFIELD%NTYPE      = TYPEREAL
   TZFIELD%NDIMS      = 2