Add run_initial_ensemble

Author: ph-kev

src/ekp_interface.jl

@@ -8,7 +8,11 @@ import EnsembleKalmanProcesses.TOMLInterface as TI
 
 export get_prior, initialize, update_ensemble, save_G_ensemble
 export path_to_ensemble_member,
-    path_to_model_log, path_to_iteration, parameter_path, load_latest_ekp
+    path_to_model_log,
+    path_to_iteration,
+    parameter_path,
+    load_latest_ekp,
+    run_initial_ensemble
 
 """
     load_ekp_struct(output_dir, iteration)
@@ -308,6 +312,85 @@ function save_eki_and_parameters(eki, output_dir, iteration, prior)
     JLD2.save_object(ekp_path(output_dir, iteration), eki)
 end
 
+"""
+    run_initial_ensemble(
+        backend::AbstractBackend,
+        process::EKP.Process,
+        prior::PD.ParameterDistribution,
+        output_dir;
+        ensemble_size = 0,
+        rng = MersenneTwister(1234),
+        run_forward_models_kwargs = (),
+    )
+
+Run the initial ensemble without needing the `EKP.EnsembleKalmanProcess`
+object and return the unconstrained parameters of the ensemble.
+
+This is useful if the observations depend on the grid resolution of the
+simulation data as the first ensemble can be ran, the observations can be
+generated, and the `EKP.EnsembleKalmanProcess` object can be created afterward.
+
+!!! warning "Initial ensemble"
+    TODO: Add a warning about when to pass the unconstrained parameters to
+    the EKP object
+"""
+function run_initial_ensemble( # TODO: Maybe move this to backends?
+    backend,
+    process::EKP.Process,
+    prior::PD.ParameterDistribution,
+    output_dir;
+    ensemble_size = 0,
+    rng = Random.MersenneTwister(1234),
+    run_forward_models_kwargs = (),
+)
+    # Cannot use last_completed_iteration because the JLD2 files storing the
+    # G ensemble object and the ekp objects will never exists when calling this
+    # function is used as intended
+    iter0_path = joinpath(output_dir, "iteration_000")
+    if isdir(iter0_path)
+        @info "Detected first iteration. Not running the initial ensemble. If this is not the case, then delete the directory $iter0_path."
+    end
+
+    initial_ensemble = _construct_intial_unconstrained_ensemble(
+        process,
+        prior,
+        ensemble_size = ensemble_size,
+        rng = rng,
+    )
+
+    # The size of initial_ensemble is (number of parameters, ensemble members)
+    # For some processes, the ensemble_size is ignored
+    ensemble_size = last(size(initial_ensemble))
+
+    param_dict = get_param_dict(prior)
+    TI.save_parameter_ensemble(
+        initial_ensemble,
+        prior,
+        param_dict,
+        output_dir,
+        DEFAULT_PARAMETER_FILE,
+        0,
+    )
+
+    # Cannot save eki object because the goal of this function is to be able
+    # to run the first ensemble without the eki object
+    JLD2.save_object(
+        joinpath(path_to_iteration(output_dir, 0), "prior.jld2"),
+        prior,
+    )
+
+    # TODO: Make the text files? Maybe this is done automatically by this
+    # functions?
+    run_forward_models(
+        backend,
+        0,
+        ensemble_size;
+        output_dir = output_dir,
+        run_forward_models_kwargs...,
+    )
+    return initial_ensemble
+end
+
 """
     _construct_intial_unconstrained_ensemble(
         process::EKP.Process,