Print out entire species name string to tracerinfo.dat

To avoid cutting off species names in GAMAP, we now print out the entire species name string (A31) to tracerinfo.dat. Signed-off-by: Melissa Sulprizio <[email protected]>
geoschem · Feb 9, 2019 · d2a8cd1 · d2a8cd1
1 parent f5a1d31
commit d2a8cd1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/GeosCore/gamap_mod.F b/GeosCore/gamap_mod.F
@@ -405,7 +405,7 @@ SUBROUTINE CREATE_TINFO( am_I_Root, Input_Opt, State_Chm, RC )
      &        ' information about GEOS-CHEM'                           )
  115  FORMAT( '# tracers.  It is read by routine ',
      &        '"ctm_tracerinfo.pro" of the GAMAP package.',      /,'#' )
- 120  FORMAT( '# NAME     (A8   )  Tracer name (up to 8 chars)'        )
+ 120  FORMAT( '# NAME     (A31  )  Tracer name (up to 31 chars)'       )
  125  FORMAT( '#  --      (1X   )  1-character spacer'                 )
  130  FORMAT( '# FULLNAME (A30  )  Full tracer name (up to 30 chars)'  )
  135  FORMAT( '# MOLWT    (E10.0)  Molecular weight (kg/mole)'         )
@@ -746,7 +746,7 @@ SUBROUTINE WRITE_TINFO( IU_FILE, NAME, FNAME,
       IF ( IOS /= 0 ) CALL IOERROR( IOS, IU_FILE, 'write_tinfo:1' )
 
       ! FORMAT string
- 100  FORMAT( a8, 1x, a30, es10.3, i3, i9, es10.3, 1x, a )
+ 100  FORMAT( a31, 1x, a30, es10.3, i3, i9, es10.3, 1x, a )
 
       END SUBROUTINE WRITE_TINFO
 !EOC