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

Timestamp:

02/09/15 20:18:34 (9 years ago)

Author:

ymipsl

Message:

Merge recent developments from saturn branch onto trunk.

• lmdz generic physics interface
• performance improvment on mix mpi/openmp
• asynchrone and overlaping communication
• best domain distribution between process and threads
• ....

This version is compatible with the actual saturn version and the both branches are considered merged on dynamico component.

YM

File:

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

codes/icosagcm/trunk/src/advect_tracer.f90

@@ -95 +95 @@
 
     CALL send_message(f_u,req_u)
+    CALL send_message(f_wfluxt,req_wfluxt)
+    CALL send_message(f_q,req_q)
+    CALL send_message(f_rhodz,req_rhodz)
+
     CALL wait_message(req_u)
-    CALL send_message(f_wfluxt,req_wfluxt)
     CALL wait_message(req_wfluxt)
-    CALL send_message(f_q,req_q)
     CALL wait_message(req_q)
-    CALL send_message(f_rhodz,req_rhodz)
     CALL wait_message(req_rhodz)
-
-!    CALL wait_message(req_u)
-!    CALL wait_message(req_wfluxt)
-!    CALL wait_message(req_q)
-!    CALL wait_message(req_rhodz)
     
     ! 1/2 vertical transport + back-trajectories
@@ -134 +130 @@
 
     CALL send_message(f_cc,req_cc)
-    CALL wait_message(req_cc)
 
 
     ! horizontal transport - split in two to place transfer of gradq3d
-!!$OMP BARRIER
     DO k = 1, nqtot
        DO ind=1,ndomain
@@ -148 +142 @@
           sqrt_leng=f_sqrt_leng(ind)
           CALL compute_gradq3d(q(:,:,k),sqrt_leng,gradq3d,xyz_i,xyz_v)
+
        END DO
 
        CALL send_message(f_gradq3d,req_gradq3d)
-!       CALL wait_message(req_cc)
+       CALL wait_message(req_cc)
        CALL wait_message(req_gradq3d)