Changeset 13238 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/NST/agrif_user.F90

Timestamp:

2020-07-03T12:04:50+02:00 (4 years ago)

Author:

smasson

Message:

Extra_Halo: cosmetic modifications, see #2366

File:

• NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/NST/agrif_user.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/NST/agrif_user.F90

@@ -635 +635 @@
       USE Agrif_Util
       USE ice
-      USE par_oce, ONLY : nbghostcells, nbghostcells_x, nbghostcells_y_s
       !
       IMPLICIT NONE
@@ -888 +887 @@
       nbghostcells_y_n = nbghostcells
       !
-      IF (   jperio == 1  ) nbghostcells_x   = 0
-      IF ( .NOT. lk_south ) nbghostcells_y_s = 0
-PRINT*, 'seb ', narea, jpiglo, nbcellsx, nn_hls, nbghostcells_x
+      IF(   jperio == 1  )   nbghostcells_x   = 0
+      IF( .NOT. lk_south )   nbghostcells_y_s = 0
       ! Some checks
       IF( jpiglo /= nbcellsx + 2 + 2*nn_hls + nbghostcells_x   + nbghostcells_x   )   CALL ctl_stop( 'STOP',    &