diff --git a/src/biog/normbeis3.f b/src/biog/normbeis3.f index b2a4e963..83c833c9 100644 --- a/src/biog/normbeis3.f +++ b/src/biog/normbeis3.f @@ -43,7 +43,7 @@ PROGRAM NORMBEIS3 INCLUDE 'IODECL3.EXT' ! I/O API function declarations C......... Local parameters - CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C......... External functions LOGICAL, EXTERNAL :: ENVYN diff --git a/src/biog/tmpbeis3.f b/src/biog/tmpbeis3.f index 77aedfb9..28c92482 100644 --- a/src/biog/tmpbeis3.f +++ b/src/biog/tmpbeis3.f @@ -54,7 +54,7 @@ PROGRAM TMPBEIS3 INCLUDE 'IODECL3.EXT' ! I/O API function declarations C......... Local parameters - CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C......... External functions LOGICAL, EXTERNAL :: ENVYN diff --git a/src/cntlmat/cntlmat.f b/src/cntlmat/cntlmat.f index 545bc0e1..456c0019 100644 --- a/src/cntlmat/cntlmat.f +++ b/src/cntlmat/cntlmat.f @@ -59,7 +59,7 @@ PROGRAM CNTLMAT C........... LOCAL PARAMETERS and their descriptions: CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C........... LOCAL VARIABLES and their descriptions: diff --git a/src/cntlmat/opencmat.f b/src/cntlmat/opencmat.f index 55095910..7c6be929 100644 --- a/src/cntlmat/opencmat.f +++ b/src/cntlmat/opencmat.f @@ -63,7 +63,7 @@ SUBROUTINE OPENCMAT( ENAME, MATTYP, MNAME ) C........... LOCAL PARAMETERS CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C......... SUBROUTINE ARGUMENTS CHARACTER(*), INTENT (IN) :: ENAME ! emissions inven logical name diff --git a/src/cntlmat/openpmat.f b/src/cntlmat/openpmat.f index a014b98d..c79c9f0f 100644 --- a/src/cntlmat/openpmat.f +++ b/src/cntlmat/openpmat.f @@ -62,7 +62,7 @@ SUBROUTINE OPENPMAT( ENAME, BYEARIN, PYEAR, PNAME ) C........... LOCAL PARAMETERS CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C......... SUBROUTINE ARGUMENTS CHARACTER(*), INTENT (IN) :: ENAME ! emissions inven logical name diff --git a/src/cntlmat/openrmat.f b/src/cntlmat/openrmat.f index 77a317dd..9c3a493c 100644 --- a/src/cntlmat/openrmat.f +++ b/src/cntlmat/openrmat.f @@ -64,7 +64,7 @@ SUBROUTINE OPENRMAT( ENAME, RPOL, SFLAG, LFLAG, C........... LOCAL PARAMETERS INTEGER , PARAMETER :: NBASVAR = 4 CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C......... SUBROUTINE ARGUMENTS CHARACTER(*), INTENT (IN) :: ENAME ! emissions inven logical name diff --git a/src/emqa/smkreport.f b/src/emqa/smkreport.f index b79e57c6..b3531d04 100644 --- a/src/emqa/smkreport.f +++ b/src/emqa/smkreport.f @@ -76,7 +76,7 @@ PROGRAM SMKREPORT C........... LOCAL PARAMETERS CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C........... Gridding Matrix INTEGER, ALLOCATABLE :: GMAT( : ) ! Contiguous gridding matrix diff --git a/src/emutil/aggwndw.f b/src/emutil/aggwndw.f index fd1af39c..2f6b4778 100644 --- a/src/emutil/aggwndw.f +++ b/src/emutil/aggwndw.f @@ -89,7 +89,7 @@ PROGRAM AGGWNDW C......... LOCAL PARAMETERS CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C......... LOCAL VARIABLES diff --git a/src/emutil/beld3to2.f b/src/emutil/beld3to2.f index 892d95ae..a220613a 100644 --- a/src/emutil/beld3to2.f +++ b/src/emutil/beld3to2.f @@ -65,7 +65,7 @@ PROGRAM BELD3TO2 C........... LOCAL PARAMETERS CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag REAL, PARAMETER :: TOHECT = 0.0001 ! factor to convert to hectares CHARACTER, PARAMETER :: AQUT = "'" INTEGER, PARAMETER :: IZERO = 0 diff --git a/src/emutil/bluesky2inv.f b/src/emutil/bluesky2inv.f index bf571e90..76336967 100644 --- a/src/emutil/bluesky2inv.f +++ b/src/emutil/bluesky2inv.f @@ -61,7 +61,7 @@ PROGRAM BLUESKY2INV C....... LOCAL PARAMETERS CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag INTEGER, PARAMETER :: MXSEG = 15 ! number of segments in line INTEGER, PARAMETER :: MXOUT = 11 ! number of output values REAL, PARAMETER :: MTON2STON = 1.10231131 ! conversion factor for metric to short tons diff --git a/src/emutil/cemscan.f b/src/emutil/cemscan.f index 8675c262..7eab87dd 100644 --- a/src/emutil/cemscan.f +++ b/src/emutil/cemscan.f @@ -41,7 +41,7 @@ PROGRAM CEMSCAN C......... LOCAL PARAMETERS CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag INTEGER, PARAMETER :: MXSEG = 16 ! number of segments in line C......... LOCAL VARIABLES diff --git a/src/emutil/extractida.f b/src/emutil/extractida.f index 004cd638..3ff4344f 100644 --- a/src/emutil/extractida.f +++ b/src/emutil/extractida.f @@ -56,7 +56,7 @@ PROGRAM EXTRACTIDA C........... LOCAL PARAMETERS CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021' ! CVS release tag C............ Allocatable arrays INTEGER, ALLOCATABLE :: INDEXA ( : ) ! sorting index diff --git a/src/emutil/gentpro.f b/src/emutil/gentpro.f index fa9a337a..1a3b5701 100644 --- a/src/emutil/gentpro.f +++ b/src/emutil/gentpro.f @@ -125,7 +125,7 @@ PROGRAM GENTPRO & YR2DAY, ENVYN, STR2REAL, FINDC C..... Define temporal profile type constants for enumeration - CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag INTEGER, PARAMETER :: MXVAR = 100 INTEGER, PARAMETER :: MXSEG = 16 diff --git a/src/emutil/geofac.f b/src/emutil/geofac.f index 56e9f4ca..9206e18c 100644 --- a/src/emutil/geofac.f +++ b/src/emutil/geofac.f @@ -60,7 +60,7 @@ PROGRAM GEOFAC C........... PARAMETERS and their descriptions: CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C........... LOCAL VARIABLES diff --git a/src/emutil/inlineto2d.f b/src/emutil/inlineto2d.f index 4c22ef98..162c56f7 100644 --- a/src/emutil/inlineto2d.f +++ b/src/emutil/inlineto2d.f @@ -71,7 +71,7 @@ PROGRAM INLINETO2D C......... LOCAL PARAMETERS and their descriptions: CHARACTER(50), PARAMETER :: - & CVSW = '$Name: SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name: SMOKEv4.8.1_Jan2021$' ! CVS release tag C........... LOCAL VARIABLES and their descriptions: C........... Emissions arrays diff --git a/src/emutil/layalloc.f b/src/emutil/layalloc.f index 8670a183..3c702664 100644 --- a/src/emutil/layalloc.f +++ b/src/emutil/layalloc.f @@ -60,7 +60,7 @@ PROGRAM LAYALLOC C........... LOCAL PARAMETERS - CHARACTER*50, PARAMETER :: CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + CHARACTER*50, PARAMETER :: CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag REAL, PARAMETER :: CONVPA = 1.0E-2 ! conversion factor for Pa to mb C........... LOCAL VARIABLES and their descriptions: diff --git a/src/emutil/metcombine.f b/src/emutil/metcombine.f index f751e757..9db5f7c6 100644 --- a/src/emutil/metcombine.f +++ b/src/emutil/metcombine.f @@ -54,7 +54,7 @@ PROGRAM METCOMBINE C......... LOCAL PARAMETERS CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag INTEGER, PARAMETER :: MAXVARS = 80 ! maximum number of variables diff --git a/src/emutil/saregroup.f b/src/emutil/saregroup.f index 54afc991..9aacd4da 100644 --- a/src/emutil/saregroup.f +++ b/src/emutil/saregroup.f @@ -59,7 +59,7 @@ PROGRAM REGROUP CHARACTER(64), PARAMETER :: & BAR = '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-' CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C........... LOCAL VARIABLES and their descriptions: diff --git a/src/emutil/smk2emis.f b/src/emutil/smk2emis.f index 12a53f4e..2cedaae9 100644 --- a/src/emutil/smk2emis.f +++ b/src/emutil/smk2emis.f @@ -57,7 +57,7 @@ PROGRAM SMK2EMIS C........... PARAMETERS and their descriptions: CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C......... EXTERNAL FUNCTIONS and their descriptions: diff --git a/src/emutil/surgtool.f b/src/emutil/surgtool.f index 4dfb8dab..96475496 100644 --- a/src/emutil/surgtool.f +++ b/src/emutil/surgtool.f @@ -76,7 +76,7 @@ PROGRAM SURGTOOL C........... LOCAL PARAMETERS CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C............ Allocatable arrays for computing grid cell intersections INTEGER, ALLOCATABLE:: C2( :, : ) ! output grid cell diff --git a/src/emutil/uam2ncf.f b/src/emutil/uam2ncf.f index 2038c9bb..41628545 100644 --- a/src/emutil/uam2ncf.f +++ b/src/emutil/uam2ncf.f @@ -62,7 +62,7 @@ PROGRAM UAM2NCF C........... PARAMETER CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C....... Input and output emissions diff --git a/src/grdmat/grdmat.f b/src/grdmat/grdmat.f index 1086a32c..64384c7f 100644 --- a/src/grdmat/grdmat.f +++ b/src/grdmat/grdmat.f @@ -92,7 +92,7 @@ PROGRAM GRDMAT C........... LOCAL PARAMETERS CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C........... LOCAL VARIABLES and their descriptions: C........... Gridding Matrix diff --git a/src/grdmat/opengmat.f b/src/grdmat/opengmat.f index 8e40f60f..3c1accbd 100644 --- a/src/grdmat/opengmat.f +++ b/src/grdmat/opengmat.f @@ -76,7 +76,7 @@ SUBROUTINE OPENGMAT( NMATX, NMATXU, UFLAG, INVPROG, INVVERS, C........... LOCAL PARAMETERS CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C........... Other local variables diff --git a/src/movesmrg/met4moves.f b/src/movesmrg/met4moves.f index 054cb77a..c358c878 100644 --- a/src/movesmrg/met4moves.f +++ b/src/movesmrg/met4moves.f @@ -102,7 +102,7 @@ PROGRAM MET4MOVES & FINDCFIRST, STR2INT, BLKORCMT, ENVYN C........... LOCAL PARAMETERS - CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag INTEGER, PARAMETER :: MXVAR = 20 C........... LOCAL VARIABLES and their descriptions: diff --git a/src/movesmrg/mopenmrgout.f b/src/movesmrg/mopenmrgout.f index d4672394..91e3d711 100644 --- a/src/movesmrg/mopenmrgout.f +++ b/src/movesmrg/mopenmrgout.f @@ -79,7 +79,7 @@ SUBROUTINE OPENMRGOUT C........... Local parameters CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C......... Base and future year per diff --git a/src/movesmrg/movesmrg.f b/src/movesmrg/movesmrg.f index 96f7d98f..baa96189 100644 --- a/src/movesmrg/movesmrg.f +++ b/src/movesmrg/movesmrg.f @@ -125,7 +125,7 @@ PROGRAM MOVESMRG C......... LOCAL PARAMETERS and their descriptions: CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C........... LOCAL VARIABLES and their descriptions: diff --git a/src/point/elevpoint.f b/src/point/elevpoint.f index ffb0fd22..1ddd89dc 100644 --- a/src/point/elevpoint.f +++ b/src/point/elevpoint.f @@ -111,7 +111,7 @@ PROGRAM ELEVPOINT C........... LOCAL PARAMETERS and their descriptions: CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag INTEGER, PARAMETER :: LAYPOINT_APPROACH = 0 INTEGER, PARAMETER :: NOPING_APPROACH = 0 diff --git a/src/point/laypoint.f b/src/point/laypoint.f index 81bfdd54..15993dcf 100644 --- a/src/point/laypoint.f +++ b/src/point/laypoint.f @@ -101,7 +101,7 @@ PROGRAM LAYPOINT REAL, PARAMETER :: BTU2M4PS3 = 0.00000258 ! conv. factor for bouyancy flux CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C......... Indicator for which public inventory arrays need to be read INTEGER, PARAMETER :: NINVARR = 9 diff --git a/src/point/openeout.f b/src/point/openeout.f index 98c14c37..f2cf91b8 100644 --- a/src/point/openeout.f +++ b/src/point/openeout.f @@ -74,7 +74,7 @@ SUBROUTINE OPENEOUT( NGROUP, SDATE, STIME, ENAME, C........... LOCAL PARAMETERS CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C........... Other local variables INTEGER J ! indices and counters diff --git a/src/point/openlayout.f b/src/point/openlayout.f index 0815922d..bd85a994 100644 --- a/src/point/openlayout.f +++ b/src/point/openlayout.f @@ -66,7 +66,7 @@ SUBROUTINE OPENLAYOUT( SDATE, STIME, TSTEP, EMLAYS, REP_LAYR, C........... LOCAL PARAMETERS and their descriptions: CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C........... SUBROUTINE ARGUMENTS INTEGER , INTENT (IN) :: SDATE ! Julian start date diff --git a/src/point/wpingstk.f b/src/point/wpingstk.f index e203b4ab..9be0e741 100644 --- a/src/point/wpingstk.f +++ b/src/point/wpingstk.f @@ -65,7 +65,7 @@ SUBROUTINE WPINGSTK( FNAME, SDATE, STIME, LFLAG ) C........... LOCAL PARAMETERS CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C........... Local variables allocatable arrays C........... These are for sorting groups and outputting in sorted order diff --git a/src/smkinven/grwinven.f b/src/smkinven/grwinven.f index 43024bc1..da2533d9 100644 --- a/src/smkinven/grwinven.f +++ b/src/smkinven/grwinven.f @@ -68,7 +68,7 @@ PROGRAM GRWINVEN C........... LOCAL PARAMETERS and their descriptions: CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C........... LOCAL VARIABLES and their descriptions: C........... Local parameters diff --git a/src/smkinven/opengrwout.f b/src/smkinven/opengrwout.f index 93ae44bd..ca609b19 100644 --- a/src/smkinven/opengrwout.f +++ b/src/smkinven/opengrwout.f @@ -80,7 +80,7 @@ SUBROUTINE OPENGRWOUT( ENAME, FYEAR, NAME1, SFLAG, C........... LOCAL PARAMETERS CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C........... Other local variables diff --git a/src/smkinven/openinvout.f b/src/smkinven/openinvout.f index 34b5be5e..c8a16347 100644 --- a/src/smkinven/openinvout.f +++ b/src/smkinven/openinvout.f @@ -82,7 +82,7 @@ SUBROUTINE OPENINVOUT( A2PFLAG, GRDNM, ENAME, ANAME, IDEV, C........... LOCAL PARAMETERS CHARACTER(16), PARAMETER :: FORMEVNM = 'SMKINVEN_FORMULA' CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C........... Other local variables diff --git a/src/smkinven/openpdout.f b/src/smkinven/openpdout.f index 5ec93967..93df5976 100644 --- a/src/smkinven/openpdout.f +++ b/src/smkinven/openpdout.f @@ -71,7 +71,7 @@ SUBROUTINE OPENPDOUT( NPDSRC, NVAR, TZONE, SDATE, STIME, TSTEP, C........... LOCAL PARAMETERS CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C........... Other local variables diff --git a/src/smkinven/smkinven.f b/src/smkinven/smkinven.f index a0806d1d..fa04b2b0 100644 --- a/src/smkinven/smkinven.f +++ b/src/smkinven/smkinven.f @@ -94,7 +94,7 @@ PROGRAM SMKINVEN C........... LOCAL PARAMETERS and their descriptions: - CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C......... LOCAL VARIABLES and their descriptions: diff --git a/src/smkmerge/mrgasciielev.f b/src/smkmerge/mrgasciielev.f index cc7e96c6..b81d7c49 100644 --- a/src/smkmerge/mrgasciielev.f +++ b/src/smkmerge/mrgasciielev.f @@ -71,7 +71,7 @@ PROGRAM MRGELEV & JUNIT, PROMPTFFILE, SECSDIFF, SEC2TIME C......... LOCAL PARAMETERS - CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag INTEGER, PARAMETER :: MXPING = 300 ! final number of PinG sources C......... LOCAL VARIABLES diff --git a/src/smkmerge/mrggrid.f b/src/smkmerge/mrggrid.f index 214fe5c0..a69ce980 100644 --- a/src/smkmerge/mrggrid.f +++ b/src/smkmerge/mrggrid.f @@ -83,7 +83,7 @@ PROGRAM MRGGRID C......... LOCAL PARAMETERS and their descriptions: CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C........... LOCAL VARIABLES and their descriptions: diff --git a/src/smkmerge/mrgpt.f b/src/smkmerge/mrgpt.f index 34e9e9f7..f210d510 100644 --- a/src/smkmerge/mrgpt.f +++ b/src/smkmerge/mrgpt.f @@ -79,7 +79,7 @@ PROGRAM MRGPT C......... LOCAL PARAMETERS and their descriptions: CHARACTER(50), PARAMETER :: - & CVSW = '$Name: SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name: SMOKEv4.8.1_Jan2021$' ! CVS release tag C........... LOCAL VARIABLES and their descriptions: diff --git a/src/smkmerge/openmrgout.f b/src/smkmerge/openmrgout.f index 1a864381..9a751923 100644 --- a/src/smkmerge/openmrgout.f +++ b/src/smkmerge/openmrgout.f @@ -91,7 +91,7 @@ SUBROUTINE OPENMRGOUT( NGRP ) C........... Local parameters CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C......... Base and future year per diff --git a/src/smkmerge/smkmerge.f b/src/smkmerge/smkmerge.f index 80c11da9..45263c95 100644 --- a/src/smkmerge/smkmerge.f +++ b/src/smkmerge/smkmerge.f @@ -139,7 +139,7 @@ PROGRAM SMKMERGE CHARACTER(16), PARAMETER :: PROGNAME = 'SMKMERGE' ! program name CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS release tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS release tag C........... LOCAL VARIABLES and their descriptions: diff --git a/src/spcmat/opensmat.f b/src/spcmat/opensmat.f index e639da80..f9f40516 100644 --- a/src/spcmat/opensmat.f +++ b/src/spcmat/opensmat.f @@ -84,7 +84,7 @@ SUBROUTINE OPENSMAT( ENAME, SFLAG, LFLAG, NOPOL, MXSPEC, C........... LOCAL PARAMETERS CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020 $' ! CVS revision tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021 $' ! CVS revision tag C......... Count of species per inventory pollutant/emission type INTEGER NSPEC( NIPPA ) diff --git a/src/spcmat/spcmat.f b/src/spcmat/spcmat.f index a96b241a..be7e6906 100644 --- a/src/spcmat/spcmat.f +++ b/src/spcmat/spcmat.f @@ -81,7 +81,7 @@ PROGRAM SPCMAT CHARACTER(1 ), PARAMETER :: QUOTE = "'" CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS revision tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS revision tag C........... LOCAL VARIABLES and their descriptions: diff --git a/src/temporal/opentmp.f b/src/temporal/opentmp.f index fee3f42e..8ccb3d53 100644 --- a/src/temporal/opentmp.f +++ b/src/temporal/opentmp.f @@ -86,7 +86,7 @@ SUBROUTINE OPENTMP( II, ENAME, SDATE, STIME, TSTEP, NSTEPS, C........... LOCAL PARAMETERS CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS revision tag + & CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS revision tag C........... Other local variables diff --git a/src/temporal/temporal.f b/src/temporal/temporal.f index c069f43a..23338c77 100644 --- a/src/temporal/temporal.f +++ b/src/temporal/temporal.f @@ -104,7 +104,7 @@ PROGRAM TEMPORAL C......... LOCAL PARAMETERS and their descriptions: - CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.8_Oct2020$' ! CVS revision tag + CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.8.1_Jan2021$' ! CVS revision tag C......... Array that contains the names of the inventory variables needed for C this program