@@ -318,12 +318,6 @@ function thermo_state(
318318 q_tot = nothing ,
319319 q_pt = nothing ,
320320)
321- get_ts (ρ:: Real , :: Nothing , θ:: Real , :: Nothing , :: Nothing , :: Nothing ) =
322- TD. PhaseDry_ρθ (thermo_params, ρ, θ)
323- get_ts (ρ:: Real , :: Nothing , θ:: Real , :: Nothing , q_tot:: Real , :: Nothing ) =
324- TD. PhaseEquil_ρθq (thermo_params, ρ, θ, q_tot)
325- get_ts (ρ:: Real , :: Nothing , θ:: Real , :: Nothing , :: Nothing , q_pt) =
326- TD. PhaseNonEquil_ρθq (thermo_params, ρ, θ, q_pt)
327321 get_ts (ρ:: Real , :: Nothing , :: Nothing , e_int:: Real , :: Nothing , :: Nothing ) =
328322 TD. PhaseDry_ρe (thermo_params, ρ, e_int)
329323 get_ts (ρ:: Real , :: Nothing , :: Nothing , e_int:: Real , q_tot:: Real , :: Nothing ) =
@@ -337,18 +331,8 @@ function thermo_state(
337331 )
338332 get_ts (ρ:: Real , :: Nothing , :: Nothing , e_int:: Real , :: Nothing , q_pt) =
339333 TD. PhaseNonEquil (thermo_params, e_int, ρ, q_pt)
340- get_ts (:: Nothing , p:: Real , θ:: Real , :: Nothing , :: Nothing , :: Nothing ) =
341- TD. PhaseDry_pθ (thermo_params, p, θ)
342334 get_ts (:: Nothing , p:: Real , θ:: Real , :: Nothing , q_tot:: Real , :: Nothing ) =
343335 TD. PhaseEquil_pθq (thermo_params, p, θ, q_tot)
344- get_ts (:: Nothing , p:: Real , θ:: Real , :: Nothing , :: Nothing , q_pt) =
345- TD. PhaseNonEquil_pθq (thermo_params, p, θ, q_pt)
346- get_ts (:: Nothing , p:: Real , :: Nothing , e_int:: Real , :: Nothing , :: Nothing ) =
347- TD. PhaseDry_pe (thermo_params, p, e_int)
348- get_ts (:: Nothing , p:: Real , :: Nothing , e_int:: Real , q_tot:: Real , :: Nothing ) =
349- TD. PhaseEquil_peq (thermo_params, p, e_int, q_tot)
350- get_ts (:: Nothing , p:: Real , :: Nothing , e_int:: Real , :: Nothing , q_pt) =
351- TD. PhaseNonEquil_peq (thermo_params, p, e_int, q_pt)
352336 return get_ts (ρ, p, θ, e_int, q_tot, q_pt)
353337end
354338
@@ -376,13 +360,6 @@ ts_gs(thermo_params, moisture_model, microphysics_model, ᶜY, K, Φ, ρ) =
376360 ρ,
377361 )
378362
379- ts_sgs (thermo_params, moisture_model, microphysics_model, ᶜY, K, Φ, p) =
380- thermo_state (
381- thermo_params;
382- thermo_vars (moisture_model, microphysics_model, ᶜY, K, Φ)... ,
383- p,
384- )
385-
386363function eddy_diffusivity_coefficient_H (D₀, H, z_sfc, z)
387364 return D₀ * exp (- (z - z_sfc) / H)
388365end
0 commit comments