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_oce.F90 in branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC – NEMO

source: branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/par_oce.F90 @ 11738

Last change on this file since 11738 was 11738, checked in by marc, 4 years ago

The Dr Hook changes from my perl code.

File size: 6.5 KB
Line 
1MODULE par_oce
2   !!======================================================================
3   !!                        ***  par_oce  ***
4   !! Ocean :   set the ocean parameters
5   !!======================================================================
6   !! History :  OPA  !  1991     (Imbard, Levy, Madec)  Original code
7   !!   NEMO     1.0  !  2004-01  (G. Madec, J.-M. Molines)  Free form and module
8   !!            3.3  !  2010-09  (C. Ethe) TRA-TRC merge: add jpts, jp_tem & jp_sal
9   !!----------------------------------------------------------------------
10   USE par_kind          ! kind parameters
11
12   USE yomhook, ONLY: lhook, dr_hook
13   USE parkind1, ONLY: jprb, jpim
14
15   IMPLICIT NONE
16   PUBLIC
17
18   !!----------------------------------------------------------------------
19   !!   Domain decomposition
20   !!----------------------------------------------------------------------
21   !! if we dont use massively parallel computer (parameters jpni=jpnj=1) so jpiglo=jpi and jpjglo=jpj
22   INTEGER, PUBLIC            ::   jpni         !: number of processors following i
23   INTEGER, PUBLIC            ::   jpnj         !: number of processors following j
24   INTEGER, PUBLIC            ::   jpnij        !: nb of local domain = nb of processors ( <= jpni x jpnj )
25   INTEGER, PUBLIC, PARAMETER ::   jpr2di = 0   !: number of columns for extra outer halo
26   INTEGER, PUBLIC, PARAMETER ::   jpr2dj = 0   !: number of rows    for extra outer halo
27   INTEGER, PUBLIC, PARAMETER ::   jpreci = 1   !: number of columns for overlap
28   INTEGER, PUBLIC, PARAMETER ::   jprecj = 1   !: number of rows    for overlap
29
30   !!----------------------------------------------------------------------
31   !!                   namcfg namelist parameters
32   !!----------------------------------------------------------------------
33   CHARACTER(lc) ::   cp_cfg           !: name of the configuration
34   CHARACTER(lc) ::   cp_cfz           !: name of the zoom of configuration
35   INTEGER       ::   jp_cfg           !: resolution of the configuration
36
37   ! data size                                       !!! * size of all input files *
38   INTEGER       ::   jpidta           !: 1st lateral dimension ( >= jpi )
39   INTEGER       ::   jpjdta           !: 2nd    "         "    ( >= jpj )
40   INTEGER       ::   jpkdta           !: number of levels      ( >= jpk )
41
42   ! global or zoom domain size                      !!! * computational domain *
43   INTEGER       ::   jpiglo           !: 1st dimension of global domain --> i
44   INTEGER       ::   jpjglo           !: 2nd    -                  -    --> j
45
46   ! zoom starting position
47   INTEGER       ::   jpizoom          !: left bottom (i,j) indices of the zoom
48   INTEGER       ::   jpjzoom          !: in data domain indices
49
50   ! Domain characteristics
51   INTEGER       ::   jperio           !: lateral cond. type (between 0 and 6)
52   !                                       !  = 0 closed                 ;   = 1 cyclic East-West
53   !                                       !  = 2 equatorial symmetric   ;   = 3 North fold T-point pivot
54   !                                       !  = 4 cyclic East-West AND North fold T-point pivot
55   !                                       !  = 5 North fold F-point pivot
56   !                                       !  = 6 cyclic East-West AND North fold F-point pivot
57
58   ! Input file read offset
59   LOGICAL       ::   ln_use_jattr     !: Use file global attribute: open_ocean_jstart to determine start j-row
60                                           ! when reading input from those netcdf files that have the
61                                           ! attribute defined. This is designed to enable input files associated
62                                           ! with the extended grids used in the under ice shelf configurations to
63                                           ! be used without redundant rows when the ice shelves are not in use.
64
65   !!  Values set to pp_not_used indicates that this parameter is not used in THIS config.
66   !!  Values set to pp_to_be_computed  indicates that variables will be computed in domzgr
67   REAL(wp)      ::   pp_not_used       = 999999._wp   !: vertical grid parameter
68   REAL(wp)      ::   pp_to_be_computed = 999999._wp   !:    -      -       -
69
70
71
72
73   !!---------------------------------------------------------------------
74   !! Active tracer parameters
75   !!---------------------------------------------------------------------
76   INTEGER, PUBLIC, PARAMETER ::   jpts   = 2    !: Number of active tracers (=2, i.e. T & S )
77   INTEGER, PUBLIC, PARAMETER ::   jp_tem = 1    !: indice for temperature
78   INTEGER, PUBLIC, PARAMETER ::   jp_sal = 2    !: indice for salinity
79
80   !!---------------------------------------------------------------------
81   !! Domain Matrix size  (if AGRIF, they are not all parameters)
82   !!---------------------------------------------------------------------
83#if defined key_agrif
84   INTEGER, PUBLIC, PARAMETER ::   nbghostcells = 1                             !: number of ghost cells
85   INTEGER, PUBLIC            ::   nbcellsx     = jpiglo - 2 - 2*nbghostcells   !: number of cells in i-direction
86   INTEGER, PUBLIC            ::   nbcellsy     = jpjglo - 2 - 2*nbghostcells   !: number of cells in j-direction
87   !
88#endif
89   INTEGER, PUBLIC  ::   jpi   ! = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci   !: first  dimension
90   INTEGER, PUBLIC  ::   jpj   ! = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj   !: second dimension
91   INTEGER, PUBLIC  ::   jpk   ! = jpkdta
92   INTEGER, PUBLIC  ::   jpim1 ! = jpi-1                                            !: inner domain indices
93   INTEGER, PUBLIC  ::   jpjm1 ! = jpj-1                                            !:   -     -      -
94   INTEGER, PUBLIC  ::   jpkm1 ! = jpk-1                                            !:   -     -      -
95   INTEGER, PUBLIC  ::   jpij  ! = jpi*jpj                                          !:  jpi x jpj
96
97   !!---------------------------------------------------------------------
98   !! Optimization/control flags
99   !!---------------------------------------------------------------------
100#if defined key_esopa
101   LOGICAL, PUBLIC, PARAMETER ::   lk_esopa     = .TRUE.   !: flag to activate the all options
102#else
103   LOGICAL, PUBLIC, PARAMETER ::   lk_esopa     = .FALSE.  !: flag to activate the all options
104#endif
105
106   !!----------------------------------------------------------------------
107   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
108   !! $Id$
109   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
110   !!======================================================================
111END MODULE par_oce
Note: See TracBrowser for help on using the repository browser.