Changeset 2010 for LMDZ5/trunk/libf/phylmd/rrtm/yoephy.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/yoephy.F90 (modified) (1 diff)

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

@@ -93 +93 @@
 ! LE4ALB : LOGICAL  : MODIS ALBEDO (UV-Vis+NIR)x(direct+diffuse) 
 !     -----------------------------------------------------------------
+
+!$OMP THREADPRIVATE(lagphy,lbud23,le4alb,leco2diu,lecond,lecumf,lecurr,ledcld)
+!$OMP THREADPRIVATE(leevap,legwdg,lemethox,lemwave,leo3ch,leocco,leocsa,leocwa)
+!$OMP THREADPRIVATE(leozoc,lepcld,lephys,leqngt,lera40,leradi,lerads,lerain)
+!$OMP THREADPRIVATE(leshcv,lesice,lesurf,levdif,lmftrac,lvdftrac,nephys_pcfull)
+!$OMP THREADPRIVATE(nphproma,nphyint,rthrfrti)
+
 END MODULE YOEPHY