Changeset 7751


Ignore:
Timestamp:
2017-03-02T13:51:48+01:00 (4 years ago)
Author:
jchanut
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modinterp.F90

    r6133 r7751  
    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.