Simplified implementation of reflection coefficient profile

kapple19 · Aug 11, 2024 · f0ac505 · f0ac505
1 parent 060c863
commit f0ac505
Showing 1 changed file with 1 addition and 9 deletions.
diff --git a/src/99_postliminary/01_functors/reflection_coefficient.jl b/src/99_postliminary/01_functors/reflection_coefficient.jl
@@ -1,15 +1,7 @@
 export reflection_coefficient_profile
 export ReflectionCoefficientProfile
 
-struct ReflectionCoefficientProfileType <: ModellingFunction end
-const reflection_coefficient_profile = ReflectionCoefficientProfileType()
-
-struct ReflectionCoefficientProfile{ProfileFunctionType <: Function} <: ModellingFunctor
-    profile::ProfileFunctionType
-end
-
-EnvironmentComponent(::ReflectionCoefficientProfileType) = GenericOceanInterface()
-ModellingFunction(::Type{<:ReflectionCoefficientProfile}) = reflection_coefficient_profile
+@implement_environment_function_and_functor ReflectionCoefficient GenericOceanInterface
 
 function (FunctorType::Type{<:ReflectionCoefficientProfile})(
     EC::GenericOceanInterface,