From fa81d393b5e8825c3b8c1c5f072d737eaacff08c Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Thu, 26 Nov 2015 15:00:45 +0000
Subject: [PATCH] C.Lac 11/2015 : correction for restart
---
src/MNH/read_field.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/read_field.f90 b/src/MNH/read_field.f90
index d593b0abe..e95c80676 100644
--- 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)
--
GitLab