diff --git a/src/biog/normbeis3.f b/src/biog/normbeis3.f index f02a4f6f..be2a0c10 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.9_Jun2022$' ! CVS release tag + CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS release tag C......... External functions LOGICAL, EXTERNAL :: ENVYN diff --git a/src/biog/normbeis4.f b/src/biog/normbeis4.f index 10138d22..2b5d8f4a 100644 --- a/src/biog/normbeis4.f +++ b/src/biog/normbeis4.f @@ -79,7 +79,7 @@ PROGRAM NORMBEIS4 CHARACTER(256) MESG ! message buffer for M3EXIT() CHARACTER(5) BTMP ! temporary tag for naming output variables C......... CVS release tag - CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.9_Jun2022$' + CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv5.0_Jun2023$' INTEGER NCOLS ! no. of grid columns INTEGER NROWS ! no. of grid rows diff --git a/src/biog/tmpbeis3.f b/src/biog/tmpbeis3.f index 83552a46..0f2be92b 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.9_Jun2022$' ! CVS release tag + CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS release tag C......... External functions LOGICAL, EXTERNAL :: ENVYN diff --git a/src/cntlmat/cntlmat.f b/src/cntlmat/cntlmat.f index 49b085ec..0df330c0 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS release tag C........... LOCAL VARIABLES and their descriptions: diff --git a/src/cntlmat/opencmat.f b/src/cntlmat/opencmat.f index 01a62c8a..8c849e92 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! 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 8012a8fe..068a3032 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! 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 99e2f2ab..5f1f3763 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! 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 3b44a93d..9bab636c 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! 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 3ae196dd..86cf9ac0 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS release tag C......... LOCAL VARIABLES diff --git a/src/emutil/beld3to2.f b/src/emutil/beld3to2.f index 1e0fdb1f..33d59702 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! 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/cemscan.f b/src/emutil/cemscan.f index e6c13240..d114c08f 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! 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 01f2bed2..9dac4eb1 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.9_Jun2022' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023' ! CVS release tag C............ Allocatable arrays INTEGER, ALLOCATABLE :: INDEXA ( : ) ! sorting index diff --git a/src/emutil/gentpro.f b/src/emutil/gentpro.f index 7e53f84f..c8597591 100644 --- a/src/emutil/gentpro.f +++ b/src/emutil/gentpro.f @@ -128,7 +128,7 @@ PROGRAM GENTPRO & YR2DAY, ENVYN, STR2REAL, FINDC C..... Define temporal profile type constants for enumeration - CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.9_Jun2022$' ! CVS release tag + CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS release tag INTEGER, PARAMETER :: MXVAR = 100 INTEGER, PARAMETER :: MXSEG = 16 diff --git a/src/emutil/geofac.f b/src/emutil/geofac.f index 65299007..94612f78 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS release tag C........... LOCAL VARIABLES diff --git a/src/emutil/inlineto2d.f b/src/emutil/inlineto2d.f index 669636e7..c2e75511 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name: SMOKEv5.0_Jun2023$' ! 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 aa66d8b9..c288d114 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.9_Jun2022$' ! CVS release tag + CHARACTER*50, PARAMETER :: CVSW = '$Name SMOKEv5.0_Jun2023$' ! 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 1c5d090d..e1162259 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS release tag INTEGER, PARAMETER :: MAXVARS = 80 ! maximum number of variables diff --git a/src/emutil/saregroup.f b/src/emutil/saregroup.f index c256af59..ba377a01 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS release tag C........... LOCAL VARIABLES and their descriptions: diff --git a/src/emutil/smk2emis.f b/src/emutil/smk2emis.f index 47eb1be0..20aa3738 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS release tag C......... EXTERNAL FUNCTIONS and their descriptions: diff --git a/src/emutil/surgtool.f b/src/emutil/surgtool.f index 746c5b37..949aff23 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! 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 418927ec..8d42b80d 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS release tag C....... Input and output emissions diff --git a/src/grdmat/grdmat.f b/src/grdmat/grdmat.f index 676e8a7a..25c861b4 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! 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 4f7950a9..7deb98c5 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS release tag C........... Other local variables diff --git a/src/movesmrg/met4moves.f b/src/movesmrg/met4moves.f index ee7c15d9..e43ecb31 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.9_Jun2022$' ! CVS release tag + CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv5.0_Jun2023$' ! 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 f148533b..85a7f427 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS release tag C......... Base and future year per diff --git a/src/movesmrg/movesmrg.f b/src/movesmrg/movesmrg.f index f466c988..20727d23 100644 --- a/src/movesmrg/movesmrg.f +++ b/src/movesmrg/movesmrg.f @@ -126,7 +126,7 @@ PROGRAM MOVESMRG C......... LOCAL PARAMETERS and their descriptions: CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS release tag C........... LOCAL VARIABLES and their descriptions: diff --git a/src/point/elevpoint.f b/src/point/elevpoint.f index d972fe57..571aaeac 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! 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 904d226d..79ed6d23 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! 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 7f36979f..9aab86d4 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! 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 20d4306f..4aecda03 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! 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 eaef936a..0dbe9a4f 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! 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 f717b04e..2cc43eca 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! 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 7833b32e..d770bdc6 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS release tag C........... Other local variables diff --git a/src/smkinven/openinvout.f b/src/smkinven/openinvout.f index d23088f1..b629d1c7 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS release tag C........... Other local variables diff --git a/src/smkinven/openpdout.f b/src/smkinven/openpdout.f index 07fde2c0..9f923f5d 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS release tag C........... Other local variables diff --git a/src/smkinven/smkinven.f b/src/smkinven/smkinven.f index 348a3dd1..6a2a4e4a 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.9_Jun2022$' ! CVS release tag + CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS release tag C......... LOCAL VARIABLES and their descriptions: diff --git a/src/smkmerge/mrgasciielev.f b/src/smkmerge/mrgasciielev.f index 6a0f31c6..daa18bfa 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.9_Jun2022$' ! CVS release tag + CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv5.0_Jun2023$' ! 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 d262d6d9..e285e568 100644 --- a/src/smkmerge/mrggrid.f +++ b/src/smkmerge/mrggrid.f @@ -84,7 +84,7 @@ PROGRAM MRGGRID C......... LOCAL PARAMETERS and their descriptions: CHARACTER(50), PARAMETER :: - & CVSW = '$Name SMOKEv4.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS release tag C........... LOCAL VARIABLES and their descriptions: CHARACTER(16) :: SEGMENT( 3 ) diff --git a/src/smkmerge/mrgpt.f b/src/smkmerge/mrgpt.f index 5acfa962..5bcf5d3d 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name: SMOKEv5.0_Jun2023$' ! CVS release tag C........... LOCAL VARIABLES and their descriptions: diff --git a/src/smkmerge/openmrgout.f b/src/smkmerge/openmrgout.f index 84c29336..0f2b7708 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS release tag C......... Base and future year per diff --git a/src/smkmerge/smkmerge.f b/src/smkmerge/smkmerge.f index 8f92f11f..0f724854 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.9_Jun2022$' ! CVS release tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS release tag C........... LOCAL VARIABLES and their descriptions: diff --git a/src/spcmat/opensmat.f b/src/spcmat/opensmat.f index 2629302a..08b1e7ca 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.9_Jun2022 $' ! CVS revision tag + & CVSW = '$Name SMOKEv5.0_Jun2023 $' ! 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 b1797531..bf897516 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.9_Jun2022$' ! CVS revision tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS revision tag C........... LOCAL VARIABLES and their descriptions: diff --git a/src/temporal/opentmp.f b/src/temporal/opentmp.f index 74a7ee51..db0b0af6 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.9_Jun2022$' ! CVS revision tag + & CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS revision tag C........... Other local variables diff --git a/src/temporal/temporal.f b/src/temporal/temporal.f index 53d5327e..8db6a9ab 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.9_Jun2022$' ! CVS revision tag + CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv5.0_Jun2023$' ! CVS revision tag C......... Array that contains the names of the inventory variables needed for C this program