--- trunk/libf/phylmd/dimphy.f90	2008/08/01 15:24:12	15
+++ trunk/phylmd/dimphy.f	2014/03/05 14:57:53	82
@@ -11,14 +11,11 @@
   ! (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)
-
+  INTEGER, PARAMETER:: nbtr = max(1, nqmx - 2) ! nombre de vrais traceurs
   REAL,save:: zmasq(KLON) ! fraction of land
 
 end module dimphy