Index: LMDZ4/trunk/libf/dyn3d/fluxstokenc.F
===================================================================
--- LMDZ4/trunk/libf/dyn3d/fluxstokenc.F	(revision 696)
+++ LMDZ4/trunk/libf/dyn3d/fluxstokenc.F	(revision 697)
@@ -36,5 +36,5 @@
       real tst(1),ist(1),istp(1)
       INTEGER ij,l,irec,i,j,itau
-      INTEGER fluxid, fluxvid,fluxdid
+      INTEGER, SAVE :: fluxid, fluxvid,fluxdid
  
       SAVE iadvtr, massem,pbaruc,pbarvc,irec
@@ -44,4 +44,11 @@
       data first/.true./
       DATA iadvtr/0/
+
+
+c AC initialisations
+      pbarug(:,:)   = 0.
+      pbarvg(:,:,:) = 0.
+      wg(:,:)       = 0.
+      
 
       if(first) then