Skip to content

Commit

Permalink
SMOKEv481_Jan2021 Tag Updates
Browse files Browse the repository at this point in the history
  • Loading branch information
@bokhaeng
bokhaeng committed Jan 29, 2021
1 parent c381b71 commit 84eaa07
Show file tree
Hide file tree
Showing 45 changed files with 45 additions and 45 deletions.
2 changes: 1 addition & 1 deletion src/biog/normbeis3.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/biog/tmpbeis3.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/cntlmat/cntlmat.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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:

Expand Down
2 changes: 1 addition & 1 deletion src/cntlmat/opencmat.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/cntlmat/openpmat.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/cntlmat/openrmat.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/emqa/smkreport.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/emutil/aggwndw.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
2 changes: 1 addition & 1 deletion src/emutil/beld3to2.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/emutil/bluesky2inv.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/emutil/cemscan.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/emutil/extractida.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/emutil/gentpro.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/emutil/geofac.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
2 changes: 1 addition & 1 deletion src/emutil/inlineto2d.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/emutil/layalloc.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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:
Expand Down
2 changes: 1 addition & 1 deletion src/emutil/metcombine.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
2 changes: 1 addition & 1 deletion src/emutil/saregroup.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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:

Expand Down
2 changes: 1 addition & 1 deletion src/emutil/smk2emis.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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:

Expand Down
2 changes: 1 addition & 1 deletion src/emutil/surgtool.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/emutil/uam2ncf.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
2 changes: 1 addition & 1 deletion src/grdmat/grdmat.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/grdmat/opengmat.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
2 changes: 1 addition & 1 deletion src/movesmrg/met4moves.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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:
Expand Down
2 changes: 1 addition & 1 deletion src/movesmrg/mopenmrgout.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
2 changes: 1 addition & 1 deletion src/movesmrg/movesmrg.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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:

Expand Down
2 changes: 1 addition & 1 deletion src/point/elevpoint.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/point/laypoint.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/point/openeout.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/point/openlayout.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/point/wpingstk.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/smkinven/grwinven.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/smkinven/opengrwout.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
2 changes: 1 addition & 1 deletion src/smkinven/openinvout.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
2 changes: 1 addition & 1 deletion src/smkinven/openpdout.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
2 changes: 1 addition & 1 deletion src/smkinven/smkinven.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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:

Expand Down
2 changes: 1 addition & 1 deletion src/smkmerge/mrgasciielev.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/smkmerge/mrggrid.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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:

Expand Down
2 changes: 1 addition & 1 deletion src/smkmerge/mrgpt.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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:

Expand Down
2 changes: 1 addition & 1 deletion src/smkmerge/openmrgout.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
2 changes: 1 addition & 1 deletion src/smkmerge/smkmerge.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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:

Expand Down
2 changes: 1 addition & 1 deletion src/spcmat/opensmat.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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 )
Expand Down
2 changes: 1 addition & 1 deletion src/spcmat/spcmat.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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:

Expand Down
2 changes: 1 addition & 1 deletion src/temporal/opentmp.f
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
Loading

0 comments on commit 84eaa07

Please sign in to comment.