--- trunk/libf/dyn3d/comconst.f90	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/comconst.f90	2010/03/09 15:27:15	26
@@ -9,7 +9,7 @@
   integer lllmm1, lllmp1, lcl
   REAL dtvr ! time step for dynamics (in s)
   real, parameter:: daysec = 86400. ! number of seconds per day
-  REAL pi, dtphys, dtdiss
+  REAL pi, dtphys
   real, parameter:: rad = 6371229. ! radius of the Earth (in m)
   real r
   real, parameter:: cpp = 1004.70885, kappa = 0.2857143