Ignore:
Timestamp:
06/21/17 17:57:47 (4 years ago)
Author:
yushan
Message:

MARK! This version is working for test_client and test_complete with large number of procs and threads

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/dev/branch_yushan_merged/src/test/test_remap_omp.f90

    r1176 r1179  
    5252  if(rank < size-2) then 
    5353 
    54   !$omp parallel default(private) firstprivate(dtime) 
     54  !$omp parallel default(firstprivate) firstprivate(dtime) 
    5555 
    5656!!! XIOS Initialization (get the local communicator) 
     
    232232    CALL xios_send_field("src_field_2D",src_field_2D) 
    233233     
    234     DO i=1,src_ni 
    235       src_field_2D_clone(i) = src_field_2D(i) 
    236       IF ((23.5 * ts < src_lat(i)) .AND. (src_lat(i) < 65.5 *ts) .AND. (0 < src_lon(i)) .AND. (src_lon(i) < 30*ts)) THEN       
    237         src_field_2D_clone(i) = missing_value     
    238       ENDIF 
    239     ENDDO 
    240  
    241     CALL xios_send_field("src_field_2D_clone",src_field_2D_clone) 
    242     CALL xios_send_field("src_field_3D",src_field_3D) 
    243     CALL xios_send_field("src_field_3D_clone",src_field_3D) 
    244     CALL xios_send_field("src_field_4D",src_field_4D) 
    245     CALL xios_send_field("src_field_3D_pression",src_field_pression) 
     234    !DO i=1,src_ni 
     235    !  src_field_2D_clone(i) = src_field_2D(i) 
     236    !  IF ((23.5 * ts < src_lat(i)) .AND. (src_lat(i) < 65.5 *ts) .AND. (0 < src_lon(i)) .AND. (src_lon(i) < 30*ts)) THEN       
     237    !    src_field_2D_clone(i) = missing_value     
     238    !  ENDIF 
     239    !ENDDO 
     240 
     241    !CALL xios_send_field("src_field_2D_clone",src_field_2D_clone) 
     242    !CALL xios_send_field("src_field_3D",src_field_3D) 
     243    !CALL xios_send_field("src_field_3D_clone",src_field_3D) 
     244    !CALL xios_send_field("src_field_4D",src_field_4D) 
     245    !CALL xios_send_field("src_field_3D_pression",src_field_pression) 
    246246    CALL xios_send_field("tmp_field_0",tmp_field_0) 
    247247    CALL xios_send_field("tmp_field_1",tmp_field_1) 
     
    258258  CALL xios_finalize() 
    259259   
    260   print *, "Client : xios_finalize " 
     260  print *, "Client : xios_finalize ", rank 
    261261 
    262262  !$omp barrier 
Note: See TracChangeset for help on using the changeset viewer.