From 4201a51fcf11995f737b13f362bbce7fb524ba97 Mon Sep 17 00:00:00 2001
From: clem <clement.rousset@locean.ipsl.fr>
Date: Mon, 24 Jan 2022 15:18:50 +0100
Subject: [PATCH] debug evp for the future 4.2 (i.e. unmask zs12)

---
 src/ICE/icedyn_rhg_evp.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ICE/icedyn_rhg_evp.F90 b/src/ICE/icedyn_rhg_evp.F90
index 2efe027c..d550b469 100644
--- a/src/ICE/icedyn_rhg_evp.F90
+++ b/src/ICE/icedyn_rhg_evp.F90
@@ -453,7 +453,7 @@ CONTAINS
 
             ! stress at F points (zkt/=0 if landfast)
             zs12(ji,jj)= ( zs12(ji,jj) * zalph2 + zp_delf * ( zds(ji,jj) * z1_ecc2 * (1._wp + zkt) ) * 0.5_wp ) &
-               &         * z1_alph2 * zmsk(ji,jj) ! zmsk is for reducing cpu
+               &         * z1_alph2
 
          END_2D
 
-- 
GitLab