Changeset 1925


Ignore:
Timestamp:
08/25/20 14:28:16 (13 months 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:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/dev/dev_ym/XIOS_COUPLING/src/test/generic_testcase.f90

    r1875 r1925  
    19361936     INTEGER :: i,x 
    19371937 
    1938      x=size(mask) 
    19391938     mask(:)=.TRUE. 
    19401939     IF (params%domain_mask) THEN 
    1941        DO i=0,x-1 
    1942          IF (lon(i)-2*lat(i)>-10 .AND. lon(i)-2*lat(i) <10) mask(i)=.FALSE. 
    1943          IF (2*lat(i)+lon(i)>-10 .AND. 2*lat(i)+lon(i)<10) mask(i)=.FALSE. 
    1944        ENDDO 
     1940       WHERE (lon(:)-2*lat(:)>-10 .AND. lon(:)-2*lat(:) <10) mask(:)=.FALSE.  
     1941       WHERE (2*lat(:)+lon(:)>-10 .AND. 2*lat(:)+lon(:)<10) mask(:)=.FALSE.  
    19451942     ENDIF 
    19461943 
     
    21332130      IF (Y_mask(i)) THEN 
    21342131         return_fieldY(i)=(coef-SIN(dp_pi*(ACOS(COS(Y_lat(i)*dp_conv)*& 
    2135                             COS(Y_lon(X/2)*dp_conv))/dp_length))) 
     2132                            COS(Y_lon(i)*dp_conv))/dp_length))) 
    21362133      ENDIF 
    21372134    ENDDO 
Note: See TracChangeset for help on using the changeset viewer.