@@ -1257,11 +1257,6 @@ contains
12571257 pref = 1._wp
12581258 end if
12591259
1260- #if defined(MFC_OpenACC) && defined(MFC_MEMORY_DUMP)
1261- call acc_present_dump()
1262- #endif
1263-
1264-
12651260 call s_initialize_mpi_common_module()
12661261 call s_initialize_mpi_proxy_module()
12671262 call s_initialize_variables_conversion_module()
@@ -1272,10 +1267,6 @@ contains
12721267 if (ib) call s_initialize_ibm_module()
12731268 if (qbmm) call s_initialize_qbmm_module()
12741269
1275- #if defined(MFC_OpenACC) && defined(MFC_MEMORY_DUMP)
1276- call acc_present_dump()
1277- #endif
1278-
12791270 if (acoustic_source) then
12801271 call s_initialize_acoustic_src()
12811272 end if
@@ -1288,19 +1279,12 @@ contains
12881279
12891280 if (surface_tension) call s_initialize_surface_tension_module()
12901281
1291- #if defined(MFC_OpenACC) && defined(MFC_MEMORY_DUMP)
1292- call acc_present_dump()
1293- #endif
1294-
12951282 if (relax) call s_initialize_phasechange_module()
12961283
12971284 call s_initialize_data_output_module()
12981285 call s_initialize_derived_variables_module()
12991286 call s_initialize_time_steppers_module()
13001287
1301- #if defined(MFC_OpenACC) && defined(MFC_MEMORY_DUMP)
1302- call acc_present_dump()
1303- #endif
13041288 call s_initialize_boundary_common_module()
13051289
13061290 ! Reading in the user provided initial condition and grid data
@@ -1322,11 +1306,6 @@ contains
13221306 ! the modules. The preparations below DO DEPEND on the grid being complete.
13231307 call s_initialize_weno_module()
13241308
1325- #if defined(MFC_OpenACC) && defined(MFC_MEMORY_DUMP)
1326- print * , " [MEM-INST] After: s_initialize_weno_module"
1327- call acc_present_dump()
1328- #endif
1329-
13301309 call s_initialize_cbc_module()
13311310 call s_initialize_derived_variables()
13321311 if (bubbles_lagrange) call s_initialize_bubbles_EL_module(q_cons_ts(1 )%vf)
0 commit comments