Changeset 1318 for LMDZ4/branches/LMDZ4V5.0-dev/libf/cosp/radar_simulator_types.F90

Timestamp:

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

Author:

yann meurdesoif

Message:

YM : Parallelisation COSP MPI+OpenMP

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/cosp/radar_simulator_types.F90 (modified) (1 diff)

LMDZ4/branches/LMDZ4V5.0-dev/libf/cosp/radar_simulator_types.F90

@@ -42 +42 @@
   end type mie
 
-  real*8, dimension(:), allocatable :: &
+  real*8, dimension(:), save, allocatable :: &
     mt_ttl, &                   ! liquid temperatures (C)
     mt_tti, &                   ! ice temperatures (C)
     mt_qext, mt_qbsca           ! extincion/backscatter efficiency
+!$OMP THREADPRIVATE(mt_ttl,mt_tti,mt_qext, mt_qbsca)
 
-  integer*4 :: &
+  integer*4,save :: &
     cnt_liq, &                  ! liquid temperature count
     cnt_ice                     ! ice temperature count
+!$OMP THREADPRIVATE(cnt_liq,cnt_ice)
 
   end module radar_simulator_types