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

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

@@ -22 +22 @@
 REAL(KIND=JPRB) :: RFCAER, RFCOZO, RMUZUV
 !     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(ipuv,jcop,juvlam,luvdbg,luvproc,luvtdep,nraduv,nuv,nuvtim,rasa,rasb)
+!$OMP THREADPRIVATE(rasc,rasd,rase,rasf,rayuvb,rcguva,rcieas,rfa0,rfa1,rfb0,rfb1,rfb2,rfb3)
+!$OMP THREADPRIVATE(rfc0,rfc1,rfc2,rfc3,rfcaer,rfcozo,rfd0,rfd1,rfd2,rfd3,rk250,rmuzuv,rpiuva)
+!$OMP THREADPRIVATE(rsuvb,rsuvb0,rtauva,rtuv1,rtuv2,ruvlam,rxpl,rxpo)
 END MODULE YOE_UVRAD