Philippe 09/12/2016: do not fail if no COMMENT found in netCDF file (they were...

Philippe 09/12/2016: do not fail if no COMMENT found in netCDF file (they were not written anymore if empty)

src/LIB/SURCOUCHE/src/mode_netcdf.f90

@@ -1228,14 +1228,18 @@ INTEGER(KIND=IDCDF_KIND) :: ICOMLEN
 STATUS = NF90_GET_ATT(KNCID, KVARID, 'GRID', TPFMH%GRID)
 IF (STATUS /= NF90_NOERR) CALL HANDLE_ERR(STATUS,__LINE__,'READATTR[NF90_GET_ATT_INT] '//TRIM(HVAR))
 STATUS = NF90_INQUIRE_ATTRIBUTE(KNCID, KVARID, 'COMMENT', LEN=ICOMLEN)
-IF (STATUS /= NF90_NOERR) CALL HANDLE_ERR(STATUS,__LINE__,'READATTR[NF90_INQUIRE_ATTRIBUTE] '//TRIM(HVAR))
-IF (ICOMLEN <= JPXKRK) THEN
-   TPFMH%COMLEN = ICOMLEN
-   STATUS = NF90_GET_ATT(KNCID, KVARID, 'COMMENT', TPFMH%COMMENT)
-   IF (STATUS /= NF90_NOERR) CALL HANDLE_ERR(status,__LINE__,'READATTR[NF90_GET_ATT] '//TRIM(HVAR))
+!IF (STATUS /= NF90_NOERR) CALL HANDLE_ERR(STATUS,__LINE__,'READATTR[NF90_INQUIRE_ATTRIBUTE] '//TRIM(HVAR))
+IF (STATUS == NF90_NOERR) THEN
+  IF (ICOMLEN <= JPXKRK) THEN
+    TPFMH%COMLEN = ICOMLEN
+    STATUS = NF90_GET_ATT(KNCID, KVARID, 'COMMENT', TPFMH%COMMENT)
+    IF (STATUS /= NF90_NOERR) CALL HANDLE_ERR(status,__LINE__,'READATTR[NF90_GET_ATT] '//TRIM(HVAR))
+  ELSE
+    PRINT *, 'READATTR : '//TRIM(HVAR)//' COMMENT attribute ignored because too long.'
+    TPFMH%COMLEN = 0
+  END IF
 ELSE
-   PRINT *, 'READATTR : '//TRIM(HVAR)//' COMMENT attribute ignored because too long.'
-   TPFMH%COMLEN = 0
+  TPFMH%COMLEN = 0
 END IF
 END SUBROUTINE READATTR