diff --git a/src/MNH/ini_segn.f90 b/src/MNH/ini_segn.f90 index 5f68feb68573f824f543e7915cdcea94d3aa8b39..40eb6bac3e5a04f67dca3496e091fac68b5483a2 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'