- Timestamp:
- 08/26/20 11:45:32 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_ym/XIOS_COUPLING/src/test/generic_testcase.f90
r1925 r1926 1604 1604 i_glo=i 1605 1605 j_glo=jbegin+j 1606 ij=j *ni+i1606 ij=j_glo*ni_glo+i_glo 1607 1607 IF ( ij>=ij_begin .AND. ij<=ij_end) THEN 1608 1608 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 … … 1619 1619 i_glo=i 1620 1620 j_glo=jbegin+j 1621 ij=j *ni+i1621 ij=j_glo*ni_glo+i_glo 1622 1622 IF ( ij>=ij_begin .AND. ij<=ij_end) THEN 1623 1623 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.