@@ -423,23 +423,23 @@ function WriteSolution3D(sol,grid,data;desc="")
423
423
_t = now ()
424
424
tm = " $(hour (_t)) _$(minute (_t)) _$(second (_t)) "
425
425
desc = isempty (desc) ? desc : " _" * desc
426
- path = " ../data/out/$(Date (_t)) /$(tm)$(desc) "
426
+ path = joinpath ( @__DIR__ , " ../data/out/$(Date (_t)) /$(tm)$(desc) " )
427
427
try
428
428
mkpath (path)
429
429
catch e
430
430
println (" Directory " * path * " already exists." )
431
431
end
432
432
# mkdir(string(Date(_t)))
433
433
434
- VoronoiFVM . writeVTK (" $(path) /$(tm) _3D_ptot_$(data. nom_flux/ ufac " kW/m^2" ) suns_$(nflowin/ ufac " mol/hr" ) .vtu" , grid; point_data = sol[ip,:])
434
+ ExtendableGrids . writeVTK (" $(path) /$(tm) _3D_ptot_$(data. nom_flux/ ufac " kW/m^2" ) suns_$(nflowin/ ufac " mol/hr" ) .vtu" , grid; point_data = sol[ip,:])
435
435
if solve_T_equation
436
- VoronoiFVM . writeVTK (" $(path) /$(tm) _3D_T_$(data. nom_flux/ ufac " kW/m^2" ) suns_$(nflowin/ ufac " mol/hr" ) .vtu" , grid; point_data = sol[iT,:] .- 273.15 )
436
+ ExtendableGrids . writeVTK (" $(path) /$(tm) _3D_T_$(data. nom_flux/ ufac " kW/m^2" ) suns_$(nflowin/ ufac " mol/hr" ) .vtu" , grid; point_data = sol[iT,:] .- 273.15 )
437
437
end
438
438
for i= 1 : ng
439
- VoronoiFVM . writeVTK (" $(path) /$(tm) _3D_x$(gn[i]) _$(data. nom_flux/ ufac " kW/m^2" ) suns_$(nflowin/ ufac " mol/hr" ) .vtu" , grid; point_data = sol[i,:])
439
+ ExtendableGrids . writeVTK (" $(path) /$(tm) _3D_x$(gn[i]) _$(data. nom_flux/ ufac " kW/m^2" ) suns_$(nflowin/ ufac " mol/hr" ) .vtu" , grid; point_data = sol[i,:])
440
440
end
441
441
if dim == 3
442
- VoronoiFVM . writeVTK (" $(path) /$(tm) _3D_irradiation_flux_$(data. nom_flux/ ufac " kW/m^2" ) suns_$(nflowin/ ufac " mol/hr" ) .vtu" , grid; point_data = sol[ibf,:])
442
+ ExtendableGrids . writeVTK (" $(path) /$(tm) _3D_irradiation_flux_$(data. nom_flux/ ufac " kW/m^2" ) suns_$(nflowin/ ufac " mol/hr" ) .vtu" , grid; point_data = sol[ibf,:])
443
443
end
444
444
end
445
445
@@ -449,7 +449,7 @@ function WriteSolution3D(solt::TransientSolution,grid,data;desc="")
449
449
_t = now ()
450
450
tm = " $(hour (_t)) _$(minute (_t)) _$(second (_t)) "
451
451
desc = isempty (desc) ? desc : " _" * desc
452
- path = " ../data/out/$(Date (_t)) /$(tm)$(desc) "
452
+ path = joinpath ( @__DIR__ , " ../data/out/$(Date (_t)) /$(tm)$(desc) " )
453
453
try
454
454
mkpath (path)
455
455
catch e
@@ -460,21 +460,21 @@ function WriteSolution3D(solt::TransientSolution,grid,data;desc="")
460
460
for (i,t) in enumerate (solt. t)
461
461
462
462
# pressure
463
- VoronoiFVM . writeVTK (" $(path) /3D_ptot_$(data. nom_flux/ ufac " kW/m^2" ) suns_$(nflowin/ ufac " mol/hr" ) _$(i) .vtu" , grid; point_data = solt (t)[ip,:])
463
+ ExtendableGrids . writeVTK (" $(path) /3D_ptot_$(data. nom_flux/ ufac " kW/m^2" ) suns_$(nflowin/ ufac " mol/hr" ) _$(i) .vtu" , grid; point_data = solt (t)[ip,:])
464
464
465
465
# temperature
466
466
if solve_T_equation
467
- VoronoiFVM . writeVTK (" $(path) /3D_T_$(data. nom_flux/ ufac " kW/m^2" ) suns_$(nflowin/ ufac " mol/hr" ) _$(i) .vtu" , grid; point_data = solt (t)[iT,:] .- 273.15 )
467
+ ExtendableGrids . writeVTK (" $(path) /3D_T_$(data. nom_flux/ ufac " kW/m^2" ) suns_$(nflowin/ ufac " mol/hr" ) _$(i) .vtu" , grid; point_data = solt (t)[iT,:] .- 273.15 )
468
468
end
469
469
470
470
# species molar fractions
471
471
for j= 1 : ng
472
- VoronoiFVM . writeVTK (" $(path) /3D_x$(gn[j]) _$(data. nom_flux/ ufac " kW/m^2" ) suns_$(nflowin/ ufac " mol/hr" ) _$(i) .vtu" , grid; point_data = solt (t)[j,:])
472
+ ExtendableGrids . writeVTK (" $(path) /3D_x$(gn[j]) _$(data. nom_flux/ ufac " kW/m^2" ) suns_$(nflowin/ ufac " mol/hr" ) _$(i) .vtu" , grid; point_data = solt (t)[j,:])
473
473
end
474
474
475
475
# irradiation boundary flux
476
476
if dim == 3
477
- VoronoiFVM . writeVTK (" $(path) /3D_irradiation_flux_$(data. nom_flux/ ufac " kW/m^2" ) suns_$(nflowin/ ufac " mol/hr" ) _$(i) .vtu" , grid; point_data = solt (t)[ibf,:])
477
+ ExtendableGrids . writeVTK (" $(path) /3D_irradiation_flux_$(data. nom_flux/ ufac " kW/m^2" ) suns_$(nflowin/ ufac " mol/hr" ) _$(i) .vtu" , grid; point_data = solt (t)[ibf,:])
478
478
end
479
479
480
480
end
@@ -559,4 +559,4 @@ function WriteTemperatures(solt,grid,data;desc="")
559
559
# CSV.write("data/out/2024-01-26/Tc_Uc.csv", df)
560
560
CSV. write (" $(path) /Sim_T_probe_$(data. nom_flux/ ufac " kW/m^2" ) suns_$(nflowin/ ufac " mol/hr" ) .csv" , df)
561
561
# "$(path)/Sim_T_probe_$(data.nom_flux/ufac"kW/m^2")suns_$(nflowin/ufac"mol/hr").csv"
562
- end
562
+ end
0 commit comments