--- trunk/libf/phylmd/clmain.f90	2011/08/24 11:43:14	49
+++ trunk/libf/phylmd/clmain.f90	2012/04/20 14:58:43	61
@@ -44,10 +44,13 @@
     USE dynetat0_m, ONLY : day_ini
     USE gath_cpl, ONLY : gath2cpl
     use hbtm_m, only: hbtm
-    USE histcom, ONLY : histbeg_totreg, histdef, histend, histsync
+    USE histsync_m, ONLY : histsync
+    USE histbeg_totreg_m, ONLY : histbeg_totreg
+    USE histend_m, ONLY : histend
+    USE histdef_m, ONLY : histdef
     use histwrite_m, only: histwrite
     USE indicesol, ONLY : epsfra, is_lic, is_oce, is_sic, is_ter, nbsrf
-    USE iniprint, ONLY : prt_level
+    USE conf_gcm_m, ONLY : prt_level
     USE suphec_m, ONLY : rd, rg, rkappa
     USE temps, ONLY : annee_ref, itau_phy
     use yamada4_m, only: yamada4
@@ -59,7 +62,7 @@
     ! date0----input-R- jour initial
     INTEGER, INTENT (IN) :: itap
     ! itap-----input-I- numero du pas de temps
-    REAL t(klon, klev), q(klon, klev)
+    REAL, INTENT(IN):: t(klon, klev), q(klon, klev)
     ! t--------input-R- temperature (K)
     ! q--------input-R- vapeur d'eau (kg/kg)
     REAL, INTENT (IN):: u(klon, klev), v(klon, klev)