--- trunk/libf/phylmd/clqh.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/clqh.f	2008/07/21 16:05:07	12
@@ -38,7 +38,7 @@
 
 c Arguments:
       INTEGER knon
-      REAL dtime              ! intervalle du temps (s)
+      REAL, intent(in):: dtime              ! intervalle du temps (s)
       real date0
       REAL u1lay(klon)        ! vitesse u de la 1ere couche (m/s)
       REAL v1lay(klon)        ! vitesse v de la 1ere couche (m/s)
@@ -71,7 +71,7 @@
       real cufi(klon), cvfi(klon)
       logical ok_veget 
       REAL co2_ppm            ! taux CO2 atmosphere
-      character*6 ocean
+      character(len=*), intent(in):: ocean
       integer npas, nexca
 c -- LOOP
        REAL yu10mx(klon)
@@ -131,7 +131,7 @@
 c======================================================================
 c======================================================================
 c Rajout pour l'interface
-      integer itime
+      integer, intent(in):: itime
       integer nisurf
       logical, intent(in):: debut
       logical, intent(in):: lafin
@@ -144,7 +144,7 @@
       real sollw(klon), sollwdown(klon), swnet(klon), swdown(klon)
       real p1lay(klon)
 c$$$C PB ajout pour soil
-      LOGICAL soil_model
+      LOGICAL, intent(in):: soil_model
       REAL tsoil(klon, nsoilmx)
       REAL qsol(klon)