source: trunk/NEMO/OPA_SRC/OBC/obc_par.F90 @ 1152

Last change on this file since 1152 was 1152, checked in by rblod, 13 years ago

Convert cvs header to svn Id, step II

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 5.0 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   !!  OPA 9.0 , LOCEAN-IPSL (2005)
24   !! $Id$
25   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
26   !!----------------------------------------------------------------------
27   LOGICAL, PUBLIC, PARAMETER ::   lk_obc = .TRUE.   !: Ocean Boundary Condition flag
28
29# if defined key_eel_r5
30   !!----------------------------------------------------------------------
31   !!   'key_eel_r5' :                                 EEL R5 configuration
32   !!----------------------------------------------------------------------
33#    include "obc_par_EEL_R5.h90"
34
35# else
36   !!---------------------------------------------------------------------
37   !! open boundary parameter
38   !!---------------------------------------------------------------------
39   INTEGER, PARAMETER ::     &  !: time dimension of the BCS fields on input
40      jptobc  =         2 
41   !! * EAST open boundary
42   LOGICAL, PARAMETER ::     &  !:
43      lp_obc_east = .FALSE.     !: to active or not the East open boundary
44   INTEGER, PARAMETER ::     &  !:
45      jpieob  = jpiglo-2,    &  !: i-localization of the East open boundary (must be ocean U-point)
46      jpjed   =        2,    &  !: j-starting indice of the East open boundary (must be land T-point)
47      jpjef   = jpjglo-1,    &  !: j-ending   indice of the East open boundary (must be land T-point)
48      jpjedp1 =  jpjed+1,    &  !: first ocean point         "                 "
49      jpjefm1 =  jpjef-1        !: last  ocean point         "                 "
50
51   !! * WEST open boundary
52   LOGICAL, PARAMETER ::     &  !:
53      lp_obc_west = .FALSE.     !: to active or not the West open boundary
54   INTEGER, PARAMETER ::     &  !:
55      jpiwob  =          2,    &  !: i-localization of the West open boundary (must be ocean U-point)
56      jpjwd   =          2,    &  !: j-starting indice of the West open boundary (must be land T-point)
57      jpjwf   = jpjglo-1,    &  !: j-ending   indice of the West open boundary (must be land T-point)
58      jpjwdp1 =  jpjwd+1,    &  !: first ocean point         "                 "
59      jpjwfm1 =  jpjwf-1        !: last  ocean point         "                 "
60
61   !! * NORTH open boundary
62   LOGICAL, PARAMETER ::     &  !:
63      lp_obc_north = .FALSE.    !: to active or not the North open boundary
64   INTEGER, PARAMETER ::     &  !:
65      jpjnob  = jpjglo-2,    &  !: j-localization of the North open boundary (must be ocean V-point)
66      jpind   =        2,    &  !: i-starting indice of the North open boundary (must be land T-point)
67      jpinf   = jpiglo-1,    &  !: i-ending   indice of the North open boundary (must be land T-point)
68      jpindp1 =  jpind+1,    &  !: first ocean point         "                 "
69      jpinfm1 =  jpinf-1        !: last  ocean point         "                 "
70
71   !! * SOUTH open boundary
72   LOGICAL, PARAMETER ::     &  !:
73      lp_obc_south = .FALSE.    !: to active or not the South open boundary
74   INTEGER, PARAMETER ::     &  !:
75      jpjsob  =        2,    &  !: j-localization of the South open boundary (must be ocean V-point)
76      jpisd   =        2,    &  !: i-starting indice of the South open boundary (must be land T-point)
77      jpisf   = jpiglo-1,    &  !: i-ending   indice of the South open boundary (must be land T-point)
78      jpisdp1 =  jpisd+1,    &  !: first ocean point         "                 "
79      jpisfm1 =  jpisf-1        !: last  ocean point         "                 "
80   
81   INTEGER, PARAMETER ::     &  !:
82      jpnic = 2700              !: maximum number of isolated coastlines points
83
84# endif
85
86#else
87   !!----------------------------------------------------------------------
88   !!   Default option :                         NO open boundary condition
89   !!----------------------------------------------------------------------
90   LOGICAL, PUBLIC, PARAMETER ::   lk_obc = .FALSE.  !: Ocean Boundary Condition flag
91#endif
92
93   !!======================================================================
94END MODULE obc_par
Note: See TracBrowser for help on using the repository browser.