--- trunk/dyn3d/geopot.f	2018/03/19 10:28:42	264
+++ trunk/dyn3d/geopot.f	2018/03/20 09:35:59	265
@@ -11,7 +11,7 @@
     ! Objet : calcul du géopotentiel aux milieux des couches
     ! L'intégration se fait de bas en haut.
 
-    USE dimens_m, ONLY: iim, jjm, llm
+    USE dimensions, ONLY: iim, jjm, llm
     use nr_util, only: assert
 
     REAL, INTENT(IN):: teta(:, :, :) ! (iim + 1, jjm + 1, llm)