Changeset 14872 for NEMO/branches/2021/dev_r14447_HPC-07_Irrmann_try_new_pt2pt/tests/TSUNAMI/MY_SRC/usrdef_nam.F90

Timestamp:

2021-05-17T15:06:17+02:00 (3 years ago)

Author:

girrmann

Message:

add old communication pattern for performance profiling

File:

• NEMO/branches/2021/dev_r14447_HPC-07_Irrmann_try_new_pt2pt/tests/TSUNAMI/MY_SRC/usrdef_nam.F90 (modified) (1 diff)

NEMO/branches/2021/dev_r14447_HPC-07_Irrmann_try_new_pt2pt/tests/TSUNAMI/MY_SRC/usrdef_nam.F90

@@ -91 +91 @@
       !
       IF( Agrif_Root() ) THEN        ! Global Domain size:  TSUNAMI global domain is  1800 km x 1800 Km x 5000 m
-         kpi = NINT( rn_domszx / rn_dx ) + 1
-         kpj = NINT( rn_domszy / rn_dy ) + 1
+         kpi = NINT( rn_domszx / rn_dx )
+         kpj = NINT( rn_domszy / rn_dy )
       ELSE                           ! Global Domain size: add nbghostcells + 1 "land" point on each side
          kpi  = nbcellsx + nbghostcells_x   + nbghostcells_x   + 2