diff --git a/src/simulation/m_start_up.fpp b/src/simulation/m_start_up.fpp index 9dc866b76b..f429b66ab2 100644 --- a/src/simulation/m_start_up.fpp +++ b/src/simulation/m_start_up.fpp @@ -1264,10 +1264,6 @@ contains pref = 1._wp end if -#if defined(MFC_OpenACC) && defined(MFC_MEMORY_DUMP) - call acc_present_dump() -#endif - call s_initialize_mpi_common_module() call s_initialize_mpi_proxy_module() call s_initialize_variables_conversion_module() @@ -1277,10 +1273,6 @@ contains if (ib) call s_initialize_ibm_module() if (qbmm) call s_initialize_qbmm_module() -#if defined(MFC_OpenACC) && defined(MFC_MEMORY_DUMP) - call acc_present_dump() -#endif - if (acoustic_source) then call s_initialize_acoustic_src() end if @@ -1293,19 +1285,12 @@ contains if (surface_tension) call s_initialize_surface_tension_module() -#if defined(MFC_OpenACC) && defined(MFC_MEMORY_DUMP) - call acc_present_dump() -#endif - if (relax) call s_initialize_phasechange_module() call s_initialize_data_output_module() call s_initialize_derived_variables_module() call s_initialize_time_steppers_module() -#if defined(MFC_OpenACC) && defined(MFC_MEMORY_DUMP) - call acc_present_dump() -#endif call s_initialize_boundary_common_module() ! Reading in the user provided initial condition and grid data @@ -1333,11 +1318,6 @@ contains call s_initialize_riemann_solvers_module() end if -#if defined(MFC_OpenACC) && defined(MFC_MEMORY_DUMP) - print *, "[MEM-INST] After: s_initialize_weno_module" - call acc_present_dump() -#endif - call s_initialize_derived_variables() if (bubbles_lagrange) call s_initialize_bubbles_EL_module(q_cons_ts(1)%vf)