extend interior_temporal_mean to accept type_state_variable_id

fabm-model · Aug 27, 2024 · cf7c97c · cf7c97c
1 parent 856f6a2
commit cf7c97c
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/fabm_expressions.F90 b/src/fabm_expressions.F90
@@ -179,10 +179,10 @@ function vertical_integral_generic(input, minimum_depth, maximum_depth, average)
    end function
 
    function interior_temporal_mean(input, period, resolution, missing_value) result(expression)
-      type (type_dependency_id), intent(inout), target :: input
-      real(rk),                  intent(in)            :: period, resolution
-      real(rk), optional,        intent(in)            :: missing_value
-      type (type_interior_temporal_mean)               :: expression
+      class (type_dependency_id), intent(inout), target :: input
+      real(rk),                   intent(in)            :: period, resolution
+      real(rk), optional,         intent(in)            :: missing_value
+      type (type_interior_temporal_mean)                :: expression
 
       character(len=attribute_length) :: prefix, postfix