From 99a8dd698516503ef1acd0750d45ebee780ebaa4 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Thu, 30 May 2024 14:17:15 +0200 Subject: [PATCH] Philippe 30/05/2024: IO_Bakout_struct_prepare: simplify dummy arguments --- src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 | 7 +++---- src/MNH/init_mnh.f90 | 2 +- 2 files changed, 4 insertions(+), 5 deletions(-) diff --git a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 index 0cde722be..7d43dfb81 100644 --- a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 +++ b/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) diff --git a/src/MNH/init_mnh.f90 b/src/MNH/init_mnh.f90 index cca18f441..9b9b6b4d9 100644 --- a/src/MNH/init_mnh.f90 +++ b/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( ) ! !------------------------------------------------------------------------------- ! -- GitLab