Skip to content

Commit

Permalink
Merge branch 'master' of github.com:fabm-model/fabm into neccton
Browse files Browse the repository at this point in the history
  • Loading branch information
jornbr committed Mar 1, 2024
2 parents bb0108e + de3392e commit 4d0b1bb
Showing 1 changed file with 3 additions and 0 deletions.
3 changes: 3 additions & 0 deletions src/fabm.F90
Original file line number Diff line number Diff line change
@@ -677,6 +677,7 @@ subroutine set_domain(self _POSTARG_LOCATION_, seconds_per_time_unit)
select type (expression)
class is (type_interior_temporal_mean)
! Moving average of interior variable
call self%finalize_outputs_job%request_variable(expression%link%target, store=.true.)
expression%in = expression%link%target%catalog_index
expression%period = expression%period / seconds_per_time_unit
allocate(expression%history(_PREARG_LOCATION_ expression%n + 1))
@@ -689,6 +690,7 @@ subroutine set_domain(self _POSTARG_LOCATION_, seconds_per_time_unit)
call self%link_interior_data(expression%output_name, expression%mean)
class is (type_horizontal_temporal_mean)
! Moving average of horizontal variable
call self%finalize_outputs_job%request_variable(expression%link%target, store=.true.)
expression%in = expression%link%target%catalog_index
expression%period = expression%period / seconds_per_time_unit
allocate(expression%history(_PREARG_HORIZONTAL_LOCATION_ expression%n + 1))
@@ -701,6 +703,7 @@ subroutine set_domain(self _POSTARG_LOCATION_, seconds_per_time_unit)
call self%link_horizontal_data(expression%output_name, expression%mean)
class is (type_horizontal_temporal_maximum)
! Moving maximum of horizontal variable
call self%finalize_outputs_job%request_variable(expression%link%target, store=.true.)
expression%in = expression%link%target%catalog_index
expression%period = expression%period / seconds_per_time_unit
allocate(expression%history(_PREARG_HORIZONTAL_LOCATION_ expression%n))

0 comments on commit 4d0b1bb

Please sign in to comment.