--- trunk/Sources/phylmd/diagcld1.f	2016/03/22 16:31:39	188
+++ 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