New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7752 – NEMO

Changeset 7752


Ignore:
Timestamp:
2017-03-02T13:58:45+01:00 (7 years ago)
Author:
jchanut
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modinterp.F90

    r5656 r7752  
    774774            indmin(i) = indmin(i) - 2 
    775775            indmax(i) = indmax(i) + 2 
     776 
     777            if (Agrif_UseSpecialValue) then 
     778               indmin(i) = indmin(i)-MaxSearch 
     779               indmax(i) = indmax(i)+MaxSearch 
     780            endif 
     781 
    776782        elseif ( (type_interp(i) /= Agrif_constant) .and.   & 
    777783                 (type_interp(i) /= Agrif_linear) ) then 
    778784            indmin(i) = indmin(i) - 1 
    779785            indmax(i) = indmax(i) + 1 
     786 
     787            if (Agrif_UseSpecialValue) then 
     788               indmin(i) = indmin(i)-MaxSearch 
     789               indmax(i) = indmax(i)+MaxSearch 
     790            endif 
     791 
     792        elseif ( (type_interp(i) == Agrif_constant) .or.   & 
     793                 (type_interp(i) == Agrif_linear) ) then 
     794            if (Agrif_UseSpecialValue) then 
     795               indmin(i) = indmin(i)-MaxSearch 
     796               indmax(i) = indmax(i)+MaxSearch 
     797            endif 
     798 
    780799        endif 
    781800! 
Note: See TracChangeset for help on using the changeset viewer.