From a12ba4d17357afa866cf9f16a087c67e93490c94 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 30 May 2024 14:14:24 +0200
Subject: [PATCH] Philippe 30/05/2024: move IO_Bakout_struct_prepare from
 INI_MODEL_n to INIT_MNH after INI_MODEL_n calls to ALL models

---
 src/MNH/ini_modeln.f90 | 5 +----
 src/MNH/init_mnh.f90   | 9 +++++++--
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90
index 24650fdae..2d81ad2b5 100644
--- a/src/MNH/ini_modeln.f90
+++ b/src/MNH/ini_modeln.f90
@@ -419,7 +419,7 @@ USE MODE_INI_TURB,          ONLY: INI_TURB
 USE MODE_IO
 USE MODE_IO_FIELD_READ,     only: IO_Field_read
 USE MODE_IO_FILE,           only: IO_File_open
-USE MODE_IO_MANAGE_STRUCT,  only: IO_Bakout_struct_prepare, IO_File_add2list
+USE MODE_IO_MANAGE_STRUCT,  only: IO_File_add2list
 USE MODE_ll
 USE MODE_MODELN_HANDLER
 USE MODE_MPPDB
@@ -2990,7 +2990,4 @@ ELSE
  ALLOCATE(XSSRFL_C(0,0,0))
 END IF
 !
-! The output/backups times have been read only by model 1
-IF ( CPROGRAM == 'MESONH' .AND. KMI == 1 ) CALL IO_Bakout_struct_prepare( 1, XSEGLEN )
-
 END SUBROUTINE INI_MODEL_n
diff --git a/src/MNH/init_mnh.f90 b/src/MNH/init_mnh.f90
index e230430d6..cca18f441 100644
--- a/src/MNH/init_mnh.f90
+++ b/src/MNH/init_mnh.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2024 CNRS, Meteo-France and Universite Paul Sabatier
 !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
 !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
 !MNH_LIC for details. version 1.
@@ -76,6 +76,7 @@
 !*       0.    DECLARATIONS
 !              ------------
 USE MODD_CONF
+USE MODD_DYN,   ONLY: XSEGLEN
 USE MODD_DYN_n, ONLY: CPRESOPT, NITR ! only for spawning purpose
 USE MODD_IO,    ONLY: TFILE_OUTPUTLISTING, TPTR2FILE
 USE MODD_LBC_n, ONLY: CLBCX,CLBCY   ! only for spawning purpose
@@ -88,7 +89,7 @@ USE MODD_PARAMETERS
 use mode_field,            only: Alloc_field_scalars, Fieldlist_goto_model
 USE MODE_INI_CST,          ONLY: INI_CST
 USE MODE_IO_FILE,          ONLY: IO_File_open
-USE MODE_IO_MANAGE_STRUCT, ONLY: IO_File_add2list
+USE MODE_IO_MANAGE_STRUCT, ONLY: IO_Bakout_struct_prepare, IO_File_add2list
 USE MODE_ll
 USE MODE_MODELN_HANDLER
 USE MODE_SPLITTINGZ_ll
@@ -235,6 +236,10 @@ DO JMI=1,NMODEL
   END IF  
 END DO
 !
+! Prepare the characteristics of the backup and output files
+! This has to be done once INI_MODEL_n has been done for ALL models
+IF ( CPROGRAM == 'MESONH' ) CALL IO_Bakout_struct_prepare( 1, XSEGLEN )
+!
 !-------------------------------------------------------------------------------
 !
 !*       5.    WRITE MESSAGE ON OUTPUT-LISTING
-- 
GitLab