--- trunk/libf/dyn3d/convmas.f	2012/01/30 12:54:02	57
+++ trunk/libf/dyn3d/convmas.f	2012/09/20 13:00:41	66
@@ -5,7 +5,7 @@
 c
       use dimens_m
       use paramet_m
-      use comvert
+      use disvert_m
       use conf_gcm_m
       use filtreg_m, only: filtreg
       IMPLICIT NONE
@@ -37,7 +37,8 @@
 c   -------------
 
 
-      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm ),convm(  ip1jmp1,llm )
+      REAL, intent(in):: pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )
+      real, intent(out):: convm(  ip1jmp1,llm )
       INTEGER   l,ij
 
 
@@ -50,7 +51,7 @@
 c   filtrage:
 c   ---------
 
-       CALL filtreg( convm, jjp1, llm, 2, 2, .true., 1 )
+       CALL filtreg( convm, jjp1, llm, 2, 2, .true.)
 
 c    integration de la convergence de masse de haut  en bas ......