diff --git a/CHANGELOG.md b/CHANGELOG.md index 2297ea76d36a..53dbee103944 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -11,6 +11,8 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0 ### Changed +- Fixed bug with cycle plament in coupler loop in History + ### Fixed ### Removed diff --git a/gridcomps/History/MAPL_HistoryGridComp.F90 b/gridcomps/History/MAPL_HistoryGridComp.F90 index adc88d215dbb..17deb2db1299 100644 --- a/gridcomps/History/MAPL_HistoryGridComp.F90 +++ b/gridcomps/History/MAPL_HistoryGridComp.F90 @@ -3394,9 +3394,9 @@ subroutine Run ( gc, import, export, clock, rc ) !------------------------------- do n = 1, nlist + if(Ignore(n)) cycle call MAPL_TimerOn(GENSTATE,trim(list(n)%collection)) call MAPL_TimerOn(GENSTATE,"Couplers") - if(Ignore(n)) cycle if (.not.list(n)%disabled .and. IntState%average(n)) then ! R8 to R4 copy (if needed!) do m=1,list(n)%field_set%nfields