24 type(user_t),
intent(inout) ::
user
34 type(json_file),
intent(inout) :: params
36 call params%add(
"case.end_time", 0.0_rp)
40 type(time_state_t),
intent(in) :: time
43 type(fld_file_t) :: fld_writer
45 type(field_list_t) :: field_pair
47 type(csv_file_t) :: csv_writer
54 call my_field1%init(neko_user_access%case%fluid%dm_Xh,
"my_field1")
55 call my_field2%init(neko_user_access%case%fluid%dm_Xh,
"my_field2")
60 call fld_writer%init(
"my_output.fld")
72 call field_pair%init(2)
76 call field_pair%assign_to_field(1,
my_field1)
77 call field_pair%assign_to_field(2,
my_field2)
82 call fld_writer%init(
"my_output2.fld")
83 call fld_writer%write(field_pair)
92 call fld_writer%set_precision(dp)
93 call fld_writer%set_precision(sp)
105 call csv_writer%init(
"my_output.csv")
107 call csv_writer%set_header(
"# p1, p2, p3, p4, p5")
110 call csv_writer%write(
vec)
116 call csv_writer%write(
vec)
125 type(time_state_t),
intent(in) :: time
type(field_t), target my_field1
subroutine initialize(time)
subroutine user_setup(user)
subroutine startup(params)
type(field_t), target my_field2
subroutine finalize(time)