use link-based coupling for aggregate variable contributions

fabm-model · Jan 26, 2024 · 994361a · 994361a
1 parent e5efa0c
commit 994361a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/fabm_coupling.F90 b/src/fabm_coupling.F90
@@ -599,10 +599,10 @@ recursive subroutine create_aggregate_models(self)
                 .and. (index(contributing_variable%link%name, '/') == 0 .or. .not. associated(self%parent))) then     ! Variable must be owned by the model itself unless we are aggregating at root level
                select case (contributing_variable%link%target%domain)
                case (domain_interior)
-                  call sum%add_component(trim(contributing_variable%link%name), &
+                  call sum%add_component(trim(contributing_variable%link%name), link=contributing_variable%link, &
                      weight=contributing_variable%scale_factor, include_background=contributing_variable%include_background)
                case (domain_bottom, domain_surface, domain_horizontal)
-                  call horizontal_sum%add_component(trim(contributing_variable%link%name), &
+                  call horizontal_sum%add_component(trim(contributing_variable%link%name), link=contributing_variable%link, &
                      weight=contributing_variable%scale_factor, include_background=contributing_variable%include_background)
                end select
             end if