37 integer,
intent(in) :: ng, tile, boundary
38 integer,
intent(in) :: LBij, UBij
41 real(r8),
intent(inout) :: A(LBij:)
43 real(r8),
intent(inout) :: A(LBij:UBij)
46#include "set_bounds.h"
52 IF (boundary.eq.
iwest)
THEN
53 IF (
domain(ng)%SouthWest_Corner(tile))
THEN
56 IF (
domain(ng)%NorthWest_Corner(tile))
THEN
61 IF (boundary.eq.
ieast)
THEN
62 IF (
domain(ng)%SouthEast_Corner(tile))
THEN
65 IF (
domain(ng)%NorthEast_Corner(tile))
THEN
74 IF (boundary.eq.
isouth)
THEN
75 IF (
domain(ng)%SouthWest_Corner(tile))
THEN
78 IF (
domain(ng)%SouthEast_Corner(tile))
THEN
83 IF (boundary.eq.
inorth)
THEN
84 IF (
domain(ng)%NorthWest_Corner(tile))
THEN
87 IF (
domain(ng)%NorthEast_Corner(tile))
THEN
107 integer,
intent(in) :: ng, tile, boundary
108 integer,
intent(in) :: LBij, UBij
111 real(r8),
intent(inout) :: A(LBij:)
113 real(r8),
intent(inout) :: A(LBij:UBij)
116#include "set_bounds.h"
122 IF (boundary.eq.
iwest)
THEN
123 IF (
domain(ng)%SouthWest_Corner(tile))
THEN
126 IF (
domain(ng)%NorthWest_Corner(tile))
THEN
131 IF (boundary.eq.
ieast)
THEN
132 IF (
domain(ng)%SouthEast_Corner(tile))
THEN
135 IF (
domain(ng)%NorthEast_Corner(tile))
THEN
144 IF (boundary.eq.
isouth)
THEN
145 IF (
domain(ng)%SouthWest_Corner(tile))
THEN
148 IF (
domain(ng)%SouthEast_Corner(tile))
THEN
153 IF (boundary.eq.
inorth)
THEN
154 IF (
domain(ng)%NorthWest_Corner(tile))
THEN
157 IF (
domain(ng)%NorthEast_Corner(tile))
THEN
177 integer,
intent(in) :: ng, tile, boundary
178 integer,
intent(in) :: LBij, UBij
181 real(r8),
intent(inout) :: A(LBij:)
183 real(r8),
intent(inout) :: A(LBij:UBij)
186#include "set_bounds.h"
192 IF (boundary.eq.
iwest)
THEN
193 IF (
domain(ng)%SouthWest_Corner(tile))
THEN
196 IF (
domain(ng)%NorthWest_Corner(tile))
THEN
201 IF (boundary.eq.
ieast)
THEN
202 IF (
domain(ng)%SouthEast_Corner(tile))
THEN
205 IF (
domain(ng)%NorthEast_Corner(tile))
THEN
214 IF (boundary.eq.
isouth)
THEN
215 IF (
domain(ng)%SouthWest_Corner(tile))
THEN
218 IF (
domain(ng)%SouthEast_Corner(tile))
THEN
223 IF (boundary.eq.
inorth)
THEN
224 IF (
domain(ng)%NorthWest_Corner(tile))
THEN
227 IF (
domain(ng)%NorthEast_Corner(tile))
THEN
subroutine bc_r2d_bry_tile(ng, tile, boundary, lbij, ubij, a)
subroutine bc_u2d_bry_tile(ng, tile, boundary, lbij, ubij, a)
subroutine bc_v2d_bry_tile(ng, tile, boundary, lbij, ubij, a)
type(t_domain), dimension(:), allocatable domain
integer, parameter isouth
integer, parameter inorth