Changeset 4171 for LMDZ6/branches/LMDZ-ECRAD/libf/dyn3dmem/parallel_lmdz.F90

Timestamp:

Jun 17, 2022, 4:24:49 PM (2 years ago)

Author:

lguez

Message:

Sync latest trunk changes to branch LMDZ-ECRAD.

Location:

LMDZ6/branches/LMDZ-ECRAD

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/parallel_lmdz.F90 (modified) (2 diffs)

LMDZ6/branches/LMDZ-ECRAD/libf/dyn3dmem/parallel_lmdz.F90

@@ -12 +12 @@
     INTEGER,PARAMETER :: halo_max=3
     
-    LOGICAL,SAVE :: using_mpi
-    LOGICAL,SAVE :: using_omp
+    LOGICAL,SAVE :: using_mpi ! .true. if using MPI
+    LOGICAL,SAVE :: using_omp ! .true. if using OpenMP
+    LOGICAL,SAVE :: is_master ! .true. if the core is both MPI & OpenMP master
+!$OMP THREADPRIVATE(is_master)
     
     integer, save :: mpi_size
@@ -248 +250 @@
 !$OMP END PARALLEL         
       CALL create_distrib(jj_nb_para,current_dist)
+      
+      IF ((mpi_rank==0).and.(omp_rank==0)) THEN
+        is_master=.true.
+      ELSE
+        is_master=.false.
+      ENDIF
       
     end subroutine init_parallel