Changeset 1650 for XIOS/dev/dev_trunk_omp/src/test/test_complete_omp.f90

Timestamp:

02/12/19 10:16:40 (5 years ago)

Author:

yushan

Message:

branch tested with openmpi thread_multiple

File:

• XIOS/dev/dev_trunk_omp/src/test/test_complete_omp.f90 (modified) (4 diffs)

XIOS/dev/dev_trunk_omp/src/test/test_complete_omp.f90

@@ -14 +14 @@
   TYPE(xios_duration)  :: dtime
   TYPE(xios_context) :: ctx_hdl
-  INTEGER,PARAMETER :: ni_glo=100
-  INTEGER,PARAMETER :: nj_glo=100
+  INTEGER,PARAMETER :: ni_glo=1000
+  INTEGER,PARAMETER :: nj_glo=1000
   INTEGER,PARAMETER :: llm=5
   DOUBLE PRECISION  :: lval(llm)=1
@@ -36 +36 @@
     if(provided .NE. 3) then
       print*, "provided thread level = ", provided
-      call MPI_Abort()
+      !call MPI_Abort()
     endif 
 
@@ -45 +45 @@
   CALL MPI_COMM_RANK(MPI_COMM_WORLD,rank,ierr)
   CALL MPI_COMM_SIZE(MPI_COMM_WORLD,size,ierr)
-  if(rank < size-2) then
+  if(rank < size-4) then
 
   !$omp parallel default(firstprivate) 
@@ -276 +276 @@
       CALL xios_send_field("field_A_srf",field_A_srf)
 
-      CALL wait_us(5000) ;
+      CALL wait_us(5) ;