Merge pull request #526 from CliMA/al/more_dust

Add Asian, MiddleEastern, and Saharan Dust params

Author: amylu00

src/parameters/AerosolAsianDust.jl

@@ -0,0 +1,35 @@
+export AsianDust
+
+"""
+    AsianDust{FT}
+
+Parameters for Asian Dust
+
+# Fields
+$(DocStringExtensions.FIELDS)
+"""
+Base.@kwdef struct AsianDust{FT} <: AerosolType{FT}
+    "m coefficient for deposition nucleation J [-]"
+    deposition_m::FT
+    "c coefficient for deposition nucleation J [-]"
+    deposition_c::FT
+    "m coefficient for immersion freezing J [-]"
+    ABIFM_m::FT
+    "c coefficient for immersion freezing J [-]"
+    ABIFM_c::FT
+end
+
+AsianDust(::Type{FT}) where {FT <: AbstractFloat} =
+    AsianDust(CP.create_toml_dict(FT))
+
+function AsianDust(td::CP.AbstractTOMLDict)
+    name_map = (;
+        :J_ABDINM_m_AsianDust => :deposition_m,
+        :J_ABDINM_c_AsianDust => :deposition_c,
+        :J_ABIFM_m_AsianDust => :ABIFM_m,
+        :J_ABIFM_c_AsianDust => :ABIFM_c,
+    )
+    parameters = CP.get_parameter_values(td, name_map, "CloudMicrophysics")
+    FT = CP.float_type(td)
+    return AsianDust{FT}(; parameters...)
+end

src/parameters/AerosolMiddleEasternDust.jl

@@ -0,0 +1,29 @@
+export MiddleEasternDust
+
+"""
+    MiddleEasternDust{FT}
+
+Parameters for Middle Eastern Dust
+
+# Fields
+$(DocStringExtensions.FIELDS)
+"""
+Base.@kwdef struct MiddleEasternDust{FT} <: AerosolType{FT}
+    "m coefficient for immersion freezing J [-]"
+    ABIFM_m::FT
+    "c coefficient for immersion freezing J [-]"
+    ABIFM_c::FT
+end
+
+MiddleEasternDust(::Type{FT}) where {FT <: AbstractFloat} =
+    MiddleEasternDust(CP.create_toml_dict(FT))
+
+function MiddleEasternDust(td::CP.AbstractTOMLDict)
+    name_map = (;
+        :J_ABIFM_m_MiddleEasternDust => :ABIFM_m,
+        :J_ABIFM_c_MiddleEasternDust => :ABIFM_c,
+    )
+    parameters = CP.get_parameter_values(td, name_map, "CloudMicrophysics")
+    FT = CP.float_type(td)
+    return MiddleEasternDust{FT}(; parameters...)
+end

src/parameters/AerosolSaharanDust.jl

@@ -0,0 +1,29 @@
+export SaharanDust
+
+"""
+    SaharanDust{FT}
+
+Parameters for Saharan Dust
+
+# Fields
+$(DocStringExtensions.FIELDS)
+"""
+Base.@kwdef struct SaharanDust{FT} <: AerosolType{FT}
+    "m coefficient for deposition nucleation J [-]"
+    deposition_m::FT
+    "c coefficient for deposition nucleation J [-]"
+    deposition_c::FT
+end
+
+SaharanDust(::Type{FT}) where {FT <: AbstractFloat} =
+    SaharanDust(CP.create_toml_dict(FT))
+
+function SaharanDust(td::CP.AbstractTOMLDict)
+    name_map = (;
+        :J_ABDINM_m_SaharanDust => :deposition_m,
+        :J_ABDINM_c_SaharanDust => :deposition_c,
+    )
+    parameters = CP.get_parameter_values(td, name_map, "CloudMicrophysics")
+    FT = CP.float_type(td)
+    return SaharanDust{FT}(; parameters...)
+end