Changeset 15127 for NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/TOP/TRP/trcsink.F90

Timestamp:

2021-07-16T20:00:12+02:00 (3 years ago)

Author:

cetlod

Message:

dev_PISCO : merge with trunk@15119

Location:

NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO

Files:

• . (modified) (1 prop)
• src/TOP/TRP/trcsink.F90 (modified) (4 diffs)

NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO

@@ -9 +9 @@
 
 # SETTE
-^/utils/CI/sette@14244        sette
+^/utils/CI/sette@HEAD        sette
+

@@ -9 +9 @@
 
 # SETTE
-^/utils/CI/sette@14244        sette
+^/utils/CI/sette@HEAD        sette
+

NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/TOP/TRP/trcsink.F90

@@ -74 +74 @@
          iiter(:,:) = 1
       ELSE
-         DO_2D( 1, 1, 1, 1 )
+         DO_2D( nn_hls, nn_hls, nn_hls, nn_hls )
             iiter(ji,jj) = 1
             DO jk = 1, jpkm1
@@ -86 +86 @@
       ENDIF
 
-      DO_3D( 1, 1, 1, 1, 1,jpkm1 )
+      DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1 )
          IF( tmask(ji,jj,jk) == 1.0 ) THEN
            zwsmax = 0.5 * e3t(ji,jj,jk,Kmm) * rday / rsfact
@@ -146 +146 @@
       DO jn = 1, 2
          !  first guess of the slopes interior values
-         DO_2D( 1, 1, 1, 1 )
+         DO_2D( nn_hls, nn_hls, nn_hls, nn_hls )
             !
             zstep = rsfact / REAL( kiter(ji,jj), wp ) / 2.
@@ -186 +186 @@
       END DO
 
-      DO_3D( 1, 1, 1, 1, 1,jpkm1 )
+      DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1 )
          zflx = ( psinkflx(ji,jj,jk) - psinkflx(ji,jj,jk+1) ) / e3t(ji,jj,jk,Kmm)
          ztrb(ji,jj,jk) = ztrb(ji,jj,jk) + 2. * zflx

@@ -9 +9 @@
 
 # SETTE
-^/utils/CI/sette@14244        sette
+^/utils/CI/sette@HEAD        sette
+