From 89bd9d9c7fd619a2e40e27a3ead0417a692e9f71 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Mon, 1 Jun 2020 23:59:27 +0200 Subject: [PATCH] Removed merging on same compute node --- ocaml/Qmcchem_dataserver.ml | 2 +- ocaml/Random_variable.ml | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/ocaml/Qmcchem_dataserver.ml b/ocaml/Qmcchem_dataserver.ml index 9461eb5..c009bd2 100644 --- a/ocaml/Qmcchem_dataserver.ml +++ b/ocaml/Qmcchem_dataserver.ml @@ -65,7 +65,7 @@ let run ?(daemon=true) ezfio_filename = (** Maximum size of the blocks file before compressing *) - let max_file_size = ref ( 64/64 * 1024 ) + let max_file_size = ref (1024 * 1024) in diff --git a/ocaml/Random_variable.ml b/ocaml/Random_variable.ml index 2ebbaee..b19796c 100644 --- a/ocaml/Random_variable.ml +++ b/ocaml/Random_variable.ml @@ -727,7 +727,9 @@ let compress_files () = |> max_value_per_compute_node | _ -> of_raw_data ~locked:false ~range:(0.,100.) p + (* |> merge_per_compute_node_and_block_id + *) in List.iter (fun x -> output_string block_channel (Block.to_string x);