From 27ecc45f192bc6fa9052b26c87e49f486bd6e4fc Mon Sep 17 00:00:00 2001
From: Francesca Mele <francesca.mele@cmcc.it>
Date: Tue, 13 Sep 2022 17:07:27 +0200
Subject: [PATCH] fix bad initialization - #79
---
src/OCE/LDF/ldfslp.F90 | 3 ---
1 file changed, 3 deletions(-)
diff --git a/src/OCE/LDF/ldfslp.F90 b/src/OCE/LDF/ldfslp.F90
index dacc75fc0..cfed0ff8f 100644
--- a/src/OCE/LDF/ldfslp.F90
+++ b/src/OCE/LDF/ldfslp.F90
@@ -589,9 +589,6 @@ CONTAINS
zm1_2g = -0.5_wp / grav
z1_slpmax = 1._wp / rn_slpmax
!
- uslpml (1,:) = 0._wp ; uslpml (jpi,:) = 0._wp
- vslpml (1,:) = 0._wp ; vslpml (jpi,:) = 0._wp
- !
! !== surface mixed layer mask !
DO_3D( 1, 1, 1, 1, 1, jpk ) ! =1 inside the mixed layer, =0 otherwise
ik = nmln(ji,jj) - 1
--
GitLab