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

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

Add POMME configuration, step1, see ticket #554

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 5.2 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# elif defined key_pomme_r025
36   !!----------------------------------------------------------------------
37   !!   'key_pomme_r025' :                         POMME R025 configuration
38   !!----------------------------------------------------------------------
39#    include "obc_par_POMME_R025.h90"
40
41# else
42   !!---------------------------------------------------------------------
43   !! open boundary parameter
44   !!---------------------------------------------------------------------
45   INTEGER, PARAMETER ::     &  !: time dimension of the BCS fields on input
46      jptobc  =         2 
47   !! * EAST open boundary
48   LOGICAL, PARAMETER ::     &  !:
49      lp_obc_east = .FALSE.     !: to active or not the East open boundary
50   INTEGER, PARAMETER ::     &  !:
51      jpieob  = jpiglo-2,    &  !: i-localization of the East open boundary (must be ocean U-point)
52      jpjed   =        2,    &  !: j-starting indice of the East open boundary (must be land T-point)
53      jpjef   = jpjglo-1,    &  !: j-ending   indice of the East open boundary (must be land T-point)
54      jpjedp1 =  jpjed+1,    &  !: first ocean point         "                 "
55      jpjefm1 =  jpjef-1        !: last  ocean point         "                 "
56
57   !! * WEST open boundary
58   LOGICAL, PARAMETER ::     &  !:
59      lp_obc_west = .FALSE.     !: to active or not the West open boundary
60   INTEGER, PARAMETER ::     &  !:
61      jpiwob  =          2,    &  !: i-localization of the West open boundary (must be ocean U-point)
62      jpjwd   =          2,    &  !: j-starting indice of the West open boundary (must be land T-point)
63      jpjwf   = jpjglo-1,    &  !: j-ending   indice of the West open boundary (must be land T-point)
64      jpjwdp1 =  jpjwd+1,    &  !: first ocean point         "                 "
65      jpjwfm1 =  jpjwf-1        !: last  ocean point         "                 "
66
67   !! * NORTH open boundary
68   LOGICAL, PARAMETER ::     &  !:
69      lp_obc_north = .FALSE.    !: to active or not the North open boundary
70   INTEGER, PARAMETER ::     &  !:
71      jpjnob  = jpjglo-2,    &  !: j-localization of the North open boundary (must be ocean V-point)
72      jpind   =        2,    &  !: i-starting indice of the North open boundary (must be land T-point)
73      jpinf   = jpiglo-1,    &  !: i-ending   indice of the North open boundary (must be land T-point)
74      jpindp1 =  jpind+1,    &  !: first ocean point         "                 "
75      jpinfm1 =  jpinf-1        !: last  ocean point         "                 "
76
77   !! * SOUTH open boundary
78   LOGICAL, PARAMETER ::     &  !:
79      lp_obc_south = .FALSE.    !: to active or not the South open boundary
80   INTEGER, PARAMETER ::     &  !:
81      jpjsob  =        2,    &  !: j-localization of the South open boundary (must be ocean V-point)
82      jpisd   =        2,    &  !: i-starting indice of the South open boundary (must be land T-point)
83      jpisf   = jpiglo-1,    &  !: i-ending   indice of the South open boundary (must be land T-point)
84      jpisdp1 =  jpisd+1,    &  !: first ocean point         "                 "
85      jpisfm1 =  jpisf-1        !: last  ocean point         "                 "
86   
87   INTEGER, PARAMETER ::     &  !:
88      jpnic = 2700              !: maximum number of isolated coastlines points
89
90# endif
91
92#else
93   !!----------------------------------------------------------------------
94   !!   Default option :                         NO open boundary condition
95   !!----------------------------------------------------------------------
96   LOGICAL, PUBLIC, PARAMETER ::   lk_obc = .FALSE.  !: Ocean Boundary Condition flag
97#endif
98
99   !!======================================================================
100END MODULE obc_par
Note: See TracBrowser for help on using the repository browser.