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 tags/nemo_v3_2/nemo_v3_2/NEMO/OPA_SRC/OBC – NEMO

source: tags/nemo_v3_2/nemo_v3_2/NEMO/OPA_SRC/OBC/obc_par_POMME_R025.h90 @ 1878

Last change on this file since 1878 was 1878, checked in by flavoni, 14 years ago

initial test for nemogcm

File size: 4.7 KB
Line 
1   !!----------------------------------------------------------------------
2   !!                  ***  obc_par_POMME_R025.h90  ***
3   !!----------------------------------------------------------------------
4   !! open boundary parameter : POMME configuration
5   !!---------------------------------------------------------------------
6     INTEGER, PARAMETER ::     &  !: time dimension of the BCS fields on input
7      jptobc  =         14
8
9   !! * EAST open boundary
10   LOGICAL, PARAMETER ::     &  !:
11      lp_obc_east = .TRUE.      !:
12   INTEGER, PARAMETER ::     &  !:
13
14      ! * default values *
15      !jpieob = jpiglo-2,    &  !: i-localization of the East open boundary (must be ocean U-point)
16      !jpjed  =        2,    &  !: j-starting indice of the East open boundary (must be land T-point)
17      !jpjef  = jpjglo-1,    &  !: j-ending   indice of the East open boundary (must be land T-point)
18
19      jpieob = jpiglo-2,    &  !: i-localization of the East open boundary (must be ocean U-point)
20      jpjed  =        1,    &  !: j-starting indice of the East open boundary (must be land T-point)
21      jpjef  =   jpjglo,    &  !: j-ending   indice of the East open boundary (must be land T-point)
22
23      jpjedp1 =  jpjed+1,    &  !: first ocean point         "                 "
24      jpjefm1 =  jpjef-1        !: last  ocean point         "                 "
25
26   !! * WEST open boundary
27   LOGICAL, PARAMETER ::     &  !:
28      lp_obc_west = .TRUE.     !: to active or not the West open boundary
29   INTEGER, PARAMETER ::     &  !:
30
31      ! * default values *
32      !jpiwob  =        2,   &  !: i-localization of the West open boundary (must be ocean U-point)
33      !jpjwd   =        2,   &  !: j-starting indice of the West open boundary (must be land T-point)
34      !jpjwf   = jpjglo-1,   &  !: j-ending   indice of the West open boundary (must be land T-point)
35
36      jpiwob  =        2,   &  !: i-localization of the West open boundary (must be ocean U-point)
37      jpjwd   =        1,   &  !: j-starting indice of the West open boundary (must be land T-point)
38      jpjwf   =   jpjglo,   &  !: j-ending   indice of the West open boundary (must be land T-point)
39
40      jpjwdp1 =  jpjwd+1,    &  !: first ocean point         "                 "
41      jpjwfm1 =  jpjwf-1        !: last  ocean point         "                 "
42
43   !! * NORTH open boundary
44   LOGICAL, PARAMETER ::     &  !:
45      lp_obc_north = .TRUE.     !:
46   INTEGER, PARAMETER ::     &  !:
47
48      ! * default values *
49      !jpjnob = jpjglo-2,    &  !: j-localization of the North open boundary (must be ocean V-point)
50      !jpind  =        2,    &  !: i-starting indice of the North open boundary (must be land T-point)
51      !jpinf  = jpiglo-1,    &  !: i-ending   indice of the North open boundary (must be land T-point)
52
53      jpjnob = jpjglo-2,    &  !: j-localization of the North open boundary (must be ocean V-point)
54      jpind  =        1,    &  !: i-starting indice of the North open boundary (must be land T-point)
55      jpinf  =   jpiglo,    &  !: i-ending   indice of the North open boundary (must be land T-point)
56
57      jpindp1 =  jpind+1,    &  !: first ocean point         "                 "
58      jpinfm1 =  jpinf-1        !: last  ocean point         "                 "
59
60   !! * SOUTH open boundary
61   LOGICAL, PARAMETER ::     &  !:
62      lp_obc_south = .TRUE.     !: INDICE to active or not the South open boundary
63   INTEGER, PARAMETER ::     &  !:
64
65      ! * default values *
66      !jpjsob =        2,    &  !: j-localization of the South open boundary (must be ocean V-point)
67      !jpisd  =        2,    &  !: i-starting indice of the South open boundary (must be land T-point)
68      !jpisf  = jpiglo-1,    &  !: i-ending   indice of the South open boundary (must be land T-point)
69
70      jpjsob =        2,    &  !: j-localization of the South open boundary (must be ocean V-point)
71      jpisd  =        1,    &  !: i-starting indice of the South open boundary (must be land T-point)
72      jpisf  =   jpiglo,    &  !: i-ending   indice of the South open boundary (must be land T-point)
73
74      jpisdp1 =  jpisd+1,    &  !: first ocean point         "                 "
75      jpisfm1 =  jpisf-1        !: last  ocean point         "                 "
76   
77   !! * CHOSE WHERE YOU WANT TO LOCATE THE BAROTROPIC CORRECTION VELOCITY
78   !chd IND025
79   LOGICAL, PARAMETER ::     &  !:
80        lp_obc_east_barotp_corr  = .TRUE.,   & !:
81        lp_obc_west_barotp_corr  = .TRUE.,   & !:
82        lp_obc_north_barotp_corr = .TRUE.,   & !:
83        lp_obc_south_barotp_corr = .TRUE.      !:
84
85   INTEGER, PARAMETER ::     &  !:
86      jpnic = 2700              !: maximum number of isolated coastlines points
87   !!---------------------------------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.