diff --git a/src/MNH/ini_segn.f90 b/src/MNH/ini_segn.f90 index 1663871b909eae7585c3e43bc00fd3e93a5c5783..590efa55c1c37baaab8c9a2ccf4e5eef8c4b2ad4 100644 --- a/src/MNH/ini_segn.f90 +++ b/src/MNH/ini_segn.f90 @@ -441,7 +441,8 @@ END IF ! routine which read related informations in the EXSEG descriptor in order to ! check coherence between both informations. ! -CALL IO_Field_read(TPINIFILE,'LOCEAN',LOCEAN) +CALL IO_Field_read(TPINIFILE,'LOCEAN',LOCEAN,IRESP) +IF ( IRESP /= 0 ) LOCEAN = .FALSE. ! CALL READ_EXSEG_n(KMI,TZFILE_DES,YCONF,GFLAT,GUSERV,GUSERC, & GUSERR,GUSERI,GUSECI,GUSERS,GUSERG,GUSERH,GUSECHEM, & diff --git a/src/MNH/read_field.f90 b/src/MNH/read_field.f90 index f6ae881a7078ada648885d1b61f56c5f6c410c97..1f8d4b3cab8e98abd0698ec2c34249c956ec75ba 100644 --- a/src/MNH/read_field.f90 +++ b/src/MNH/read_field.f90 @@ -641,7 +641,6 @@ IF (LIBM .AND. CPROGRAM=='MESONH') THEN ! ENDIF ! -ZLRECYCL=.FALSE. TZFIELD%CMNHNAME = 'RECYCLING' TZFIELD%CLONGNAME = 'RECYCLING' TZFIELD%CSTDNAME = '' @@ -651,7 +650,10 @@ TZFIELD%NGRID = 1 TZFIELD%NTYPE = TYPELOG TZFIELD%NDIMS = 0 TZFIELD%LTIMEDEP = .FALSE. -CALL IO_Field_read(TPINIFILE,TZFIELD,ZLRECYCL) +CALL IO_Field_read(TPINIFILE,TZFIELD,ZLRECYCL,IRESP) +!If field not found (file from older version of MesoNH) => set ZLRECYCL to false +IF ( IRESP /= 0 ) ZLRECYCL = .FALSE. + IF (ZLRECYCL) THEN ! TZFIELD%CMNHNAME = 'RCOUNT'