Changeset 13144


Ignore:
Timestamp:
2020-06-23T13:11:50+02:00 (5 months ago)
Author:
rblod
Message:

ticket #2129 : repro with the new AGRIF library

File:
1 edited

Legend:

Unmodified
Added
Removed
  • vendors/AGRIF/dev_r12970_AGRIF_CMEMS/AGRIF_FILES/modinterp.F90

    r13027 r13144  
    13321332            indmin(i) = indmin(i) - 2 
    13331333            indmax(i) = indmax(i) + 2 
     1334 
     1335            if (Agrif_UseSpecialValue) then 
     1336               indmin(i) = indmin(i)-MaxSearch 
     1337               indmax(i) = indmax(i)+MaxSearch 
     1338            endif 
     1339 
    13341340        elseif ( (type_interp(i) /= Agrif_constant) .and.   & 
    13351341                 (type_interp(i) /= Agrif_linear) ) then 
    13361342            indmin(i) = indmin(i) - 1 
    13371343            indmax(i) = indmax(i) + 1 
     1344 
     1345            if (Agrif_UseSpecialValue) then 
     1346               indmin(i) = indmin(i)-MaxSearch 
     1347               indmax(i) = indmax(i)+MaxSearch 
     1348            endif 
     1349 
     1350        elseif ( (type_interp(i) == Agrif_constant) .or.   & 
     1351                 (type_interp(i) == Agrif_linear) ) then 
     1352            if (Agrif_UseSpecialValue) then 
     1353               indmin(i) = indmin(i)-MaxSearch 
     1354               indmax(i) = indmax(i)+MaxSearch 
     1355            endif 
     1356 
    13381357        endif 
    13391358! 
Note: See TracChangeset for help on using the changeset viewer.