Changeset 5829 for LMDZ6/trunk/libf/phy_common/mod_phys_lmdz_transfert_para.f90

Timestamp:

Sep 24, 2025, 10:24:33 AM (2 months ago)

Author:

rkazeroni

Message:

Add reduce_max functionality, similarly to reduce_min

File:

• LMDZ6/trunk/libf/phy_common/mod_phys_lmdz_transfert_para.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phy_common/mod_phys_lmdz_transfert_para.f90

@@ -50 +50 @@
                      reduce_min_r,reduce_min_r1,reduce_min_r2,reduce_min_r3,reduce_min_r4
   END INTERFACE 
-   
+
+  INTERFACE reduce_max
+    MODULE PROCEDURE reduce_max_i,reduce_max_i1,reduce_max_i2,reduce_max_i3,reduce_max_i4, &
+                     reduce_max_r,reduce_max_r1,reduce_max_r2,reduce_max_r3,reduce_max_r4
+  END INTERFACE 
+
 CONTAINS
 
@@ -1444 +1449 @@
 
 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! Definition des reduce_max   --> 4D   !!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+! Les entiers
+
+  SUBROUTINE reduce_max_i(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN)  :: VarIn
+    INTEGER,INTENT(OUT) :: VarOut
+    
+    INTEGER             :: Var_tmp
+           
+    CALL reduce_max_omp(VarIn,Var_tmp)
+!$OMP MASTER      
+    CALL reduce_max_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE reduce_max_i  
+
+
+  SUBROUTINE reduce_max_i1(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:)  :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:) :: VarOut
+    
+    INTEGER,DIMENSION(SIZE(VarIn))   :: Var_tmp
+           
+    CALL reduce_max_omp(VarIn,Var_tmp)
+!$OMP MASTER      
+    CALL reduce_max_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE reduce_max_i1  
+
+
+  SUBROUTINE reduce_max_i2(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:)  :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    INTEGER,DIMENSION(SIZE(VarIn,1),SIZE(VarIn,2)) :: Var_tmp
+           
+    CALL reduce_max_omp(VarIn,Var_tmp)
+!$OMP MASTER      
+    CALL reduce_max_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE reduce_max_i2  
+  
+
+  SUBROUTINE reduce_max_i3(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:)  :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    INTEGER,DIMENSION(SIZE(VarIn,1),SIZE(VarIn,2),SIZE(VarIn,3))  :: Var_tmp
+           
+    CALL reduce_max_omp(VarIn,Var_tmp)
+!$OMP MASTER      
+    CALL reduce_max_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE reduce_max_i3  
+
+
+  SUBROUTINE reduce_max_i4(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:)  :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    INTEGER,DIMENSION(SIZE(VarIn,1),SIZE(VarIn,2),SIZE(VarIn,3),SIZE(VarIn,4))  :: Var_tmp
+           
+    CALL reduce_max_omp(VarIn,Var_tmp)
+!$OMP MASTER      
+    CALL reduce_max_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE reduce_max_i4  
+
+
+! Les reels
+
+  SUBROUTINE reduce_max_r(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN)  :: VarIn
+    REAL,INTENT(OUT) :: VarOut
+    
+    REAL             :: Var_tmp
+           
+    CALL reduce_max_omp(VarIn,Var_tmp)
+!$OMP MASTER      
+    CALL reduce_max_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE reduce_max_r  
+
+
+  SUBROUTINE reduce_max_r1(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:)  :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:) :: VarOut
+    
+    REAL,DIMENSION(SIZE(VarIn))   :: Var_tmp
+           
+    CALL reduce_max_omp(VarIn,Var_tmp)
+!$OMP MASTER      
+    CALL reduce_max_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE reduce_max_r1  
+
+
+  SUBROUTINE reduce_max_r2(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:)  :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    REAL,DIMENSION(SIZE(VarIn,1),SIZE(VarIn,2)) :: Var_tmp
+           
+    CALL reduce_max_omp(VarIn,Var_tmp)
+!$OMP MASTER      
+    CALL reduce_max_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE reduce_max_r2  
+  
+
+  SUBROUTINE reduce_max_r3(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:)  :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    REAL,DIMENSION(SIZE(VarIn,1),SIZE(VarIn,2),SIZE(VarIn,3))  :: Var_tmp
+           
+    CALL reduce_max_omp(VarIn,Var_tmp)
+!$OMP MASTER      
+    CALL reduce_max_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE reduce_max_r3  
+
+
+  SUBROUTINE reduce_max_r4(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:)  :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    REAL,DIMENSION(SIZE(VarIn,1),SIZE(VarIn,2),SIZE(VarIn,3),SIZE(VarIn,4))  :: Var_tmp
+           
+    CALL reduce_max_omp(VarIn,Var_tmp)
+!$OMP MASTER      
+    CALL reduce_max_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE reduce_max_r4  
+
    
 END MODULE mod_phys_lmdz_transfert_para