Changeset 7752

Timestamp:

2017-03-02T13:58:45+01:00 (8 years ago)

Author:

jchanut

Message:

AGRIF mpp reproducibility fix, see tickets #1855 and #1569

File:

• trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modinterp.F90 (modified) (1 diff)

trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modinterp.F90

@@ -774 +774 @@
             indmin(i) = indmin(i) - 2
             indmax(i) = indmax(i) + 2
+
+            if (Agrif_UseSpecialValue) then
+               indmin(i) = indmin(i)-MaxSearch
+               indmax(i) = indmax(i)+MaxSearch
+            endif
+
         elseif ( (type_interp(i) /= Agrif_constant) .and.   &
                  (type_interp(i) /= Agrif_linear) ) then
             indmin(i) = indmin(i) - 1
             indmax(i) = indmax(i) + 1
+
+            if (Agrif_UseSpecialValue) then
+               indmin(i) = indmin(i)-MaxSearch
+               indmax(i) = indmax(i)+MaxSearch
+            endif
+
+        elseif ( (type_interp(i) == Agrif_constant) .or.   &
+                 (type_interp(i) == Agrif_linear) ) then
+            if (Agrif_UseSpecialValue) then
+               indmin(i) = indmin(i)-MaxSearch
+               indmax(i) = indmax(i)+MaxSearch
+            endif
+
         endif
 !