Changeset 1122 for LMDZ4


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

Bug declarations variables guidage
IM/FH

Location:
LMDZ4/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/dyn3d/read_reanalyse.F

    r1046 r1122  
    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
  • LMDZ4/trunk/libf/dyn3dpar/read_reanalyse.F

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