From 05284d4b09d34153a8abc46ca0ce3e7225496e65 Mon Sep 17 00:00:00 2001 From: Xylar Asay-Davis Date: Fri, 26 Aug 2022 09:59:27 +0200 Subject: [PATCH] Add outputFieldNames to sea-ice pointStats --- .../src/analysis_members/mpas_seaice_pointwise_stats.F | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/components/mpas-seaice/src/analysis_members/mpas_seaice_pointwise_stats.F b/components/mpas-seaice/src/analysis_members/mpas_seaice_pointwise_stats.F index 17fffe6f108c..d1c33d10c29a 100644 --- a/components/mpas-seaice/src/analysis_members/mpas_seaice_pointwise_stats.F +++ b/components/mpas-seaice/src/analysis_members/mpas_seaice_pointwise_stats.F @@ -167,6 +167,7 @@ subroutine seaice_bootstrap_pointwise_stats(domain, instance, err)!{{{ call mpas_duplicate_field(ptr1DReal, ptr1DRealNew) ptr1DRealNew % fieldName = trim(ptr1DReal % fieldName) // trim(AMFieldNameSuffix) + ptr1DRealNew % outputFieldName = ptr1DRealNew % fieldName PWAM_DEBUG_WRITE(' -- New Name: ' // trim(ptr1DRealNew % fieldName)) ! Change constituent names, if it's a var array @@ -233,6 +234,7 @@ subroutine seaice_bootstrap_pointwise_stats(domain, instance, err)!{{{ call mpas_duplicate_field(ptr2DReal, ptr2DRealNew) ptr2DRealNew % fieldName = trim(ptr2DReal % fieldName) // trim(AMFieldNameSuffix) + ptr2DRealNew % outputFieldName = ptr2DRealNew % fieldName PWAM_DEBUG_WRITE(' -- New Name: ' // trim(ptr2DRealNew % fieldName)) if ( ptr2DRealNew % isVarArray ) then @@ -299,6 +301,7 @@ subroutine seaice_bootstrap_pointwise_stats(domain, instance, err)!{{{ call mpas_duplicate_field(ptr3DReal, ptr3DRealNew) ptr3DRealNew % fieldName = trim(ptr3DReal % fieldName) // trim(AMFieldNameSuffix) + ptr3DRealNew % outputFieldName = ptr3DRealNew % fieldName PWAM_DEBUG_WRITE(' -- New Name: ' // trim(ptr3DRealNew % fieldName)) if ( ptr3DRealNew % isVarArray ) then @@ -365,6 +368,7 @@ subroutine seaice_bootstrap_pointwise_stats(domain, instance, err)!{{{ call mpas_duplicate_field(ptr4DReal, ptr4DRealNew) ptr4DRealNew % fieldName = trim(ptr4DReal % fieldName) // trim(AMFieldNameSuffix) + ptr4DRealNew % outputFieldName = ptr4DRealNew % fieldName PWAM_DEBUG_WRITE(' -- New Name: ' // trim(ptr4DRealNew % fieldName)) if ( ptr4DRealNew % isVarArray ) then @@ -431,6 +435,7 @@ subroutine seaice_bootstrap_pointwise_stats(domain, instance, err)!{{{ call mpas_duplicate_field(ptr5DReal, ptr5DRealNew) ptr5DRealNew % fieldName = trim(ptr5DReal % fieldName) // trim(AMFieldNameSuffix) + ptr5DRealNew % outputFieldName = ptr5DRealNew % fieldName PWAM_DEBUG_WRITE(' -- New Name: ' // trim(ptr5DRealNew % fieldName)) if ( ptr5DRealNew % isVarArray ) then @@ -502,6 +507,7 @@ subroutine seaice_bootstrap_pointwise_stats(domain, instance, err)!{{{ call mpas_duplicate_field(ptr1DInt, ptr1DIntNew) ptr1DIntNew % fieldName = trim(ptr1DInt % fieldName) // trim(AMFieldNameSuffix) + ptr1DIntNew % outputFieldName = ptr1DIntNew % fieldName PWAM_DEBUG_WRITE(' -- New Name: ' // trim(ptr1DIntNew % fieldName)) if ( ptr1DIntNew % isVarArray ) then @@ -567,6 +573,7 @@ subroutine seaice_bootstrap_pointwise_stats(domain, instance, err)!{{{ call mpas_duplicate_field(ptr2DInt, ptr2DIntNew) ptr2DIntNew % fieldName = trim(ptr2DInt % fieldName) // trim(AMFieldNameSuffix) + ptr2DIntNew % outputFieldName = ptr2DIntNew % fieldName PWAM_DEBUG_WRITE(' -- New Name: ' // trim(ptr2DIntNew % fieldName)) if ( ptr2DIntNew % isVarArray ) then @@ -632,6 +639,7 @@ subroutine seaice_bootstrap_pointwise_stats(domain, instance, err)!{{{ call mpas_duplicate_field(ptr3DInt, ptr3DIntNew) ptr3DIntNew % fieldName = trim(ptr3DInt % fieldName) // trim(AMFieldNameSuffix) + ptr3DIntNew % outputFieldName = ptr3DIntNew % fieldName PWAM_DEBUG_WRITE(' -- New Name: ' // trim(ptr3DIntNew % fieldName)) if ( ptr3DIntNew % isVarArray ) then