Index: LMDZ6/branches/Amaury_dev/libf/dyn3d/bilan_dyn.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/dyn3d/bilan_dyn.F90	(revision 5134)
+++ LMDZ6/branches/Amaury_dev/libf/dyn3d/bilan_dyn.F90	(revision 5135)
@@ -60,8 +60,8 @@
 
 
-  !ym      character*6 nom(nQ)
-  !ym      character*6 unites(nQ)
-  character*6, save :: nom(nQ)
-  character*6, save :: unites(nQ)
+  !ym      CHARACTER*6 nom(nQ)
+  !ym      CHARACTER*6 unites(nQ)
+  CHARACTER*6, save :: nom(nQ)
+  CHARACTER*6, save :: unites(nQ)
 
   CHARACTER(LEN = 10) :: file
@@ -116,10 +116,10 @@
   parameter (ntr = 5)
 
-  !ym      character*10 znom(ntr,nQ)
-  !ym      character*20 znoml(ntr,nQ)
-  !ym      character*10 zunites(ntr,nQ)
-  character*10, save :: znom(ntr, nQ)
-  character*20, save :: znoml(ntr, nQ)
-  character*10, save :: zunites(ntr, nQ)
+  !ym      CHARACTER*10 znom(ntr,nQ)
+  !ym      CHARACTER*20 znoml(ntr,nQ)
+  !ym      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