diff --git a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 index 0cde722be8979b00ce5b49994dc8748a25755cce..7d43dfb8176462f7326b09fb92d2b6e176ff37bd 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 cca18f4416ada3991846d251bbd4465502b45240..9b9b6b4d99c32ffeeb6b05d4ac01a54d10b8af32 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( ) ! !------------------------------------------------------------------------------- !