Changeset 1117 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/infotrac.F90
- Timestamp:
- Mar 11, 2009, 1:47:42 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/infotrac.F90
r1114 r1117 3 3 ! nqtot : total number of tracers and higher order of moment, water vapor and liquid included 4 4 INTEGER, SAVE :: nqtot 5 ! $OMP THREADPRIVATE(nqtot)5 !!$OMP THREADPRIVATE(nqtot) 6 6 7 7 ! nbtr : number of tracers not including higher order of moment or water vapor or liquid 8 8 ! number of tracers used in the physics 9 9 INTEGER, SAVE :: nbtr 10 ! $OMP THREADPRIVATE(nbtr)10 !!$OMP THREADPRIVATE(nbtr) 11 11 12 12 ! Name variables 13 13 CHARACTER(len=20), ALLOCATABLE, DIMENSION(:), SAVE :: tname ! tracer short name for restart and diagnostics 14 14 CHARACTER(len=23), ALLOCATABLE, DIMENSION(:), SAVE :: ttext ! tracer long name for diagnostics 15 ! $OMP THREADPRIVATE(tname,ttext)15 !!$OMP THREADPRIVATE(tname,ttext) 16 16 17 17 ! iadv : index of trasport schema for each tracer 18 18 INTEGER, ALLOCATABLE, DIMENSION(:), SAVE :: iadv 19 ! $OMP THREADPRIVATE(iadv)19 !!$OMP THREADPRIVATE(iadv) 20 20 21 21 ! niadv : vector keeping the coorspondance between all tracers(nqtot) treated in the 22 22 ! dynamic part of the code and the tracers (nbtr+2) used in the physics part of the code. 23 23 INTEGER, ALLOCATABLE, DIMENSION(:), SAVE :: niadv ! equivalent dyn / physique 24 ! $OMP THREADPRIVATE(niadv)24 !!$OMP THREADPRIVATE(niadv) 25 25 26 26 ! Variables for INCA 27 27 INTEGER, ALLOCATABLE, DIMENSION(:), SAVE :: conv_flg 28 28 INTEGER, ALLOCATABLE, DIMENSION(:), SAVE :: pbl_flg 29 ! $OMP THREADPRIVATE(conv_flg, pbl_flg)29 !!$OMP THREADPRIVATE(conv_flg, pbl_flg) 30 30 31 31 CONTAINS
Note: See TracChangeset
for help on using the changeset viewer.