From 080149890609336b48458dd8267c6ddbcb1fc6d1 Mon Sep 17 00:00:00 2001 From: Gustavo Marques Date: Sat, 17 May 2025 09:58:54 -0600 Subject: [PATCH] Add *_glc enthalpy terms in heat_in --- src/diagnostics/MOM_sum_output.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/diagnostics/MOM_sum_output.F90 b/src/diagnostics/MOM_sum_output.F90 index a0f1d5157e..f39a38d2c2 100644 --- a/src/diagnostics/MOM_sum_output.F90 +++ b/src/diagnostics/MOM_sum_output.F90 @@ -1089,7 +1089,8 @@ subroutine accumulate_net_input(fluxes, sfc_state, tv, dt, G, US, CS) heat_in(i,j) = heat_in(i,j) + dt * QRZL2_to_J * G%areaT(i,j) * & (fluxes%heat_content_evap(i,j) + fluxes%heat_content_lprec(i,j) + & fluxes%heat_content_cond(i,j) + fluxes%heat_content_fprec(i,j) + & - fluxes%heat_content_lrunoff(i,j) + fluxes%heat_content_frunoff(i,j)) + fluxes%heat_content_lrunoff(i,j) + fluxes%heat_content_frunoff(i,j) + & + fluxes%heat_content_lrunoff_glc(i,j) + fluxes%heat_content_frunoff_glc(i,j)) enddo ; enddo elseif (associated(tv%TempxPmE)) then do j=js,je ; do i=is,ie