Changeset 9561

Timestamp:

2018-05-08T13:05:05+02:00 (5 years ago)

Author:

acc

Message:

Branch 2017/dev_merge_2017. Bug fix to prevent erroneous out of bounds access in mppini.F90 (land suppression case only). To be further tested to confirm fix is correct and sufficient

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90 (modified) (1 diff)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90

@@ -428 +428 @@
       ! Update il[de][ij] according to modified ibond[ij]
       ! ----------------------
-      DO jarea = 1, jpni*jpnj
+      DO jarea = 1, jpnij
          ii = iin(jarea)
          ij = ijn(jarea)