Fix typo in array index used to write SkinLayerCooling to netcdf diag…

…nostic file (NOAA-EMC#656)
shoyokota · Nov 20, 2023 · 47f35ee · 47f35ee
1 parent a3e13da
commit 47f35ee
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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