- Timestamp:
- Jul 30, 2013, 12:23:40 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/phytrac_mod.F90
r1813 r1820 260 260 INTEGER :: itau_w ! pas de temps ecriture = nstep + itau_phy 261 261 LOGICAL,PARAMETER :: ok_sync=.TRUE. 262 !$OMP THREADPRIVATE(chtratimestep) 262 263 263 ! 264 264 ! Nature du traceur … … 291 291 !--------- 292 292 INTEGER,SAVE :: iflag_vdf_trac,iflag_con_trac,iflag_the_trac 293 INTEGER :: iflag_con_trac_omp, iflag_vdf_trac_omp,iflag_the_trac_omp294 !$OMP THREADPRIVATE(iflag_ lscav,convscav,iflag_the_trac)293 INTEGER,SAVE :: iflag_con_trac_omp, iflag_vdf_trac_omp,iflag_the_trac_omp 294 !$OMP THREADPRIVATE(iflag_vdf_trac,iflag_con_trac,iflag_the_trac) 295 295 296 296 LOGICAL,SAVE :: lessivage … … 301 301 INTEGER,SAVE :: iflag_lscav_omp,iflag_lscav 302 302 LOGICAL,SAVE :: convscav_omp,convscav 303 !$OMP THREADPRIVATE(iflag_lscav,convscav) 303 !$OMP THREADPRIVATE(iflag_lscav_omp,iflag_lscav) 304 !$OMP THREADPRIVATE(convscav_omp,convscav) 304 305 !RomP <<< 305 306 !######################################################################
Note: See TracChangeset
for help on using the changeset viewer.