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

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

Add BB12 configuration
File size: 6.0 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# elif defined key_trop12
38   !!----------------------------------------------------------------------
39   !!   'key_trop12' :                        TROPICAL TROP12 configuration
40   !!----------------------------------------------------------------------
41#    include "obc_par_TROP12.h90"
42
43# elif defined key_bb12
44   !! BB12
45   !!----------------------------------------------------------------------
46   !!   'key_bb12' :                              BENGAL R012 configuration
47   !!----------------------------------------------------------------------
48#    include "obc_par_BB12.h90"
49
50# else
51   !!---------------------------------------------------------------------
52   !! open boundary parameter
53   !!---------------------------------------------------------------------
54   INTEGER, PARAMETER ::   jptobc      =  2        !: time dimension of the BCS fields on input
55   
56   !! * EAST open boundary
57   LOGICAL, PARAMETER ::   lp_obc_east = .FALSE.   !: to active or not the East open boundary
58   INTEGER   &
59#if !defined key_agrif
60     , PARAMETER   & 
61#endif
62    ::     & 
63      jpieob  = jpiglo-2,    &  !: i-localization of the East open boundary (must be ocean U-point)
64      jpjed   =        2,    &  !: j-starting indice of the East open boundary (must be land T-point)
65      jpjef   = jpjglo-1,    &  !: j-ending   indice of the East open boundary (must be land T-point)
66      jpjedp1 =  jpjed+1,    &  !: first ocean point         "                 "
67      jpjefm1 =  jpjef-1        !: last  ocean point         "                 "
68
69   !! * WEST open boundary
70   LOGICAL, PARAMETER ::   lp_obc_west = .FALSE.   !: to active or not the West open boundary
71   INTEGER   &
72#if !defined key_agrif
73     , PARAMETER   & 
74#endif
75    ::     & 
76      jpiwob  =        2,    &  !: i-localization of the West open boundary (must be ocean U-point)
77      jpjwd   =        2,    &  !: j-starting indice of the West open boundary (must be land T-point)
78      jpjwf   = jpjglo-1,    &  !: j-ending   indice of the West open boundary (must be land T-point)
79      jpjwdp1 =  jpjwd+1,    &  !: first ocean point         "                 "
80      jpjwfm1 =  jpjwf-1        !: last  ocean point         "                 "
81
82   !! * NORTH open boundary
83   LOGICAL, PARAMETER ::   lp_obc_north = .FALSE.   !: to active or not the North open boundary
84     INTEGER   &
85#if !defined key_agrif
86     , PARAMETER   & 
87#endif
88    ::     & 
89      jpjnob  = jpjglo-2,    &  !: j-localization of the North open boundary (must be ocean V-point)
90      jpind   =        2,    &  !: i-starting indice of the North open boundary (must be land T-point)
91      jpinf   = jpiglo-1,    &  !: i-ending   indice of the North open boundary (must be land T-point)
92      jpindp1 =  jpind+1,    &  !: first ocean point         "                 "
93      jpinfm1 =  jpinf-1        !: last  ocean point         "                 "
94
95   !! * SOUTH open boundary
96   LOGICAL, PARAMETER ::   lp_obc_south = .FALSE.   !: to active or not the South open boundary
97     INTEGER   &
98#if !defined key_agrif
99     , PARAMETER   & 
100#endif
101    ::     & 
102      jpjsob  =        2,    &  !: j-localization of the South open boundary (must be ocean V-point)
103      jpisd   =        2,    &  !: i-starting indice of the South open boundary (must be land T-point)
104      jpisf   = jpiglo-1,    &  !: i-ending   indice of the South open boundary (must be land T-point)
105      jpisdp1 =  jpisd+1,    &  !: first ocean point         "                 "
106      jpisfm1 =  jpisf-1        !: last  ocean point         "                 "
107   
108   INTEGER, PARAMETER ::   jpnic = 2700   !: maximum number of isolated coastlines points
109
110# endif
111
112#else
113   !!----------------------------------------------------------------------
114   !!   Default option :                         NO open boundary condition
115   !!----------------------------------------------------------------------
116#if ! defined key_agrif
117   LOGICAL, PUBLIC, PARAMETER ::   lk_obc = .FALSE.     !: Ocean Boundary Condition flag
118#else
119   LOGICAL, PUBLIC            ::   lk_obc = .FALSE.     !: Ocean Boundary Condition flag
120#endif
121#endif
122
123   !!----------------------------------------------------------------------
124   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
125   !! $Id: obc_par.F90 3294 2012-01-28 16:44:18Z rblod $
126   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
127   !!======================================================================
128END MODULE obc_par
Note: See TracBrowser for help on using the repository browser.