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.
obc_par.F90 in trunk/NEMOGCM/NEMO/OPA_SRC/OBC – NEMO

source: trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obc_par.F90 @ 3294

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

Merge of 3.4beta into the trunk

  • Property svn:keywords set to Id
File size: 5.4 KB
Line 
1MODULE obc_par
2   !!==============================================================================
3   !!                  ***  MODULE obc_par   ***
4   !! Open Boundary Cond. :   define related parameters
5   !!==============================================================================
6   !! history :  OPA  ! 1991-01 (CLIPPER)  Original code
7   !!   NEMO     1.0  ! 2002-04   (C. Talandier)  modules
8   !!             -   ! 2004/06   (F. Durand) jptobc is defined as a parameter
9   !!----------------------------------------------------------------------
10#if defined key_obc
11   !!----------------------------------------------------------------------
12   !!   'key_obc' :                                 Open Boundary Condition
13   !!----------------------------------------------------------------------
14   USE par_oce         ! ocean parameters
15
16   IMPLICIT NONE
17   PUBLIC
18
19#if ! defined key_agrif
20   LOGICAL, PUBLIC, PARAMETER ::   lk_obc = .TRUE.     !: Ocean Boundary Condition flag
21#else
22   LOGICAL, PUBLIC            ::   lk_obc = .TRUE.     !: Ocean Boundary Condition flag
23#endif
24
25# if defined key_eel_r5
26   !!----------------------------------------------------------------------
27   !!   'key_eel_r5' :                                 EEL R5 configuration
28   !!----------------------------------------------------------------------
29#    include "obc_par_EEL_R5.h90"
30
31# elif defined key_pomme_r025
32   !!----------------------------------------------------------------------
33   !!   'key_pomme_r025' :                         POMME R025 configuration
34   !!----------------------------------------------------------------------
35#    include "obc_par_POMME_R025.h90"
36
37# else
38   !!---------------------------------------------------------------------
39   !! open boundary parameter
40   !!---------------------------------------------------------------------
41   INTEGER, PARAMETER ::   jptobc      =  2        !: time dimension of the BCS fields on input
42   
43   !! * EAST open boundary
44   LOGICAL, PARAMETER ::   lp_obc_east = .FALSE.   !: to active or not the East open boundary
45   INTEGER   &
46#if !defined key_agrif
47     , PARAMETER   & 
48#endif
49    ::     & 
50      jpieob  = jpiglo-2,    &  !: i-localization of the East open boundary (must be ocean U-point)
51      jpjed   =        2,    &  !: j-starting indice of the East open boundary (must be land T-point)
52      jpjef   = jpjglo-1,    &  !: j-ending   indice of the East open boundary (must be land T-point)
53      jpjedp1 =  jpjed+1,    &  !: first ocean point         "                 "
54      jpjefm1 =  jpjef-1        !: last  ocean point         "                 "
55
56   !! * WEST open boundary
57   LOGICAL, PARAMETER ::   lp_obc_west = .FALSE.   !: to active or not the West open boundary
58   INTEGER   &
59#if !defined key_agrif
60     , PARAMETER   & 
61#endif
62    ::     & 
63      jpiwob  =          2,    &  !: i-localization of the West open boundary (must be ocean U-point)
64      jpjwd   =          2,    &  !: j-starting indice of the West open boundary (must be land T-point)
65      jpjwf   = jpjglo-1,    &  !: j-ending   indice of the West open boundary (must be land T-point)
66      jpjwdp1 =  jpjwd+1,    &  !: first ocean point         "                 "
67      jpjwfm1 =  jpjwf-1        !: last  ocean point         "                 "
68
69   !! * NORTH open boundary
70   LOGICAL, PARAMETER ::   lp_obc_north = .FALSE.   !: to active or not the North open boundary
71     INTEGER   &
72#if !defined key_agrif
73     , PARAMETER   & 
74#endif
75    ::     & 
76      jpjnob  = jpjglo-2,    &  !: j-localization of the North open boundary (must be ocean V-point)
77      jpind   =        2,    &  !: i-starting indice of the North open boundary (must be land T-point)
78      jpinf   = jpiglo-1,    &  !: i-ending   indice of the North open boundary (must be land T-point)
79      jpindp1 =  jpind+1,    &  !: first ocean point         "                 "
80      jpinfm1 =  jpinf-1        !: last  ocean point         "                 "
81
82   !! * SOUTH open boundary
83   LOGICAL, PARAMETER ::   lp_obc_south = .FALSE.   !: to active or not the South open boundary
84     INTEGER   &
85#if !defined key_agrif
86     , PARAMETER   & 
87#endif
88    ::     & 
89      jpjsob  =        2,    &  !: j-localization of the South open boundary (must be ocean V-point)
90      jpisd   =        2,    &  !: i-starting indice of the South open boundary (must be land T-point)
91      jpisf   = jpiglo-1,    &  !: i-ending   indice of the South open boundary (must be land T-point)
92      jpisdp1 =  jpisd+1,    &  !: first ocean point         "                 "
93      jpisfm1 =  jpisf-1        !: last  ocean point         "                 "
94   
95   INTEGER, PARAMETER ::   jpnic = 2700   !: maximum number of isolated coastlines points
96
97# endif
98
99#else
100   !!----------------------------------------------------------------------
101   !!   Default option :                         NO open boundary condition
102   !!----------------------------------------------------------------------
103#if ! defined key_agrif
104   LOGICAL, PUBLIC, PARAMETER ::   lk_obc = .FALSE.     !: Ocean Boundary Condition flag
105#else
106   LOGICAL, PUBLIC            ::   lk_obc = .FALSE.     !: Ocean Boundary Condition flag
107#endif
108#endif
109
110   !!----------------------------------------------------------------------
111   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
112   !! $Id$
113   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
114   !!======================================================================
115END MODULE obc_par
Note: See TracBrowser for help on using the repository browser.