Changeset 2348


Ignore:
Timestamp:
06/30/22 14:26:56 (6 weeks ago)
Author:
jderouillat
Message:

Fix the indexation of the orchidee grid in the generic_testcase

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/test/generic_testcase.f90

    r2336 r2348  
    15841584    ij_begin=offset+jbegin*ni 
    15851585    ij_end=ij_begin+nbp-1 
    1586      
    15871586    ALLOCATE(lon(0:ni-1), lat(0:nj-1), mask(0:ni*nj-1)) 
    15881587    mask(:)=.FALSE. 
     
    16271626        i_glo=i 
    16281627        j_glo=jbegin+j 
    1629         ij=j*ni+i 
     1628        ij=j_glo*ni+i_glo 
    16301629        IF ( ij>=ij_begin .AND. ij<=ij_end) THEN 
    16311630           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 
     
    16421641        i_glo=i 
    16431642        j_glo=jbegin+j 
    1644         ij=j*ni+i 
     1643        ij=j_glo*ni+i_glo 
    16451644        IF ( ij>=ij_begin .AND. ij<=ij_end) THEN 
    16461645           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.