Changeset 1327 for LMDZ4/trunk/libf/phylmd/mod_phys_lmdz_para.F90

Timestamp:

Mar 16, 2010, 11:23:17 AM (14 years ago)

Author:

yann meurdesoif

Message:

parallelisation COSP
YM

File:

• LMDZ4/trunk/libf/phylmd/mod_phys_lmdz_para.F90 (modified) (3 diffs)

LMDZ4/trunk/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