--- trunk/phylmd/Thermcell/dqthermcell.f	2018/02/05 10:39:38	254
+++ trunk/phylmd/Thermcell/dqthermcell.f	2018/03/20 09:35:59	265
@@ -1,7 +1,7 @@
 
       subroutine dqthermcell(ngrid,nlay,ptimestep,fm,entr,masse &
           ,q,dq,qa)
-      use dimens_m
+      use dimensions
       use dimphy
       implicit none