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.
bdy_par.F90 in trunk/NEMO/OPA_SRC/BDY – NEMO

source: trunk/NEMO/OPA_SRC/BDY/bdy_par.F90 @ 1058

Last change on this file since 1058 was 1058, checked in by rblod, 16 years ago

Correct preprocessing syntax, see ticket #160
  • Property svn:executable set to *
File size: 2.1 KB
Line 
1MODULE bdy_par
2   !!======================================================================
3   !!                  ***  MODULE bdy_par   ***
4   !! Unstructured Open Boundary Cond. :   define related parameters
5   !!======================================================================
6#if defined key_bdy || defined key_bdy_tides
7   !!----------------------------------------------------------------------
8   !!   'key_bdy' :                    Unstructured Open Boundary Condition
9   !!----------------------------------------------------------------------
10   !! history :
11   !!  9.0   01/05   (J. Chanut, A. Sellar)  Original code
12   !!----------------------------------------------------------------------
13   !! * Modules used
14   USE par_oce         ! ocean parameters
15
16   IMPLICIT NONE
17   PUBLIC
18
19#if defined key_bdy
20   LOGICAL, PUBLIC, PARAMETER ::   lk_bdy = .TRUE. !: Unstructured Ocean
21                                                   !Boundary Condition flag
22#else
23   ! tides only at boundaries
24   LOGICAL, PUBLIC, PARAMETER ::   lk_bdy = .FALSE. !: Unstructured Ocean
25                                                    !Boundary Condition flag
26#endif
27
28   !!----------------------------------------------------------------------
29   !! Unstructured open boundary parameters
30   !!----------------------------------------------------------------------
31
32   INTEGER, PARAMETER ::   & 
33      jpbdta     = 5000,  & !: Max length of bdy field in file
34      jpbdim     = 5000,  & !: Max length of bdy field on a processor
35      jpbtime    = 1000,  & !: Max number of time dumps per file
36      jpbgrd     = 3     !: Number of horizontal grid types used
37                            !  (T, u, v, f)
38#else
39   !!----------------------------------------------------------------------
40   !!   Default option :                         NO open boundary condition
41   !!----------------------------------------------------------------------
42   LOGICAL, PUBLIC, PARAMETER ::   lk_bdy = .FALSE.!: Unstructured Ocean
43                                                   !Boundary Condition flag
44#endif
45
46   !!======================================================================
47END MODULE bdy_par
Note: See TracBrowser for help on using the repository browser.