--- trunk/dyn3d/fluxstokenc.f	2014/07/15 13:43:24	102
+++ trunk/Sources/dyn3d/fluxstokenc.f	2015/06/18 13:49:26	150
@@ -37,7 +37,7 @@
     !-------------------------------------------------------------
 
     IF (itau == 0) THEN
-       CALL initfluxsto(time_step, istdyn*time_step, istdyn*time_step, nqmx, &
+       CALL initfluxsto(time_step, istdyn*time_step, istdyn*time_step, &
             fluxid, fluxvid, fluxdid)
        CALL histwrite(fluxid, 'phis', 1, phis)
        CALL histwrite(fluxid, 'aire', 1, aire)
@@ -87,7 +87,7 @@
        !     1. calcul de w
        !     2. groupement des mailles pres du pole.
 
-       CALL groupe(massem, pbaruc, pbarvc, pbarug, pbarvg, wg)
+       CALL groupe(pbaruc, pbarvc, pbarug, pbarvg, wg)
 
        CALL histwrite(fluxid, 'masse', itau, massem)
        CALL histwrite(fluxid, 'pbaru', itau, pbarug)