Ticket #1127: par_CONS_BOX.h90

File par_CONS_BOX.h90, 5.3 KB (added by poddo, 7 years ago)
Line 
1   !!---------------------------------------------------------------------
2   !!                     ***  par_GYRE.h90  ***
3   !!   Ocean Domain : GYRE configuration at 1/jp_cfg degree resolution
4   !!---------------------------------------------------------------------
5   !!----------------------------------------------------------------------
6   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
7   !! $Id: par_GYRE.h90 2715 2011-03-30 15:58:35Z rblod $
8   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
9   !!----------------------------------------------------------------------
10   CHARACTER (len=16)      &
11#if !defined key_agrif
12      , PARAMETER  &
13#endif
14      ::    & 
15      cp_cfg = "cons_box"           !: name of the configuration
16   INTEGER     &
17#if !defined key_agrif
18      , PARAMETER  &
19#endif
20      :: &
21      jp_cfg =  1   ,        &  !:
22
23      ! data size              !!! * size of all the input files *
24      jpidta  = 30*jp_cfg+2, &  !: 1st horizontal dimension ( >= jpi )
25      jpjdta  = 20*jp_cfg+2, &  !: 2nd    "            "    ( >= jpj )
26      jpkdta  = 31,          &  !: number of levels         ( >= jpk )
27
28      ! global domain size     !!! * full domain *
29      jpiglo  = jpidta,      &  !: 1st dimension of global domain --> i
30      jpjglo  = jpjdta,      &  !: 2nd    "                  "    --> j
31      ! zoom starting position
32      jpizoom =   1   ,      &  !: left bottom (i,j) indices of the zoom
33      jpjzoom =   1   ,      &  !: in data indices
34
35      ! Domain characteristics
36      jperio  =     0           !: lateral cond. type (between 0 and 6)
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
40   REAL(wp), PARAMETER ::   &  !:
41      pp_not_used       = 999999._wp  , & !: ???
42      pp_to_be_computed =      0._wp      !: ???
43   !!
44   !! Coefficients associated with the horizontal coordinate system (jphgr_msh /= 0 )
45   !!
46   INTEGER,PARAMETER   ::    & !:
47      jphgr_msh = 1            !: type of horizontal mesh
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      !                        ! =5  beta-plane with regular grid-spacing and rotated domain (GYRE configuration)
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.
61   REAL(wp) &
62#if !defined key_agrif
63      , PARAMETER  &
64#endif
65      ::     &  !:
66      ppglam0  =    14.0_wp,   &  !: longitude of first raw and column T-point (jphgr_msh = 1)
67      ppgphi0  =   42.0_wp,   &  !: latitude  of first raw and column T-point (jphgr_msh = 1)
68      !                          ! latitude for the Coriolis or Beta parameter (jphgr_msh = 2 or 3)
69      ppe1_deg = 0.0625 ,   &  !: zonal      grid-spacing (degrees)
70      ppe2_deg = 0.0625 ,   &  !: meridional grid-spacing (degrees)
71      !
72      ppe1_m   = pp_not_used,    &  !: zonal      grid-spacing (meters )
73      ppe2_m   = pp_not_used        !: meridional grid-spacing (meters )
74   !!
75   !!  Coefficients associated with the vertical coordinate system
76   !!
77
78   REAL(wp), PARAMETER  ::       &  !:
79      &     ppsur = -2033.194295283385_wp   ,  &  !:
80      &     ppa0  =  155.8325369664153_wp   ,  &  !:
81      &     ppa1  =  146.3615918601890_wp   ,  &  !:
82      !
83      &     ppkth =  17.28520372419791_wp   ,  &  !: (non dimensional): gives the approximate
84      !                                           !    layer number above which  stretching will
85      !                                           !    be maximum. Usually of order jpk/2.
86      &     ppacr =  5.000000000000000_wp         !: (non dimensional): stretching factor
87      !                                           !    for the grid. The highest zacr, the smallest
88      !                                           !    the stretching.
89
90   !!
91   !!  If all ppa0 ppa1 and ppsur are specified to 0, then
92   !!  they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr
93   !!
94   REAL(wp), PARAMETER ::        &  !:
95      &     ppdzmin = pp_not_used   ,  &  !: (meters): depth of the top (first) model layer
96      !                             !            depth of second "w" level
97      &     pphmax  = pp_not_used         !: (meters): maximum depth of the ocean
98      !                             !            depth of the last "w" level
99   LOGICAL,  PARAMETER ::        &
100      &     ldbletanh = .FALSE.                   !: Use/do not use double tanf function for vertical coordinates
101   REAL(wp), PARAMETER ::        &
102      &     ppa2    = pp_not_used           ,  &  !: Double tanh function parameters
103      &     ppkth2  = pp_not_used           ,  &  !:
104      &     ppacr2  = pp_not_used                 !:
105
106   !!---------------------------------------------------------------------