Philippe 26/01/2018: minor: use PRINT_MSG for 2 error messages

src/LIB/SURCOUCHE/src/mode_fm.f90

@@ -327,9 +327,7 @@ IF (TPFILE%LMASTER) THEN
         CALL PRINT_MSG(NVERB_DEBUG,'IO','FMOPEN_ll','NF90_OPEN for '//TRIM(YFILEM)//'.nc')
         INCERR = NF90_OPEN(ADJUSTL(TRIM(YFILEM))//".nc", NF90_NOWRITE, TPFILE%NNCID)
         IF (INCERR /= NF90_NOERR) THEN
-           !PRINT *, 'FMOPEN_ll, NF90_OPEN error : ', NF90_STRERROR(INCERR)
-           PRINT *, 'Error in opening (FMOPEN_ll/NF90_OPEN) ', TRIM(YFILEM)//'.nc', ' : ', NF90_STRERROR(INCERR)
-           STOP
+          CALL PRINT_MSG(NVERB_FATAL,'IO','FMOPEN_ll','NF90_OPEN for '//TRIM(YFILEM)//'.nc: '//NF90_STRERROR(INCERR))
         END IF
      END IF
      
@@ -339,9 +337,7 @@ IF (TPFILE%LMASTER) THEN
         INCERR = NF90_CREATE(ADJUSTL(TRIM(YFILEM))//".nc", &
              &IOR(NF90_CLOBBER,NF90_NETCDF4), TPFILE%NNCID)
         IF (INCERR /= NF90_NOERR) THEN
-           !PRINT *, 'FMOPEN_ll, NF90_CREATE error : ', NF90_STRERROR(INCERR)
-           PRINT *, 'Error in opening (FMOPEN_ll/NF90_CREATE) ', TRIM(YFILEM)//'.nc', ' : ', NF90_STRERROR(INCERR)
-           STOP
+          CALL PRINT_MSG(NVERB_FATAL,'IO','FMOPEN_ll','NF90_CREATE for '//TRIM(YFILEM)//'.nc: '//NF90_STRERROR(INCERR))
         END IF
         CALL IO_SET_KNOWNDIMS_NC4(TPFILE)
         CALL IO_WRITE_COORDVAR_NC4(TPFILE)