Changeset 11084 for NEMO/branches/UKMO/NEMO_4.0_old_tidal_mixing/tests

Timestamp:

2019-06-06T16:30:49+02:00 (5 years ago)

Author:

davestorkey

Message:

UKMO/NEMO_4.0_old_tidal_mixing : Update to be relative to rev 11081 of NEMO_4.0_mirror.

File:

• NEMO/branches/UKMO/NEMO_4.0_old_tidal_mixing/tests/OVERFLOW/MY_SRC/usrdef_zgr.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0_old_tidal_mixing/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)