From cf7c97c1728b51a0c1a20577c3357afe5559ecec Mon Sep 17 00:00:00 2001 From: Jorn Bruggeman Date: Tue, 27 Aug 2024 18:58:54 +0100 Subject: [PATCH] extend interior_temporal_mean to accept type_state_variable_id --- src/fabm_expressions.F90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/fabm_expressions.F90 b/src/fabm_expressions.F90 index 2d22b851..16dec842 100644 --- 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