Philippe 30/05/2024: move IO_Bakout_struct_prepare from INI_MODEL_n to...

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

@@ -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

src/MNH/init_mnh.f90

-!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