Merge pull request #70 from mccarthyryanc/main

ENVI HDR Parsing
lautenberger · Jan 29, 2025 · 34cf2aa · 34cf2aa
2 parents 7a16e30 + b2b53dc
commit 34cf2aa
Show file tree

Hide file tree

Showing 3 changed files with 260 additions and 156 deletions.
diff --git a/build/source/elmfire.f90 b/build/source/elmfire.f90
@@ -175,11 +175,11 @@ PROGRAM ELMFIRE
    ENDIF
 ELSE
    IF (IRANK_WORLD .EQ. PARALLEL_IO_RANK(1)) THEN
-      CALL READ_BSQ_HEADER (ASP, FUELS_AND_TOPOGRAPHY_DIRECTORY, ASP_FILENAME, .FALSE.)
+      CALL READ_BSQ_HDR_HEADER (ASP, FUELS_AND_TOPOGRAPHY_DIRECTORY, ASP_FILENAME, .FALSE.)
    ENDIF
 
    IF (IRANK_WORLD .EQ. PARALLEL_IO_RANK(2)) THEN
-      CALL READ_BSQ_HEADER (WS , WEATHER_DIRECTORY             , WS_FILENAME , .FALSE.)
+      CALL READ_BSQ_HDR_HEADER (WS , WEATHER_DIRECTORY             , WS_FILENAME , .FALSE.)
    ENDIF
 ENDIF