Changeset 11320 for NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/BENCH

Timestamp:

2019-07-22T14:52:29+02:00 (5 years ago)

Author:

smasson

Message:

dev_r10984_HPC-13 : add missing if(lwp) in [11317], see #2307 and #2285

File:

• NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/BENCH/MY_SRC/usrdef_nam.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/BENCH/MY_SRC/usrdef_nam.F90

@@ -69 +69 @@
       cd_cfg = 'BENCH'             ! name & resolution (not used)
       kk_cfg = 0
-
+      !
       IF( nn_isize < 0 .AND. nn_jsize < 0 ) THEN
       !
@@ -86 +86 @@
          kpj = nn_jsize
       ENDIF
- 
+      !
       kpk = nn_ksize
       kperio = nn_perio
-
       !                             ! control print
-      WRITE(numout,*) '   '
-      WRITE(numout,*) 'usr_def_nam  : read the user defined namelist (namusr_def) in namelist_cfg'
-      WRITE(numout,*) '~~~~~~~~~~~ '
-      WRITE(numout,*) '   Namelist namusr_def : BENCH test case'
-      IF( nn_isize > 0 ) THEN
-         WRITE(numout,*) '      global domain size-x            nn_isize = ',  nn_isize
-      ELSE
-         WRITE(numout,*) '                                          jpni = ', jpni
-         WRITE(numout,*) '       local domain size-x           -nn_isize = ', -nn_isize
-         WRITE(numout,*) '      global domain size-x                 kpi = ', kpi
+      IF(lwp) THEN
+         WRITE(numout,*) '   '
+         WRITE(numout,*) 'usr_def_nam  : read the user defined namelist (namusr_def) in namelist_cfg'
+         WRITE(numout,*) '~~~~~~~~~~~ '
+         WRITE(numout,*) '   Namelist namusr_def : BENCH test case'
+         IF( nn_isize > 0 ) THEN
+            WRITE(numout,*) '      global domain size-x            nn_isize = ',  nn_isize
+         ELSE
+            WRITE(numout,*) '                                          jpni = ', jpni
+            WRITE(numout,*) '       local domain size-x           -nn_isize = ', -nn_isize
+            WRITE(numout,*) '      global domain size-x                 kpi = ', kpi
+         ENDIF
+         IF( nn_jsize > 0 ) THEN
+            WRITE(numout,*) '      global domain size-y            nn_jsize = ', nn_jsize
+         ELSE
+            WRITE(numout,*) '                                          jpnj = ', jpnj
+            WRITE(numout,*) '       local domain size-y           -nn_jsize = ', -nn_jsize
+            WRITE(numout,*) '      global domain size-y                 kpj = ', kpj
+         ENDIF
+         WRITE(numout,*) '      global domain size-z            nn_ksize = ', nn_ksize
+         WRITE(numout,*) '      LBC of the global domain          kperio = ', kperio
       ENDIF
-      IF( nn_jsize > 0 ) THEN
-         WRITE(numout,*) '      global domain size-y            nn_jsize = ', nn_jsize
-      ELSE
-         WRITE(numout,*) '                                          jpnj = ', jpnj
-         WRITE(numout,*) '       local domain size-y           -nn_jsize = ', -nn_jsize
-         WRITE(numout,*) '      global domain size-y                 kpj = ', kpj
-      ENDIF
-      WRITE(numout,*) '      global domain size-z            nn_ksize = ', nn_ksize
-      WRITE(numout,*) '      LBC of the global domain          kperio = ', kperio
       !
    END SUBROUTINE usr_def_nam