Changeset 2010 for LMDZ5/trunk/libf/phylmd/rrtm/gfl_subs.F90

Timestamp:

Apr 10, 2014, 11:06:10 AM (10 years ago)

Author:

Laurent Fairhead

Message:

Modifications pour OpenMP

---

OpenMP modifications

File:

• LMDZ5/trunk/libf/phylmd/rrtm/gfl_subs.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/rrtm/gfl_subs.F90

@@ -53 +53 @@
 TYPE(TYPE_GFL_COMP)  :: YCPF_SAVE ! For saving status of cloud fields
 LOGICAL :: L_CLD_DEACT=.FALSE.
+
+!$OMP THREADPRIVATE(l_cld_deact,ya_save,ycpf_save,yi_save,yl_save,ylastgflc,yptrc,yr_save,ys_save)
 
 #include "abor1.intfb.h"
@@ -115 +117 @@
 LOGICAL,SAVE :: LLFIRSTCALL = .TRUE.
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!$OMP THREADPRIVATE(llfirstcall)
+
 
 !-------------------------------------------------------------------------