Changeset 1971 for trunk/LMDZ.COMMON/libf/dyn3d_common

Timestamp:

Jul 17, 2018, 2:16:57 PM (6 years ago)

Author:

emillour

Message:

Common dynamics:
Enable tracer names to be up to 30 characters long (instead of 20).
EM

File:

• trunk/LMDZ.COMMON/libf/dyn3d_common/infotrac.F90 (modified) (5 diffs)

trunk/LMDZ.COMMON/libf/dyn3d_common/infotrac.F90

@@ -16 +16 @@
 
 ! 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
@@ -101 +101 @@
     INTEGER, ALLOCATABLE, DIMENSION(:) :: vadv_inca  ! index of vertical trasport schema
 
-    CHARACTER(len=15), ALLOCATABLE, DIMENSION(:) :: tnom_0  ! tracer short name
-    CHARACTER(len=15), ALLOCATABLE, DIMENSION(:) :: tnom_transp ! transporting fluid short name: CRisi
+    CHARACTER(len=30), ALLOCATABLE, DIMENSION(:) :: tnom_0  ! tracer short name
+    CHARACTER(len=30), ALLOCATABLE, DIMENSION(:) :: tnom_transp ! transporting fluid short name: CRisi
     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
@@ -113 +113 @@
     LOGICAL :: continu,nouveau_traceurdef
     INTEGER :: IOstatus ! gestion de la retrocompatibilite de traceur.def
-    CHARACTER(len=15) :: tchaine    
+    CHARACTER(len=30) :: tchaine    
     
     character(len=80) :: line ! to store a line of text
@@ -808 +808 @@
     ! inputs
     INTEGER nqtrue
-    CHARACTER(len=15) tnom_0(nqtrue)
+    CHARACTER(len=*) tnom_0(nqtrue)
     
     ! locals    
@@ -815 +815 @@
     INTEGER, ALLOCATABLE,DIMENSION(:) :: nb_isoind
     INTEGER :: ntraceurs_zone_prec,iq,phase,ixt,iiso,izone
-    CHARACTER(len=19) :: tnom_trac
+    CHARACTER(len=30) :: tnom_trac
     INCLUDE "iniprint.h"