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_EEL_R5.h90 in trunk/NEMO/OPA_SRC/OBC – NEMO

source: trunk/NEMO/OPA_SRC/OBC/obc_par_EEL_R5.h90 @ 3

Last change on this file since 3 was 3, checked in by opalod, 20 years ago

Initial revision
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 3.0 KB
Line 
1   !!----------------------------------------------------------------------
2   !!                  ***  obc_par_EEL_R5.h90  ***
3   !!----------------------------------------------------------------------
4   !! open boundary parameter : EEL5 configuration
5   !!---------------------------------------------------------------------
6   !! * EAST open boundary
7   LOGICAL, PARAMETER ::     &
8      lpeastobc = .TRUE.       ! to active or not the East open boundary
9   INTEGER, PARAMETER ::     &
10      jpieob  = jpiglo-2,    &  ! i-localization of the East open boundary (must be ocean U-point)
11      jpjed   =        2,    &  ! j-starting indice of the East open boundary (must be land T-point)
12      jpjef   = jpjglo-1,    &  ! j-ending   indice of the East open boundary (must be land T-point)
13      jpjedp1 =  jpjed+1,    &  ! first ocean point         "                 "
14      jpjefm1 =  jpjef-1        ! last  ocean point         "                 "
15
16   !! * WEST open boundary
17   LOGICAL, PARAMETER ::     &
18      lpwestobc = .TRUE.       ! to active or not the West open boundary
19   INTEGER, PARAMETER ::     &
20      jpiwob  =          2,    &  ! i-localization of the West open boundary (must be ocean U-point)
21      jpjwd   =          2,    &  ! j-starting indice of the West open boundary (must be land T-point)
22      jpjwf   = jpjglo-1,    &  ! j-ending   indice of the West open boundary (must be land T-point)
23      jpjwdp1 =  jpjwd+1,    &  ! first ocean point         "                 "
24      jpjwfm1 =  jpjwf-1        ! last  ocean point         "                 "
25
26   !! * NORTH open boundary
27   LOGICAL, PARAMETER ::    &
28      lpnorthobc = .FALSE.     ! to active or not the North open boundary
29   INTEGER, PARAMETER ::     &
30      jpjnob  = jpjglo-2,    &  ! j-localization of the North open boundary (must be ocean V-point)
31      jpind   =        2,    &  ! i-starting indice of the North open boundary (must be land T-point)
32      jpinf   = jpiglo-1,    &  ! i-ending   indice of the North open boundary (must be land T-point)
33      jpindp1 =  jpind+1,    &  ! first ocean point         "                 "
34      jpinfm1 =  jpinf-1        ! last  ocean point         "                 "
35
36   !! * SOUTH open boundary
37   LOGICAL, PARAMETER ::     &
38      lpsouthobc = .FALSE.     ! to active or not the South open boundary
39   INTEGER, PARAMETER ::     &
40      jpjsob  =        2,    &  ! j-localization of the South open boundary (must be ocean V-point)
41      jpisd   =        2,    &  ! i-starting indice of the South open boundary (must be land T-point)
42      jpisf   = jpiglo-1,    &  ! i-ending   indice of the South open boundary (must be land T-point)
43      jpisdp1 =  jpisd+1,    &  ! first ocean point         "                 "
44      jpisfm1 =  jpisf-1        ! last  ocean point         "                 "
45   
46   INTEGER, PARAMETER ::     &
47      jpnic = 2700              ! maximum number of isolated coastlines points
48   !!---------------------------------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.