Skip to content

Commit

Permalink
SMOKEv4.8_Oct2020 Tag Updates
Browse files Browse the repository at this point in the history
  • Loading branch information
@bokhaeng
bokhaeng committed Oct 14, 2020
1 parent bd36a26 commit 70cf7d8
Show file tree
Hide file tree
Showing 48 changed files with 52 additions and 50 deletions.
6 changes: 4 additions & 2 deletions assigns/ASSIGNS.nctox.cmaq.cb05_soa.us12-nc
View file
Original file line number Diff line number Diff line change
Expand Up @@ -125,11 +125,13 @@ endif
## Biogenic input files
if ( $SMK_SOURCE == 'B' ) then
setenv B3FAC $GE_DAT/b3fac.beis3_efac_v0.98.txt # BEIS3.14 emission factors input file
setenv B360FAC $GE_DAT/b360fac_beld4_csv_nlcd2006.txt # BEIS3.6 emission factors input file
setenv BELD4 $INVDIR/biog/beld4.${IOAPI_GRIDNAME_1}.ncf # BEIS3.6 BELD4 land-use input file
setenv B360FAC $GE_DAT/b360fac_beld4_csv_nlcd2006.txt # BEIS3.61 emission factors input file
setenv BELD4 $INVDIR/biog/beld4.${IOAPI_GRIDNAME_1}.ncf # BEIS3.61 BELD4 land-use input file
setenv BELD3_TOT $INVDIR/biog/beld3.${IOAPI_GRIDNAME_1}.output_tot.ncf # BELD3 for BEIS3.14
setenv BELD3_A $INVDIR/biog/beld3.${IOAPI_GRIDNAME_1}.output_a.ncf # BELD3 for BEIS3.14
setenv BELD3_B $INVDIR/biog/beld3.${IOAPI_GRIDNAME_1}.output_b.ncf # BELD3 for BEIS3.14
setenv BEISFAC $GE_DAT/beisfacs_beld5_BEISv37.21Apr2020.csv # BEIS v3.7 or later emission factors input file
setenv BELD5 $INVDIR/biog/BELD5.${IOAPI_GRIDNAME_1}.ncf # BEIS v3.7 or later BELD5 land-use input file
setenv SOILINP $STATIC/soil.beis312.$GRID.$SPC.ncf # NO soil input file
setenv GSPRO $GE_DAT/gspro.$SPC.txt # Speciation profiles
endif
Expand Down
4 changes: 2 additions & 2 deletions scripts/install/check_smk_install
View file
Original file line number Diff line number Diff line change
Expand Up @@ -5,7 +5,7 @@
set errfile = $SCRIPTS/install/.err
set errstat = 0

set repdir = $SMKROOT/doc/checkdemo/reports
set repdir = $SCRIPTS/install/reports
set ncrepdir = $REPORTS/nctox/scenario

# Check stationary area sources
Expand Down Expand Up @@ -79,7 +79,7 @@ set num_success = `grep 'Normal Completion' * | wc -l`
cd $sav_dir

if ( $errstat != 0 ) then
mv $errfile $SMKROOT/doc/install_diffs.txt
mv $errfile $SCRIPTS/install/install_diffs.txt
echo ' '
echo 'Differences between your installation and correct answers exist\!'
echo 'Please refer to file $SMKROOT/doc/install_diffs.txt for details.'
Expand Down
2 changes: 1 addition & 1 deletion src/Makefile
View file
Original file line number Diff line number Diff line change
Expand Up @@ -95,7 +95,7 @@ LIBSRC = \
rdspdprof.f rdspdref.f rdsprof.f \
rdsrcgrps.f rdsref.f rdsrg.f \
rdsrgdesc.f rdsrghdr.f rdstcy.f \
rdtref.f rdtzone.f rdumat.f \
rdtzone.f rdumat.f \
rdxclude.f readwr3.f rmcommnt.f \
setscctype.f setsrcdy.f srcgrpcnt.f \
tagtable.f unitfac.f \
Expand Down
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_Jun2020$' ! CVS release tag
CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020' ! 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_Jun2020$' ! CVS release tag
CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name: SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
CHARACTER*50, PARAMETER :: CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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.7_Nov2019$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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 @@ -78,7 +78,7 @@ SUBROUTINE OPENMRGOUT

C........... Local parameters
CHARACTER(50), PARAMETER ::
& CVSW = '$Name SMOKEv4.8_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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 @@ -124,7 +124,7 @@ PROGRAM MOVESMRG
C......... LOCAL PARAMETERS and their descriptions:

CHARACTER(50), PARAMETER ::
& CVSW = '$Name SMOKEv4.8_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
CHARACTER(50), PARAMETER :: CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name SMOKEv4.8_Oct2020$' ! 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_Jun2020$' ! CVS release tag
& CVSW = '$Name: SMOKEv4.8_Oct2020$' ! CVS release tag

C........... LOCAL VARIABLES and their descriptions:

Expand Down
Loading

0 comments on commit 70cf7d8

Please sign in to comment.