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_R4.h90 in branches/2013/dev_MERCATOR_UKMO_2013/NEMOGCM/NEMO/OPA_SRC – NEMO

source: branches/2013/dev_MERCATOR_UKMO_2013/NEMOGCM/NEMO/OPA_SRC/par_ORCA_R4.h90 @ 9088

Last change on this file since 9088 was 4229, checked in by cbricaud, 11 years ago

merge UKMO branch into dev_MERCATOR_UKMO_2013

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