Skip to content
Snippets Groups Projects
Commit 27ecc45f authored by Francesca Mele's avatar Francesca Mele
Browse files

fix bad initialization - #79

parent ab48063a
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 0 additions and 3 deletions
src/OCE/LDF/ldfslp.F90
+ 0
− 3
View file @ 27ecc45f
......@@ -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
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment