Changeset 2348
 Timestamp:
 06/30/22 14:26:56 (23 months ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

XIOS/trunk/src/test/generic_testcase.f90
r2336 r2348 1584 1584 ij_begin=offset+jbegin*ni 1585 1585 ij_end=ij_begin+nbp1 1586 1587 1586 ALLOCATE(lon(0:ni1), lat(0:nj1), mask(0:ni*nj1)) 1588 1587 mask(:)=.FALSE. … … 1627 1626 i_glo=i 1628 1627 j_glo=jbegin+j 1629 ij=j *ni+i1628 ij=j_glo*ni+i_glo 1630 1629 IF ( ij>=ij_begin .AND. ij<=ij_end) THEN 1631 1630 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 … … 1642 1641 i_glo=i 1643 1642 j_glo=jbegin+j 1644 ij=j *ni+i1643 ij=j_glo*ni+i_glo 1645 1644 IF ( ij>=ij_begin .AND. ij<=ij_end) THEN 1646 1645 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.