ROMS
Loading...
Searching...
No Matches
Functions/Subroutines
bc_bry2d_mod Module Reference

Functions/Subroutines

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)
 

Function/Subroutine Documentation

◆ bc_r2d_bry_tile()

subroutine bc_bry2d_mod::bc_r2d_bry_tile ( integer, intent(in) ng,
integer, intent(in) tile,
integer, intent(in) boundary,
integer, intent(in) lbij,
integer, intent(in) ubij,
real(r8), dimension(lbij:), intent(inout) a )

Definition at line 27 of file bc_bry2d.F.

30!***********************************************************************
31!
32 USE mod_param
33 USE mod_scalars
34!
35! Imported variable declarations.
36!
37 integer, intent(in) :: ng, tile, boundary
38 integer, intent(in) :: LBij, UBij
39
40#ifdef ASSUMED_SHAPE
41 real(r8), intent(inout) :: A(LBij:)
42#else
43 real(r8), intent(inout) :: A(LBij:UBij)
44#endif
45
46#include "set_bounds.h"
47!
48!-----------------------------------------------------------------------
49! Western and Eastern edges: gradient boundary conditions.
50!-----------------------------------------------------------------------
51!
52 IF (boundary.eq.iwest) THEN
53 IF (domain(ng)%SouthWest_Corner(tile)) THEN
54 a(jstr-1)=a(jstr)
55 END IF
56 IF (domain(ng)%NorthWest_Corner(tile)) THEN
57 a(jend+1)=a(jend)
58 END IF
59 END IF
60
61 IF (boundary.eq.ieast) THEN
62 IF (domain(ng)%SouthEast_Corner(tile)) THEN
63 a(jstr-1)=a(jstr)
64 END IF
65 IF (domain(ng)%NorthEast_Corner(tile)) THEN
66 a(jend+1)=a(jend)
67 END IF
68 END IF
69!
70!-----------------------------------------------------------------------
71! Southern and Northern edges: gradient boundary conditions.
72!-----------------------------------------------------------------------
73!
74 IF (boundary.eq.isouth) THEN
75 IF (domain(ng)%SouthWest_Corner(tile)) THEN
76 a(istr-1)=a(istr)
77 END IF
78 IF (domain(ng)%SouthEast_Corner(tile)) THEN
79 a(iend+1)=a(iend)
80 END IF
81 END IF
82
83 IF (boundary.eq.inorth) THEN
84 IF (domain(ng)%NorthWest_Corner(tile)) THEN
85 a(istr-1)=a(istr)
86 END IF
87 IF (domain(ng)%NorthEast_Corner(tile)) THEN
88 a(iend+1)=a(iend)
89 END IF
90 END IF
91
92 RETURN
mod_param
Definition mod_param.F:2
mod_param::domain
type(t_domain), dimension(:), allocatable domain
Definition mod_param.F:329
mod_scalars
Definition mod_scalars.F:2
mod_scalars::iwest
integer, parameter iwest
Definition mod_scalars.F:1432
mod_scalars::isouth
integer, parameter isouth
Definition mod_scalars.F:1433
mod_scalars::ieast
integer, parameter ieast
Definition mod_scalars.F:1434
mod_scalars::inorth
integer, parameter inorth
Definition mod_scalars.F:1435

References mod_param::domain, mod_scalars::ieast, mod_scalars::inorth, mod_scalars::isouth, and mod_scalars::iwest.

Referenced by conv_bry2d_mod::conv_r2d_bry_tile(), normalization_mod::normalization_tile(), normalization_mod::randomization_tile(), and tl_conv_bry2d_mod::tl_conv_r2d_bry_tile().

Here is the caller graph for this function:

◆ bc_u2d_bry_tile()

subroutine bc_bry2d_mod::bc_u2d_bry_tile ( integer, intent(in) ng,
integer, intent(in) tile,
integer, intent(in) boundary,
integer, intent(in) lbij,
integer, intent(in) ubij,
real(r8), dimension(lbij:), intent(inout) a )

Definition at line 97 of file bc_bry2d.F.

100!***********************************************************************
101!
102 USE mod_param
103 USE mod_scalars
104!
105! Imported variable declarations.
106!
107 integer, intent(in) :: ng, tile, boundary
108 integer, intent(in) :: LBij, UBij
109
110#ifdef ASSUMED_SHAPE
111 real(r8), intent(inout) :: A(LBij:)
112#else
113 real(r8), intent(inout) :: A(LBij:UBij)
114#endif
115
116#include "set_bounds.h"
117!
118!-----------------------------------------------------------------------
119! Western and Eastern edges: gradient boundary conditions.
120!-----------------------------------------------------------------------
121!
122 IF (boundary.eq.iwest) THEN
123 IF (domain(ng)%SouthWest_Corner(tile)) THEN
124 a(jstr-1)=a(jstr)
125 END IF
126 IF (domain(ng)%NorthWest_Corner(tile)) THEN
127 a(jend+1)=a(jend)
128 END IF
129 END IF
130
131 IF (boundary.eq.ieast) THEN
132 IF (domain(ng)%SouthEast_Corner(tile)) THEN
133 a(jstr-1)=a(jstr)
134 END IF
135 IF (domain(ng)%NorthEast_Corner(tile)) THEN
136 a(jend+1)=a(jend)
137 END IF
138 END IF
139!
140!-----------------------------------------------------------------------
141! Southern and Northern edges: gradient boundary conditions.
142!-----------------------------------------------------------------------
143!
144 IF (boundary.eq.isouth) THEN
145 IF (domain(ng)%SouthWest_Corner(tile)) THEN
146 a(istru-1)=a(istru)
147 END IF
148 IF (domain(ng)%SouthEast_Corner(tile)) THEN
149 a(iend+1)=a(iend)
150 END IF
151 END IF
152
153 IF (boundary.eq.inorth) THEN
154 IF (domain(ng)%NorthWest_Corner(tile)) THEN
155 a(istru-1)=a(istru)
156 END IF
157 IF (domain(ng)%NorthEast_Corner(tile)) THEN
158 a(iend+1)=a(iend)
159 END IF
160 END IF
161
162 RETURN

References mod_param::domain, mod_scalars::ieast, mod_scalars::inorth, mod_scalars::isouth, and mod_scalars::iwest.

Referenced by conv_bry2d_mod::conv_u2d_bry_tile(), normalization_mod::normalization_tile(), normalization_mod::randomization_tile(), and tl_conv_bry2d_mod::tl_conv_u2d_bry_tile().

Here is the caller graph for this function:

◆ bc_v2d_bry_tile()

subroutine bc_bry2d_mod::bc_v2d_bry_tile ( integer, intent(in) ng,
integer, intent(in) tile,
integer, intent(in) boundary,
integer, intent(in) lbij,
integer, intent(in) ubij,
real(r8), dimension(lbij:), intent(inout) a )

Definition at line 167 of file bc_bry2d.F.

170!***********************************************************************
171!
172 USE mod_param
173 USE mod_scalars
174!
175! Imported variable declarations.
176!
177 integer, intent(in) :: ng, tile, boundary
178 integer, intent(in) :: LBij, UBij
179
180#ifdef ASSUMED_SHAPE
181 real(r8), intent(inout) :: A(LBij:)
182#else
183 real(r8), intent(inout) :: A(LBij:UBij)
184#endif
185
186#include "set_bounds.h"
187!
188!-----------------------------------------------------------------------
189! Western and Eastern edges: gradient boundary conditions.
190!-----------------------------------------------------------------------
191!
192 IF (boundary.eq.iwest) THEN
193 IF (domain(ng)%SouthWest_Corner(tile)) THEN
194 a(jstrv-1)=a(jstrv)
195 END IF
196 IF (domain(ng)%NorthWest_Corner(tile)) THEN
197 a(jend+1)=a(jend)
198 END IF
199 END IF
200
201 IF (boundary.eq.ieast) THEN
202 IF (domain(ng)%SouthEast_Corner(tile)) THEN
203 a(jstrv-1)=a(jstrv)
204 END IF
205 IF (domain(ng)%NorthEast_Corner(tile)) THEN
206 a(jend+1)=a(jend)
207 END IF
208 END IF
209!
210!-----------------------------------------------------------------------
211! Southern and Northern edges: gradient boundary conditions.
212!-----------------------------------------------------------------------
213!
214 IF (boundary.eq.isouth) THEN
215 IF (domain(ng)%SouthWest_Corner(tile)) THEN
216 a(istr-1)=a(istr)
217 END IF
218 IF (domain(ng)%SouthEast_Corner(tile)) THEN
219 a(iend+1)=a(iend)
220 END IF
221 END IF
222
223 IF (boundary.eq.inorth) THEN
224 IF (domain(ng)%NorthWest_Corner(tile)) THEN
225 a(istr-1)=a(istr)
226 END IF
227 IF (domain(ng)%NorthEast_Corner(tile)) THEN
228 a(iend+1)=a(iend)
229 END IF
230 END IF
231
232 RETURN

References mod_param::domain, mod_scalars::ieast, mod_scalars::inorth, mod_scalars::isouth, and mod_scalars::iwest.

Referenced by conv_bry2d_mod::conv_v2d_bry_tile(), normalization_mod::normalization_tile(), normalization_mod::randomization_tile(), and tl_conv_bry2d_mod::tl_conv_v2d_bry_tile().

Here is the caller graph for this function: