From 4f0c86454bc22ffea69a07487d074194ed6ea860 Mon Sep 17 00:00:00 2001 From: dsidoren Date: Mon, 27 Feb 2023 17:56:45 +0200 Subject: [PATCH 1/2] after many days of work with the tight collaboration with Thomas Rackow we hope that the bug related to the SO warming in the IFS/FESOM has been ultimately fixed --- src/ice_thermo_cpl.F90 | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/ice_thermo_cpl.F90 b/src/ice_thermo_cpl.F90 index 9cc3e4e45..4a32ba3e3 100644 --- a/src/ice_thermo_cpl.F90 +++ b/src/ice_thermo_cpl.F90 @@ -279,9 +279,15 @@ subroutine ice_growth !---- total atmospheric and oceanic heat fluxes !---- average over grid cell [W/m**2] +#if not defined (__ifsinterface) ahf = A*Qatmice + (1._WP-A)*Qatmocn +#else + ahf = Qatmice + (1._WP-A)*Qatmocn +#endif ohf = A*Qocnice + (1._WP-A)*Qocnatm + + !---- convert heat fluxes [W/m**2] into growth per time step dt [m] Qicecon = Qicecon*dt/cl Qatmice = Qatmice*dt/cl From c7404332787c65e94e9889a0717c57596c76232e Mon Sep 17 00:00:00 2001 From: dsidoren Date: Mon, 27 Feb 2023 17:33:27 +0100 Subject: [PATCH 2/2] FESOM/IFS shall now deliver an excellent climate Thanks Thomas Rackow and Jan Streffing for helping this happen :) --- src/ice_thermo_cpl.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ice_thermo_cpl.F90 b/src/ice_thermo_cpl.F90 index 4a32ba3e3..76f2c05b6 100644 --- a/src/ice_thermo_cpl.F90 +++ b/src/ice_thermo_cpl.F90 @@ -279,7 +279,7 @@ subroutine ice_growth !---- total atmospheric and oceanic heat fluxes !---- average over grid cell [W/m**2] -#if not defined (__ifsinterface) +#if !defined (__ifsinterface) ahf = A*Qatmice + (1._WP-A)*Qatmocn #else ahf = Qatmice + (1._WP-A)*Qatmocn