Changeset 2348

Timestamp:

06/30/22 14:26:56 (11 months ago)

Author:

jderouillat

Message:

Fix the indexation of the orchidee grid in the generic_testcase

File:

• XIOS/trunk/src/test/generic_testcase.f90 (modified) (3 diffs)

XIOS/trunk/src/test/generic_testcase.f90

@@ -1584 +1584 @@
     ij_begin=offset+jbegin*ni
     ij_end=ij_begin+nbp-1
-    
     ALLOCATE(lon(0:ni-1), lat(0:nj-1), mask(0:ni*nj-1))
     mask(:)=.FALSE.
@@ -1627 +1626 @@
         i_glo=i
         j_glo=jbegin+j
-        ij=j*ni+i
+        ij=j_glo*ni+i_glo
         IF ( ij>=ij_begin .AND. ij<=ij_end) THEN
            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
         j_glo=jbegin+j
-        ij=j*ni+i
+        ij=j_glo*ni+i_glo
         IF ( ij>=ij_begin .AND. ij<=ij_end) THEN
            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