Philippe 12/12/2016: moved call to INI_FIELD_LIST to INIT_MNH

src/LIB/SURCOUCHE/src/mode_io.f90

@@ -176,8 +176,6 @@ CONTAINS
 
     CALL INITFD()
 
-!    CALL INI_FIELD_LIST()
-
     !! Default number for Processor I/O
     ISIOP = 1
 

src/MNH/init_mnh.f90

@@ -214,13 +214,14 @@ DO JMI=1,NMODEL
 !
   IF (CPROGRAM=='SPAWN ' .OR. CPROGRAM=='REAL  ') THEN 
     CALL READ_ALL_NAMELISTS(YSURF_CUR,'MESONH','PRE',.FALSE.)
+    CALL INI_FIELD_LIST(2)
   ELSE
     CALL READ_ALL_NAMELISTS(YSURF_CUR,'MESONH','ALL',.TRUE.)
+    CALL INI_FIELD_LIST()
   ENDIF
 ENDDO
 !
 !
-CALL INI_FIELD_LIST()
 !-------------------------------------------------------------------------------
 !
 !*       4.    INITIALIZE EACH MODEL