Changeset 1978 for trunk/LMDZ.TITAN/libf

Timestamp:

Jul 30, 2018, 6:50:20 AM (6 years ago)

Author:

jvatant

Message:

Minor maintenance to comply with r1971 modif of tracers name lenght in LMDZ.COMMON
--JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/tracer_h.F90 (modified) (3 diffs)

trunk/LMDZ.TITAN/libf/phytitan/tracer_h.F90

@@ -39 +39 @@
   INTEGER, DIMENSION(:), ALLOCATABLE, SAVE :: ices_indx   !! Indexes of all ice microphysical tracers
 
-  CHARACTER(len=20), DIMENSION(:), ALLOCATABLE, SAVE :: noms      !! name of the tracer
+  CHARACTER(len=30), DIMENSION(:), ALLOCATABLE, SAVE :: noms      !! name of the tracer
   REAL, DIMENSION(:), ALLOCATABLE, SAVE              :: mmol      !! mole mass of tracer(g/mol-1)
   REAL, DIMENSION(:), ALLOCATABLE, SAVE              :: rat_mmol  !! molar mass ratio 
@@ -80 +80 @@
 
     INTEGER, INTENT(in)                          :: nq         !! Total number of tracers (fixed at compile time)
-    character(len=20), DIMENSION(nq), INTENT(in) :: nametrac   !! name of the tracer from dynamics (from 'traceurs.def')
+    character(len=30), DIMENSION(nq), INTENT(in) :: nametrac   !! name of the tracer from dynamics (from 'traceurs.def')
     LOGICAL, INTENT(in), OPTIONAL                :: talk_to_me !! Enable verbose mode.
 
     LOGICAL                                      :: verb,found
-    CHARACTER(len=20)                            :: str
+    CHARACTER(len=30)                            :: str
 
     INTEGER :: i,j,n
@@ -262 +262 @@
     IMPLICIT NONE
     INTEGER, INTENT(in) :: indx   !! Index of the tracer name to retrieve.
-    CHARACTER(len=20)   :: name   !! Name of the tracer at given index.
+    CHARACTER(len=30)   :: name   !! Name of the tracer at given index.
     name = '' 
     IF (.NOT.ALLOCATED(noms)) RETURN