--- trunk/libf/phylmd/dimphy.f90	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/dimphy.f90	2010/06/02 11:01:12	34
@@ -16,9 +16,9 @@
 
   INTEGER, PARAMETER:: KLEV = llm
 
-  INTEGER, PARAMETER:: nbtr = nqmx - 2 + 1 / (nqmx-1)
+  INTEGER, PARAMETER:: nbtr = max(1, nqmx - 2)
   ! (nombre de vrais traceurs)
 
-  REAL,save:: zmasq(KLON)
+  REAL,save:: zmasq(KLON) ! fraction of land
 
 end module dimphy