Index: trunk/LMDZ.VENUS/libf/phyvenus/cpdet_phy_mod.F90
===================================================================
--- trunk/LMDZ.VENUS/libf/phyvenus/cpdet_phy_mod.F90	(revision 3803)
+++ trunk/LMDZ.VENUS/libf/phyvenus/cpdet_phy_mod.F90	(revision 3826)
@@ -8,6 +8,9 @@
 
 real,save :: cpp ! reference Cp
+!$OMP THREADPRIVATE(cpp)
 real,save :: nu_venus
+!$OMP THREADPRIVATE(nu_venus)
 real,save :: t0_venus
+!$OMP THREADPRIVATE(t0_venus)
 
 contains
Index: trunk/LMDZ.VENUS/libf/phyvenus/suphec.F
===================================================================
--- trunk/LMDZ.VENUS/libf/phyvenus/suphec.F	(revision 3803)
+++ trunk/LMDZ.VENUS/libf/phyvenus/suphec.F	(revision 3826)
@@ -1,18 +1,22 @@
-!
-! $Header: /home/cvsroot/LMDZ4/libf/phylmd/suphec.F,v 1.1.1.1 2004/05/19 12:53:08 lmdzadmin Exp $
-!
+      MODULE suphec_mod
+      
+      IMPLICIT NONE
+      
+      CONTAINS
+      
       SUBROUTINE suphec(cpp_)
 C
-#include "YOMCST.h"
+      include "YOMCST.h"
 cIM cf. JLD
-       REAL cpp_   ! from dynamics
-       LOGICAL firstcall
-       SAVE firstcall
-       DATA firstcall /.TRUE./
+       REAL,INTENT(IN) :: cpp_   ! from dynamics
+
+       LOGICAL, SAVE :: firstcall=.true.
+!$OMP THREADPRIVATE(firstcall)
+
        IF (firstcall) THEN
-         PRINT*, 'suphec initialise les constantes du GCM'
+         PRINT*, 'suphec initialize some physics constants'
          firstcall = .FALSE.
        ELSE
-         PRINT*, 'suphec DEJA APPELE '
+         PRINT*, 'suphec HAS ALREADY BEEN CALLED '
          RETURN
        ENDIF
@@ -152,4 +156,6 @@
       WRITE(UNIT=6,FMT='(''     Rv/Rd-1  = '',e13.7)') RETV
 C
-      RETURN
-      END
+
+      END SUBROUTINE suphec
+
+      END MODULE suphec_mod