--- trunk/phylmd/diagcld1.f90	2013/11/15 18:45:49	76
+++ trunk/phylmd/diagcld1.f90	2019/06/13 14:40:06	328
@@ -1,6 +1,6 @@
       SUBROUTINE diagcld1(paprs,pplay,rain,snow,kbot,ktop, &
                          diafra,dialiq)
-      use dimens_m
+      use dimensions
       use dimphy
       use SUPHEC_M
       IMPLICIT none
@@ -16,8 +16,6 @@
 ! Arguments d'entree:
       REAL, intent(in):: paprs(klon,klev+1) ! pression (Pa) a inter-couche
       REAL, intent(in):: pplay(klon,klev) ! pression (Pa) au milieu de couche
-      REAL t(klon,klev) ! temperature (K)
-      REAL q(klon,klev) ! humidite specifique (Kg/Kg)
       REAL rain(klon) ! pluie convective (kg/m2/s)
       REAL snow(klon) ! neige convective (kg/m2/s)
       INTEGER ktop(klon) ! sommet de la convection
@@ -35,8 +33,8 @@
       REAL CCFCT, CCSCAL
       PARAMETER (CCFCT=0.400)
       PARAMETER (CCSCAL=1.0E+11)
-      REAL CETAHB, CETAMB
-      PARAMETER (CETAHB=0.45, CETAMB=0.80)
+      REAL CETAHB
+      PARAMETER (CETAHB=0.45)
       REAL CCLWMR
       PARAMETER (CCLWMR=1.E-04)
       REAL ZEPSCR