Changeset 697

Timestamp:

Apr 24, 2006, 12:14:03 PM (19 years ago)

Author:

lmdzadmin

Message:

rajout save + initialisations - AC
MAF

File:

• LMDZ4/trunk/libf/dyn3d/fluxstokenc.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3d/fluxstokenc.F

@@ -36 +36 @@
       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 +44 @@
       data first/.true./
       DATA iadvtr/0/
+
+
+c AC initialisations
+      pbarug(:,:)   = 0.
+      pbarvg(:,:,:) = 0.
+      wg(:,:)       = 0.
+      
 
       if(first) then