Changeset 15279 for utils/tools/DOMAINcfg/src/par_oce.f90

Timestamp:

2021-09-23T12:00:23+02:00 (3 years ago)

Author:

jchanut

Message:

#2222 and #2638: Enable creating agrif meshes with different vertical grids (geopotential only as a start)

File:

• utils/tools/DOMAINcfg/src/par_oce.f90 (modified) (1 diff)

utils/tools/DOMAINcfg/src/par_oce.f90

@@ -56 +56 @@
    INTEGER, PUBLIC            ::   nbug_in_agrif_conv_do_not_remove_or_modify = 1 - 1
    INTEGER, PUBLIC, PARAMETER ::   nbghostcells = 4 !: number of ghost cells: default value
-   INTEGER, PUBLIC            ::   nbghostcells_x   !: number of ghost cells in i-direction
-   INTEGER, PUBLIC            ::   nbghostcells_y_s   !: number of ghost cells in j-direction at south
-   INTEGER, PUBLIC            ::   nbghostcells_y_n   !: number of ghost cells in j-direction at north
-   INTEGER, PUBLIC            ::   nbcellsx   ! = jpiglo - 2 - 2*nbghostcells_x   !: number of cells in i-direction
-   INTEGER, PUBLIC            ::   nbcellsy   ! = jpjglo - 2 - 2*nbghostcells_y   !: number of cells in j-direction
+   INTEGER, PUBLIC            ::   nbghostcells_x_w   !: number of ghost cells in i-direction (west)
+   INTEGER, PUBLIC            ::   nbghostcells_x_e   !: number of ghost cells in i-direction (east)
+   INTEGER, PUBLIC            ::   nbghostcells_y_s   !: number of ghost cells in j-direction (south)
+   INTEGER, PUBLIC            ::   nbghostcells_y_n   !: number of ghost cells in j-direction (north)
+   INTEGER, PUBLIC            ::   nbcellsx   ! = Ni0glo - nbghostcells_x_w - nbghostcells_x_e  !: number of cells in i-direction
+   INTEGER, PUBLIC            ::   nbcellsy   ! = Nj0glo - nbghostcells_y_s - nbghostcells_y_n  !: number of cells in j-direction
 
    ! local domain size                !!! * local computational domain *