Changeset 2059 for LMDZ5

Timestamp:

Jun 16, 2014, 5:02:17 PM (10 years ago)

Author:

Laurent Fairhead

Message:

correction Bug/Bug? correction

File:

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

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

@@ -15 +15 @@
 REAL(KIND=JPRB) :: RRAY(6,6)
 REAL(KIND=JPRB), ALLOCATABLE :: RSUN(:)
+!$OMP THREADPRIVATE(RSUN)
 REAL(KIND=JPRB) :: RPDH1
 REAL(KIND=JPRB) :: RPDU1