simplifiying the HDR parsing to something simpler and fixing a bug wi…

…th the MISC dir parsing
lautenberger · Jan 10, 2025 · b2b53dc · b2b53dc
1 parent 10314a1
commit b2b53dc
Show file tree

Hide file tree

Showing 3 changed files with 220 additions and 262 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