Changeset 2680 for branches/dev_r2586_dynamic_mem/NEMOGCM/EXTERNAL
- Timestamp:
- 2011-03-10T14:28:49+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modupdate.F
r2673 r2680 1761 1761 positionmin = positionmin - (ds_Parent(i)-ds_Child(i)) 1762 1762 else 1763 positionmin = positionmin - (ds_Parent(i)-ds_Child(i))-ds_Child(i)/2. 1763 positionmin = positionmin - (ds_Parent(i)-ds_Child(i)) 1764 & -ds_Child(i)/2. 1764 1765 endif 1765 1766 ENDIF … … 1770 1771 1771 1772 positionmin = s_Child(i) + (imin - 1772 & 1773 & pttab_Child(i)) * ds_Child(i) 1773 1774 1774 1775 pttruetabwhole(i) = imin … … 1791 1792 positionmax = positionmax + (ds_Parent(i)-ds_Child(i)) 1792 1793 else 1793 positionmax = positionmax + (ds_Parent(i)-ds_Child(i)) + ds_Child(i)/2. 1794 positionmax = positionmax + (ds_Parent(i)-ds_Child(i)) 1795 & + ds_Child(i)/2. 1794 1796 endif 1795 1797
Note: See TracChangeset
for help on using the changeset viewer.