Changeset 15193 for NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/stpmlf.F90

Timestamp:

2021-08-13T15:18:24+02:00 (3 years ago)

Author:

techene

Message:

#2715 comments and cosmetics

File:

• NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/stpmlf.F90 (modified) (2 diffs)

NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/stpmlf.F90

@@ -93 +93 @@
       !!              -8- Outputs and diagnostics
       !!----------------------------------------------------------------------
-      INTEGER ::   ji, jj, jk, jtile   ! dummy loop indice
+      INTEGER ::   ji, jj, jk, jn, jtile   ! dummy loop indice
       REAL(wp), ALLOCATABLE, DIMENSION(:,:,:)       ::   zgdept
       REAL(wp), TARGET     , DIMENSION(jpi,jpj,jpk) ::   zau, zav, zaw   ! advective velocity
@@ -295 +295 @@
          IF( ln_tile    )   CALL dom_tile( ntsi, ntsj, ntei, ntej, ktile = jtile )
 
-         DO_3D( 0, 0, 0, 0, 1, jpk )
-            ts(ji,jj,jk,:,Nrhs) = 0._wp                                   ! set tracer trends to zero
-         END_3D
+         DO jn = 1, jpts
+            DO_3D( 0, 0, 0, 0, 1, jpkm1 )
+               ts(ji,jj,jk,jn,Nrhs) = 0._wp                               ! set tracer trends to zero
+            END_3D
+         END DO
 
          IF(  lk_asminc .AND. ln_asmiau .AND. &