mimic_send_coords Subroutine

  1. mimic_main.F90
  2. mimic_main
  3. mimic_send_coords

public subroutine mimic_send_coords(subsystems)

Arguments

TypeIntentOptionalAttributesName
type(subsystem_type), dimension(:):: subsystems

array of subsystems associated with client codes

Contents

Source Code

mimic_send_coords

Source Code

subroutine mimic_send_coords(subsystems)

    !> array of subsystems associated with client codes
    type(subsystem_type), dimension(:) :: subsystems

    call timer_start("mimic_send_coords")

    call communicator%send_coords(subsystems)
    call communicator%issue_force_comp()

    call timer_stop

end subroutine mimic_send_coords