Changeset 11875 for NEMO

Timestamp:

2019-11-08T12:00:59+01:00 (5 years ago)

Author:

jchanut

Message:

Prevent from 0 vertical index, #2327

File:

• NEMO/branches/2019/dev_r11233_AGRIF-05_jchanut_vert_coord_interp/src/OCE/TRA/traadv_fct.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r11233_AGRIF-05_jchanut_vert_coord_interp/src/OCE/TRA/traadv_fct.F90

@@ -659 +659 @@
          DO ji = fs_2, fs_jpim1
             ikt = mikt(ji,jj) + 1            ! w-point below the 1st  wet point
-            ikb = mbkt(ji,jj)                !     -   above the last wet point
+            ikb = MAX(mbkt(ji,jj), 2)         !     -   above the last wet point
             !
             zwd (ji,jj,ikt) = 1._wp          ! top