--- trunk/libf/phylmd/Thermcell/dvthermcell2.f90	2011/07/01 15:00:48	47
+++ trunk/phylmd/Thermcell/dvthermcell2.f	2018/03/20 09:35:59	265
@@ -1,7 +1,7 @@
       subroutine dvthermcell2(ngrid,nlay,ptimestep,fm,entr,masse &
           ,fraca,larga &
           ,u,v,du,dv,ua,va)
-      use dimens_m
+      use dimensions
       use dimphy
       implicit none
 
@@ -28,7 +28,7 @@
       real va(ngrid,nlay)
       real dv(ngrid,nlay)
 
-      real qa(klon,klev),detr(klon,klev),zf,zf2
+      real detr(klon,klev),zf,zf2
       real wvd(klon,klev+1),wud(klon,klev+1)
       real gamma0,gamma(klon,klev+1)
       real ue(klon,klev),ve(klon,klev)