Changeset 15386

Timestamp:

2021-10-15T15:55:25+02:00 (3 years ago)

Author:

jchanut

Message:

#2734: correct issue with ln_bt_fw=F introduced at r15061

File:

• NEMO/trunk/src/OCE/stpmlf.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/stpmlf.F90

@@ -507 +507 @@
          ! so that asselin contribution is removed at the same time
          DO jk = 1, jpkm1
-            DO_2D( 0, 0, 0, 0 )
-               puu(ji,jj,jk,Kmm) = ( puu(ji,jj,jk,Kmm) - un_adv(ji,jj)*r1_hu(ji,jj,Kmm) + uu_b(ji,jj,Kmm) )*umask(ji,jj,jk)
-               pvv(ji,jj,jk,Kmm) = ( pvv(ji,jj,jk,Kmm) - vn_adv(ji,jj)*r1_hv(ji,jj,Kmm) + vv_b(ji,jj,Kmm) )*vmask(ji,jj,jk)
-            END_2D
+            puu(:,:,jk,Kmm) = ( puu(:,:,jk,Kmm) - un_adv(:,:)*r1_hu(:,:,Kmm) + uu_b(:,:,Kmm) )*umask(:,:,jk)
+            pvv(:,:,jk,Kmm) = ( pvv(:,:,jk,Kmm) - vn_adv(:,:)*r1_hv(:,:,Kmm) + vv_b(:,:,Kmm) )*vmask(:,:,jk)
          END DO
       ENDIF