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_EEL_R5.h90 in branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC – NEMO

source: branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/par_EEL_R5.h90 @ 2382

Last change on this file since 2382 was 2379, checked in by acc, 14 years ago

nemo_v3_3beta. First stage of adding ORCA1 support. See ticket #758. Added optional double tanh function for vertical grid

  • Property svn:keywords set to Id
File size: 5.2 KB
RevLine 
[3]1   !!---------------------------------------------------------------------
2   !!                     ***  par_EEL_R5.h90  ***   
3   !!   Ocean Domain : 5 km resolution Channel (EEL_R5 configuration)
4   !!---------------------------------------------------------------------
[247]5   !!----------------------------------------------------------------------
[2287]6   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
[1152]7   !! $Id$
[2287]8   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
[247]9   !!----------------------------------------------------------------------
[389]10   CHARACTER (len=16)      &
[392]11#if !defined key_agrif
[389]12      , PARAMETER  &
13#endif
14      ::    & 
[443]15      cp_cfg = "eel"            !: name of the configuration
[389]16   INTEGER     &
[392]17#if !defined key_agrif
[389]18      , PARAMETER  &
19#endif
20      :: &
[15]21      jp_cfg = 5      ,      &  !: resolution of the configuration (km)
[3]22
23      ! data size              !!! * size of all the input files
[593]24      jpidta  =  66   ,      &  !: first horizontal dimension > or = to jpi
25      jpjdta  =  66   ,      &  !: second                     > or = to jpj
26      jpkdta  =  31   ,      &  !: number of levels           > or = to jpk
[3]27
28      ! total domain size      !!! * full domain *
[15]29      jpiglo  = jpidta,      &  !: first  dimension of global domain --> i
30      jpjglo  = jpjdta,      &  !: second dimension of global domain --> j
31      jpk     = jpkdta,      &  !: number of vertical levels
[3]32      ! zoom starting position
[15]33      jpizoom =   1   ,      &  !: left bottom (i,j) indices of the zoom
34      jpjzoom =   1   ,      &  !: in data indices
[3]35
36      ! Domain characteristics
[1528]37      jperio  =   1             !: lateral cond. type (between 0 and 6)
[3]38
39   !!  Values set to pp_not_used indicates that this parameter is not used in THIS config.
40   !!  Values set to pp_to_be_computed  indicates that variables will be computed in domzgr
[15]41   REAL(wp), PARAMETER ::   &  !:
[3]42      pp_not_used       = 999999._wp ,  &  !:
43      pp_to_be_computed =      0._wp       !:
44
45   !! Coefficients associated with the horizontal coordinate system (jphgr_msh /= 0 )
46
[15]47   INTEGER,PARAMETER   ::    & !:
48      jphgr_msh = 2            !: type of horizontal mesh
[3]49      !                        ! = 0 curvilinear coordinate on the sphere
50      !                        !     read in coordinate.nc file
51      !                        ! = 1 geographical mesh on the sphere
52      !                        !     with regular grid-spacing
53      !                        ! = 2 f-plane with regular grid-spacing
54      !                        ! = 3 beta-plane with regular grid-spacing
55      !                        ! = 4 Mercator grid with T/U point at the equator  with
56      !                        !     isotropic resolution (e1_deg)
57
58      !   ppglam0 , ppgphi0: coordinates of the lower leftmost T point of the grid.
59      !   The mercator grid starts only approximately at gphi0 because
60      !   of the constraint that the equator be a T point.
[443]61   REAL(wp) &
62#if !defined key_agrif
63      , PARAMETER  &
64#endif
65      ::     &  !:
[15]66      ppglam0  =    0.0_wp,   &  !: longitude of first raw and column T-point (jphgr_msh = 1)
[593]67      ppgphi0  = 43.436430714_wp,   &  !: latitude  of first raw and column T-point (jphgr_msh = 1)
[3]68      !                          ! latitude for the Coriolis or Beta parameter (jphgr_msh = 2 or 3)
[15]69      ppe1_deg = pp_not_used,   &  !: zonal      grid-spacing (degrees)
70      ppe2_deg = pp_not_used,   &  !: meridional grid-spacing (degrees)
[3]71      !
[593]72      ppe1_m   = 8000.0_wp,   &  !: zonal      grid-spacing (meters)
73      ppe2_m   = 8000.0_wp       !: meridional grid-spacing (meters)
[3]74   !!
75   !!  Coefficients associated with the vertical coordinate system
76   !!
[15]77   REAL(wp), PARAMETER  ::       &   !:
[593]78      &     ppsur = -4762.96143546300_wp    ,  &  !: Computed in domzgr, set ppdzmin, pphmax below
79      &     ppa0  =   255.58049070440_wp    ,  &  !:
80      &     ppa1  =   245.58132232490_wp    ,  &  !:
[3]81      !
[593]82      &     ppkth =    21.43336197938_wp    ,  &  !: (non dimensional): gives the approximate
[56]83      !                                           !: layer number above which  stretching will
84      !                                           !: be maximum. Usually of order jpk/2.
[593]85      &     ppacr =     3.00000000000_wp          !: (non dimensional): stretching factor
[56]86      !                                           !: for the grid. The highest zacr, the smallest
87      !                                           !: the stretching.
[3]88
89   !!
90   !!  If both ppa0 ppa1 and ppsur are specified to 0, then
91   !!  they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr
92   !!
[15]93   REAL(wp), PARAMETER ::        &  !:
[593]94      &     ppdzmin = pp_not_used           ,  &  !: (meters) vertical thickness of the top layer
95      &     pphmax  = pp_not_used                 !: (meters) Maximum depth of the ocean gdepw(jpk)
[2379]96   LOGICAL,  PARAMETER ::        &
97      &     ldbletanh = .FALSE.                   !: Use/do not use double tanf function for vertical coordinates
98   REAL(wp), PARAMETER ::        &
99      &     ppa2    = pp_not_used           ,  &  !: Double tanh function parameters
100      &     ppkth2  = pp_not_used           ,  &  !:
101      &     ppacr2  = pp_not_used                 !:
[3]102   !!---------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.