Changeset 11077

Timestamp:

2019-06-05T16:13:02+02:00 (6 years ago)

Author:

jchanut

Message:

Correct bathymetry at U-points, #2289

File:

• NEMO/trunk/tests/OVERFLOW/MY_SRC/usrdef_zgr.F90 (modified) (1 diff)

NEMO/trunk/tests/OVERFLOW/MY_SRC/usrdef_zgr.F90

@@ -96 +96 @@
       !                                ! ==>>>  set by hand non-zero value on first/last columns & rows 
       DO ji = mi0(1), mi1(1)              ! first row of global domain only
-         zhu(ji,2) = zht(1,2)
-      END DO
-       DO ji = mi0(jpi), mi1(jpi)         ! last  row of global domain only
-         zhu(ji,2) = zht(jpi,2)
+         zhu(ji,2) = zht(ji,2)
+      END DO
+       DO ji = mi0(jpiglo), mi1(jpiglo)   ! last  row of global domain only
+         zhu(ji,2) = zht(ji,2)
       END DO
       zhu(:,1) = zhu(:,2)