--- trunk/Sources/dyn3d/fluxstokenc.f	2015/06/10 16:46:46	144
+++ trunk/Sources/dyn3d/fluxstokenc.f	2016/03/11 18:47:26	178
@@ -9,8 +9,9 @@
     ! Author: F. Hourdin
 
     USE histwrite_m, ONLY: histwrite
-    USE dimens_m, ONLY: jjm, llm, nqmx
-    USE paramet_m, ONLY: iip1, ijmllm, ijp1llm, ip1jm, ip1jmp1, jjp1
+    use initfluxsto_m, only: initfluxsto
+    USE dimens_m, ONLY: jjm, llm
+    USE paramet_m, ONLY: iip1, ijmllm, ijp1llm, ip1jm, ip1jmp1
     USE comgeom, ONLY: aire
     USE tracstoke, ONLY: istdyn, istphy
 
@@ -87,7 +88,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)