Changeset 15053 for NEMO/trunk/src/OCE/TRA/trabbl.F90

Timestamp:

2021-06-24T17:39:38+02:00 (3 years ago)

Author:

clem

Message:

nn_hls=2: solve a number of floating points because some arrays are not defined on the first halo. Looks like this is not the end.

File:

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

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

@@ -339 +339 @@
       ENDIF
       !                                        !* bottom variables (T, S, alpha, beta, depth, velocity)
-      DO_2D( 1, 1, 1, 1 )
+      DO_2D( nn_hls, nn_hls, nn_hls, nn_hls )
          ik = mbkt(ji,jj)                             ! bottom T-level index
          zts (ji,jj,jp_tem) = ts(ji,jj,ik,jp_tem,Kbb) ! bottom before T and S