Changeset 1360 for XIOS/dev/branch_openmp/src/test

Timestamp:

12/06/17 09:49:39 (6 years ago)

Author:

yushan

Message:

toy_cmip6_omp tested on Curie (14*4+2) and Ada (14*2+2)

File:

• XIOS/dev/branch_openmp/src/test/toy_cmip6_omp.f90 (modified) (3 diffs)

XIOS/dev/branch_openmp/src/test/toy_cmip6_omp.f90

@@ -2 +2 @@
 
   USE xios
+  USE omp_lib
   USE mod_wait
   IMPLICIT NONE
@@ -63 +64 @@
   CALL MPI_COMM_SIZE(comm,size_loc,ierr)
 
+  rank = rank*omp_get_num_threads() + omp_get_thread_num()
+  size_loc = size_loc*omp_get_num_threads()
+
+  print*, "rank = ", rank, " size = ", size_loc
 
 !!! Initialisation et allocation des coordonnées globales et locales pour la grille réguliÚre
@@ -356 +361 @@
 
     CALL xios_init_server
-    print *, "Server : xios_finalize "
+    print *, "Server : xios_finalize ", rank
   
     endif