Changeset 5135 for LMDZ6/branches/Amaury_dev/libf/dyn3d

Timestamp:

Jul 26, 2024, 7:20:23 PM (12 months ago)

Author:

abarral

Message:

Put iotd* into lmdz_iotd.f90

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d/bilan_dyn.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d/bilan_dyn.F90

@@ -60 +60 @@
 
 
-  !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 +116 @@
   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