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.
par_ORCA_R2.h90 in tags/nemo_v1_09/NEMO/OPA_SRC – NEMO

source: tags/nemo_v1_09/NEMO/OPA_SRC/par_ORCA_R2.h90 @ 6391

Last change on this file since 6391 was 359, checked in by opalod, 19 years ago

nemo_v1_update_033 : RB + CT : Add new surface pressure gradient algorithms

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 7.8 KB
Line 
1   !!---------------------------------------------------------------------
2   !!                     ***  par_ORCA_R2.h90  *** 
3   !!   Ocean Domain : 2 degrees resolution global ocean
4   !!                  (0RCA_R2 configuration)
5   !!---------------------------------------------------------------------
6   !!----------------------------------------------------------------------
7   !!  OPA 9.0 , LOCEAN-IPSL (2005)
8   !! $Header$
9   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
10   !!----------------------------------------------------------------------
11   CHARACTER (len=16), PARAMETER ::    & 
12      cp_cfg = "orca"           !: name of the configuration
13   INTEGER, PARAMETER ::     &
14      jp_cfg = 2,            &  !: resolution of the configuration (degrees)
15
16      ! data size              !!! * size of all input files *
17      jpidta  = 182,         &  !: 1st lateral dimension ( >= jpiglo )
18      jpjdta  = 149,         &  !: 2nd    "       "      ( >= jpjglo )
19      jpkdta  = 31              !: number of levels      ( >= jpk    )
20
21#if defined key_antarctic
22      ! zoom domain size       !!! *  antarctic zoom  *
23   INTEGER, PARAMETER ::     &
24      jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i
25      jpjglo  = 50,          &  !: 2nd    "                  "    --> j
26      jpk     = jpkdta,      &  !: number of vertical levels
27      ! zoom starting position
28      jpizoom =   1   ,      &  !: left bottom (i,j) indices of the zoom
29      jpjzoom =   1   ,      &  !: in data domain indices
30      ! Domain characteristics
31      jperio  =   1   ,      &  !: lateral cond. type (between 0 and 6)
32      jpisl   =   3   ,      &  !: number of islands
33      jpnisl  = 400             !: maximum number of points per island
34
35#elif defined key_arctic
36      ! zoom domain size       !!! *  arctic zoom  *
37   INTEGER, PARAMETER ::     &
38      jpiglo  = 142   ,      &  !: 1st dimension of global domain --> i
39      jpjglo  = jpjdta-97+1, &  !: 2nd    "                  "    --> j
40      jpk     = jpkdta,      &  !: number of vertical levels
41      ! zoom starting position
42      jpizoom =  21   ,      &  !: left bottom (i,j) indices of the zoom
43      jpjzoom =  97   ,      &  !: in data domain indices
44      ! Domain characteristics
45      jperio  =   3   ,      &  !: lateral cond. type (between 0 and 6)
46      jpisl   =   7   ,      &  !: number of islands
47      jpnisl  = 400             !: maximum number of points per island
48
49#elif defined key_cfg_1d
50      ! global domain size     !!! *  global domain  *
51   INTEGER, PARAMETER ::     &
52      jpiglo  = 3     ,      &  !: 1st dimension of global domain --> i
53      jpjglo  = 3     ,      &  !: 2nd    "                  "    --> j
54      jpk     = jpkdta,      &  !: number of vertical levels
55      ! starting position of the zoom
56      ! jpizoom =   61   ,    &  !: left bottom (i,j) indices of the zoom
57      ! jpjzoom =   133  ,    &  !: in data domain indices (160W,75N)
58      ! jpizoom =   61   ,    &  !: left bottom (i,j) indices of the zoom
59      ! jpjzoom =   110  ,    &  !: in data domain indices (160W,50N)
60      ! jpizoom =   61   ,    &  !: left bottom (i,j) indices of the zoom
61      ! jpjzoom =   97   ,    &  !: in data domain indices (160W,30N)
62      ! jpizoom =   61   ,    &  !: left bottom (i,j) indices of the zoom
63      ! jpjzoom =   86   ,    &  !: in data domain indices (160W,10N)
64      ! jpizoom =   61   ,    &  !: left bottom (i,j) indices of the zoom
65      ! jpjzoom =   49   ,    &  !: in data domain indices (160W,30S)
66      ! jpizoom =   61   ,    &  !: left bottom (i,j) indices of the zoom
67      ! jpjzoom =   27   ,    &  !: in data domain indices (160W,60S)
68      jpizoom =   61   ,    &  !: left bottom (i,j) indices of the zoom
69      jpjzoom =    7   ,    &  !: in data domain indices (160W,75S)
70      ! Domain characteristics
71      jperio  =   0   ,      &  !: lateral cond. type (between 0 and 6)
72      jpisl   =  18   ,      &  !: number of islands
73      jpnisl  = 800             !: maximum number of points per island
74#else
75      ! global domain size     !!! *  global domain  *
76   INTEGER, PARAMETER ::     &
77      jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i
78      jpjglo  = jpjdta,      &  !: 2nd    "                  "    --> j
79      jpk     = jpkdta,      &  !: number of vertical levels
80      ! starting position of the zoom
81      jpizoom =   1   ,      &  !: left bottom (i,j) indices of the zoom
82      jpjzoom =   1   ,      &  !: in data domain indices
83      ! Domain characteristics
84      jperio  =   4   ,      &  !: lateral cond. type (between 0 and 6)
85      jpisl   =  18   ,      &  !: number of islands
86      jpnisl  = 800             !: maximum number of points per island
87#endif
88
89   !!  Values set to pp_not_used indicates that this parameter is not used in THIS config.
90   !!  Values set to pp_to_be_computed  indicates that variables will be computed in domzgr
91   REAL(wp), PARAMETER ::   &
92      pp_not_used       = 999999_wp , &  !:
93      pp_to_be_computed = 0._wp          !:
94
95   !! Coefficients associated with the horizontal coordinate system (jphgr_msh /= 0 )
96
97   INTEGER,PARAMETER   ::    & !
98      jphgr_msh = 0            !: type of horizontal mesh
99      !                        !  = 0 curvilinear coordinate on the sphere
100      !                        !      read in coordinate.nc file
101      !                        !  = 1 geographical mesh on the sphere
102      !                        !      with regular grid-spacing
103      !                        !  = 2 f-plane with regular grid-spacing
104      !                        !  = 3 beta-plane with regular grid-spacing
105      !                        !  = 4 Mercator grid with T/U point at the equator  with
106      !                        !      isotropic resolution (e1_deg)
107
108      !   ppglam0 , ppgphi0: coordinates of the lower leftmost T point of the grid.
109      !   The mercator grid starts only approximately at gphi0 because
110      !   of the constraint that the equator be a T point.
111   REAL(wp) ,PARAMETER ::       &  !
112      ppglam0  = pp_not_used,   &  !: longitude of first raw and column T-point (jphgr_msh = 1)
113      ppgphi0  = pp_not_used,   &  !: latitude  of first raw and column T-point (jphgr_msh = 1)
114      !                            !  latitude for the Coriolis or Beta parameter (jphgr_msh = 2 or 3)
115      ppe1_deg = pp_not_used,   &  !: zonal      grid-spacing (degrees)
116      ppe2_deg = pp_not_used,   &  !: meridional grid-spacing (degrees)
117      !
118      ppe1_m   = pp_not_used,   &  !: zonal      grid-spacing (meters )
119      ppe2_m   = pp_not_used       !: meridional grid-spacing (meters )
120
121   !!
122   !! Vertical grid parameter for domzgr
123   !! ==================================
124   !!
125   REAL(wp), PARAMETER  ::       &
126      &     ppsur = -4762.96143546300_wp    ,  &  !: ORCA r4, r2 and r05 coefficients
127      &     ppa0  =   255.58049070440_wp    ,  &  !: (default coefficients)
128      &     ppa1  =   245.58132232490_wp    ,  &  !:
129      &     ppkth =    21.43336197938_wp    ,  &  !: (non dimensional): gives the approximate
130      !                                           !: layer number above which  stretching will
131      !                                           !: be maximum. Usually of order jpk/2.
132      &     ppacr =     3.00000000000_wp          !: (non dimensional): stretching factor
133      !                                           !: for the grid. The highest zacr, the smallest
134      !                                           !: the stretching.
135
136   !!
137   !!  If both ppa0 ppa1 and ppsur are specified to 0, then
138   !!  they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr
139   !!
140   REAL(wp), PARAMETER ::        &
141      &     ppdzmin = pp_not_used           ,  &  !: (meters) vertical thickness of the top layer
142      &     pphmax  = pp_not_used                 !: (meters) Maximum depth of the ocean gdepw(jpk)
143   !!---------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.