Changeset 1122 for LMDZ4/trunk/libf/dyn3d

Timestamp:

Mar 11, 2009, 4:29:23 PM (16 years ago)

Author:

musat

Message:

Bug declarations variables guidage
IM/FH

File:

• LMDZ4/trunk/libf/dyn3d/read_reanalyse.F (modified) (1 diff)

LMDZ4/trunk/libf/dyn3d/read_reanalyse.F

@@ -46 +46 @@
       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