dw_co_sum Subroutine

  1. mod_layer.f90
  2. mod_layer
  3. dw_co_sum

public subroutine dw_co_sum(dw)

Performs a collective sum of weights tendencies.

Arguments

Type IntentOptional AttributesName
type(array2d), intent(inout), allocatable:: dw(:)

Called by

proc~~dw_co_sum~~CalledByGraph proc~dw_co_sum dw_co_sum proc~train_batch train_batch proc~train_batch->proc~dw_co_sum

Contents

Source Code

dw_co_sum

Source Code

  subroutine dw_co_sum(dw)
    !! Performs a collective sum of weights tendencies.
    type(array2d), allocatable, intent(in out) :: dw(:)
    integer(ik) :: n
    do n = 1, size(dw) - 1
#ifdef CAF
      call co_sum(dw(n) % array)
#endif
    end do
  end subroutine dw_co_sum