--- trunk/Sources/dyn3d/prather.f	2015/07/16 17:39:10	156
+++ trunk/Sources/dyn3d/prather.f	2015/07/20 16:01:49	157
@@ -53,8 +53,6 @@
 
   REAL sinlon(iip1), sinlondlon(iip1)
   REAL coslon(iip1), coslondlon(iip1)
-  REAL qmin, qmax
-  SAVE qmin, qmax
   SAVE sinlon, coslon, sinlondlon, coslondlon
   REAL dyn1, dyn2, dys1, dys2, qpn, qps, dqzpn, dqzps
   REAL masn, mass
@@ -68,8 +66,6 @@
 
 
   DATA first/.TRUE./
-  DATA qmin, qmax/ -1.E33, 1.E33/
-
 
   ! ==========================================================================
   ! ==========================================================================