From facbea6f9dba8cb6502e1e3d959354bf03dacb8b Mon Sep 17 00:00:00 2001 From: Chris Blanton Date: Tue, 29 Aug 2023 09:49:59 -0400 Subject: [PATCH 1/2] #241 Include 4-dimensional (i.e. diurnal) output in default split-vars variable list processing --- postprocessing/split_ncvars/split_ncvars.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/postprocessing/split_ncvars/split_ncvars.pl b/postprocessing/split_ncvars/split_ncvars.pl index cd80124b..94f703e6 100755 --- a/postprocessing/split_ncvars/split_ncvars.pl +++ b/postprocessing/split_ncvars/split_ncvars.pl @@ -140,7 +140,7 @@ if (!@varlist) { if (!$Opt{STATIC}) { print tailname($list_ncvars)." -t0123 $file\n" if $Opt{VERBOSE} > 1; - @varlist = split /\n/, `$list_ncvars -t0123 $file`; + @varlist = split /\n/, `$list_ncvars -t01234 $file`; } else { print tailname($list_ncvars)." -s0123 $file\n" if $Opt{VERBOSE} > 1; @varlist = split /\n/, `$list_ncvars -s0123 $file`; @@ -789,7 +789,7 @@ sub variable_log { open (OUT,"> $prtfile") || die "Cannot open $prtfile for output"; - foreach my $var (split /\n/, `$list_ncvars -t0123 $ncfile`) { + foreach my $var (split /\n/, `$list_ncvars -t01234 $ncfile`) { my @out; $var =~ s/^\s+//; $var =~ s/\s+$//; push @out, $var; From a4948527ffe24a0f3d22d9174d938f8a6e90e7bc Mon Sep 17 00:00:00 2001 From: Chris Blanton Date: Mon, 11 Sep 2023 14:22:41 -0400 Subject: [PATCH 2/2] #241 Update log-printing statement with the list-ncvars update from the last commit --- postprocessing/split_ncvars/split_ncvars.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/postprocessing/split_ncvars/split_ncvars.pl b/postprocessing/split_ncvars/split_ncvars.pl index 94f703e6..c23be435 100755 --- a/postprocessing/split_ncvars/split_ncvars.pl +++ b/postprocessing/split_ncvars/split_ncvars.pl @@ -139,7 +139,7 @@ # generate variable list (if not user supplied) if (!@varlist) { if (!$Opt{STATIC}) { - print tailname($list_ncvars)." -t0123 $file\n" if $Opt{VERBOSE} > 1; + print tailname($list_ncvars)." -t01234 $file\n" if $Opt{VERBOSE} > 1; @varlist = split /\n/, `$list_ncvars -t01234 $file`; } else { print tailname($list_ncvars)." -s0123 $file\n" if $Opt{VERBOSE} > 1;