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 NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/OCE – NEMO

source: NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/OCE/par_oce.F90 @ 14548

Last change on this file since 14548 was 12377, checked in by acc, 4 years ago

The big one. Merging all 2019 developments from the option 1 branch back onto the trunk.

This changeset reproduces 2019/dev_r11943_MERGE_2019 on the trunk using a 2-URL merge
onto a working copy of the trunk. I.e.:

svn merge --ignore-ancestry \

svn+ssh://acc@forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/NEMO/trunk \
svn+ssh://acc@forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/NEMO/branches/2019/dev_r11943_MERGE_2019 ./

The --ignore-ancestry flag avoids problems that may otherwise arise from the fact that
the merge history been trunk and branch may have been applied in a different order but
care has been taken before this step to ensure that all applicable fixes and updates
are present in the merge branch.

The trunk state just before this step has been branched to releases/release-4.0-HEAD
and that branch has been immediately tagged as releases/release-4.0.2. Any fixes
or additions in response to tickets on 4.0, 4.0.1 or 4.0.2 should be done on
releases/release-4.0-HEAD. From now on future 'point' releases (e.g. 4.0.2) will
remain unchanged with periodic releases as needs demand. Note release-4.0-HEAD is a
transitional naming convention. Future full releases, say 4.2, will have a release-4.2
branch which fulfills this role and the first point release (e.g. 4.2.0) will be made
immediately following the release branch creation.

2020 developments can be started from any trunk revision later than this one.

  • Property svn:keywords set to Id
File size: 5.6 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   IMPLICIT NONE
13   PUBLIC
14
15   !!----------------------------------------------------------------------
16   !!                   namcfg namelist parameters
17   !!----------------------------------------------------------------------
18   LOGICAL       ::   ln_read_cfg      !: (=T) read the domain configuration file or (=F) not
19   CHARACTER(lc) ::      cn_domcfg        !: filename the configuration file to be read
20   LOGICAL       ::   ln_write_cfg     !: (=T) create the domain configuration file
21   CHARACTER(lc) ::      cn_domcfg_out    !: filename the configuration file to be read
22   !
23   LOGICAL       ::   ln_use_jattr     !: input file read offset
24   !                                   !  Use file global attribute: open_ocean_jstart to determine start j-row
25   !                                   !  when reading input from those netcdf files that have the
26   !                                   !  attribute defined. This is designed to enable input files associated
27   !                                   !  with the extended grids used in the under ice shelf configurations to
28   !                                   !  be used without redundant rows when the ice shelves are not in use.
29   LOGICAL       ::   ln_closea        !: (=T) special treatment of closed sea
30   !
31
32   !!---------------------------------------------------------------------
33   !! Domain Matrix size
34   !!---------------------------------------------------------------------
35   ! configuration name & resolution   (required only in ORCA family case)
36   CHARACTER(lc) ::   cn_cfg           !: name of the configuration
37   INTEGER       ::   nn_cfg           !: resolution of the configuration
38
39   ! time dimension
40   INTEGER, PUBLIC, PARAMETER :: jpt = 3    !: time dimension
41
42   ! global domain size               !!! * total computational domain *
43   INTEGER       ::   jpiglo           !: 1st dimension of global domain --> i-direction
44   INTEGER       ::   jpjglo           !: 2nd    -                  -    --> j-direction
45   INTEGER       ::   jpkglo           !: 3nd    -                  -    --> k levels
46
47   ! global domain size for AGRIF     !!! * total AGRIF computational domain *
48   INTEGER, PUBLIC            ::   nbug_in_agrif_conv_do_not_remove_or_modify = 1 - 1
49   INTEGER, PUBLIC, PARAMETER ::   nbghostcells = 3                             !: number of ghost cells
50   INTEGER, PUBLIC            ::   nbcellsx   ! = jpiglo - 2 - 2*nbghostcells   !: number of cells in i-direction
51   INTEGER, PUBLIC            ::   nbcellsy   ! = jpjglo - 2 - 2*nbghostcells   !: number of cells in j-direction
52
53   ! local domain size                !!! * local computational domain *
54   INTEGER, PUBLIC ::   jpi   !                                                    !: first  dimension
55   INTEGER, PUBLIC ::   jpj   !                                                    !: second dimension
56   INTEGER, PUBLIC ::   jpk   ! = jpkglo                                           !: third  dimension
57   INTEGER, PUBLIC ::   jpim1 ! = jpi-1                                            !: inner domain indices
58   INTEGER, PUBLIC ::   jpjm1 ! = jpj-1                                            !:   -     -      -
59   INTEGER, PUBLIC ::   jpkm1 ! = jpk-1                                            !:   -     -      -
60   INTEGER, PUBLIC ::   jpij  ! = jpi*jpj                                          !:  jpi x jpj
61   INTEGER, PUBLIC ::   jpimax! = ( jpiglo-2*nn_hls + (jpni-1) ) / jpni + 2*nn_hls !: maximum jpi
62   INTEGER, PUBLIC ::   jpjmax! = ( jpjglo-2*nn_hls + (jpnj-1) ) / jpnj + 2*nn_hls !: maximum jpj
63
64   !!---------------------------------------------------------------------
65   !! Active tracer parameters
66   !!---------------------------------------------------------------------
67   INTEGER, PUBLIC, PARAMETER ::   jpts   = 2    !: Number of active tracers (=2, i.e. T & S )
68   INTEGER, PUBLIC, PARAMETER ::   jp_tem = 1    !: indice for temperature
69   INTEGER, PUBLIC, PARAMETER ::   jp_sal = 2    !: indice for salinity
70
71   !!----------------------------------------------------------------------
72   !!   Domain decomposition
73   !!----------------------------------------------------------------------
74   !! if we dont use massively parallel computer (parameters jpni=jpnj=1) so jpiglo=jpi and jpjglo=jpj
75   INTEGER, PUBLIC            ::   jpni         !: number of processors following i
76   INTEGER, PUBLIC            ::   jpnj         !: number of processors following j
77   INTEGER, PUBLIC            ::   jpnij        !: nb of local domain = nb of processors ( <= jpni x jpnj )
78   INTEGER, PUBLIC, PARAMETER ::   jpr2di = 0   !: number of columns for extra outer halo
79   INTEGER, PUBLIC, PARAMETER ::   jpr2dj = 0   !: number of rows    for extra outer halo
80   INTEGER, PUBLIC, PARAMETER ::   nn_hls = 1   !: halo width (applies to both rows and columns)
81
82   !!----------------------------------------------------------------------
83   !! NEMO/OCE 4.0 , NEMO Consortium (2018)
84   !! $Id$
85   !! Software governed by the CeCILL license (see ./LICENSE)
86   !!======================================================================
87END MODULE par_oce
Note: See TracBrowser for help on using the repository browser.