--- trunk/libf/dyn3d/vlxqs.f90	2011/04/08 12:43:31	43
+++ trunk/Sources/dyn3d/vlxqs.f	2016/03/11 18:47:26	178
@@ -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
 !
 !
@@ -35,25 +35,6 @@
       REAL adxqu(ip1jmp1),dxqmax(ip1jmp1,llm)
       REAL u_mq(ip1jmp1,llm)
 
-      Logical first,testcpu
-      SAVE first,testcpu
-
-      REAL      SSUM
-      REAL temps0,temps1,temps2,temps3,temps4,temps5
-      SAVE temps0,temps1,temps2,temps3,temps4,temps5
-
-
-      DATA first,testcpu/.true.,.false./
-
-      IF(first) THEN
-         temps1=0.
-         temps2=0.
-         temps3=0.
-         temps4=0.
-         temps5=0.
-         first=.false.
-      ENDIF
-
 !   calcul de la pente a droite et a gauche de la maille