Philippe 30/05/2024: IO_Bakout_struct_prepare: simplify dummy arguments

src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90

@@ -52,7 +52,7 @@ INTEGER, SAVE :: NFILE_STAT_MAXSIZE = 0 ! Maximum number of files in file list
 CONTAINS
 !
 !###################################################
-SUBROUTINE IO_Bakout_struct_prepare( KSUP, PSEGLEN )
+SUBROUTINE IO_Bakout_struct_prepare( )
 !###################################################
 !
 USE MODD_BAKOUT
@@ -70,8 +70,7 @@ USE MODN_OUTPUT, ONLY: OUTPUT_NML_DEALLOCATE
 
 IMPLICIT NONE
 !
-INTEGER, INTENT(IN) :: KSUP    ! supp. time steps
-REAL,    INTENT(IN) :: PSEGLEN ! segment duration (in seconds)
+INTEGER, PARAMETER :: NSUPTS = 1    ! supp. time steps
 !
 INTEGER           :: IBAK_NUM
 INTEGER           :: IOUT_NUM
@@ -355,7 +354,7 @@ DO IMI = 1, NMODEL
   IOUT_NUM = 0
 
   !Reduce XSEGLEN by time added to XSEGLEN for 1st domain (see set_grid subroutine)
-  ISTEP_MAX = NINT( ( XSEGLEN - KSUP * DYN_MODEL(1)%XTSTEP ) / DYN_MODEL(IMI)%XTSTEP ) + 1
+  ISTEP_MAX = NINT( ( XSEGLEN - NSUPTS * DYN_MODEL(1)%XTSTEP ) / DYN_MODEL(IMI)%XTSTEP ) + 1
 
   ! Check that provided times are multiples of model timestep and not after end of segment
   ! After that, insert them in the lists (in timesteps instead of seconds)

src/MNH/init_mnh.f90

@@ -238,7 +238,7 @@ 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 )
+IF ( CPROGRAM == 'MESONH' ) CALL IO_Bakout_struct_prepare( )
 !
 !-------------------------------------------------------------------------------
 !