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_POMME_R025.h90 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_POMME_R025.h90 @ 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.1 KB
Line 
1   !!----------------------------------------------------------------------
2   !!                  ***  obc_par_POMME_R025.h90  ***
3   !!----------------------------------------------------------------------
4   !! open boundary parameter : POMME configuration
5   !!---------------------------------------------------------------------
6   !!----------------------------------------------------------------------
7   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
8   !! $Id$
9   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
10   !!----------------------------------------------------------------------
11   INTEGER, PARAMETER ::  jptobc  =       14   
12   !: time dimension of the BCS fields on input
13
14   !! * EAST open boundary
15   LOGICAL, PARAMETER ::     &  !:
16      lp_obc_east = .TRUE.      !:
17
18     INTEGER   &
19#if !defined key_agrif
20     , PARAMETER   &
21#endif
22    ::     &
23      ! * default values *
24      !jpieob = jpiglo-2,    &  !: i-localization of the East open boundary (must be ocean U-point)
25      !jpjed  =        2,    &  !: j-starting indice of the East open boundary (must be land T-point)
26      !jpjef  = jpjglo-1,    &  !: j-ending   indice of the East open boundary (must be land T-point)
27      jpieob = jpiglo-2,    &  !: i-localization of the East open boundary (must be ocean U-point)
28      jpjed  =        1,    &  !: j-starting indice of the East open boundary (must be land T-point)
29      jpjef  =   jpjglo,    &  !: j-ending   indice of the East open boundary (must be land T-point)
30      jpjedp1 =  jpjed+1,    &  !: first ocean point         "                 "
31      jpjefm1 =  jpjef-1        !: last  ocean point         "                 "
32
33   !! * WEST open boundary
34   LOGICAL, PARAMETER ::     &  !:
35      lp_obc_west = .TRUE.     !: to active or not the West open boundary
36
37     INTEGER   &
38#if !defined key_agrif
39     , PARAMETER   &
40#endif
41    ::     &
42      ! * default values *
43      !jpiwob  =        2,   &  !: i-localization of the West open boundary (must be ocean U-point)
44      !jpjwd   =        2,   &  !: j-starting indice of the West open boundary (must be land T-point)
45      !jpjwf   = jpjglo-1,   &  !: j-ending   indice of the West open boundary (must be land T-point)
46      jpiwob  =        2,   &  !: i-localization of the West open boundary (must be ocean U-point)
47      jpjwd   =        1,   &  !: j-starting indice of the West open boundary (must be land T-point)
48      jpjwf   =   jpjglo,   &  !: j-ending   indice of the West open boundary (must be land T-point)
49      jpjwdp1 =  jpjwd+1,    &  !: first ocean point         "                 "
50      jpjwfm1 =  jpjwf-1        !: last  ocean point         "                 "
51
52   !! * NORTH open boundary
53   LOGICAL, PARAMETER ::     &  !:
54      lp_obc_north = .TRUE.     !:
55
56     INTEGER   &
57#if !defined key_agrif
58     , PARAMETER   &
59#endif
60    ::     &
61      ! * default values *
62      !jpjnob = jpjglo-2,    &  !: j-localization of the North open boundary (must be ocean V-point)
63      !jpind  =        2,    &  !: i-starting indice of the North open boundary (must be land T-point)
64      !jpinf  = jpiglo-1,    &  !: i-ending   indice of the North open boundary (must be land T-point)
65      jpjnob = jpjglo-2,    &  !: j-localization of the North open boundary (must be ocean V-point)
66      jpind  =        1,    &  !: i-starting indice of the North open boundary (must be land T-point)
67      jpinf  =   jpiglo,    &  !: 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 = .TRUE.     !: INDICE to active or not the South open boundary
74
75     INTEGER   &
76#if !defined key_agrif
77     , PARAMETER   &
78#endif
79    ::     &
80      ! * default values *
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      jpjsob =        2,    &  !: j-localization of the South open boundary (must be ocean V-point)
85      jpisd  =        1,    &  !: i-starting indice of the South open boundary (must be land T-point)
86      jpisf  =   jpiglo,    &  !: i-ending   indice of the South open boundary (must be land T-point)
87      jpisdp1 =  jpisd+1,    &  !: first ocean point         "                 "
88      jpisfm1 =  jpisf-1        !: last  ocean point         "                 "
89   
90   !! * CHOSE WHERE YOU WANT TO LOCATE THE BAROTROPIC CORRECTION VELOCITY
91   !chd IND025
92   LOGICAL, PARAMETER ::     &  !:
93        lp_obc_east_barotp_corr  = .TRUE.,   & !:
94        lp_obc_west_barotp_corr  = .TRUE.,   & !:
95        lp_obc_north_barotp_corr = .TRUE.,   & !:
96        lp_obc_south_barotp_corr = .TRUE.      !:
97
98   INTEGER, PARAMETER ::     &  !:
99      jpnic = 2700              !: maximum number of isolated coastlines points
100   !!---------------------------------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.