Changeset 1758 for LMDZ5/trunk/libf

Timestamp:

May 16, 2013, 2:53:13 PM (11 years ago)

Author:

Ehouarn Millour

Message:

These arrays should be THREADPRIVATE (for OpenMP).
FH

File:

• LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90

@@ -15 +15 @@
 !$OMP THREADPRIVATE(snow_o, zfra_o)
       INTEGER, save, ALLOCATABLE ::  itau_con(:)       ! Nombre de pas ou rflag <= 1
+!$OMP THREADPRIVATE(itau_con)
       REAL, ALLOCATABLE :: bils_ec(:) ! Contribution of energy conservation
       REAL, ALLOCATABLE :: bils_kinetic(:) ! bilan de chaleur au sol, kinetic
       REAL, ALLOCATABLE :: bils_enthalp(:) ! bilan de chaleur au sol
       REAL, ALLOCATABLE :: bils_latent(:) ! bilan de chaleur au sol
-
-!$OMP THREADPRIVATE(itau_con)
+!$OMP THREADPRIVATE(bils_ec,bils_kinetic,bils_enthalp,bils_latent)
 
 CONTAINS