--- trunk/phylmd/diagcld1.f	2018/03/19 10:28:42	264
+++ 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