1+
2+
3+
4+
5+
6+
7+
8+
9+ function save_clumps_jld2 (output, path)
10+ info = getinfo (output, path)
11+ clumps = getclumps (info)
12+ savedata (clumps, :write )
13+ savedata (clumps, " ./" , :write )
14+ savedata (clumps, " ./" , fmode= :write )
15+ vd = viewdata (output)
16+ stdata = keys (vd)
17+ flag1 = in (" clumps" , stdata)
18+ println (" flag1: clumps in jld2 file? " , flag1)
19+ println ()
20+
21+ gas = gethydro (info)
22+ savedata (gas, fmode= :append )
23+ vd = viewdata (output)
24+ stdata = keys (vd)
25+ flag2 = in (" hydro" , stdata)
26+ println (" flag2: hydro in jld2 file? " , flag2)
27+ println ()
28+
29+ part = getparticles (info)
30+ savedata (part, fmode= :append )
31+
32+ grav = getgravity (info)
33+ savedata (grav, fmode= :append )
34+
35+ vd = viewdata (output)
36+ stdata = keys (vd)
37+
38+ flag3 = in (" hydro" , stdata)
39+ flag4 = in (" gravity" , stdata)
40+ flag5 = in (" particles" , stdata)
41+ println (" flag3: hydro in jld2 file? " , flag3)
42+ println (" flag4: gravity in jld2 file? " , flag4)
43+ println (" flag5: particles in jld2 file? " , flag5)
44+ println ()
45+ println ()
46+ return flag1 == true && flag2 == true && flag3 == true && flag4 == true && flag5 == true
47+ end
48+
49+
50+ function save_clumps_different_order_jld2 (output, path)
51+ info = getinfo (output, path)
52+
53+ part = getparticles (info)
54+ savedata (part, fmode= :write )
55+ vd = viewdata (output)
56+ stdata = keys (vd)
57+ flag1 = in (" particles" , stdata)
58+ flag1a = ! in (" clumps" , stdata)
59+
60+ clumps = getclumps (info)
61+ savedata (clumps, fmode= :write )
62+ vd = viewdata (output)
63+ stdata = keys (vd)
64+ flag2 = in (" clumps" , stdata)
65+ flag2a = ! in (" particles" , stdata)
66+
67+ println (" flag1: particles in jld2 file? " , flag1)
68+ println (" flag1a: no clumps in jld2 file? " , flag1a)
69+ println ()
70+ println (" flag2: clumps in jld2 file? " , flag2)
71+ println (" flag2a: no particles in jld2 file? " , flag2a)
72+ println ()
73+ println ()
74+ return flag1 == true && flag1a == true && flag2 == true && flag2a == true
75+ end
76+
77+ function convert_clumps_jld2 (output, path)
78+ st = convertdata (output, [:clumps ], path= path)
79+ vd = viewdata (output)
80+ stdata = keys (vd)
81+ flag1 = in (" clumps" , stdata)
82+ println (" flag1: clumps in jld2 file? " , flag1)
83+ flag1a = ! in (" hydro" , stdata)
84+ println (" flag1a: hydro not in jld2 file? " , flag1a)
85+ println ()
86+
87+ st = convertdata (output, :clumps , path= path)
88+ vd = viewdata (output)
89+ stdata = keys (vd)
90+ flag2 = in (" clumps" , stdata)
91+ println (" flag2: hydro in jld2 file? " , flag2)
92+ flag2a = ! in (" hydro" , stdata)
93+ println (" flag2a: hydro not in jld2 file? " , flag2a)
94+ println ()
95+
96+ st = convertdata (output, path= path, fpath= " ." )
97+ vd = viewdata (output)
98+ stdata = keys (vd)
99+ flag3 = in (" hydro" , stdata)
100+ flag4 = in (" gravity" , stdata)
101+ flag5 = in (" particles" , stdata)
102+ flag6 = in (" clumps" , stdata)
103+ println (" flag3: hydro in jld2 file? " , flag3)
104+ println (" flag4: gravity in jld2 file? " , flag4)
105+ println (" flag5: particles in jld2 file? " , flag5)
106+ println (" flag6: clumps in jld2 file? " , flag6)
107+ println ()
108+ return flag1 == flag1a == flag2 == flag2a == flag3 == flag4 == flag5 == flag6 == true
109+ end
110+
111+ function load_uaclumps_data (output, path)
112+ info = getinfo (output, path)
113+ gas = gethydro (info)
114+ gasconv = loaddata (output, :hydro )
115+ flag1 = gas. data == gasconv. data
116+ println ()
117+ println (" flag1: data load hydro: " , flag1)
118+ println ()
119+
120+ part = getparticles (info)
121+ partconv = loaddata (output, :particles )
122+ flag2 = part. data == partconv. data
123+ println ()
124+ println (" flag2: data load particles: " , flag2)
125+ println ()
126+
127+ grav = getgravity (info)
128+ gravconv = loaddata (output, :gravity )
129+ flag3 = grav. data == gravconv. data
130+ println ()
131+ println (" flag3: data load gravity: " , flag3)
132+ println ()
133+
134+ clumps = getclumps (info)
135+ clumpconv = loaddata (output, :clumps )
136+ flag4 = clumps. data == clumpconv. data
137+ println ()
138+ println (" flag4: data load clumps: " , flag4)
139+ println ()
140+
141+
142+ clumpconv = loaddata (output, " ./" , :clumps )
143+ flag5 = clumps. data == clumpconv. data
144+ println ()
145+ println (" flag5: data load clumps: " , flag5)
146+ println ()
147+
148+ clumpconv = loaddata (output, " ./" , datatype= :clumps )
149+ flag6 = clumps. data == clumpconv. data
150+ println ()
151+ println (" flag6: data load clumps: " , flag6)
152+ println ()
153+
154+
155+ return flag1 == flag2 == flag3 == flag4 == flag5 == flag6 == true
156+ end
0 commit comments