Changeset 4010

Timestamp:

Nov 18, 2021, 9:29:45 AM (3 years ago)

Author:

Ehouarn Millour

Message:

Fix OpenMP bug in previous revision.
While at it removed dead link in phylmdiso.
EM

Location:

LMDZ6/trunk/libf

Files:

• phylmd/calcratqs_multi_mod.F90 (modified) (1 diff)
• phylmdiso/calcratqs_inter.F90 (deleted)

LMDZ6/trunk/libf/phylmd/calcratqs_multi_mod.F90

@@ -51 +51 @@
 real, dimension(klon,klev) :: wake_dq
 REAL, SAVE             :: a_ratqs_cv
-!$OMP THREADPRIVATE(tau_ratqs_wake)
+!$OMP THREADPRIVATE(a_ratqs_cv)
 REAL, SAVE             :: tau_ratqs_wake
 !$OMP THREADPRIVATE(tau_ratqs_wake)