@@ -1264,10 +1264,6 @@ contains
1264
1264
pref = 1._wp
1265
1265
end if
1266
1266
1267
- #if defined(MFC_OpenACC) && defined(MFC_MEMORY_DUMP)
1268
- call acc_present_dump()
1269
- #endif
1270
-
1271
1267
call s_initialize_mpi_common_module()
1272
1268
call s_initialize_mpi_proxy_module()
1273
1269
call s_initialize_variables_conversion_module()
@@ -1277,10 +1273,6 @@ contains
1277
1273
if (ib) call s_initialize_ibm_module()
1278
1274
if (qbmm) call s_initialize_qbmm_module()
1279
1275
1280
- #if defined(MFC_OpenACC) && defined(MFC_MEMORY_DUMP)
1281
- call acc_present_dump()
1282
- #endif
1283
-
1284
1276
if (acoustic_source) then
1285
1277
call s_initialize_acoustic_src()
1286
1278
end if
@@ -1293,19 +1285,12 @@ contains
1293
1285
1294
1286
if (surface_tension) call s_initialize_surface_tension_module()
1295
1287
1296
- #if defined(MFC_OpenACC) && defined(MFC_MEMORY_DUMP)
1297
- call acc_present_dump()
1298
- #endif
1299
-
1300
1288
if (relax) call s_initialize_phasechange_module()
1301
1289
1302
1290
call s_initialize_data_output_module()
1303
1291
call s_initialize_derived_variables_module()
1304
1292
call s_initialize_time_steppers_module()
1305
1293
1306
- #if defined(MFC_OpenACC) && defined(MFC_MEMORY_DUMP)
1307
- call acc_present_dump()
1308
- #endif
1309
1294
call s_initialize_boundary_common_module()
1310
1295
1311
1296
! Reading in the user provided initial condition and grid data
@@ -1333,11 +1318,6 @@ contains
1333
1318
call s_initialize_riemann_solvers_module()
1334
1319
end if
1335
1320
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
-
1341
1321
call s_initialize_derived_variables()
1342
1322
if (bubbles_lagrange) call s_initialize_bubbles_EL_module(q_cons_ts(1 )%vf)
1343
1323
0 commit comments