Changeset 14072 for NEMO/trunk/src/OCE/USR/usrdef_nam.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/USR/usrdef_nam.F90 (modified) (5 diffs)

NEMO/trunk/src/OCE/USR/usrdef_nam.F90

@@ -12 +12 @@
    !!----------------------------------------------------------------------
    !!   usr_def_nam   : read user defined namelist and set global domain size
-   !!   usr_def_hgr   : initialize the horizontal mesh 
+   !!   usr_def_hgr   : initialize the horizontal mesh
    !!----------------------------------------------------------------------
    USE dom_oce
@@ -20 +20 @@
    USE in_out_manager ! I/O manager
    USE lib_mpp        ! MPP library
-   
+
    IMPLICIT NONE
    PRIVATE
@@ -32 +32 @@
    !!----------------------------------------------------------------------
    !! NEMO/OCE 4.0 , NEMO Consortium (2018)
-   !! $Id$ 
+   !! $Id$
    !! Software governed by the CeCILL license (see ./LICENSE)
    !!----------------------------------------------------------------------
@@ -40 +40 @@
       !!----------------------------------------------------------------------
       !!                     ***  ROUTINE dom_nam  ***
-      !!                    
+      !!
       !! ** Purpose :   read user defined namelist and define the domain size
       !!
@@ -51 +51 @@
       CHARACTER(len=*), INTENT(out) ::   cd_cfg          ! configuration name
       INTEGER         , INTENT(out) ::   kk_cfg          ! configuration resolution
-      INTEGER         , INTENT(out) ::   kpi, kpj, kpk   ! global domain sizes 
-      INTEGER         , INTENT(out) ::   kperio          ! lateral global domain b.c. 
+      INTEGER         , INTENT(out) ::   kpi, kpj, kpk   ! global domain sizes
+      INTEGER         , INTENT(out) ::   kperio          ! lateral global domain b.c.
       !
       INTEGER ::   ios   ! Local integer