Changeset 1117 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/infotrac.F90

Timestamp:

Mar 11, 2009, 1:47:42 PM (15 years ago)

Author:

yann meurdesoif

Message:

Correction pour bon fonctionnement en OpenMP suite à la mise à jour des modifications sur le nombre de traceur spécifié dynamiquement
YM

File:

• LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/infotrac.F90 (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/infotrac.F90

@@ -3 +3 @@
 ! nqtot : total number of tracers and higher order of moment, water vapor and liquid included
   INTEGER, SAVE :: nqtot
-!$OMP THREADPRIVATE(nqtot)   
+!!$OMP THREADPRIVATE(nqtot)   
 
 ! nbtr : number of tracers not including higher order of moment or water vapor or liquid
 !        number of tracers used in the physics
   INTEGER, SAVE :: nbtr
-!$OMP THREADPRIVATE(nbtr)   
+!!$OMP THREADPRIVATE(nbtr)   
 
 ! Name variables
   CHARACTER(len=20), ALLOCATABLE, DIMENSION(:), SAVE :: tname ! tracer short name for restart and diagnostics
   CHARACTER(len=23), ALLOCATABLE, DIMENSION(:), SAVE :: ttext ! tracer long name for diagnostics
-!$OMP THREADPRIVATE(tname,ttext)   
+!!$OMP THREADPRIVATE(tname,ttext)   
 
 ! iadv  : index of trasport schema for each tracer
   INTEGER, ALLOCATABLE, DIMENSION(:), SAVE    :: iadv
-!$OMP THREADPRIVATE(iadv)   
+!!$OMP THREADPRIVATE(iadv)   
 
 ! niadv : vector keeping the coorspondance between all tracers(nqtot) treated in the 
 !         dynamic part of the code and the tracers (nbtr+2) used in the physics part of the code. 
   INTEGER, ALLOCATABLE, DIMENSION(:), SAVE    :: niadv ! equivalent dyn / physique
-!$OMP THREADPRIVATE(niadv)   
+!!$OMP THREADPRIVATE(niadv)   
 
 ! Variables for INCA
   INTEGER, ALLOCATABLE, DIMENSION(:), SAVE  :: conv_flg
   INTEGER, ALLOCATABLE, DIMENSION(:), SAVE  :: pbl_flg
-!$OMP THREADPRIVATE(conv_flg, pbl_flg)   
+!!$OMP THREADPRIVATE(conv_flg, pbl_flg)   
 
 CONTAINS