Changeset 1925

Timestamp:

08/25/20 14:28:16 (4 years ago)

Author:

ymipsl

Message:

Report in coupling branch some of bug fix from trunk r1914. Some other bugs from same revision have been corected independently.

YM

File:

• XIOS/dev/dev_ym/XIOS_COUPLING/src/test/generic_testcase.f90 (modified) (2 diffs)

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

@@ -1936 +1936 @@
      INTEGER :: i,x
 
-     x=size(mask)
      mask(:)=.TRUE.
      IF (params%domain_mask) THEN
-       DO i=0,x-1
-         IF (lon(i)-2*lat(i)>-10 .AND. lon(i)-2*lat(i) <10) mask(i)=.FALSE.
-         IF (2*lat(i)+lon(i)>-10 .AND. 2*lat(i)+lon(i)<10) mask(i)=.FALSE.
-       ENDDO
+       WHERE (lon(:)-2*lat(:)>-10 .AND. lon(:)-2*lat(:) <10) mask(:)=.FALSE. 
+       WHERE (2*lat(:)+lon(:)>-10 .AND. 2*lat(:)+lon(:)<10) mask(:)=.FALSE. 
      ENDIF
 
@@ -2133 +2130 @@
       IF (Y_mask(i)) THEN
          return_fieldY(i)=(coef-SIN(dp_pi*(ACOS(COS(Y_lat(i)*dp_conv)*&
-                            COS(Y_lon(X/2)*dp_conv))/dp_length)))
+                            COS(Y_lon(i)*dp_conv))/dp_length)))
       ENDIF
     ENDDO