--- trunk/libf/phylmd/dimphy.f90	2008/02/27 13:16:39	3
+++ trunk/phylmd/dimphy.f	2018/03/20 09:35:59	265
@@ -1,24 +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 = nqmx - 2 + 1 / (nqmx-1)
-  ! (nombre de vrais traceurs)
-
-  REAL,save:: zmasq(KLON)
+  REAL, save:: zmasq(KLON) ! fraction of land
 
 end module dimphy