From 6e6d4696df7672cc1c058d34eda45ec5f9c7275f Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 13 Dec 2023 10:11:52 +0100
Subject: [PATCH] Joris 13/12/2023: print list of fields (for output files)
only if not empty (can be empty if use of IO_Field_user_write)
---
src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
index c3bd1d774..8b7c8c908 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
@@ -327,8 +327,8 @@ DO IMI = 1, NMODEL
END DO
end if
!
- IF (IOUT_NUMB>0) THEN
- PRINT *,'Field list:'
+ 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)
--
GitLab