--- trunk/Sources/phylmd/Thermcell/thermcell.f	2016/03/11 18:47:26	178
+++ trunk/Sources/phylmd/Thermcell/thermcell.f	2016/03/22 16:31:39	188
@@ -69,9 +69,6 @@
     real thetath2(klon, klev), wth2(klon, klev)
     common/comtherm/thetath2, wth2
 
-    integer nsplit
-    parameter (nsplit=10)
-
     real rho(klon, klev), rhobarz(klon, klev+1), masse(klon, klev)
     real zpspsk(klon, klev)