--- trunk/Sources/dyn3d/vlspltqs.f	2015/04/29 15:47:56	134
+++ trunk/dyn3d/vlspltqs.f90	2019/06/13 14:40:06	328
@@ -24,7 +24,7 @@
     ! teta température potentielle, p pression aux interfaces,
     ! pk exner au milieu des couches nécessaire pour calculer Qsat
 
-    USE dimens_m, ONLY : iim, llm
+    USE dimensions, ONLY : iim, llm
     use FCTTRE, only: foeew
     USE paramet_m, ONLY : iip1, iip2, ijp1llm, ip1jm, ip1jmp1, llmp1
     USE comconst, ONLY : cpp
@@ -51,16 +51,7 @@
     REAL mv(ip1jm, llm)
     REAL mw(ip1jmp1, llm+1)
     REAL zq(ip1jmp1, llm)
-    REAL temps1, temps2, temps3
     REAL zzpbar, zzw
-    LOGICAL testcpu
-    SAVE testcpu
-    SAVE temps1, temps2, temps3
-
-    REAL qmin, qmax
-    DATA qmin, qmax/0., 1.e33/
-    DATA testcpu/.false./
-    DATA temps1, temps2, temps3/0., 0., 0./
 
     !--pour rapport de melange saturant--