Changeset 1914


Ignore:
Timestamp:
06/30/20 17:33:39 (6 weeks ago)
Author:
ymipsl
Message:

Bug fix in generic_testcase.

  1. Piacentini +YM
File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/test/generic_testcase.f90

    r1896 r1914  
    261261     
    262262    ok_field3D_recv_W=xios_is_valid_field("field3D_recv_W").AND.xios_is_valid_field("field3D_resend_W") ; 
    263     IF (ok_field3D_recv) THEN 
     263    IF (ok_field3D_recv_W) THEN 
    264264      CALL xios_is_defined_field_attr("field3D_recv_W",freq_op=ok) 
    265265      IF (ok) THEN 
     
    466466     
    467467    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) THEN 
     468    IF (ok_other_field3D_recv_W) THEN 
    469469      CALL xios_is_defined_field_attr("other_field3D_recv_W",freq_op=ok) 
    470470      IF (ok) THEN 
     
    18801880        bounds_lon(3,i,j)=bounds_lon_glo(1,ibegin+i) 
    18811881        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) 
    18861886 
    18871887        ij=(j+offset_j)*(ni+2*offset_i)+i+offset_i 
     
    19591959     INTEGER :: i,x 
    19601960 
    1961      x=size(mask) 
    19621961     mask(:)=.TRUE. 
    19631962     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. 
    19681965     ENDIF 
    19691966 
     
    21582155      IF (Y_mask(i)) THEN 
    21592156         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))) 
    21612158      ENDIF 
    21622159    ENDDO 
Note: See TracChangeset for help on using the changeset viewer.