From cc84546c85a7a4e5e90f7ced12766d1ca3ad1971 Mon Sep 17 00:00:00 2001 From: Jon Wolfe Date: Tue, 23 Jan 2024 11:57:39 -0600 Subject: [PATCH 1/2] Fix format for nlmaps_exclude_fields in print_seq_infodata --- driver-mct/shr/seq_infodata_mod.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/driver-mct/shr/seq_infodata_mod.F90 b/driver-mct/shr/seq_infodata_mod.F90 index 49441124dd03..bfe26fdc6aaf 100644 --- a/driver-mct/shr/seq_infodata_mod.F90 +++ b/driver-mct/shr/seq_infodata_mod.F90 @@ -2921,7 +2921,8 @@ SUBROUTINE seq_infodata_print( infodata ) write(logunit,F0L) subname,'mct_usevector = ', infodata%mct_usevector write(logunit,F0I) subname,'nlmaps_verbosity = ', infodata%nlmaps_verbosity - write(logunit,F0I) subname,'nlmaps_exclude_fields = ', infodata%nlmaps_exclude_fields + + write(logunit,F0A) subname,'nlmaps_exclude_fields = ', infodata%nlmaps_exclude_fields write(logunit,F0S) subname,'info_debug = ', infodata%info_debug write(logunit,F0L) subname,'bfbflag = ', infodata%bfbflag From 11b76e000be1c53277d68846c3a60041aef9f454 Mon Sep 17 00:00:00 2001 From: Jon Wolfe Date: Wed, 24 Jan 2024 11:08:49 -0600 Subject: [PATCH 2/2] Use more elegant printing of nlmaps_exclude_fields from Andrew Bradley --- driver-mct/shr/seq_infodata_mod.F90 | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/driver-mct/shr/seq_infodata_mod.F90 b/driver-mct/shr/seq_infodata_mod.F90 index bfe26fdc6aaf..fcc6a21eef1f 100644 --- a/driver-mct/shr/seq_infodata_mod.F90 +++ b/driver-mct/shr/seq_infodata_mod.F90 @@ -2777,7 +2777,7 @@ SUBROUTINE seq_infodata_print( infodata ) !EOP !----- local ----- - integer :: ind + integer :: ind, i character(len=*), parameter :: subname = '(seq_infodata_print) ' character(len=*), parameter :: F0A = "(2A,A)" character(len=*), parameter :: F0L = "(2A,L3)" @@ -2922,7 +2922,12 @@ SUBROUTINE seq_infodata_print( infodata ) write(logunit,F0I) subname,'nlmaps_verbosity = ', infodata%nlmaps_verbosity - write(logunit,F0A) subname,'nlmaps_exclude_fields = ', infodata%nlmaps_exclude_fields + write(logunit,'(2A)',advance='no') subname,'nlmaps_exclude_fields = ' + do i = 1, size(infodata%nlmaps_exclude_fields) + if (len(trim(infodata%nlmaps_exclude_fields(i))) == 0) cycle + write(logunit,'(3A)',advance='no') ' ', trim(infodata%nlmaps_exclude_fields(i)) + end do + write(logunit,'(A)') '' write(logunit,F0S) subname,'info_debug = ', infodata%info_debug write(logunit,F0L) subname,'bfbflag = ', infodata%bfbflag