From 3efd171cb675d1aa692f28ed8ad6caba6f2ad84d Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 19 Dec 2023 11:03:47 +0100
Subject: [PATCH] Philippe 19/12/2023: IO: bugfix: crash if output filelist is
empty
---
src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
index b99165cae..adcb35682 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
@@ -328,12 +328,14 @@ DO IMI = 1, NMODEL
END DO
end if
!
- IF ( IOUT_NUMB>0 .AND. SIZE(OUT_MODEL(IMI)%TOUTPUTN(1)%NFIELDLIST)>0 ) THEN
- PRINT *,'List of fields:'
- DO JOUT = 1,SIZE(OUT_MODEL(IMI)%TOUTPUTN(1)%NFIELDLIST)
- IDX=OUT_MODEL(IMI)%TOUTPUTN(1)%NFIELDLIST(JOUT)
- PRINT *,' ',TRIM(TFIELDLIST(IDX)%CMNHNAME)
- END DO
+ IF ( IOUT_NUMB>0 ) THEN
+ IF ( SIZE(OUT_MODEL(IMI)%TOUTPUTN(1)%NFIELDLIST)>0 ) THEN
+ PRINT *,'List of fields:'
+ DO JOUT = 1,SIZE(OUT_MODEL(IMI)%TOUTPUTN(1)%NFIELDLIST)
+ IDX = OUT_MODEL(IMI)%TOUTPUTN(1)%NFIELDLIST(JOUT)
+ PRINT *,' ',TRIM(TFIELDLIST(IDX)%CMNHNAME)
+ END DO
+ END IF
END IF
!
PRINT *,'-------------------------------'
--
GitLab