Remove unused variables, fix stale comments, and rename HardcodedDellacation to HardcodedDeallocation

Author: sbryngelson

src/common/include/ExtrusionHardcodedIC.fpp

@@ -10,8 +10,8 @@
 !>
 !> **File Reading Operations:**
 !> - Reads primitive variable data from multiple files with pattern:
-!> `prim.<file_number>.00.<timestep>.dat` where timestep uses `zeros_default` padding
-!> - Files are read from directory specified by `init_dir` parameter
+!> `prim.<file_number>.00.<file_extension>.dat`
+!> - Files are read from directory specified by `files_dir` parameter
 !> - Supports 1D, 2D, and 3D computational domains
 !>
 !> **Grid Structure Detection:**
@@ -31,25 +31,23 @@
 !> - Uses files_loaded flag to prevent redundant file operations
 !> - Preserves data across multiple macro calls within same simulation
 !>
-!> @note File pattern uses `zeros_default` parameter (default: "000000") for timestep padding
-!> @note Directory path is hardcoded in `init_dir` parameter - modify as needed
+!> @note File pattern timestep field is controlled by the `file_extension` parameter
+!> @note Directory path is set via the `files_dir` parameter
 !> @warning Aborts execution if file reading errors occur.
 
 #:def HardcodedDimensionsExtrusion()
     integer                                 :: xRows, yRows, nRows, iix, iiy, max_files
-    integer                                 :: f, iter, unit, unit2, idx, idy, index_x, index_y, jump, line_count, ycount
-    real(wp)                                :: x_len, x_step, y_len, y_step
+    integer                                 :: f, iter, unit, unit2, idx, idy, index_x, index_y, jump, line_count
+    real(wp)                                :: x_step, y_step
     real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
     integer                                 :: global_offset_x, global_offset_y  !< MPI subdomain offset
     real(wp)                                :: delta_x, delta_y
     character(len=300), dimension(sys_size) :: fileNames                         !< Arrays to store all data from files
-    character(len=200)                      :: errmsg
     real(wp), allocatable                   :: stored_values(:,:,:)
     real(wp), allocatable                   :: x_coords(:), y_coords(:)
     logical                                 :: files_loaded = .false.
-    real(wp)                                :: domain_xstart, domain_xend, domain_ystart, domain_yend
+    real(wp)                                :: domain_xstart
     character(len=20)                       :: file_num_str                      !< For storing the file number as a string
-    character(len=20)                       :: zeros_part                        !< For the trailing zeros part
     integer                                 :: ios
     integer                                 :: ios2
 #:enddef
@@ -192,7 +190,7 @@
     end select
 #:enddef
 
-#:def HardcodedDellacation()
+#:def HardcodedDeallocation()
     if (allocated(stored_values)) then
         @:DEALLOCATE(stored_values)
         @:DEALLOCATE(x_coords)

src/pre_process/m_icpp_patches.fpp

@@ -208,7 +208,7 @@ contains
                 if (1._wp - eta < sgm_eps) patch_id_fp(i, 0, 0) = patch_id
             end if
         end do
-        @:HardcodedDellacation()
+        @:HardcodedDeallocation()
 
     end subroutine s_icpp_line_segment
 
@@ -272,7 +272,7 @@ contains
                 end if
             end do
         end do
-        @:HardcodedDellacation()
+        @:HardcodedDeallocation()
 
     end subroutine s_icpp_spiral
 
@@ -327,7 +327,7 @@ contains
                 end if
             end do
         end do
-        @:HardcodedDellacation()
+        @:HardcodedDeallocation()
 
     end subroutine s_icpp_circle
 
@@ -384,7 +384,7 @@ contains
                 end if
             end do
         end do
-        @:HardcodedDellacation()
+        @:HardcodedDeallocation()
 
     end subroutine s_icpp_varcircle
 
@@ -447,7 +447,7 @@ contains
                 end do
             end do
         end do
-        @:HardcodedDellacation()
+        @:HardcodedDeallocation()
 
     end subroutine s_icpp_3dvarcircle
 
@@ -503,7 +503,7 @@ contains
                 end if
             end do
         end do
-        @:HardcodedDellacation()
+        @:HardcodedDeallocation()
 
     end subroutine s_icpp_ellipse
 
@@ -574,7 +574,7 @@ contains
                 end do
             end do
         end do
-        @:HardcodedDellacation()
+        @:HardcodedDeallocation()
 
     end subroutine s_icpp_ellipsoid
 
@@ -644,7 +644,7 @@ contains
                 end if
             end do
         end do
-        @:HardcodedDellacation()
+        @:HardcodedDeallocation()
 
     end subroutine s_icpp_rectangle
 
@@ -703,7 +703,7 @@ contains
                 end if
             end do
         end do
-        @:HardcodedDellacation()
+        @:HardcodedDeallocation()
 
     end subroutine s_icpp_sweep_line
 
@@ -772,7 +772,7 @@ contains
                 end if
             end do
         end do
-        @:HardcodedDellacation()
+        @:HardcodedDeallocation()
 
     end subroutine s_icpp_2D_TaylorGreen_Vortex
 
@@ -826,7 +826,7 @@ contains
                 end if
             end if
         end do
-        @:HardcodedDellacation()
+        @:HardcodedDeallocation()
 
     end subroutine s_icpp_1D_bubble_pulse
 
@@ -1014,7 +1014,7 @@ contains
                 end do
             end do
         end do
-        @:HardcodedDellacation()
+        @:HardcodedDeallocation()
 
     end subroutine s_icpp_sphere
 
@@ -1084,7 +1084,7 @@ contains
                 end do
             end do
         end do
-        @:HardcodedDellacation()
+        @:HardcodedDeallocation()
 
     end subroutine s_icpp_cuboid
 
@@ -1179,7 +1179,7 @@ contains
                 end do
             end do
         end do
-        @:HardcodedDellacation()
+        @:HardcodedDeallocation()
 
     end subroutine s_icpp_cylinder
 
@@ -1250,7 +1250,7 @@ contains
                 end do
             end do
         end do
-        @:HardcodedDellacation()
+        @:HardcodedDeallocation()
 
     end subroutine s_icpp_sweep_plane