--- trunk/libf/dyn3d/geopot.f90	2011/04/08 12:43:31	43
+++ trunk/libf/dyn3d/geopot.f90	2011/04/13 12:29:18	44
@@ -11,8 +11,7 @@
     ! Objet : calcul du géopotentiel aux milieux des couches
     ! L'intégration se fait de bas en haut.
 
-    USE dimens_m
-    USE paramet_m
+    USE dimens_m, ONLY: llm
 
     INTEGER, INTENT (IN):: ngrid
     REAL, INTENT (IN):: teta(ngrid, llm), pks(ngrid)