--- trunk/phylmd/diagcld1.f	2014/09/04 10:40:24	105
+++ trunk/phylmd/diagcld1.f	2018/03/20 09:35:59	265
@@ -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
@@ -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