From 47f35eea5f1d3f9b85cc78b841536d723bea83e2 Mon Sep 17 00:00:00 2001
From: Andrew Collard <40322596+ADCollard@users.noreply.github.com>
Date: Mon, 20 Nov 2023 10:53:56 -0500
Subject: [PATCH] Fix typo in array index used to write SkinLayerCooling to
 netcdf diagnostic file (#656)

---
 src/gsi/setupsst.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/gsi/setupsst.f90 b/src/gsi/setupsst.f90
index 27d08daa86..994638142a 100644
--- a/src/gsi/setupsst.f90
+++ b/src/gsi/setupsst.f90
@@ -612,7 +612,7 @@ subroutine contents_netcdf_diag_(odiag)
            if (nst_gsi>0) then
               call nc_diag_metadata_to_single("FoundationTempBG",data(itref,i) )
               call nc_diag_metadata_to_single("DiurnalWarming_at_zob",data(idtw,i) )
-              call nc_diag_metadata_to_single("SkinLayerCooling_at_zob",data(idtw,i) )
+              call nc_diag_metadata_to_single("SkinLayerCooling_at_zob",data(idtc,i) )
               call nc_diag_metadata_to_single("Sensitivity_Tzob_Tr",data(itz_tr,i) )
            endif