- Timestamp:
- 08/25/20 14:28:16 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_ym/XIOS_COUPLING/src/test/generic_testcase.f90
r1875 r1925 1936 1936 INTEGER :: i,x 1937 1937 1938 x=size(mask)1939 1938 mask(:)=.TRUE. 1940 1939 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. 1945 1942 ENDIF 1946 1943 … … 2133 2130 IF (Y_mask(i)) THEN 2134 2131 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))) 2136 2133 ENDIF 2137 2134 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.