Changeset 764 for LMDZ4/trunk/libf/dyn3dpar/fluxstokenc_p.F

Timestamp:

Jun 4, 2007, 4:13:10 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Merge entre la version V3_conv et le HEAD
YM, JG, LF

File:

• LMDZ4/trunk/libf/dyn3dpar/fluxstokenc_p.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3dpar/fluxstokenc_p.F

@@ -39 +39 @@
       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
@@ -49 +49 @@
       integer :: ijb,ije,jjb,jje,jjn
       type(Request) :: Req
+
+c AC initialisations
+cym      pbarug(:,:)   = 0.
+cym      pbarvg(:,:,:) = 0.
+cym      wg(:,:)       = 0.
 
       if(first) then