Changeset 1318 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd

Timestamp:

Feb 23, 2010, 9:12:08 PM (15 years ago)

Author:

yann meurdesoif

Message:

YM : Parallelisation COSP MPI+OpenMP

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/mod_phys_lmdz_para.F90 (modified) (3 diffs)

LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/mod_phys_lmdz_para.F90

@@ -10 +10 @@
   LOGICAL,SAVE :: is_sequential
   LOGICAL,SAVE :: is_parallel
+  LOGICAL,SAVE :: is_master
   
-!$OMP THREADPRIVATE(klon_loc)
+!$OMP THREADPRIVATE(klon_loc,is_master)
   
 CONTAINS
@@ -26 +27 @@
     CALL Init_phys_lmdz_omp_data(klon_mpi)
     klon_loc=klon_omp
+    IF (is_mpi_root .AND. is_omp_root) THEN 
+       is_master=.TRUE.
+     ELSE
+       is_master=.FALSE.
+     ENDIF
     CALL Test_transfert
 !$OMP END PARALLEL    
@@ -35 +41 @@
        is_parallel=.FALSE.
      ENDIF
-     
+      
   END SUBROUTINE Init_phys_lmdz_para