Changeset 667 for codes/icosagcm/trunk/src/parallel/mpipara.F90

Timestamp:

01/24/18 18:49:49 (6 years ago)

Author:

dubos

Message:

trunk : basic coarse-grain profiling

File:

• codes/icosagcm/trunk/src/parallel/mpipara.F90 (modified) (1 diff)

codes/icosagcm/trunk/src/parallel/mpipara.F90

@@ -12 +12 @@
   INTEGER,SAVE :: mpi_master
   
-  
+  INTEGER,SAVE :: id_mpi ! id for profiling
+
   INTERFACE allocate_mpi_buffer
     MODULE PROCEDURE allocate_mpi_buffer_r2, allocate_mpi_buffer_r3,allocate_mpi_buffer_r4