- Timestamp:
- 06/30/20 17:33:39 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/test/generic_testcase.f90
r1896 r1914 261 261 262 262 ok_field3D_recv_W=xios_is_valid_field("field3D_recv_W").AND.xios_is_valid_field("field3D_resend_W") ; 263 IF (ok_field3D_recv ) THEN263 IF (ok_field3D_recv_W) THEN 264 264 CALL xios_is_defined_field_attr("field3D_recv_W",freq_op=ok) 265 265 IF (ok) THEN … … 466 466 467 467 ok_other_field3D_recv_W=xios_is_valid_field("other_field3D_recv_W").AND.xios_is_valid_field("other_field3D_resend_W") ; 468 IF (ok_other_field3D_recv ) THEN468 IF (ok_other_field3D_recv_W) THEN 469 469 CALL xios_is_defined_field_attr("other_field3D_recv_W",freq_op=ok) 470 470 IF (ok) THEN … … 1880 1880 bounds_lon(3,i,j)=bounds_lon_glo(1,ibegin+i) 1881 1881 bounds_lon(4,i,j)=bounds_lon_glo(2,ibegin+i) 1882 bounds_lat(1,i,j)=bounds_lat_glo(1, ibegin+i)1883 bounds_lat(2,i,j)=bounds_lat_glo(1, ibegin+i)1884 bounds_lat(3,i,j)=bounds_lat_glo(2, ibegin+i)1885 bounds_lat(4,i,j)=bounds_lat_glo(2, ibegin+i)1882 bounds_lat(1,i,j)=bounds_lat_glo(1,jbegin+j) 1883 bounds_lat(2,i,j)=bounds_lat_glo(1,jbegin+j) 1884 bounds_lat(3,i,j)=bounds_lat_glo(2,jbegin+j) 1885 bounds_lat(4,i,j)=bounds_lat_glo(2,jbegin+j) 1886 1886 1887 1887 ij=(j+offset_j)*(ni+2*offset_i)+i+offset_i … … 1959 1959 INTEGER :: i,x 1960 1960 1961 x=size(mask)1962 1961 mask(:)=.TRUE. 1963 1962 IF (params%domain_mask) THEN 1964 DO i=0,x-1 1965 IF (lon(i)-2*lat(i)>-10 .AND. lon(i)-2*lat(i) <10) mask(i)=.FALSE. 1966 IF (2*lat(i)+lon(i)>-10 .AND. 2*lat(i)+lon(i)<10) mask(i)=.FALSE. 1967 ENDDO 1963 WHERE (lon(:)-2*lat(:)>-10 .AND. lon(:)-2*lat(:) <10) mask(:)=.FALSE. 1964 WHERE (2*lat(:)+lon(:)>-10 .AND. 2*lat(:)+lon(:)<10) mask(:)=.FALSE. 1968 1965 ENDIF 1969 1966 … … 2158 2155 IF (Y_mask(i)) THEN 2159 2156 return_fieldY(i)=(coef-SIN(dp_pi*(ACOS(COS(Y_lat(i)*dp_conv)*& 2160 COS(Y_lon( X/2)*dp_conv))/dp_length)))2157 COS(Y_lon(i)*dp_conv))/dp_length))) 2161 2158 ENDIF 2162 2159 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.