--- trunk/dyn3d/convmas.f	2014/09/11 15:09:15	107
+++ trunk/Sources/dyn3d/convmas.f	2018/01/22 15:02:56	252
@@ -9,14 +9,14 @@
     ! From LMDZ4/libf/dyn3d/convmas.F, version 1.1.1.1, 2004/05/19 12:53:07
 
     USE dimens_m, ONLY: iim, jjm, llm
-    USE paramet_m, ONLY: ip1jm, ip1jmp1, jjp1, llmm1
-    USE filtreg_m, ONLY: filtreg
+    USE paramet_m, ONLY: ip1jm, ip1jmp1, llmm1
+    USE filtreg_scal_m, ONLY: filtreg_scal
 
     ! Authors: P. Le Van, F. Hourdin
     ! Objet: calcul de la convergence du flux de masse aux niveaux p
 
     ! Le calcul se fait de haut en bas, la convergence de masse au
-    ! niveau p(llm+1) est égale à 0 et n'est pas stockée dans le
+    ! niveau p(llm + 1) est égale à 0 et n'est pas stockée dans le
     ! tableau convm.
 
     REAL, INTENT(IN):: pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)
@@ -31,11 +31,11 @@
     CALL convflu(pbaru, pbarv, llm, convm)
 
     ! Filtrage :
-    CALL filtreg(convm, direct = .true., intensive = .false.)
+    CALL filtreg_scal(convm, direct = .true., intensive = .false.)
 
     ! Intégration de la convergence de masse de haut en bas :
     DO l = llmm1, 1, -1
-       convm(:, :, l) = convm(:, :, l) + convm(:, :, l+1)
+       convm(:, :, l) = convm(:, :, l) + convm(:, :, l + 1)
     END DO
 
   END SUBROUTINE convmas