Changeset 667 for codes/icosagcm/trunk/src/parallel/transfert_mpi.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/transfert_mpi.f90 (modified) (9 diffs)

codes/icosagcm/trunk/src/parallel/transfert_mpi.f90

@@ -2 +2 @@
 USE genmod
 USE field_mod
+IMPLICIT NONE
   
   TYPE array
@@ -85 +86 @@
   END INTERFACE
 
-
-  
 CONTAINS
        
       
   SUBROUTINE init_transfert
+  USE profiling_mod
   USE domain_mod
   USE dimensions
@@ -100 +100 @@
   INTEGER :: ind,i,j
   LOGICAL ::ok
- 
+
+    CALL register_id('MPI', id_mpi)
+
     CALL create_request(field_t,req_i1)
 
@@ -1094 +1096 @@
 
   SUBROUTINE send_message_mpi(field,message)
+  USE profiling_mod
   USE field_mod
   USE domain_mod
@@ -1124 +1127 @@
 
 !    CALL trace_start("send_message_mpi")
+
+    CALL enter_profile(id_mpi)
 
 !$OMP BARRIER
@@ -1482 +1487 @@
 !$OMP BARRIER
 !    CALL trace_end("send_message_mpi")
+
+    CALL exit_profile(id_mpi)
     
   END SUBROUTINE send_message_mpi
@@ -1499 +1506 @@
    
   SUBROUTINE wait_message_mpi(message)
+  USE profiling_mod
   USE field_mod
   USE domain_mod
@@ -1527 +1535 @@
     message%open=.FALSE.
     IF (.NOT. message%pending) RETURN
+
+    CALL enter_profile(id_mpi)
 
 !    CALL trace_start("wait_message_mpi")
@@ -1667 +1677 @@
 !$OMP BARRIER
     
+    CALL exit_profile(id_mpi)
+
   END SUBROUTINE wait_message_mpi