diff --git a/src/util/util_append.f90 b/src/util/util_append.f90 index 979da7a19..cb15fa18c 100644 --- a/src/util/util_append.f90 +++ b/src/util/util_append.f90 @@ -177,10 +177,9 @@ module subroutine util_append_body(self, source, lsource_mask) call util_append(self%capom, source%capom, nold, nsrc, lsource_mask) call util_append(self%omega, source%omega, nold, nsrc, lsource_mask) call util_append(self%capm, source%capm, nold, nsrc, lsource_mask) + self%nbody = nold + count(lsource_mask(:)) end associate - self%nbody = count(self%status(:) /= INACTIVE) - return end subroutine util_append_body