Fix format for nlmaps_exclude_fields in seq_infodata_print

[jonbob]

The format for printing out nlmaps_exclude_fields in seq_infodata_print is currently F0I (for an integer value) but the variable is a character array. This type mismatch causes a failure when the seq_infodata_print subroutine is called, from cime_comp_mod.F90 when info_debug > 1. This PR uses a formatting suggested by Andrew Bradley to more elegantly print out this array.

Fixes #6165
[BFB]

[github-actions]

PR Preview Action v1.4.6
🚀 Deployed preview to https://E3SM-Project.github.io/E3SM/pr-preview/pr-6167/
on branch gh-pages at 2024-01-24 17:13 UTC

[jonbob]

Please note that the F0A format is fine for character variables, but this is a character array. The corresponding output looks like:

(seq_infodata_print) mct_usevector            =   F
(seq_infodata_print) nlmaps_verbosity         =          0
(seq_infodata_print) nlmaps_exclude_fields    = Faxa_rainc
Faxa_rainl                                                                      Faxa_snowc                                                                      Faxa_snowl                           











(seq_infodata_print) info_debug               =    2
(seq_infodata_print) bfbflag                  =   T

I also tried a slightly more elegant solution to fill a temporary character variable with the excluded fields, and the corresponding output looks like:

(seq_infodata_print) mct_usevector            =   F
(seq_infodata_print) nlmaps_verbosity         =          0
(seq_infodata_print) nlmaps_exclude_fields    = Faxa_rainc, Faxa_rainl, Faxa_snowc, Faxa_snowl,
(seq_infodata_print) info_debug               =    2
(seq_infodata_print) bfbflag                  =   T

if it matters

[ambrad]

Thanks. Sorry I missed that in my original PR.

[ambrad]

What do others think of this approach, which doesn't require a temporary character array:

    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)') ''

It produces

(seq_infodata_print) nlmaps_exclude_fields    =  Faxa_rainc Faxa_rainl Faxa_snowc Faxa_snowl

[jonbob]

@ambrad - That's some pretty elegant Fortran for a C++ programmer! And very much like what I had played with, though I had been loading a temporary string. I'll implement it and change my branch to match -- thanks

[jonbob]

passes sanity testing and re-confirmed the format change

merged to next

[jonbob]

merged to master