Changeset 3706 for LMDZ6/branches/Optimisation_LMDZ/libf/phy_common

Timestamp:

Jun 11, 2020, 11:09:38 AM (4 years ago)

Author:

adurocher

Message:

Added timers for physiq and display physic profiling

Location:

LMDZ6/branches/Optimisation_LMDZ/libf/phy_common

Files:

• mod_phys_lmdz_mpi_transfert.F90 (modified) (3 diffs)
• profiling_physic.F90 (added)

LMDZ6/branches/Optimisation_LMDZ/libf/phy_common/mod_phys_lmdz_mpi_transfert.F90

@@ -46 +46 @@
                      reduce_min_mpi_r,reduce_min_mpi_r1,reduce_min_mpi_r2,reduce_min_mpi_r3,reduce_min_mpi_r4
   END INTERFACE 
+  
+  INTERFACE reduce_max_mpi
+    MODULE PROCEDURE reduce_max_mpi_r
+  END INTERFACE
 
  INTERFACE grid1dTo2d_mpi
@@ -1115 +1119 @@
   END SUBROUTINE reduce_min_mpi_r4 
 
-
+  SUBROUTINE reduce_max_mpi_r(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN)  :: VarIn
+    REAL,INTENT(OUT) :: VarOut
+    REAL             :: VarIn_tmp(1)
+    REAL             :: VarOut_tmp(1)
+    
+    VarIn_tmp(1)=VarIn    
+    CALL reduce_max_mpi_rgen(VarIn_tmp,Varout_tmp,1)
+    VarOut=VarOut_tmp(1)
+  
+  END SUBROUTINE reduce_max_mpi_r
 
 
@@ -1805 +1822 @@
         
   END SUBROUTINE reduce_sum_mpi_rgen
+  
+  SUBROUTINE reduce_max_mpi_rgen(VarIn,VarOut,nb)
+    USE mod_phys_lmdz_mpi_data 
+    USE mod_grid_phy_lmdz
+
+    IMPLICIT NONE
+
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif
+    
+    INTEGER,INTENT(IN) :: nb
+    REAL,DIMENSION(nb),INTENT(IN) :: VarIn
+    REAL,DIMENSION(nb),INTENT(OUT) :: VarOut    
+    INTEGER :: ierr
+ 
+    IF (.not.is_using_mpi) THEN
+      VarOut(:)=VarIn(:)
+      RETURN
+    ENDIF
+   
+#ifdef CPP_MPI
+    CALL MPI_REDUCE(VarIn,VarOut,nb,MPI_REAL_LMDZ,MPI_MAX,mpi_master,COMM_LMDZ_PHY,ierr)
+#endif
+        
+  END SUBROUTINE reduce_max_mpi_rgen