From 14bb698366cfa697699e636c97839a989da45ad4 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 12 Dec 2016 09:37:33 +0100
Subject: [PATCH] Philippe 12/12/2016: moved call to INI_FIELD_LIST to INIT_MNH
---
src/LIB/SURCOUCHE/src/mode_io.f90 | 2 --
src/MNH/init_mnh.f90 | 3 ++-
2 files changed, 2 insertions(+), 3 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_io.f90 b/src/LIB/SURCOUCHE/src/mode_io.f90
index ba883102e..82037434d 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 0bcc5d53b..d3f36461c 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
--
GitLab