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

Timestamp:

10/09/15 16:13:43 (9 years ago)

Author:

dubos

Message:

Bugfix : memory leak in transfert_mpi / New : detect send_message not paired with wait_message

File:

• codes/icosagcm/trunk/src/advect_tracer.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/advect_tracer.f90

@@ -82 +82 @@
     IF (first) THEN
       first=.FALSE.
-      CALL init_message(f_u,req_e1_vect,req_u)
-      CALL init_message(f_cc,req_e1_scal,req_cc)
-      CALL init_message(f_wfluxt,req_i1,req_wfluxt)
-      CALL init_message(f_q,req_i1,req_q)
-      CALL init_message(f_rhodz,req_i1,req_rhodz)
-      CALL init_message(f_gradq3d,req_i1,req_gradq3d)
+      CALL init_message(f_u,req_e1_vect,req_u, 'req_u')
+      CALL init_message(f_cc,req_e1_scal,req_cc, 'req_cc')
+      CALL init_message(f_wfluxt,req_i1,req_wfluxt, 'req_wfluxt')
+      CALL init_message(f_q,req_i1,req_q, 'req_q')
+      CALL init_message(f_rhodz,req_i1,req_rhodz, 'req_rhodz')
+      CALL init_message(f_gradq3d,req_i1,req_gradq3d, 'req_gradq3d')
     ENDIF
     
 !!$OMP BARRIER
 
+    IF(nqtot<1) RETURN
     CALL trace_start("advect_tracer")