wrapper to request MM forces
separate forces and potential computation and remove logics
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(subsystem_type), | intent(inout), | dimension(:) | :: | subsystems | array of subsystems associated with client codes |
subroutine mimic_collect_forces(subsystems)
!> array of subsystems associated with client codes
type(subsystem_type), dimension(:), intent(inout) :: subsystems
integer :: alloc_stat
call timer_start("mimic_collect_forces")
call communicator%gather_forces(subsystems)
call timer_stop
end subroutine mimic_collect_forces