Ignore:
Timestamp:
Mar 11, 2009, 4:25:24 PM (16 years ago)
Author:
musat
Message:

Bug declarations variables guidage
IM/FH

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/dyn3d/read_reanalyse.F

    r1046 r1120  
    4646      save varidpl,ncidQ,varidQ
    4747
    48       real*4 unc(iip1,jjp1,nlevnc),vnc(iip1,jjm,nlevnc)
    49       real*4 tnc(iip1,jjp1,nlevnc),psnc(iip1,jjp1)
    50       real*4 Qnc(iip1,jjp1,nlevnc)
    51       real*4 plnc(iip1,jjp1,nlevnc)
    52       real*4 apnc(nlevnc),bpnc(nlevnc)
     48      real unc(iip1,jjp1,nlevnc),vnc(iip1,jjm,nlevnc)
     49      real tnc(iip1,jjp1,nlevnc),psnc(iip1,jjp1)
     50      real Qnc(iip1,jjp1,nlevnc)
     51      real plnc(iip1,jjp1,nlevnc)
     52      real apnc(nlevnc),bpnc(nlevnc)
    5353
    5454      integer start(4),count(4),status
Note: See TracChangeset for help on using the changeset viewer.