Changeset 1848 for LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F

Timestamp:

Aug 23, 2013, 2:20:58 PM (11 years ago)

Author:

yann meurdesoif

Message:

Solve performance problem comming from declarations of a derived type.

YM

File:

• LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F (modified) (5 diffs)

LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F

@@ -449 +449 @@
       IF (ok_start_timer) THEN
         CALL InitTime
-!        ok_start_timer=.FALSE.
-        ok_start_timer=.TRUE.
+        ok_start_timer=.FALSE.
       ENDIF      
 c$OMP END MASTER      
@@ -624 +623 @@
       True_itau=True_itau+1
 
-c$OMP MASTER      
-      PRINT *,"---> itau=",itau,"  True_itau=",True_itau
-c$OMP END MASTER
-
 c$OMP MASTER
       IF (prt_level>9) THEN
@@ -1086 +1081 @@
 
       IF(iflag_phys.EQ.2) THEN ! "Newtonian" case
+c$OMP MASTER
+         if (FirstPhysic) then
+           ok_start_timer=.TRUE.
+           FirstPhysic=.false.
+         endif
+c$OMP END MASTER
+
+
 c   Calcul academique de la physique = Rappel Newtonien + fritcion 
 c   --------------------------------------------------------------
@@ -1388 +1391 @@
 c$OMP MASTER
             call allgather_timer_average
-
+      call barrier
       if (mpi_rank==0) then
         
@@ -1424 +1427 @@
         
       endif  
-      
+      CALL barrier
       print *,'Taille du Buffer MPI (REAL*8)',MaxBufferSize
       print *,'Taille du Buffer MPI utilise (REAL*8)',MaxBufferSize_Used