Changeset 145 for codes/icosagcm/trunk/src/caldyn_gcm.f90

Timestamp:

02/28/13 17:08:54 (11 years ago)

Author:

ymipsl

Message:

Add vampirtrace management

YM

File:

• codes/icosagcm/trunk/src/caldyn_gcm.f90 (modified) (9 diffs)

codes/icosagcm/trunk/src/caldyn_gcm.f90

@@ -91 +91 @@
     USE theta2theta_rhodz_mod
     USE mpipara
+    USE trace
     IMPLICIT NONE
     LOGICAL,INTENT(IN)    :: write_out
@@ -109 +110 @@
     INTEGER :: ind,ij
     
+    CALL trace_start("caldyn")
     CALL transfert_request(f_phis,req_i1) 
     CALL transfert_request(f_ps,req_i1) 
@@ -188 +190 @@
     
     !    CALL check_mass_conservation(f_ps,f_dps)
+    CALL trace_end("caldyn")
     
 END SUBROUTINE caldyn
@@ -195 +198 @@
   USE disvert_mod
   USE exner_mod
+  USE trace
   IMPLICIT NONE
   REAL(rstd),INTENT(IN)  :: u(iim*3*jjm,llm)
@@ -208 +212 @@
   LOGICAL,SAVE :: first=.TRUE.
   !$OMP THREADPRIVATE(first)
-  
+
+
+  CALL trace_start("compute_pvort")  
   !$OMP BARRIER      
   !$OMP MASTER  
@@ -281 +287 @@
     DEALLOCATE(qv)       ! potential velocity  
 !!$OMP END MASTER
-!!$OMP BARRIER                                                      
+!!$OMP BARRIER   
+    CALL trace_end("compute_pvort")
+                                                       
   END SUBROUTINE compute_pvort
   
@@ -288 +296 @@
   USE disvert_mod
   USE exner_mod
+  USE trace
   IMPLICIT NONE
     REAL(rstd),INTENT(IN)  :: phis(iim*jjm)
@@ -315 +324 @@
     LOGICAL,SAVE :: first=.TRUE.
 !$OMP THREADPRIVATE(first)
-        
+    
+    CALL trace_start("compute_caldyn")
 !$OMP BARRIER      
 !$OMP MASTER  
@@ -644 +654 @@
 !!$OMP END MASTER
 !!$OMP BARRIER                                                      
+    CALL trace_end("compute_caldyn")
+
   END SUBROUTINE compute_caldyn