New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
bdylib.F90 in branches/2016/dev_r6522_SIMPLIF_3/NEMOGCM/NEMO/OPA_SRC/BDY – NEMO

source: branches/2016/dev_r6522_SIMPLIF_3/NEMOGCM/NEMO/OPA_SRC/BDY/bdylib.F90 @ 6862

Last change on this file since 6862 was 6862, checked in by lovato, 8 years ago

#1729 - trunk: removed key_bdy from the code and set usage of ln_bdy. Tested with SETTE.
  • Property svn:keywords set to Id
File size: 19.1 KB
Line 
1MODULE bdylib
2   !!======================================================================
3   !!                       ***  MODULE  bdylib  ***
4   !! Unstructured Open Boundary Cond. :  Library module of generic boundary algorithms.
5   !!======================================================================
6   !! History :  3.6  !  2013     (D. Storkey) original code
7   !!----------------------------------------------------------------------
8   !!----------------------------------------------------------------------
9   !!   bdy_orlanski_2d
10   !!   bdy_orlanski_3d
11   !!----------------------------------------------------------------------
12   USE oce            ! ocean dynamics and tracers
13   USE dom_oce        ! ocean space and time domain
14   USE bdy_oce        ! ocean open boundary conditions
15   USE phycst         ! physical constants
16   !
17   USE in_out_manager !
18   USE lbclnk         ! ocean lateral boundary conditions (or mpp link)
19   USE timing         ! Timing
20
21   IMPLICIT NONE
22   PRIVATE
23
24   PUBLIC   bdy_orlanski_2d     ! routine called where?
25   PUBLIC   bdy_orlanski_3d     ! routine called where?
26
27   !!----------------------------------------------------------------------
28   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
29   !! $Id$
30   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
31   !!----------------------------------------------------------------------
32CONTAINS
33
34   SUBROUTINE bdy_orlanski_2d( idx, igrd, phib, phia, phi_ext, ll_npo )
35      !!----------------------------------------------------------------------
36      !!                 ***  SUBROUTINE bdy_orlanski_2d  ***
37      !!             
38      !!              - Apply Orlanski radiation condition adaptively to 2D fields:
39      !!                  - radiation plus weak nudging at outflow points
40      !!                  - no radiation and strong nudging at inflow points
41      !!
42      !!
43      !! References:  Marchesiello, McWilliams and Shchepetkin, Ocean Modelling vol. 3 (2001)   
44      !!----------------------------------------------------------------------
45      TYPE(OBC_INDEX),          INTENT(in   ) ::   idx      ! BDY indices
46      INTEGER ,                 INTENT(in   ) ::   igrd     ! grid index
47      REAL(wp), DIMENSION(:,:), INTENT(in   ) ::   phib     ! model before 2D field
48      REAL(wp), DIMENSION(:,:), INTENT(inout) ::   phia     ! model after 2D field (to be updated)
49      REAL(wp), DIMENSION(:)  , INTENT(in   ) ::   phi_ext  ! external forcing data
50      LOGICAL ,                 INTENT(in   ) ::   ll_npo   ! switch for NPO version
51      !
52      INTEGER  ::   jb                                     ! dummy loop indices
53      INTEGER  ::   ii, ij, iibm1, iibm2, ijbm1, ijbm2     ! 2D addresses
54      INTEGER  ::   iijm1, iijp1, ijjm1, ijjp1             ! 2D addresses
55      INTEGER  ::   iibm1jp1, iibm1jm1, ijbm1jp1, ijbm1jm1 ! 2D addresses
56      INTEGER  ::   ii_offset, ij_offset                   ! offsets for mask indices
57      INTEGER  ::   flagu, flagv                           ! short cuts
58      REAL(wp) ::   zmask_x, zmask_y1, zmask_y2
59      REAL(wp) ::   zex1, zex2, zey, zey1, zey2
60      REAL(wp) ::   zdt, zdx, zdy, znor2, zrx, zry         ! intermediate calculations
61      REAL(wp) ::   zout, zwgt, zdy_centred
62      REAL(wp) ::   zdy_1, zdy_2, zsign_ups
63      REAL(wp), PARAMETER :: zepsilon = 1.e-30                 ! local small value
64      REAL(wp), POINTER, DIMENSION(:,:)          :: pmask      ! land/sea mask for field
65      REAL(wp), POINTER, DIMENSION(:,:)          :: pmask_xdif ! land/sea mask for x-derivatives
66      REAL(wp), POINTER, DIMENSION(:,:)          :: pmask_ydif ! land/sea mask for y-derivatives
67      REAL(wp), POINTER, DIMENSION(:,:)          :: pe_xdif    ! scale factors for x-derivatives
68      REAL(wp), POINTER, DIMENSION(:,:)          :: pe_ydif    ! scale factors for y-derivatives
69      !!----------------------------------------------------------------------
70      !
71      IF( nn_timing == 1 )   CALL timing_start('bdy_orlanski_2d')
72      !
73      ! ----------------------------------!
74      ! Orlanski boundary conditions     :!
75      ! ----------------------------------!
76     
77      SELECT CASE(igrd)
78         CASE(1)
79            pmask      => tmask(:,:,1)
80            pmask_xdif => umask(:,:,1)
81            pmask_ydif => vmask(:,:,1)
82            pe_xdif    => e1u(:,:)
83            pe_ydif    => e2v(:,:)
84            ii_offset = 0
85            ij_offset = 0
86         CASE(2)
87            pmask      => umask(:,:,1)
88            pmask_xdif => tmask(:,:,1)
89            pmask_ydif => fmask(:,:,1)
90            pe_xdif    => e1t(:,:)
91            pe_ydif    => e2f(:,:)
92            ii_offset = 1
93            ij_offset = 0
94         CASE(3)
95            pmask      => vmask(:,:,1)
96            pmask_xdif => fmask(:,:,1)
97            pmask_ydif => tmask(:,:,1)
98            pe_xdif    => e1f(:,:)
99            pe_ydif    => e2t(:,:)
100            ii_offset = 0
101            ij_offset = 1
102         CASE DEFAULT ;   CALL ctl_stop( 'unrecognised value for igrd in bdy_orlanksi_2d' )
103      END SELECT
104      !
105      DO jb = 1, idx%nblenrim(igrd)
106         ii  = idx%nbi(jb,igrd)
107         ij  = idx%nbj(jb,igrd) 
108         flagu = int( idx%flagu(jb,igrd) )
109         flagv = int( idx%flagv(jb,igrd) )
110         !
111         ! Calculate positions of b-1 and b-2 points for this rim point
112         ! also (b-1,j-1) and (b-1,j+1) points
113         iibm1 = ii + flagu ; iibm2 = ii + 2*flagu 
114         ijbm1 = ij + flagv ; ijbm2 = ij + 2*flagv
115          !
116         iijm1 = ii - abs(flagv) ; iijp1 = ii + abs(flagv) 
117         ijjm1 = ij - abs(flagu) ; ijjp1 = ij + abs(flagu)
118         !
119         iibm1jm1 = ii + flagu - abs(flagv) ; iibm1jp1 = ii + flagu + abs(flagv) 
120         ijbm1jm1 = ij + flagv - abs(flagu) ; ijbm1jp1 = ij + flagv + abs(flagu) 
121         !
122         ! Calculate scale factors for calculation of spatial derivatives.       
123         zex1 = ( abs(iibm1-iibm2) * pe_xdif(iibm1+ii_offset,ijbm1          )         &
124        &       + abs(ijbm1-ijbm2) * pe_ydif(iibm1          ,ijbm1+ij_offset) ) 
125         zex2 = ( abs(iibm1-iibm2) * pe_xdif(iibm2+ii_offset,ijbm2          )         &
126        &       + abs(ijbm1-ijbm2) * pe_ydif(iibm2          ,ijbm2+ij_offset) ) 
127         zey1 = ( (iibm1-iibm1jm1) * pe_xdif(iibm1jm1+ii_offset,ijbm1jm1          )  & 
128        &      +  (ijbm1-ijbm1jm1) * pe_ydif(iibm1jm1          ,ijbm1jm1+ij_offset) ) 
129         zey2 = ( (iibm1jp1-iibm1) * pe_xdif(iibm1+ii_offset,ijbm1)                  &
130        &      +  (ijbm1jp1-ijbm1) * pe_ydif(iibm1          ,ijbm1+ij_offset) ) 
131         ! make sure scale factors are nonzero
132         if( zey1 .lt. rsmall ) zey1 = zey2
133         if( zey2 .lt. rsmall ) zey2 = zey1
134         zex1 = max(zex1,rsmall); zex2 = max(zex2,rsmall)
135         zey1 = max(zey1,rsmall); zey2 = max(zey2,rsmall); 
136         !
137         ! Calculate masks for calculation of spatial derivatives.       
138         zmask_x = ( abs(iibm1-iibm2) * pmask_xdif(iibm2+ii_offset,ijbm2          )         &
139        &          + abs(ijbm1-ijbm2) * pmask_ydif(iibm2          ,ijbm2+ij_offset) ) 
140         zmask_y1 = ( (iibm1-iibm1jm1) * pmask_xdif(iibm1jm1+ii_offset,ijbm1jm1          )  & 
141        &          +  (ijbm1-ijbm1jm1) * pmask_ydif(iibm1jm1          ,ijbm1jm1+ij_offset) ) 
142         zmask_y2 = ( (iibm1jp1-iibm1) * pmask_xdif(iibm1+ii_offset,ijbm1)                  &
143        &          +  (ijbm1jp1-ijbm1) * pmask_ydif(iibm1          ,ijbm1+ij_offset) ) 
144
145         ! Calculation of terms required for both versions of the scheme.
146         ! Mask derivatives to ensure correct land boundary conditions for each variable.
147         ! Centred derivative is calculated as average of "left" and "right" derivatives for
148         ! this reason.
149         ! Note no rdt factor in expression for zdt because it cancels in the expressions for
150         ! zrx and zry.
151         zdt = phia(iibm1,ijbm1) - phib(iibm1,ijbm1)
152         zdx = ( ( phia(iibm1,ijbm1) - phia(iibm2,ijbm2) ) / zex2 ) * zmask_x 
153         zdy_1 = ( ( phib(iibm1   ,ijbm1   ) - phib(iibm1jm1,ijbm1jm1) ) / zey1 ) * zmask_y1   
154         zdy_2 = ( ( phib(iibm1jp1,ijbm1jp1) - phib(iibm1   ,ijbm1)    ) / zey2 ) * zmask_y2 
155         zdy_centred = 0.5 * ( zdy_1 + zdy_2 )
156!!$         zdy_centred = phib(iibm1jp1,ijbm1jp1) - phib(iibm1jm1,ijbm1jm1)
157         ! upstream differencing for tangential derivatives
158         zsign_ups = sign( 1., zdt * zdy_centred )
159         zsign_ups = 0.5*( zsign_ups + abs(zsign_ups) )
160         zdy = zsign_ups * zdy_1 + (1. - zsign_ups) * zdy_2
161         znor2 = zdx * zdx + zdy * zdy
162         znor2 = max(znor2,zepsilon)
163         !
164         zrx = zdt * zdx / ( zex1 * znor2 ) 
165!!$         zrx = min(zrx,2.0_wp)
166         zout = sign( 1., zrx )
167         zout = 0.5*( zout + abs(zout) )
168         zwgt = 2.*rdt*( (1.-zout) * idx%nbd(jb,igrd) + zout * idx%nbdout(jb,igrd) )
169         ! only apply radiation on outflow points
170         if( ll_npo ) then     !! NPO version !!
171            phia(ii,ij) = (1.-zout) * ( phib(ii,ij) + zwgt * ( phi_ext(jb) - phib(ii,ij) ) )        &
172           &            + zout      * ( phib(ii,ij) + zrx*phia(iibm1,ijbm1)                         &
173           &                            + zwgt * ( phi_ext(jb) - phib(ii,ij) ) ) / ( 1. + zrx ) 
174         else                  !! full oblique radiation !!
175            zsign_ups = sign( 1., zdt * zdy )
176            zsign_ups = 0.5*( zsign_ups + abs(zsign_ups) )
177            zey = zsign_ups * zey1 + (1.-zsign_ups) * zey2 
178            zry = zdt * zdy / ( zey * znor2 ) 
179            phia(ii,ij) = (1.-zout) * ( phib(ii,ij) + zwgt * ( phi_ext(jb) - phib(ii,ij) ) )        &
180           &            + zout      * ( phib(ii,ij) + zrx*phia(iibm1,ijbm1)                         &
181           &                    - zsign_ups      * zry * ( phib(ii   ,ij   ) - phib(iijm1,ijjm1 ) ) &
182           &                    - (1.-zsign_ups) * zry * ( phib(iijp1,ijjp1) - phib(ii   ,ij    ) ) &
183           &                    + zwgt * ( phi_ext(jb) - phib(ii,ij) ) ) / ( 1. + zrx ) 
184         end if
185         phia(ii,ij) = phia(ii,ij) * pmask(ii,ij)
186      END DO
187      !
188      IF( nn_timing == 1 )   CALL timing_stop('bdy_orlanski_2d')
189      !
190   END SUBROUTINE bdy_orlanski_2d
191
192
193   SUBROUTINE bdy_orlanski_3d( idx, igrd, phib, phia, phi_ext, ll_npo )
194      !!----------------------------------------------------------------------
195      !!                 ***  SUBROUTINE bdy_orlanski_3d  ***
196      !!             
197      !!              - Apply Orlanski radiation condition adaptively to 3D fields:
198      !!                  - radiation plus weak nudging at outflow points
199      !!                  - no radiation and strong nudging at inflow points
200      !!
201      !!
202      !! References:  Marchesiello, McWilliams and Shchepetkin, Ocean Modelling vol. 3 (2001)   
203      !!----------------------------------------------------------------------
204      TYPE(OBC_INDEX),            INTENT(in   ) ::   idx      ! BDY indices
205      INTEGER ,                   INTENT(in   ) ::   igrd     ! grid index
206      REAL(wp), DIMENSION(:,:,:), INTENT(in   ) ::   phib     ! model before 3D field
207      REAL(wp), DIMENSION(:,:,:), INTENT(inout) ::   phia     ! model after 3D field (to be updated)
208      REAL(wp), DIMENSION(:,:)  , INTENT(in   ) ::   phi_ext  ! external forcing data
209      LOGICAL ,                   INTENT(in   ) ::   ll_npo   ! switch for NPO version
210      !
211      INTEGER  ::   jb, jk                                 ! dummy loop indices
212      INTEGER  ::   ii, ij, iibm1, iibm2, ijbm1, ijbm2     ! 2D addresses
213      INTEGER  ::   iijm1, iijp1, ijjm1, ijjp1             ! 2D addresses
214      INTEGER  ::   iibm1jp1, iibm1jm1, ijbm1jp1, ijbm1jm1 ! 2D addresses
215      INTEGER  ::   ii_offset, ij_offset                   ! offsets for mask indices
216      INTEGER  ::   flagu, flagv                           ! short cuts
217      REAL(wp) ::   zmask_x, zmask_y1, zmask_y2
218      REAL(wp) ::   zex1, zex2, zey, zey1, zey2
219      REAL(wp) ::   zdt, zdx, zdy, znor2, zrx, zry         ! intermediate calculations
220      REAL(wp) ::   zout, zwgt, zdy_centred
221      REAL(wp) ::   zdy_1, zdy_2,  zsign_ups
222      REAL(wp), PARAMETER :: zepsilon = 1.e-30                 ! local small value
223      REAL(wp), POINTER, DIMENSION(:,:,:)        :: pmask      ! land/sea mask for field
224      REAL(wp), POINTER, DIMENSION(:,:,:)        :: pmask_xdif ! land/sea mask for x-derivatives
225      REAL(wp), POINTER, DIMENSION(:,:,:)        :: pmask_ydif ! land/sea mask for y-derivatives
226      REAL(wp), POINTER, DIMENSION(:,:)          :: pe_xdif    ! scale factors for x-derivatives
227      REAL(wp), POINTER, DIMENSION(:,:)          :: pe_ydif    ! scale factors for y-derivatives
228      !!----------------------------------------------------------------------
229      !
230      IF( nn_timing == 1 )   CALL timing_start('bdy_orlanski_3d')
231      !
232      ! ----------------------------------!
233      ! Orlanski boundary conditions     :!
234      ! ----------------------------------!
235      !
236      SELECT CASE(igrd)
237         CASE(1)
238            pmask      => tmask(:,:,:)
239            pmask_xdif => umask(:,:,:)
240            pmask_ydif => vmask(:,:,:)
241            pe_xdif    => e1u(:,:)
242            pe_ydif    => e2v(:,:)
243            ii_offset = 0
244            ij_offset = 0
245         CASE(2)
246            pmask      => umask(:,:,:)
247            pmask_xdif => tmask(:,:,:)
248            pmask_ydif => fmask(:,:,:)
249            pe_xdif    => e1t(:,:)
250            pe_ydif    => e2f(:,:)
251            ii_offset = 1
252            ij_offset = 0
253         CASE(3)
254            pmask      => vmask(:,:,:)
255            pmask_xdif => fmask(:,:,:)
256            pmask_ydif => tmask(:,:,:)
257            pe_xdif    => e1f(:,:)
258            pe_ydif    => e2t(:,:)
259            ii_offset = 0
260            ij_offset = 1
261         CASE DEFAULT ;   CALL ctl_stop( 'unrecognised value for igrd in bdy_orlanksi_2d' )
262      END SELECT
263
264      DO jk = 1, jpk
265         !           
266         DO jb = 1, idx%nblenrim(igrd)
267            ii  = idx%nbi(jb,igrd)
268            ij  = idx%nbj(jb,igrd) 
269            flagu = int( idx%flagu(jb,igrd) )
270            flagv = int( idx%flagv(jb,igrd) )
271            !
272            ! calculate positions of b-1 and b-2 points for this rim point
273            ! also (b-1,j-1) and (b-1,j+1) points
274            iibm1 = ii + flagu ; iibm2 = ii + 2*flagu 
275            ijbm1 = ij + flagv ; ijbm2 = ij + 2*flagv
276            !
277            iijm1 = ii - abs(flagv) ; iijp1 = ii + abs(flagv) 
278            ijjm1 = ij - abs(flagu) ; ijjp1 = ij + abs(flagu)
279            !
280            iibm1jm1 = ii + flagu - abs(flagv) ; iibm1jp1 = ii + flagu + abs(flagv) 
281            ijbm1jm1 = ij + flagv - abs(flagu) ; ijbm1jp1 = ij + flagv + abs(flagu) 
282            !
283            ! Calculate scale factors for calculation of spatial derivatives.       
284            zex1 = ( abs(iibm1-iibm2) * pe_xdif(iibm1+ii_offset,ijbm1          )         &
285           &       + abs(ijbm1-ijbm2) * pe_ydif(iibm1          ,ijbm1+ij_offset) ) 
286            zex2 = ( abs(iibm1-iibm2) * pe_xdif(iibm2+ii_offset,ijbm2          )         &
287           &       + abs(ijbm1-ijbm2) * pe_ydif(iibm2          ,ijbm2+ij_offset) ) 
288            zey1 = ( (iibm1-iibm1jm1) * pe_xdif(iibm1jm1+ii_offset,ijbm1jm1          )  & 
289           &      +  (ijbm1-ijbm1jm1) * pe_ydif(iibm1jm1          ,ijbm1jm1+ij_offset) ) 
290            zey2 = ( (iibm1jp1-iibm1) * pe_xdif(iibm1+ii_offset,ijbm1)                  &
291           &      +  (ijbm1jp1-ijbm1) * pe_ydif(iibm1          ,ijbm1+ij_offset) ) 
292            ! make sure scale factors are nonzero
293            if( zey1 .lt. rsmall ) zey1 = zey2
294            if( zey2 .lt. rsmall ) zey2 = zey1
295            zex1 = max(zex1,rsmall); zex2 = max(zex2,rsmall); 
296            zey1 = max(zey1,rsmall); zey2 = max(zey2,rsmall); 
297            !
298            ! Calculate masks for calculation of spatial derivatives.       
299            zmask_x = ( abs(iibm1-iibm2) * pmask_xdif(iibm2+ii_offset,ijbm2          ,jk)          &
300           &          + abs(ijbm1-ijbm2) * pmask_ydif(iibm2          ,ijbm2+ij_offset,jk) ) 
301            zmask_y1 = ( (iibm1-iibm1jm1) * pmask_xdif(iibm1jm1+ii_offset,ijbm1jm1          ,jk)   & 
302           &          +  (ijbm1-ijbm1jm1) * pmask_ydif(iibm1jm1          ,ijbm1jm1+ij_offset,jk) ) 
303            zmask_y2 = ( (iibm1jp1-iibm1) * pmask_xdif(iibm1+ii_offset,ijbm1          ,jk)         &
304           &          +  (ijbm1jp1-ijbm1) * pmask_ydif(iibm1          ,ijbm1+ij_offset,jk) ) 
305            !
306            ! Calculate normal (zrx) and tangential (zry) components of radiation velocities.
307            ! Mask derivatives to ensure correct land boundary conditions for each variable.
308            ! Centred derivative is calculated as average of "left" and "right" derivatives for
309            ! this reason.
310            zdt = phia(iibm1,ijbm1,jk) - phib(iibm1,ijbm1,jk)
311            zdx = ( ( phia(iibm1,ijbm1,jk) - phia(iibm2,ijbm2,jk) ) / zex2 ) * zmask_x                 
312            zdy_1 = ( ( phib(iibm1   ,ijbm1   ,jk) - phib(iibm1jm1,ijbm1jm1,jk) ) / zey1 ) * zmask_y1 
313            zdy_2 = ( ( phib(iibm1jp1,ijbm1jp1,jk) - phib(iibm1   ,ijbm1   ,jk) ) / zey2 ) * zmask_y2     
314            zdy_centred = 0.5 * ( zdy_1 + zdy_2 )
315!!$            zdy_centred = phib(iibm1jp1,ijbm1jp1,jk) - phib(iibm1jm1,ijbm1jm1,jk)
316            ! upstream differencing for tangential derivatives
317            zsign_ups = sign( 1., zdt * zdy_centred )
318            zsign_ups = 0.5*( zsign_ups + abs(zsign_ups) )
319            zdy = zsign_ups * zdy_1 + (1. - zsign_ups) * zdy_2
320            znor2 = zdx * zdx + zdy * zdy
321            znor2 = max(znor2,zepsilon)
322            !
323            ! update boundary value:
324            zrx = zdt * zdx / ( zex1 * znor2 )
325!!$            zrx = min(zrx,2.0_wp)
326            zout = sign( 1., zrx )
327            zout = 0.5*( zout + abs(zout) )
328            zwgt = 2.*rdt*( (1.-zout) * idx%nbd(jb,igrd) + zout * idx%nbdout(jb,igrd) )
329            ! only apply radiation on outflow points
330            if( ll_npo ) then     !! NPO version !!
331               phia(ii,ij,jk) = (1.-zout) * ( phib(ii,ij,jk) + zwgt * ( phi_ext(jb,jk) - phib(ii,ij,jk) ) ) &
332              &               + zout      * ( phib(ii,ij,jk) + zrx*phia(iibm1,ijbm1,jk)                     &
333              &                            + zwgt * ( phi_ext(jb,jk) - phib(ii,ij,jk) ) ) / ( 1. + zrx ) 
334            else                  !! full oblique radiation !!
335               zsign_ups = sign( 1., zdt * zdy )
336               zsign_ups = 0.5*( zsign_ups + abs(zsign_ups) )
337               zey = zsign_ups * zey1 + (1.-zsign_ups) * zey2 
338               zry = zdt * zdy / ( zey * znor2 ) 
339               phia(ii,ij,jk) = (1.-zout) * ( phib(ii,ij,jk) + zwgt * ( phi_ext(jb,jk) - phib(ii,ij,jk) ) )    &
340              &               + zout      * ( phib(ii,ij,jk) + zrx*phia(iibm1,ijbm1,jk)                        &
341              &                       - zsign_ups      * zry * ( phib(ii   ,ij   ,jk) - phib(iijm1,ijjm1,jk) ) &
342              &                       - (1.-zsign_ups) * zry * ( phib(iijp1,ijjp1,jk) - phib(ii   ,ij   ,jk) ) &
343              &                       + zwgt * ( phi_ext(jb,jk) - phib(ii,ij,jk) ) ) / ( 1. + zrx ) 
344            end if
345            phia(ii,ij,jk) = phia(ii,ij,jk) * pmask(ii,ij,jk)
346         END DO
347         !
348      END DO
349      !
350      IF( nn_timing == 1 )   CALL timing_stop('bdy_orlanski_3d')
351      !
352   END SUBROUTINE bdy_orlanski_3d
353
354   !!======================================================================
355END MODULE bdylib
Note: See TracBrowser for help on using the repository browser.