source: branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/BDY/bdy_par.F90 @ 4291

Last change on this file since 4291 was 3294, checked in by rblod, 9 years ago

Merge of 3.4beta into the trunk

  • Property svn:keywords set to Id
File size: 2.5 KB
Line 
1MODULE bdy_par
2   !!======================================================================
3   !!                      ***  MODULE bdy_par   ***
4   !! Unstructured Open Boundary Cond. :   define related parameters
5   !!======================================================================
6   !! History :  1.0  !  2005-01  (J. Chanut, A. Sellar)  Original code
7   !!            3.0  !  2008-04  (NEMO team)  add in the reference version
8   !!            3.3  !  2010-09  (D. Storkey and E. O'Dea) update for Shelf configurations
9   !!            3.4  !  2011     (D. Storkey) rewrite in preparation for OBC-BDY merge
10   !!----------------------------------------------------------------------
11#if defined   key_bdy
12   !!----------------------------------------------------------------------
13   !!   'key_bdy' :                    Unstructured Open Boundary Condition
14   !!----------------------------------------------------------------------
15
16   IMPLICIT NONE
17   PUBLIC
18
19# if ! defined key_agrif
20   LOGICAL, PUBLIC, PARAMETER ::   lk_bdy  = .TRUE.   !: Unstructured Ocean Boundary Condition flag
21# else
22   LOGICAL, PUBLIC            ::   lk_bdy  = .TRUE.   !: Unstructured Ocean Boundary Condition flag
23# endif
24   INTEGER, PUBLIC, PARAMETER ::   jp_bdy  = 10       !: Maximum number of bdy sets
25   INTEGER, PUBLIC, PARAMETER ::   jpbtime = 1000     !: Max number of time dumps per file
26   INTEGER, PUBLIC, PARAMETER ::   jpbgrd  = 3        !: Number of horizontal grid types used  (T, U, V)
27
28   !! Flags for choice of schemes
29   INTEGER, PUBLIC, PARAMETER ::   jp_none         = 0        !: Flag for no open boundary condition
30   INTEGER, PUBLIC, PARAMETER ::   jp_frs          = 1        !: Flag for Flow Relaxation Scheme
31   INTEGER, PUBLIC, PARAMETER ::   jp_flather      = 2        !: Flag for Flather
32#else
33   !!----------------------------------------------------------------------
34   !!   Default option :            NO Unstructured open boundary condition
35   !!----------------------------------------------------------------------
36# if ! defined key_agrif
37   LOGICAL, PUBLIC, PARAMETER ::   lk_bdy  = .FALSE.   !: Unstructured Ocean Boundary Condition flag
38# else
39   LOGICAL, PUBLIC            ::   lk_bdy  = .FALSE.   !: Unstructured Ocean Boundary Condition flag
40# endif
41#endif
42
43   !!----------------------------------------------------------------------
44   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
45   !! $Id$
46   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
47   !!======================================================================
48END MODULE bdy_par
Note: See TracBrowser for help on using the repository browser.