Skip to content
Snippets Groups Projects
Commit 824df614 authored by Gaelle Tanguy's avatar Gaelle Tanguy Committed by WAUTELET Philippe
Browse files

Gaelle 30/06/2014 : correction bugfix surfex

parent 07ab98a8
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
tools/fmmore/src/readuntouch.f90
+ 1
− 1
View file @ 824df614
...@@ -118,7 +118,7 @@ IF (IRESP.EQ.0) THEN ...@@ -118,7 +118,7 @@ IF (IRESP.EQ.0) THEN
WRITE(6,*) '####' WRITE(6,*) '####'
END IF END IF
YRECFM='BUGFIX' YRECFM='BUG'
! en attendant une surcouche officielle... ! en attendant une surcouche officielle...
CALL FMREAD(HFMFILE,YRECFM,HLUOUT,ILENG,NBUGFIX_SURFEX,IGRID,ILENCH,YCOMMENT,IRESP) CALL FMREAD(HFMFILE,YRECFM,HLUOUT,ILENG,NBUGFIX_SURFEX,IGRID,ILENCH,YCOMMENT,IRESP)
IF (IRESP.EQ.0) THEN IF (IRESP.EQ.0) THEN
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme