--- trunk/libf/phylmd/calltherm.f90	2011/09/23 12:28:01	52
+++ trunk/libf/phylmd/calltherm.f90	2011/12/06 15:07:04	54
@@ -12,6 +12,7 @@
     USE dimphy, ONLY: klev, klon
     USE ctherm, ONLY: l_mix_thermals, nsplit_thermals, r_aspect_thermals, &
          tho_thermals, w2di_thermals
+    use thermcell_m, only: thermcell
 
     REAL, intent(in):: dtime