Changeset 566 for LMDZ4/trunk/libf/dyn3d/bilan_dyn.F

Timestamp:

Dec 10, 2004, 12:27:46 PM (19 years ago)

Author:

lmdzadmin

Message:

Bugs divers YM
LF

File:

• LMDZ4/trunk/libf/dyn3d/bilan_dyn.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3d/bilan_dyn.F

@@ -60 +60 @@
 
 
-      character*6 nom(nQ)
-      character*6 unites(nQ)
+cym      character*6 nom(nQ)
+cym      character*6 unites(nQ)
+      character*6,save :: nom(nQ)
+      character*6,save :: unites(nQ)
+
       character*10 file
       integer ifile
@@ -113 +116 @@
       parameter (ntr=5)
 
-      character*10 znom(ntr,nQ)
-      character*20 znoml(ntr,nQ)
-      character*10 zunites(ntr,nQ)
+cym      character*10 znom(ntr,nQ)
+cym      character*20 znoml(ntr,nQ)
+cym      character*10 zunites(ntr,nQ)
+      character*10,save :: znom(ntr,nQ)
+      character*20,save :: znoml(ntr,nQ)
+      character*10,save :: zunites(ntr,nQ)
+
       integer iave,itot,immc,itrs,istn
       data iave,itot,immc,itrs,istn/1,2,3,4,5/