diff --git a/src/LIB/SURCOUCHE/src/mode_io.f90 b/src/LIB/SURCOUCHE/src/mode_io.f90
index ba883102ebcb830be34d269355d2faca0b431938..82037434d4ce9d4829a8e896470030593985afcf 100644
--- a/src/LIB/SURCOUCHE/src/mode_io.f90
+++ b/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
 
diff --git a/src/MNH/init_mnh.f90 b/src/MNH/init_mnh.f90
index 0bcc5d53bd4e76abc133b2b496bc48219e9c6eff..d3f36461cc0ce608e75e87fa1e1c4316670f878a 100644
--- a/src/MNH/init_mnh.f90
+++ b/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