Changeset 10766

Timestamp:

2019-03-15T13:33:37+01:00 (6 years ago)

Author:

andmirek

Message:

GMED 450: changes related to prints from mpp routines

File:

• branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90 (modified) (4 diffs)

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90

@@ -288 +288 @@
       IF(lwp) WRITE(numout,*)
 
-      IF(lwp) THEN
+      IF(lwp .AND. nprint>1) THEN
          ifreq = 4
          il1   = 1
@@ -364 +364 @@
 
      ! Save processor layout in layout.dat file 
-       IF (lwp) THEN
+       IF (lwp .AND. nprint > 1) THEN
         CALL ctl_opn( inum, 'layout.dat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., narea )
         WRITE(inum,'(a)') '   jpnij     jpi     jpj     jpk  jpiglo  jpjglo'
@@ -430 +430 @@
       ! Periodicity : no corner if nbondi = 2 and nperio != 1
 
-      IF(lwp) THEN
+      IF(lwp .and. nprint > 0) THEN
          WRITE(numout,*) ' nproc  = ', nproc
          WRITE(numout,*) ' nowe   = ', nowe  , ' noea   =  ', noea
@@ -505 +505 @@
       idid(2) = 2
 
-      IF(lwp) THEN
+      IF(lwp .and nprint > 0) THEN
           WRITE(numout,*)
           WRITE(numout,*) 'mpp_init_ioipsl :   iloc  = ', iloc (1), iloc (2)