--- trunk/libf/phylmd/dimphy.f90	2012/07/26 14:37:37	62
+++ trunk/phylmd/dimphy.f	2018/03/20 09:35:59	265
@@ -1,21 +1,20 @@
 module dimphy
 
-  use dimens_m, only: iim, jjm, llm, nqmx
+  use dimensions, only: iim, jjm, llm
 
   implicit none
 
-  private iim, jjm, llm, nqmx
+  private iim, jjm, llm
 
   INTEGER, PARAMETER:: klon = iim * (jjm - 1) + 2
   ! (number of distinct scalar grid points)
   ! (Les points de la physique sont les points scalaires de la dynamique.
   ! Numerotation :
   ! 1 pour le pole nord
-  ! (jjm-1)*iim pour l'interieur du domaine
+  ! (jjm - 1) * iim pour l'interieur du domaine
   ! klon pour le pole sud)
 
   INTEGER, PARAMETER:: KLEV = llm
-  INTEGER, PARAMETER:: nbtr = max(1, nqmx - 2) ! nombre de vrais traceurs
-  REAL,save:: zmasq(KLON) ! fraction of land
+  REAL, save:: zmasq(KLON) ! fraction of land
 
 end module dimphy