Changeset 15172 for NEMO/branches/UKMO/tools_r4.0-HEAD_dev_MEs/DOMAINcfg/src/mes.F90

Timestamp:

2021-08-04T14:18:01+02:00 (20 months ago)

Author:

dbruciaferri

Message:

bugfix for MPI

File:

• NEMO/branches/UKMO/tools_r4.0-HEAD_dev_MEs/DOMAINcfg/src/mes.F90 (modified) (1 diff)

NEMO/branches/UKMO/tools_r4.0-HEAD_dev_MEs/DOMAINcfg/src/mes.F90

@@ -547 +547 @@
       WHERE ( bathy > 0.0 ) pmsk = 1.0
       CALL mpp_minloc( envlt(:,:,tot_env), pmsk(:,:), mindep, eii, eij )
-      IF ((mi0(eii)>1 .AND. mi0(eii)<jpi) .AND. (mj0(eij)>1 .AND. mj0(eij)<jpj)) THEN
+      IF ((mi0(eii)>=1 .AND. mi0(eii)<=jpi) .AND. (mj0(eij)>=1 .AND. mj0(eij)<=jpj)) THEN
          irnk = mpprank
          DO je = 1, tot_env