MIN MEM FIXES

Author: Anand

src/pre_process/m_global_parameters.fpp

@@ -923,7 +923,9 @@ contains
             grid_geometry = 3
         end if
 
-        allocate (logic_grid(0:m, 0:n, 0:p))
+        if(.not. igr) then 
+            allocate (logic_grid(0:m, 0:n, 0:p))
+        end if
 
     end subroutine s_initialize_global_parameters_module
 

src/simulation/m_start_up.fpp

@@ -1358,8 +1358,6 @@ contains
             call s_read_data_files(q_cons_ts(1)%vf)
         end if
 
-        call s_read_data_files(q_cons_ts(1)%vf)
-
         if (model_eqns == 3) call s_initialize_internal_energy_equations(q_cons_ts(1)%vf)
         if (ib) call s_ibm_setup()
         if (bodyForces) call s_initialize_body_forces_module()