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

Timestamp:

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

Author:

abarral

Message:

Put iotd* into lmdz_iotd.f90

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/bilan_dyn_loc.f90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/bilan_dyn_loc.f90

@@ -68 +68 @@
 
 
-  !ym      character*6 nom(nQ)
-  !ym      character*6 unites(nQ)
+  !ym      CHARACTER*6 nom(nQ)
+  !ym      CHARACTER*6 unites(nQ)
   CHARACTER(LEN=6),save :: nom(nQ)
   CHARACTER(LEN=6),save :: unites(nQ)
@@ -114 +114 @@
   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,PARAMETER :: iave=1,itot=2,immc=3,itrs=4,istn=5