--- trunk/dyn3d/geopot.f	2014/03/05 14:57:53	82
+++ trunk/dyn3d/geopot.f90	2019/06/13 14:40:06	328
@@ -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)