Changeset 14072 for NEMO/trunk/src/OCE/par_oce.F90

Timestamp:

2020-12-04T08:48:38+01:00 (3 years ago)

Author:

laurent

Message:

Merging branch "2020/dev_r13648_ASINTER-04_laurent_bulk_ice", ticket #2369

File:

• NEMO/trunk/src/OCE/par_oce.F90 (modified) (3 diffs)

NEMO/trunk/src/OCE/par_oce.F90

@@ -22 +22 @@
    !
    LOGICAL       ::   ln_use_jattr     !: input file read offset
-   !                                   !  Use file global attribute: open_ocean_jstart to determine start j-row 
-   !                                   !  when reading input from those netcdf files that have the 
-   !                                   !  attribute defined. This is designed to enable input files associated 
-   !                                   !  with the extended grids used in the under ice shelf configurations to 
+   !                                   !  Use file global attribute: open_ocean_jstart to determine start j-row
+   !                                   !  when reading input from those netcdf files that have the
+   !                                   !  attribute defined. This is designed to enable input files associated
+   !                                   !  with the extended grids used in the under ice shelf configurations to
    !                                   !  be used without redundant rows when the ice shelves are not in use.
    LOGICAL       ::   ln_closea        !: (=T) special treatment of closed sea
-   ! 
+   !
 
    !!---------------------------------------------------------------------
-   !! Domain Matrix size 
+   !! Domain Matrix size
    !!---------------------------------------------------------------------
    ! configuration name & resolution   (required only in ORCA family case)
    CHARACTER(lc) ::   cn_cfg           !: name of the configuration
-   INTEGER       ::   nn_cfg           !: resolution of the configuration 
+   INTEGER       ::   nn_cfg           !: resolution of the configuration
 
    ! time dimension
@@ -84 +84 @@
    !!----------------------------------------------------------------------
    !! if we dont use massively parallel computer (parameters jpni=jpnj=1) so jpiglo=jpi and jpjglo=jpj
-   INTEGER, PUBLIC            ::   jpni         !: number of processors following i 
+   INTEGER, PUBLIC            ::   jpni         !: number of processors following i
    INTEGER, PUBLIC            ::   jpnj         !: number of processors following j
    INTEGER, PUBLIC            ::   jpnij        !: nb of local domain = nb of processors ( <= jpni x jpnj )
-   INTEGER, PUBLIC, PARAMETER ::   jpr2di = 0   !: number of columns for extra outer halo 
-   INTEGER, PUBLIC, PARAMETER ::   jpr2dj = 0   !: number of rows    for extra outer halo 
+   INTEGER, PUBLIC, PARAMETER ::   jpr2di = 0   !: number of columns for extra outer halo
+   INTEGER, PUBLIC, PARAMETER ::   jpr2dj = 0   !: number of rows    for extra outer halo
 
    ! halo with and starting/inding DO-loop indices
@@ -101 +101 @@
    !!----------------------------------------------------------------------
    !! NEMO/OCE 4.0 , NEMO Consortium (2018)
-   !! $Id$ 
+   !! $Id$
    !! Software governed by the CeCILL license (see ./LICENSE)
    !!======================================================================