Changeset 2898 for LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

May 31, 2017, 12:52:35 AM (7 years ago)

Author:

fhourdin

Message:

Corrections de bugs sur les deux dernieres commissions

File:

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

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -81 +81 @@
       !$OMP THREADPRIVATE(d_u_oro, d_v_oro)
       REAL, SAVE, ALLOCATABLE :: d_t_oro_gw(:,:)
-      !$OMP THREADPRIVATE(d_t_oro)
+      !$OMP THREADPRIVATE(d_t_oro_gw)
       REAL, SAVE, ALLOCATABLE :: d_u_oro_gw(:,:), d_v_oro_gw(:,:)
       !$OMP THREADPRIVATE(d_u_oro_gw, d_v_oro_gw)