From 78b1fb562a44c35dc743d68b059d37357fb1c563 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Mon, 12 May 2014 09:50:04 +0000
Subject: [PATCH] Juan 12/05/2014: missing reading of IMASDEV before COUPLING
test
---
src/MNH/ini_segn.f90 | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/src/MNH/ini_segn.f90 b/src/MNH/ini_segn.f90
index 5f68feb68..40eb6bac3 100644
--- a/src/MNH/ini_segn.f90
+++ b/src/MNH/ini_segn.f90
@@ -159,6 +159,8 @@ END MODULE MODI_INI_SEG_n
!! 04/2010 add GUSECHAQ, GCH_PH (M. Leriche)
!! 09/2010 add GUSECHIC (M. Leriche)
!! 02/2012 add GFOREFIRE (Pialat/Tulet)
+!! 05/2014 missing reading of IMASDEV before COUPLING
+!! test (Escobar)
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -341,6 +343,8 @@ IF (CPROGRAM=='MESONH') THEN
CALL FMOPEN_ll(HINIFILE,'READ',HLUOUT,0,2,NVERB,ININAR,IRESP)
END IF
+CALL FMREAD(HINIFILE,'MASDEV',HLUOUT,'--',IMASDEV,IGRID,ILENCH,YCOMMENT,IRESP)
+
IF (CPROGRAM=='MESONH') THEN
IF (IMASDEV > 49) THEN
YRECFM='COUPLING'
--
GitLab