whm_coarray_coclone_tp Subroutine

public subroutine whm_coarray_coclone_tp(tp)

Broadcasts the image 1 object to all other images in a coarray

Arguments

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

WHM tp object

Calls

proc~~whm_coarray_coclone_tp~~CallsGraph proc~whm_coarray_coclone_tp whm_coarray_coclone_tp interface~coclone coclone proc~whm_coarray_coclone_tp->interface~coclone

Called by

proc~~whm_coarray_coclone_tp~~CalledByGraph proc~whm_coarray_coclone_tp whm_coarray_coclone_tp interface~coclone~4 coclone interface~coclone~4->proc~whm_coarray_coclone_tp

Source Code

   subroutine whm_coarray_coclone_tp(tp)
      !! author: David A. Minton
      !!
      !! Broadcasts the image 1 object to all other images in a coarray 
      implicit none
      ! Arguments
      type(whm_tp),intent(inout),codimension[*]  :: tp  !! WHM tp object

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

      return
   end subroutine whm_coarray_coclone_tp