--- trunk/libf/dyn3d/vlxqs.f90	2011/04/08 12:43:31	43
+++ trunk/Sources/dyn3d/vlxqs.f	2015/04/29 15:47:56	134
@@ -10,8 +10,8 @@
       use dimens_m
       use paramet_m
       use comconst
-      use comvert
-      use logic
+      use disvert_m
+      use conf_gcm_m
       IMPLICIT NONE
 !
 !
@@ -38,9 +38,8 @@
       Logical first,testcpu
       SAVE first,testcpu
 
-      REAL      SSUM
-      REAL temps0,temps1,temps2,temps3,temps4,temps5
-      SAVE temps0,temps1,temps2,temps3,temps4,temps5
+      REAL temps1,temps2,temps3,temps4,temps5
+      SAVE temps1,temps2,temps3,temps4,temps5
 
 
       DATA first,testcpu/.true.,.false./