whm_coarray_cocollect_tp Subroutine

public subroutine whm_coarray_cocollect_tp(tp)

Collects all object array components from all images and combines them into the image 1 object

Arguments

Type IntentOptional Attributes Name
type(whm_tp), intent(inout), codimension[*] :: tp

Swiftest body object

Calls

proc~~whm_coarray_cocollect_tp~~CallsGraph proc~whm_coarray_cocollect_tp whm_coarray_cocollect_tp interface~cocollect~3 cocollect proc~whm_coarray_cocollect_tp->interface~cocollect~3

Called by

proc~~whm_coarray_cocollect_tp~~CalledByGraph proc~whm_coarray_cocollect_tp whm_coarray_cocollect_tp interface~cocollect cocollect interface~cocollect->proc~whm_coarray_cocollect_tp

Source Code

   subroutine whm_coarray_cocollect_tp(tp)
      !! author: David A. Minton
      !!
      !! Collects all object array components from all images and combines them into the image 1 object
      implicit none
      ! Arguments
      type(whm_tp),intent(inout),codimension[*]  :: tp  !! Swiftest body object

      call co_sum(tp%npltp,1)
      call cocollect(tp%nplenc)
      call co_sum(tp%nbody,1)
      call cocollect(tp%id)
      call cocollect(tp%info)
      call cocollect(tp%lmask)
      call cocollect(tp%status)
      call cocollect(tp%ldiscard)
      call cocollect(tp%lcollision)
      call cocollect(tp%lencounter)
      call cocollect(tp%mu)
      call cocollect(tp%rh)
      call cocollect(tp%vh)
      call cocollect(tp%rb)
      call cocollect(tp%vb)
      call cocollect(tp%ah)
      call cocollect(tp%aobl)
      call cocollect(tp%agr)
      call cocollect(tp%atide)
      call cocollect(tp%ir3h)
      call cocollect(tp%isperi)
      call cocollect(tp%peri)
      call cocollect(tp%atp)
      call cocollect(tp%a)
      call cocollect(tp%e)
      call cocollect(tp%inc)
      call cocollect(tp%capom)
      call cocollect(tp%omega)
      call cocollect(tp%capm)

      return
   end subroutine whm_coarray_cocollect_tp