<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_COUPLE'><A href='../../html_code/update_bc/da_couple.inc.html#DA_COUPLE' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
subroutine da_couple (mut, field, msf, ids, ide, jds, jde, kds, kde) 2
implicit none
integer, intent(in) :: ids, ide, jds, jde, kds, kde
real, intent(in) :: mut(ids:ide, jds:jde)
real, intent(in) :: msf(ids:ide, jds:jde)
real, intent(inout) :: field(ids:ide, jds:jde, kds:kde)
integer :: i, j, k
! update_bc
! if (trace_use) call da_trace_entry("da_couple")
do j=jds,jde
do k=kds,kde
do i=ids,ide
field(i,j,k)=field(i,j,k)*mut(i,j)/msf(i,j)
end do
end do
end do
! if (trace_use) call da_trace_exit("da_couple")
end subroutine da_couple