37 real(mytype),
dimension(:,:,:),
intent(inout) :: u, v, w
137 real(mytype),
dimension(:,:,:),
intent(inout) :: p
171 real(mytype),
dimension(:,:,:),
intent(inout) :: t
206 real(mytype),
dimension(:,:,:),
intent(in):: u, v
207 real(mytype),
dimension(:,:,:),
intent(inout):: uhx,uhy,uhz, &
229 vhz(i,j,
kend3) = 0.d0
232 whx(i,j,
kend3) = 0.d0
234 why(i,j,
kend3) = 0.d0
256 whx(i,j,
kend3) = 0.d0
258 why(i,j,
kend3) = 0.d0
279 vhz(i,j,
kstr3-1)=0.d0
281 whx(i,j,
kstr3-1)=0.d0
282 why(i,j,
kstr3-1)=0.d0
315 real(mytype),
dimension(:,:,:),
intent(inout):: thx,thy,thz
367 real(mytype),
dimension(:,:,:),
intent(inout) :: var
372 integer :: idsend,idrecv,count_ns,count_ew
373 integer,
dimension(MPI_STATUS_SIZE):: status1
399 count_ew,real_type,idsend,99, &
401 count_ew,real_type,idrecv,99, &
402 mpi_comm_world,status1,
ierr)
405 count_ew,real_type,idsend,98, &
407 count_ew,real_type,idrecv,98, &
408 mpi_comm_world,status1,
ierr)
424 count_ew,real_type,idsend,97, &
426 count_ew,real_type,idrecv,97, &
427 mpi_comm_world,status1,
ierr)
430 count_ew,real_type,idsend,96, &
432 count_ew,real_type,idrecv,96, &
433 mpi_comm_world,status1,
ierr)
449 count_ns,real_type,idsend,95, &
451 count_ns,real_type,idrecv,95, &
452 mpi_comm_world,status1,
ierr)
455 count_ns,real_type,idsend,94, &
457 count_ns,real_type,idrecv,94, &
458 mpi_comm_world,status1,
ierr)
474 count_ns,real_type,idsend,93, &
476 count_ns,real_type,idrecv,93, &
477 mpi_comm_world,status1,
ierr)
480 count_ns,real_type,idsend,92, &
482 count_ns,real_type,idrecv,92, &
483 mpi_comm_world,status1,
ierr)
subroutine update_boundary_p(p)
integer, save, protected myid
integer, save, protected ochannel
integer, save, protected ny
integer, dimension(:,:), allocatable, save, protected pij
integer, save, protected jend3
real(mytype), save, protected ttop
integer, save, protected nz
integer, save, protected p_row
subroutine update_boundary_uvwhxyz(u, v, uhx, uhy, uhz, vhx, vhy, vhz, whx, why)
integer, save, protected myid_rowindx
subroutine update_boundary_thxyz(thx, thy, thz)
integer, save, protected istr3
subroutine comm_bound(var)
integer, save, protected jstr3
real(mytype), save, protected u_mrf
integer, save, protected p_col
integer, save, protected cds
subroutine update_boundary_uvw(u, v, w)
integer, save, protected nx
subroutine update_boundary_t(t)
integer, save, protected iend3
real(mytype), save, protected tbot
integer, save, protected kstr3
integer, save, protected myid_colindx
integer, save, protected kend3