Changeset 14857 for NEMO/trunk/src

Timestamp:

2021-05-12T18:47:25+02:00 (3 years ago)

Author:

hadcv

Message:

#2600: Fixes in MY_SRC for nn_hls = 2/tiling and traadv_fct.F90 for nn_hls = 1

File:

• NEMO/trunk/src/OCE/TRA/traadv_fct.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/TRA/traadv_fct.F90

@@ -164 +164 @@
          END_3D
          !                               !* upstream tracer flux in the k direction *!
-         DO_3D( 1, 1, 1, 1, 2, jpkm1 )      ! Interior value ( multiplied by wmask)
+         DO_3D( nn_hls-1, nn_hls-1, nn_hls-1, nn_hls-1, 2, jpkm1 )      ! Interior value ( multiplied by wmask)
             zfp_wk = pW(ji,jj,jk) + ABS( pW(ji,jj,jk) )
             zfm_wk = pW(ji,jj,jk) - ABS( pW(ji,jj,jk) )
@@ -171 +171 @@
          IF( ln_linssh ) THEN               ! top ocean value (only in linear free surface as zwz has been w-masked)
             IF( ln_isfcav ) THEN                        ! top of the ice-shelf cavities and at the ocean surface
-               DO_2D( 1, 1, 1, 1 )
+               DO_2D( nn_hls-1, nn_hls-1, nn_hls-1, nn_hls-1 )
                   zwz(ji,jj, mikt(ji,jj) ) = pW(ji,jj,mikt(ji,jj)) * pt(ji,jj,mikt(ji,jj),jn,Kbb)   ! linear free surface
                END_2D
             ELSE                                        ! no cavities: only at the ocean surface
-               DO_2D( 1, 1, 1, 1 )
+               DO_2D( nn_hls-1, nn_hls-1, nn_hls-1, nn_hls-1 )
                   zwz(ji,jj,1) = pW(ji,jj,1) * pt(ji,jj,1,jn,Kbb)
                END_2D