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

C.Lac 11/2015 : correction for restart

parent d0b25ac2
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
src/MNH/read_field.f90
+ 1
− 1
View file @ fa81d393
...@@ -462,7 +462,7 @@ SELECT CASE(HGETTKET) ...@@ -462,7 +462,7 @@ SELECT CASE(HGETTKET)
END IF END IF
YDIR='XY' YDIR='XY'
CALL FMREAD(HINIFILE,YRECFM,HLUOUT,YDIR,PTKET,IGRID,ILENCH,YCOMMENT,IRESP) CALL FMREAD(HINIFILE,YRECFM,HLUOUT,YDIR,PTKET,IGRID,ILENCH,YCOMMENT,IRESP)
IF (KMASDEV>50) THEN IF (KMASDEV>50 .AND. (CCONF == 'RESTA')) THEN
YRECFM = 'TKEMS' YRECFM = 'TKEMS'
YDIR='XY' YDIR='XY'
CALL FMREAD(HINIFILE,YRECFM,HLUOUT,YDIR,PRTKEMS,IGRID,ILENCH,YCOMMENT,IRESP) CALL FMREAD(HINIFILE,YRECFM,HLUOUT,YDIR,PRTKEMS,IGRID,ILENCH,YCOMMENT,IRESP)
......
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