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

Timestamp:

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

Author:

ymipsl

Message:

Add vampirtrace management

YM

File:

• codes/icosagcm/trunk/src/advect_tracer.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/advect_tracer.f90

@@ -39 +39 @@
     USE advect_mod
     USE mpipara
+    USE trace
     IMPLICIT NONE
-
+    
     TYPE(t_field),POINTER :: f_hfluxt(:)   ! time-integrated horizontal mass flux
     TYPE(t_field),POINTER :: f_wfluxt(:)   ! time-integrated vertical mass flux
@@ -51 +52 @@
     REAL(rstd),POINTER :: rhodz(:,:), u(:,:) 
     INTEGER :: ind,k
+
+    CALL trace_start("advect_tracer") 
 
     CALL transfert_request(f_u,req_e1)
@@ -110 +113 @@
     CALL transfert_request(f_q,req_i1)      ! necessary ?
     CALL transfert_request(f_rhodz,req_i1)  ! necessary ?
+    
+    CALL trace_end("advect_tracer")
+     
 
     ! horizontal transport - split in two to place transfer of gradq3d