From d2433b7427f04c9b6458775c9d0b1219a5ba79c4 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 5 Jan 2017 14:34:03 +0100
Subject: [PATCH] Philippe 05/01/2017: bug correction: initialize field list

---
 src/MNH/prep_ideal_case.f90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90
index b9ed4986e..c7061ece3 100644
--- a/src/MNH/prep_ideal_case.f90
+++ b/src/MNH/prep_ideal_case.f90
@@ -361,6 +361,7 @@ USE MODE_IO_ll
 USE MODE_ll
 USE MODD_ARGSLIST_ll, ONLY : LIST_ll
 USE MODE_MODELN_HANDLER
+USE MODE_FIELD
 !
 USE MODI_DEFAULT_DESFM_n    ! Interface modules
 USE MODI_DEFAULT_EXPRE
@@ -1748,6 +1749,8 @@ TZFILE%CMODE      = 'WRITE'
 TZFILE%NLFITYPE   = NTYPE
 TZFILE%NLFIVERB   = NVERB
 !
+CALL INI_FIELD_LIST()
+!
 CALL IO_FILE_OPEN_ll(TZFILE,CLUOUT,NRESP)
 !
 CALL WRITE_DESFM_n(1,CDESFM,CLUOUT)
-- 
GitLab