--- trunk/libf/phylmd/dimphy.f90	2010/04/09 10:56:14	33
+++ trunk/libf/phylmd/dimphy.f90	2010/06/02 11:01:12	34
@@ -16,7 +16,7 @@
 
   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) ! fraction of land