@@ -318,12 +318,6 @@ function thermo_state(
318
318
q_tot = nothing ,
319
319
q_pt = nothing ,
320
320
)
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)
327
321
get_ts (ρ:: Real , :: Nothing , :: Nothing , e_int:: Real , :: Nothing , :: Nothing ) =
328
322
TD. PhaseDry_ρe (thermo_params, ρ, e_int)
329
323
get_ts (ρ:: Real , :: Nothing , :: Nothing , e_int:: Real , q_tot:: Real , :: Nothing ) =
@@ -337,18 +331,8 @@ function thermo_state(
337
331
)
338
332
get_ts (ρ:: Real , :: Nothing , :: Nothing , e_int:: Real , :: Nothing , q_pt) =
339
333
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, θ)
342
334
get_ts (:: Nothing , p:: Real , θ:: Real , :: Nothing , q_tot:: Real , :: Nothing ) =
343
335
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)
352
336
return get_ts (ρ, p, θ, e_int, q_tot, q_pt)
353
337
end
354
338
@@ -376,13 +360,6 @@ ts_gs(thermo_params, moisture_model, microphysics_model, ᶜY, K, Φ, ρ) =
376
360
ρ,
377
361
)
378
362
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
-
386
363
function eddy_diffusivity_coefficient_H (D₀, H, z_sfc, z)
387
364
return D₀ * exp (- (z - z_sfc) / H)
388
365
end
0 commit comments