Update revise.f

Updating REV to 20240930
USDAForestService · Aug 19, 2024 · ef66b56 · ef66b56
1 parent fdb993b
commit ef66b56
Showing 1 changed file with 23 additions and 23 deletions.
diff --git a/vbase/revise.f b/vbase/revise.f
@@ -18,117 +18,117 @@ SUBROUTINE REVISE (VAR,REV)
 C SOUTHEAST ALASKA / COASTAL BRITISH COLUMBIA
 C----------
         CASE('AK')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C BLUE MOUNTAINS
 C----------
         CASE('BM')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C INLAND CALIFORNIA / SOUTHERN CASCADES
 C----------
         CASE('CA')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C CENTRAL IDAHO
 C----------
         CASE('CI')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C CENTRAL ROCKIES
 C----------
         CASE('CR')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C CENTRAL STATES
 C----------
         CASE('CS')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C EAST CASCADES
 C----------
         CASE('EC')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C EASTERN MONTANA
 C----------
         CASE('EM')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C INLAND EMPIRE (AKA NI23)
 C----------
         CASE('IE')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C KOOTENAI / KANIKSU / TALLY LAKE
 C----------
         CASE('KT')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C LAKE STATES
 C----------
         CASE('LS')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C KLAMATH MOUNTAINS
 C----------
         CASE('NC')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C NORTHEAST STATES
 C----------
         CASE('NE')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C SOUTHWEST OREGON ORGANON
 C----------
         CASE('OC')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C NORTHWEST OREGON ORGANON
 C----------
         CASE('OP')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C PACIFIC NORTHWEST
 C----------
         CASE('PN')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C SOUTHERN
 C----------
         CASE('SN')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C SOUTH CENTRAL OREGON / NORTHEAST CALIFORNIA
 C----------
         CASE('SO')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C TETONS
 C----------
         CASE('TT')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C UTAH
 C----------
         CASE('UT')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C WEST CASCADES
 C----------
         CASE('WC')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C WESTERN SIERRA NEVADA
 C----------
         CASE('WS')
-        REV = '20240701'
+        REV = '20240930'
 C----------
 C ANY OTHER VARIANT
 C----------
         CASE DEFAULT
-        REV = '20240701'
+        REV = '20240930'
 C
       END SELECT
 C