Changeset 1953

Timestamp:

10/08/20 13:02:22 (4 years ago)

Author:

ymipsl

Message:

Xios coupling :

Fix problem on axis mask in generic test case.

YM

File:

• XIOS/dev/dev_ym/XIOS_COUPLING/src/test/generic_testcase.f90 (modified) (1 diff)

XIOS/dev/dev_ym/XIOS_COUPLING/src/test/generic_testcase.f90

@@ -2091 +2091 @@
      LOGICAL           :: mask(:)
      INTEGER :: i,x
-
+     
+     mask(:)=.TRUE.
      x=size(mask)
      IF (params%axis_mask) THEN
        DO i=0,x-1
-         IF (MOD(i,3)==0) mask(i)=.FALSE.
-         IF (MOD(i,4)==0) mask(i)=.FALSE.
+         IF (MOD(i,3)==0) mask(i+1)=.FALSE.
+         IF (MOD(i,4)==0) mask(i+1)=.FALSE.
        ENDDO
      ENDIF