Changeset 12989 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/USR

Timestamp:

2020-05-29T11:31:16+02:00 (4 years ago)

Author:

francesca

Message:

Extra_Halo: developments for running BENCH test case with halo 2 - ticket #2366

File:

• NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/USR/usrdef_nam.F90 (modified) (3 diffs)

NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/USR/usrdef_nam.F90

@@ -36 +36 @@
 CONTAINS
 
-   SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio )
+   SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio, khls )
       !!----------------------------------------------------------------------
       !!                     ***  ROUTINE dom_nam  ***
@@ -52 +52 @@
       INTEGER         , INTENT(out) ::   kpi, kpj, kpk   ! global domain sizes 
       INTEGER         , INTENT(out) ::   kperio          ! lateral global domain b.c. 
+      INTEGER,OPTIONAL, INTENT(out) ::   khls            ! halo dimension
       !
       INTEGER ::   ios   ! Local integer
@@ -80 +81 @@
       !                             ! Set the lateral boundary condition of the global domain
       kperio = 0                    ! GYRE configuration : closed domain
+      IF (PRESENT(khls)) khls = 1
       !
       !                             ! control print