Ignore:
Timestamp:
08/26/20 11:45:32 (15 months ago)
Author:
ymipsl
Message:

Bug fix in generic testcase for orchidee grid.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/dev/dev_ym/XIOS_COUPLING/src/test/generic_testcase.f90

    r1925 r1926  
    16041604        i_glo=i 
    16051605        j_glo=jbegin+j 
    1606         ij=j*ni+i 
     1606        ij=j_glo*ni_glo+i_glo 
    16071607        IF ( ij>=ij_begin .AND. ij<=ij_end) THEN 
    16081608           IF ((MOD(j_glo,3)==1 .OR. MOD(j_glo,3)==2) .AND. (MOD(i_glo,5)==3 .OR. MOD(i_glo,5)==4)) CYCLE 
     
    16191619        i_glo=i 
    16201620        j_glo=jbegin+j 
    1621         ij=j*ni+i 
     1621        ij=j_glo*ni_glo+i_glo 
    16221622        IF ( ij>=ij_begin .AND. ij<=ij_end) THEN 
    16231623           IF ((MOD(j_glo,3)==1 .OR. MOD(j_glo,3)==2) .AND. (MOD(i_glo,5)==3 .OR. MOD(i_glo,5)==4)) CYCLE 
Note: See TracChangeset for help on using the changeset viewer.