diff --git a/tools/fmmore/src/readuntouch.f90 b/tools/fmmore/src/readuntouch.f90 index c1b2ff5105357bff65302ead94ffb81c1799e341..0bccd307fbc63101b4dbe533fdf0bf59f6b21c49 100644 --- a/tools/fmmore/src/readuntouch.f90 +++ b/tools/fmmore/src/readuntouch.f90 @@ -118,7 +118,7 @@ IF (IRESP.EQ.0) THEN WRITE(6,*) '####' END IF -YRECFM='BUGFIX' +YRECFM='BUG' ! en attendant une surcouche officielle... CALL FMREAD(HFMFILE,YRECFM,HLUOUT,ILENG,NBUGFIX_SURFEX,IGRID,ILENCH,YCOMMENT,IRESP) IF (IRESP.EQ.0) THEN