C.Lac 11/2015 : correction for restart

fa81d393 · Gaelle Tanguy · WAUTELET Philippe · d0b25ac2 · fa81d393
Commit fa81d393 authored 9 years ago by Gaelle Tanguy Committed by WAUTELET Philippe 8 years ago
--- a/src/MNH/read_field.f90
+++ b/src/MNH/read_field.f90
@@ -462,7 +462,7 @@ SELECT CASE(HGETTKET)
    END IF
    YDIR='XY'
    CALL FMREAD(HINIFILE,YRECFM,HLUOUT,YDIR,PTKET,IGRID,ILENCH,YCOMMENT,IRESP)
-    IF (KMASDEV>50) THEN
+    IF (KMASDEV>50 .AND. (CCONF == 'RESTA')) THEN
      YRECFM = 'TKEMS'
      YDIR='XY'
      CALL FMREAD(HINIFILE,YRECFM,HLUOUT,YDIR,PRTKEMS,IGRID,ILENCH,YCOMMENT,IRESP)