@@ -1264,10 +1264,6 @@ contains
12641264 pref = 1._wp
12651265 end if
12661266
1267- #if defined(MFC_OpenACC) && defined(MFC_MEMORY_DUMP)
1268- call acc_present_dump()
1269- #endif
1270-
12711267 call s_initialize_mpi_common_module()
12721268 call s_initialize_mpi_proxy_module()
12731269 call s_initialize_variables_conversion_module()
@@ -1277,10 +1273,6 @@ contains
12771273 if (ib) call s_initialize_ibm_module()
12781274 if (qbmm) call s_initialize_qbmm_module()
12791275
1280- #if defined(MFC_OpenACC) && defined(MFC_MEMORY_DUMP)
1281- call acc_present_dump()
1282- #endif
1283-
12841276 if (acoustic_source) then
12851277 call s_initialize_acoustic_src()
12861278 end if
@@ -1293,19 +1285,12 @@ contains
12931285
12941286 if (surface_tension) call s_initialize_surface_tension_module()
12951287
1296- #if defined(MFC_OpenACC) && defined(MFC_MEMORY_DUMP)
1297- call acc_present_dump()
1298- #endif
1299-
13001288 if (relax) call s_initialize_phasechange_module()
13011289
13021290 call s_initialize_data_output_module()
13031291 call s_initialize_derived_variables_module()
13041292 call s_initialize_time_steppers_module()
13051293
1306- #if defined(MFC_OpenACC) && defined(MFC_MEMORY_DUMP)
1307- call acc_present_dump()
1308- #endif
13091294 call s_initialize_boundary_common_module()
13101295
13111296 ! Reading in the user provided initial condition and grid data
@@ -1333,11 +1318,6 @@ contains
13331318 call s_initialize_riemann_solvers_module()
13341319 end if
13351320
1336- #if defined(MFC_OpenACC) && defined(MFC_MEMORY_DUMP)
1337- print * , " [MEM-INST] After: s_initialize_weno_module"
1338- call acc_present_dump()
1339- #endif
1340-
13411321 call s_initialize_derived_variables()
13421322 if (bubbles_lagrange) call s_initialize_bubbles_EL_module(q_cons_ts(1 )%vf)
13431323
0 commit comments