From d2a8cd1445a3456df008729ce23d066d6edc328c Mon Sep 17 00:00:00 2001 From: Melissa Sulprizio Date: Fri, 8 Feb 2019 20:36:07 -0500 Subject: [PATCH] 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 --- GeosCore/gamap_mod.F | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/GeosCore/gamap_mod.F b/GeosCore/gamap_mod.F index 4548f3880..cd258ba5a 100644 --- 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