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 branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBC – NEMO

source: branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBC/obc_par.F90 @ 2287

Last change on this file since 2287 was 2287, checked in by smasson, 13 years ago

update licence of all NEMO files...

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