--- trunk/dyn3d/vlspltqs.f	2018/02/05 10:39:38	254
+++ trunk/dyn3d/vlspltqs.f	2018/03/20 09:35:59	265
@@ -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