--- trunk/libf/phylmd/dimphy.f90 2010/06/02 11:01:12 34 +++ trunk/libf/phylmd/dimphy.f90 2012/07/26 14:37:37 62 @@ -15,10 +15,7 @@ ! klon pour le pole sud) INTEGER, PARAMETER:: KLEV = llm - - INTEGER, PARAMETER:: nbtr = max(1, nqmx - 2) - ! (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