Changeset 2680


Ignore:
Timestamp:
2011-03-10T14:28:49+01:00 (10 years ago)
Author:
rblod
Message:

Correct typo error in AGRIF preventing from compiling with key_mpp_mpi even without key_agrif

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_r2586_dynamic_mem/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modupdate.F

    r2673 r2680  
    17611761            positionmin = positionmin - (ds_Parent(i)-ds_Child(i)) 
    17621762          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. 
    17641765          endif 
    17651766        ENDIF 
     
    17701771 
    17711772       positionmin = s_Child(i) + (imin - 
    1772      &                                pttab_Child(i)) * ds_Child(i) 
     1773     &                             pttab_Child(i)) * ds_Child(i) 
    17731774 
    17741775        pttruetabwhole(i) = imin 
     
    17911792            positionmax = positionmax + (ds_Parent(i)-ds_Child(i)) 
    17921793          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. 
    17941796          endif 
    17951797 
Note: See TracChangeset for help on using the changeset viewer.