Changeset 1121

Timestamp:

Mar 11, 2009, 4:25:41 PM (15 years ago)

Author:

musat

Message:

Bug declarations variables guidage
IM/FH

File:

• LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/read_reanalyse.F (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/read_reanalyse.F

@@ -45 +45 @@
       save varidpl,ncidQ,varidQ
 
-      real*4 unc(iip1,jjp1,nlevnc),vnc(iip1,jjm,nlevnc)
-      real*4 tnc(iip1,jjp1,nlevnc),psnc(iip1,jjp1)
-      real*4 Qnc(iip1,jjp1,nlevnc)
-      real*4 plnc(iip1,jjp1,nlevnc)
-      real*4 apnc(nlevnc),bpnc(nlevnc)
+      real unc(iip1,jjp1,nlevnc),vnc(iip1,jjm,nlevnc)
+      real tnc(iip1,jjp1,nlevnc),psnc(iip1,jjp1)
+      real Qnc(iip1,jjp1,nlevnc)
+      real plnc(iip1,jjp1,nlevnc)
+      real apnc(nlevnc),bpnc(nlevnc)
 
       integer start(4),count(4),status