diff --git a/src/ICE/icedyn_rhg_evp.F90 b/src/ICE/icedyn_rhg_evp.F90 index 2efe027c4f8e0cc917a521ec1f35a20e6f226c70..d550b469a2890b64c1a77f80a84ca0701ec1ceea 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