Philippe 28/06/2021: IO: better management of pre-5.5 files (default values...

Philippe 28/06/2021: IO: better management of pre-5.5 files (default values for missing fields instead of crash)

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,         &

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'