--- trunk/phylmd/Thermcell/dvthermcell2.f90	2013/11/15 18:45:49	76
+++ trunk/phylmd/Thermcell/dvthermcell2.f90	2019/06/13 14:40:06	328
@@ -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)