Changeset 697 for LMDZ4/trunk/libf/dyn3d


Ignore:
Timestamp:
Apr 24, 2006, 12:14:03 PM (19 years ago)
Author:
lmdzadmin
Message:

rajout save + initialisations - AC
MAF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3d/fluxstokenc.F

    r541 r697  
    3636      real tst(1),ist(1),istp(1)
    3737      INTEGER ij,l,irec,i,j,itau
    38       INTEGER fluxid, fluxvid,fluxdid
     38      INTEGER, SAVE :: fluxid, fluxvid,fluxdid
    3939 
    4040      SAVE iadvtr, massem,pbaruc,pbarvc,irec
    … …  
    4444      data first/.true./
    4545      DATA iadvtr/0/
     46
     47
     48c AC initialisations
     49      pbarug(:,:)   = 0.
     50      pbarvg(:,:,:) = 0.
     51      wg(:,:)       = 0.
     52     
    4653
    4754      if(first) then
Note: See TracChangeset for help on using the changeset viewer.