--- trunk/Sources/phylmd/diagcld1.f	2016/03/21 18:01:02	187
+++ trunk/Sources/phylmd/diagcld1.f	2016/03/22 16:31:39	188
@@ -33,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