Merge pull request #987 from chogrefe/sitecmp_dailyo3_siteid20

sitecmp_dailyo3: Increase of station ID character limit
USEPA · Jul 5, 2023 · 8d67a79 · 8d67a79
2 parents f7182eb + aec1662
commit 8d67a79
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/POST/sitecmp_dailyo3/src/module_sites.F b/POST/sitecmp_dailyo3/src/module_sites.F
@@ -19,7 +19,7 @@
       MODULE SITE_DATA
 
       TYPE SITE
-         character*9  ::  site_id
+         character*20 ::  site_id
          CHARACTER*25 ::  STATE
          CHARACTER*25 ::  COUNTY
          REAL         ::  LAT
@@ -652,7 +652,7 @@ End Function getSiteNumber
 
 
 C  function to return the site id from it's index number
-      Character*(10) Function getSiteId( siteNo ) result (siteId)
+      Character*(20) Function getSiteId( siteNo ) result (siteId)
 
       Integer siteNo
 

diff --git a/POST/sitecmp_dailyo3/src/process.F b/POST/sitecmp_dailyo3/src/process.F
@@ -74,7 +74,7 @@ SUBROUTINE PROCESS
       CHARACTER*2560   HEADER3       ! third header line (units)
       CHARACTER*2560   tpRecord      ! time period record
 
-      Character*9     siteid, siteid2
+      Character*20    siteid, siteid2
       Character*2     cpoc
       Integer         poc, poc2
       REAL values(32), values2(24)
@@ -433,7 +433,7 @@ SUBROUTINE PROCESS
 
         Else
           If(siteno .le. 0 ) then
-           Write(*,'(''No site found for record = '',a)') record(1:12)
+           Write(*,'(''Site not found in SITE_FILE: '',a)') Trim(siteid)
           endif
          EndIf