55 SUBROUTINE ana_tobc_tile (ng, tile, model, &
56 & LBi, UBi, LBj, UBj, &
57 & IminS, ImaxS, JminS, JmaxS, &
73 integer,
intent(in) :: ng, tile, model
74 integer,
intent(in) :: LBi, UBi, LBj, UBj
75 integer,
intent(in) :: IminS, ImaxS, JminS, JmaxS
76 integer,
intent(in) :: nstp
79 real(r8),
intent(in) :: z_r(LBi:,LBj:,:)
80 real(r8),
intent(in) :: t(LBi:,LBj:,:,:,:)
82 real(r8),
intent(in) :: z_r(LBi:UBi,LBj:UBj,N(ng))
83 real(r8),
intent(in) :: t(LBi:UBi,LBj:UBj,N(ng),3,NT(ng))
88 integer :: i, ised, itrc, j, k
92#include "set_bounds.h"
100 &
domain(ng)%Eastern_Edge(tile))
THEN
117 &
domain(ng)%Western_Edge(tile))
THEN
133#elif defined NJ_BIGHT
135 &
domain(ng)%Eastern_Edge(tile))
THEN
138 IF (z_r(iend+1,j,k).ge.-15.0_r8)
THEN
141 & (2.64085084879392e-01_r8+ &
143 & (2.75112532853521e-01_r8+ &
145 & (9.20748976164887e-02_r8+ &
147 & (1.44907572574284e-02_r8+ &
149 & (1.07821568591208e-03_r8+ &
151 & (3.24031805390397e-05_r8+ &
152 & 1.26282685769027e-07_r8*
153 & z_r(iend+1,j,k)))))))
157 & (1.47672526294673e-01_r8+ &
159 & (1.12645576031340e-01_r8+ &
161 & (3.90092328187102e-02_r8+ &
163 & (6.93901493744710e-03_r8+ &
165 & (6.60443669679294e-04_r8+ &
167 & (3.19179236195422e-05_r8+ &
168 & 6.17735263440932e-07_r8*
169 & z_r(iend+1,j,k)))))))
172 cff=tanh(1.1_r8*z_r(iend+1,j,k)+15.9_r8)
173 t_east(j,k,
itemp)=14.6_r8+6.70_r8*cff
175 t_east(j,k,
isalt)=31.3_r8-0.55_r8*cff
183 &
domain(ng)%Southern_Edge(tile))
THEN
186 IF (z_r(i,jstr-1,k).ge.-15.0_r8)
THEN
189 & (2.64085084879392e-01_r8+ &
191 & (2.75112532853521e-01_r8+&
193 & (9.20748976164887e-02_r8+&
195 & (1.44907572574284e-02_r8+&
197 & (1.07821568591208e-03_r8+&
199 & (3.24031805390397e-05_r8+&
200 & 1.26282685769027e-07_r8*
201 & z_r(i,jstr-1,k)))))))
205 & (1.47672526294673e-01_r8+ &
207 & (1.12645576031340e-01_r8+&
209 & (3.90092328187102e-02_r8+&
211 & (6.93901493744710e-03_r8+&
213 & (6.60443669679294e-04_r8+&
215 & (3.19179236195422e-05_r8+&
216 & 6.17735263440932e-07_r8*
217 & z_r(i,jstr-1,k)))))))
220 cff=tanh(1.1_r8*depth+15.9_r8)
230#elif defined SED_TEST1
232 &
domain(ng)%Eastern_Edge(tile))
THEN
245 &
domain(ng)%Eastern_Edge(tile))
THEN
249 boundary(ng)%t_east(j,k,itrc)=0.0_r8
256 &
domain(ng)%Western_Edge(tile))
THEN
260 boundary(ng)%t_west(j,k,itrc)=0.0_r8
267 &
domain(ng)%Southern_Edge(tile))
THEN
271 boundary(ng)%t_south(i,k,itrc)=0.0_r8
278 &
domain(ng)%Northern_Edge(tile))
THEN
282 boundary(ng)%t_north(i,k,itrc)=0.0_r8
subroutine ana_tobc_tile(ng, tile, model, lbi, ubi, lbj, ubj, imins, imaxs, jmins, jmaxs, nstp, z_r, t)