Changeset 2035

Timestamp:

Nov 4, 2018, 12:55:58 AM (6 years ago)

Author:

jvatant

Message:

Fix a bug in 1D, again some (late) follow-up
of r1971, r1978 and r1980 about the size of tracer names.
--JVO

Location:

trunk

Files:

• LMDZ.GENERIC/libf/dyn3d/infotrac.F90 (modified) (1 diff)
• LMDZ.TITAN/libf/dyn3d/infotrac.F90 (modified) (2 diffs)
• LMDZ.TITAN/libf/phytitan/dyn1d/rcm1d.F (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/dyn3d/infotrac.F90

@@ -61 +61 @@
     INTEGER, ALLOCATABLE, DIMENSION(:) :: vadv  ! index of vertical trasport schema
 
-    CHARACTER(len=15), ALLOCATABLE, DIMENSION(:) :: tnom_0  ! tracer short name
+    CHARACTER(len=30), ALLOCATABLE, DIMENSION(:) :: tnom_0  ! tracer short name
     CHARACTER(len=3), DIMENSION(30) :: descrq
     CHARACTER(len=1), DIMENSION(3)  :: txts
     CHARACTER(len=2), DIMENSION(9)  :: txtp
-    CHARACTER(len=23)               :: str1,str2
+    CHARACTER(len=30)               :: str1,str2
   
     INTEGER :: nqtrue  ! number of tracers read from tracer.def, without higer order of moment

trunk/LMDZ.TITAN/libf/dyn3d/infotrac.F90

@@ -12 +12 @@
 
 ! Name variables
-  CHARACTER(len=20), ALLOCATABLE, DIMENSION(:), SAVE :: tname ! tracer short name for restart and diagnostics
-  CHARACTER(len=23), ALLOCATABLE, DIMENSION(:), SAVE :: ttext ! tracer long name for diagnostics
+  CHARACTER(len=30), ALLOCATABLE, DIMENSION(:), SAVE :: tname ! tracer short name for restart and diagnostics
+  CHARACTER(len=33), ALLOCATABLE, DIMENSION(:), SAVE :: ttext ! tracer long name for diagnostics
 
 ! iadv  : index of trasport schema for each tracer
@@ -61 +61 @@
     INTEGER, ALLOCATABLE, DIMENSION(:) :: vadv  ! index of vertical trasport schema
 
-    CHARACTER(len=15), ALLOCATABLE, DIMENSION(:) :: tnom_0  ! tracer short name
+    CHARACTER(len=30), ALLOCATABLE, DIMENSION(:) :: tnom_0  ! tracer short name
     CHARACTER(len=3), DIMENSION(30) :: descrq
     CHARACTER(len=1), DIMENSION(3)  :: txts
     CHARACTER(len=2), DIMENSION(9)  :: txtp
-    CHARACTER(len=23)               :: str1,str2
+    CHARACTER(len=30)               :: str1,str2
   
     INTEGER :: nqtrue  ! number of tracers read from tracer.def, without higer order of moment

trunk/LMDZ.TITAN/libf/phytitan/dyn1d/rcm1d.F

@@ -124 +124 @@
       REAL tankCH4(1)
 
-      CHARACTER*20 file_prof
+      CHARACTER*38 file_prof
       LOGICAL findprof