|
| 1 | +using ClimaAnalysis, Dates |
| 2 | +import ClimaCalibrate |
| 3 | +import ClimaCoupler |
| 4 | +import JLD2 |
| 5 | +import EnsembleKalmanProcesses as EKP |
| 6 | +obs = JLD2.load_object("experiments/calibration/coarse_amip/observations.jld2") |
| 7 | +const single_member_dims = length(EKP.get_obs(first(obs))) |
| 8 | +include(joinpath(pkgdir(ClimaCoupler), "experiments/calibration/coarse_amip/observation_utils.jl")) |
| 9 | + |
| 10 | +function ClimaCalibrate.observation_map(iteration) |
| 11 | + G_ensemble = Array{Float64}(undef, single_member_dims, ensemble_size) |
| 12 | + for m in 1:ensemble_size |
| 13 | + @show m |
| 14 | + member_path = ClimaCalibrate.path_to_ensemble_member(output_dir, iteration, m) |
| 15 | + simdir_path = joinpath(member_path, "model_config/output_active") |
| 16 | + if isdir(simdir_path) |
| 17 | + simdir = SimDir(simdir_path) |
| 18 | + G_ensemble[:, m] .= process_member_data(simdir) |
| 19 | + else |
| 20 | + @info "No data found for member $m." |
| 21 | + G_ensemble[:, m] .= NaN |
| 22 | + end |
| 23 | + end |
| 24 | + return G_ensemble |
| 25 | +end |
| 26 | + |
| 27 | +function process_outputvar(simdir, name) |
| 28 | + days = 86_400 |
| 29 | + |
| 30 | + monthly_avgs = get_monthly_averages(simdir, name) |
| 31 | + # Preprocess to match observations |
| 32 | + if has_altitude(monthly_avgs) |
| 33 | + pressure = get_monthly_averages(simdir, "pfull") |
| 34 | + monthly_avgs = ClimaAnalysis.Atmos.to_pressure_coordinates(monthly_avgs, pressure) |
| 35 | + monthly_avgs = limit_pressure_dim_to_era5_range(monthly_avgs) |
| 36 | + end |
| 37 | + monthly_avgs = ClimaAnalysis.replace(monthly_avgs, missing => 0.0, NaN => 0.0) |
| 38 | + monthly_avgs = ClimaAnalysis.shift_to_start_of_previous_month(monthly_avgs) |
| 39 | + |
| 40 | + # Cut off first 3 months |
| 41 | + single_year = window(monthly_avgs, "time"; left = 92days) |
| 42 | + seasons = split_by_season_across_time(single_year) |
| 43 | + # Ensure we are splitting evenly across seasons |
| 44 | + @assert all(map(x -> length(times(x)) == 3, seasons)) |
| 45 | + seasonal_avgs = average_time.(seasons) |
| 46 | + |
| 47 | + downsampled_seasonal_avg_arrays = downsample.(seasonal_avgs, 3) |
| 48 | + return vcat(vec.(downsampled_seasonal_avg_arrays)...) |
| 49 | + # return vectorize_nyears_of_seasonal_outputvars(seasonal_avgs, 1) |
| 50 | +end |
| 51 | + |
| 52 | +function process_member_data(simdir::SimDir) |
| 53 | + isempty(simdir) && return fill!(zeros(single_member_length), NaN) |
| 54 | + |
| 55 | + pressure = get_monthly_averages(simdir, "pfull") |
| 56 | + |
| 57 | + rsdt_full = get_monthly_averages(simdir, "rsdt") |
| 58 | + rsut_full = get_monthly_averages(simdir, "rsut") |
| 59 | + rlut_full = get_monthly_averages(simdir, "rlut") |
| 60 | + year_net_radiation = (rlut_full + rsut_full - rsdt_full) |> average_lat |> average_lon |> average_time |
| 61 | + |
| 62 | + rsut = process_outputvar(simdir, "rsut") |
| 63 | + rlut = process_outputvar(simdir, "rlut") |
| 64 | + rsutcs = process_outputvar(simdir, "rsutcs") |
| 65 | + rlutcs = process_outputvar(simdir, "rlutcs") |
| 66 | + cre = rsut + rlut - rsutcs - rlutcs |
| 67 | + |
| 68 | + pr = process_outputvar(simdir, "pr") |
| 69 | + # shf = process_outputvar(simdir, "shf") |
| 70 | + ts = process_outputvar(simdir, "ts") |
| 71 | + |
| 72 | + ta = process_outputvar(simdir, "ta") |
| 73 | + hur = process_outputvar(simdir, "hur") |
| 74 | + hus = process_outputvar(simdir, "hus") |
| 75 | + # clw = get_seasonal_averages(simdir, "clw") |
| 76 | + # cli = get_seasonal_averages(simdir, "cli") |
| 77 | + |
| 78 | + return vcat(year_net_radiation.data, rsut, rlut, cre, pr, ts)#, ta, hur, hus) |
| 79 | +end |
0 commit comments