--- trunk/libf/dyn3d/caladvtrac.f90	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/caladvtrac.f90	2010/03/25 14:29:07	27
@@ -10,11 +10,13 @@
   use paramet_m, only: ip1jmp1
   use comconst, only: dtvr
   use conf_gcm_m, only: iapp_tracvl
+  use filtreg_m, only: filtreg
 
   IMPLICIT NONE
 
   REAL pbaru(ip1jmp1, llm), pbarv((iim + 1) * jjm, llm), masse(ip1jmp1, llm)
-  REAL p(ip1jmp1, llm + 1), q(ip1jmp1, llm, nqmx)
+  REAL, intent(in):: p(ip1jmp1, llm + 1)
+  real q(ip1jmp1, llm, nqmx)
 
   real, intent(out):: dq(ip1jmp1, llm, 2)
   ! (n'est utilisé et dimensionné que pour l'eau vapeur et liquide)