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

source: trunk/NEMOGCM/NEMO/OPA_SRC/par_EEL_R6.h90 @ 2731

Last change on this file since 2731 was 2715, checked in by rblod, 14 years ago

First attempt to put dynamic allocation on the trunk

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