db_co_sum Subroutine

  1. mod_layer.f90
  2. mod_layer
  3. db_co_sum

public subroutine db_co_sum(db)

Performs a collective sum of bias tendencies.

Arguments

Type IntentOptional AttributesName
type(array1d), intent(inout), allocatable:: db(:)

Called by

proc~~db_co_sum~~CalledByGraph proc~db_co_sum db_co_sum proc~train_batch train_batch proc~train_batch->proc~db_co_sum

Contents

Source Code

db_co_sum

Source Code

  subroutine db_co_sum(db)
    !! Performs a collective sum of bias tendencies.
    type(array1d), allocatable, intent(in out) :: db(:)
    integer(ik) :: n
    do n = 2, size(db)
#ifdef CAF
      call co_sum(db(n) % array)
#endif
    end do
  end subroutine db_co_sum