Changeset 10428 for NEMO

Timestamp:

2018-12-20T09:12:57+01:00 (5 years ago)

Author:

smasson

Message:

trunk: suppress jpnij from the namelist (already defined by mppsize)

Location:

NEMO/trunk

Files:

• cfgs/SHARED/namelist_ref (modified) (1 diff)
• src/OCE/LBC/lib_mpp.F90 (modified) (2 diffs)
• tests/BENCH/MY_SRC/usrdef_nam.F90 (modified) (1 diff)

NEMO/trunk/cfgs/SHARED/namelist_ref

@@ -1298 +1298 @@
    jpni        =   0       !  jpni   number of processors following i (set automatically if < 1)
    jpnj        =   0       !  jpnj   number of processors following j (set automatically if < 1)
-   jpnij       =   0       !  jpnij  number of local domains (set automatically if < 1)
 /
 !-----------------------------------------------------------------------

NEMO/trunk/src/OCE/LBC/lib_mpp.F90

@@ -209 +209 @@
       LOGICAL ::   mpi_was_called
       !
-      NAMELIST/nammpp/ cn_mpi_send, nn_buffer, jpni, jpnj, jpnij, ln_nnogather
+      NAMELIST/nammpp/ cn_mpi_send, nn_buffer, jpni, jpnj, ln_nnogather
       !!----------------------------------------------------------------------
       !
@@ -231 +231 @@
       !
       IF( jpni < 1 .OR. jpnj < 1  ) THEN
-         WRITE(ldtxt(ii),*) '      jpni, jpnj and jpnij will be calculated automatically' ;   ii = ii + 1
+         WRITE(ldtxt(ii),*) '      jpni and jpnj will be calculated automatically' ;   ii = ii + 1
       ELSE
          WRITE(ldtxt(ii),*) '      processor grid extent in i         jpni = ',jpni       ;   ii = ii + 1

NEMO/trunk/tests/BENCH/MY_SRC/usrdef_nam.F90

@@ -56 +56 @@
       !                              !!* nammpp namelist *!!
       CHARACTER(len=1) ::   cn_mpi_send
-      INTEGER          ::   nn_buffer, jpni, jpnj, jpnij
+      INTEGER          ::   nn_buffer, jpni, jpnj
       LOGICAL          ::   ln_nnogather
       !!
       NAMELIST/namusr_def/ nn_isize, nn_jsize, nn_ksize, nn_perio
-      NAMELIST/nammpp/ cn_mpi_send, nn_buffer, jpni, jpnj, jpnij, ln_nnogather
+      NAMELIST/nammpp/ cn_mpi_send, nn_buffer, jpni, jpnj, ln_nnogather
       !!----------------------------------------------------------------------     
       !