Index: trunk/LMDZ.VENUS/libf/phyvenus/dyn1d/rcm1d.F
===================================================================
--- trunk/LMDZ.VENUS/libf/phyvenus/dyn1d/rcm1d.F	(revision 3857)
+++ trunk/LMDZ.VENUS/libf/phyvenus/dyn1d/rcm1d.F	(revision 3875)
@@ -21,4 +21,5 @@
       USE clesphys_mod
       USE comcstfi_mod
+      USE tabcontrol_mod, ONLY: dtime, radpas
       IMPLICIT NONE
 
@@ -44,9 +45,6 @@
 #include "dimensions.h"
 #include "dimsoil.h"
-c#include "comcstfi.h"
 #include "netcdf.inc"
-c#include "clesphys.h"
 #include "iniprint.h"
-#include "tabcontrol.h"
 
 c --------------------------------------------------------------
Index: trunk/LMDZ.VENUS/libf/phyvenus/phyetat0.F90
===================================================================
--- trunk/LMDZ.VENUS/libf/phyvenus/phyetat0.F90	(revision 3857)
+++ trunk/LMDZ.VENUS/libf/phyvenus/phyetat0.F90	(revision 3875)
@@ -21,4 +21,5 @@
   use nonoro_gwd_ran_mod, only: du_nonoro_gwd, dv_nonoro_gwd, &
                                 east_gwstress, west_gwstress
+  use tabcontrol_mod, only: dtime, radpas, length, tabcntr0
   use clesphys_mod
 
@@ -26,6 +27,4 @@
 !======================================================================
 include "dimsoil.h"
-!include "clesphys.h"
-include "tabcontrol.h"
 !======================================================================
 
Index: trunk/LMDZ.VENUS/libf/phyvenus/phyredem.F90
===================================================================
--- trunk/LMDZ.VENUS/libf/phyvenus/phyredem.F90	(revision 3857)
+++ trunk/LMDZ.VENUS/libf/phyvenus/phyredem.F90	(revision 3875)
@@ -16,4 +16,5 @@
                                 east_gwstress, west_gwstress
   use age_of_air_mod, only: ok_aoa
+  use tabcontrol_mod, only: dtime, radpas, length
   use clesphys_mod
   
@@ -25,6 +26,4 @@
 !include "netcdf.inc"
 include "dimsoil.h"
-!include "clesphys.h"
-include "tabcontrol.h"
 !======================================================================
 
Index: trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F
===================================================================
--- trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F	(revision 3857)
+++ trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F	(revision 3875)
@@ -84,4 +84,5 @@
       use sed_and_prod_mad, only: aer_sedimentation, drop_sedimentation
       use iono_h, only: temp_elect, temp_ion
+      use tabcontrol_mod, only: radpas, dtime
       use clesphys_mod
 #ifdef CPP_XIOS      
@@ -115,8 +116,6 @@
 c======================================================================
 #include "dimsoil.h"
-c#include "clesphys.h"
 #include "iniprint.h"
 #include "timerad.h" 
-#include "tabcontrol.h"
 #include "nirdata.h"
 #include "hedin.h"
Index: trunk/LMDZ.VENUS/libf/phyvenus/printflag.F
===================================================================
--- trunk/LMDZ.VENUS/libf/phyvenus/printflag.F	(revision 3857)
+++ trunk/LMDZ.VENUS/libf/phyvenus/printflag.F	(revision 3875)
@@ -8,4 +8,5 @@
 c      Auteur :  P. Le Van 
 
+       USE tabcontrol_mod
        USE clesphys_mod
 
@@ -17,6 +18,4 @@
        INTEGER radpas0
 c
-c#include "clesphys.h"
-#include "tabcontrol.h"
 #include "YOMCST.h"
 c
Index: trunk/LMDZ.VENUS/libf/phyvenus/tabcontrol.F90
===================================================================
--- trunk/LMDZ.VENUS/libf/phyvenus/tabcontrol.F90	(revision 3875)
+++ trunk/LMDZ.VENUS/libf/phyvenus/tabcontrol.F90	(revision 3875)
@@ -0,0 +1,21 @@
+MODULE tabcontrol_mod
+
+! stores some formation about run parameters
+
+IMPLICIT NONE
+
+INTEGER,SAVE :: radpas ! rate of computation of radiative transfert, in physics steps
+!$OMP THREADPRIVATE(radpas)
+
+INTEGER,SAVE :: chimpas ! rate of computation of chemistry, in physics steps
+!$OMP THREADPRIVATE(chimpas)
+
+REAL,SAVE :: dtime  ! time step of the physics (s)
+!$OMP THREADPRIVATE(dtime)
+
+! the "controle" array, used to store information in the restartphy file
+INTEGER,PARAMETER :: length=100
+REAL,SAVE :: tabcntr0(length)
+!$OMP THREADPRIVATE(tabcntr0)
+
+END MODULE tabcontrol_mod
Index: trunk/LMDZ.VENUS/libf/phyvenus/tabcontrol.h
===================================================================
--- trunk/LMDZ.VENUS/libf/phyvenus/tabcontrol.h	(revision 3857)
+++ 	(revision )
@@ -1,18 +1,0 @@
-!-------------------------------------------------------------------
-! INCLUDE tabcontrol.h
-!-------------------------------------------------------------------
-
-      INTEGER radpas,chimpas ! frequences d'appel rayonnement, chimie
-      REAL dtime             ! pas temporel de la physique
-
-! tableau de controle
-      INTEGER        length
-      PARAMETER    ( length = 100 )
-      REAL tabcntr0( length       )
-
-
-      COMMON/ctltab_i/radpas,chimpas
-      COMMON/ctltab_r/dtime
-      COMMON/ctltab/tabcntr0
-
-!$OMP THREADPRIVATE(/ctltab_i/,/ctltab_r/,/ctltab/)