Index: /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icealb.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icealb.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icealb.F90	(revision 11782)
@@ -196,5 +196,5 @@
       READ  ( numnam_ice_cfg, namalb, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namalb in configuration namelist' )
-      IF(lwm) WRITE( numoni, namalb )
+      IF(lwm .AND. nprint > 2) WRITE( numoni, namalb )
       !
       IF(lwp) THEN                      ! Control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedia.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedia.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedia.F90	(revision 11782)
@@ -184,5 +184,5 @@
       READ  ( numnam_ice_cfg, namdia, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdia in configuration namelist' )
-      IF(lwm) WRITE ( numoni, namdia )
+      IF(lwm .AND. nprint > 2) WRITE ( numoni, namdia )
       !
       IF(lwp) THEN                  ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn.F90	(revision 11782)
@@ -230,5 +230,5 @@
       READ  ( numnam_ice_cfg, namdyn, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn in configuration namelist' )
-      IF(lwm) WRITE( numoni, namdyn )
+      IF(lwm .AND. nprint > 2) WRITE( numoni, namdyn )
       !
       IF(lwp) THEN                     ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_adv.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_adv.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_adv.F90	(revision 11782)
@@ -137,5 +137,5 @@
       READ  ( numnam_ice_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist' )
-      IF(lwm) WRITE( numoni, namdyn_adv )
+      IF(lwm .AND. nprint > 2) WRITE( numoni, namdyn_adv )
       !
       IF(lwp) THEN                     ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_adv_pra.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_adv_pra.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_adv_pra.F90	(revision 11782)
@@ -788,5 +788,5 @@
       ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   !==  write in the ice restart file  ==!
          !                                   !=====================================!
-         IF(lwp) WRITE(numout,*) '----  ice-adv-rst  ----'
+         IF(lwp .AND. nprint > 0) WRITE(numout,*) '----  ice-adv-rst  ----'
          iter = kt + nn_fsbc - 1             ! ice restarts are written at kt == nitrst - nn_fsbc + 1
          !
Index: /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_rdgrft.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_rdgrft.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_rdgrft.F90	(revision 11782)
@@ -914,5 +914,5 @@
       READ  ( numnam_ice_cfg, namdyn_rdgrft, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_rdgrft in configuration namelist' )
-      IF(lwm) WRITE ( numoni, namdyn_rdgrft )
+      IF(lwm .AND. nprint > 2) WRITE ( numoni, namdyn_rdgrft )
       !
       IF (lwp) THEN                          ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_rhg.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_rhg.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_rhg.F90	(revision 11782)
@@ -119,5 +119,5 @@
       READ  ( numnam_ice_cfg, namdyn_rhg, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namdyn_rhg in configuration namelist' )
-      IF(lwm) WRITE ( numoni, namdyn_rhg )
+      IF(lwm .AND. nprint > 2) WRITE ( numoni, namdyn_rhg )
       !
       IF(lwp) THEN                     ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_rhg_evp.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_rhg_evp.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_rhg_evp.F90	(revision 11782)
@@ -899,5 +899,5 @@
       ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file
          !                                   ! -------------------
-         IF(lwp) WRITE(numout,*) '---- rhg-rst ----'
+         IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- rhg-rst ----'
          iter = kt + nn_fsbc - 1             ! ice restarts are written at kt == nitrst - nn_fsbc + 1
          !
Index: /NEMO/branches/2019/dev_r11756_text_output/src/ICE/iceistate.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/ICE/iceistate.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/ICE/iceistate.F90	(revision 11782)
@@ -480,5 +480,5 @@
       READ  ( numnam_ice_cfg, namini, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namini in configuration namelist' )
-      IF(lwm) WRITE ( numoni, namini )
+      IF(lwm .AND. nprint > 2) WRITE ( numoni, namini )
       !
       slf_i(jp_hti) = sn_hti  ;  slf_i(jp_hts) = sn_hts
Index: /NEMO/branches/2019/dev_r11756_text_output/src/ICE/iceitd.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/ICE/iceitd.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/ICE/iceitd.F90	(revision 11782)
@@ -692,5 +692,5 @@
       READ  ( numnam_ice_cfg, namitd, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namitd in configuration namelist' )
-      IF(lwm) WRITE( numoni, namitd )
+      IF(lwm .AND. nprint > 2) WRITE( numoni, namitd )
       !
       IF(lwp) THEN                  ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icerst.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icerst.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icerst.F90	(revision 11782)
@@ -70,5 +70,5 @@
             clpath = TRIM(cn_icerst_outdir) 
             IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath)//'/'
-            IF(lwp) THEN
+            IF(lwp .AND. nprint > 0) THEN
                WRITE(numout,*)
                WRITE(numout,*) '             open ice restart NetCDF file: ',TRIM(clpath)//clname
@@ -108,5 +108,5 @@
       iter = kt + nn_fsbc - 1   ! ice restarts are written at kt == nitrst - nn_fsbc + 1
 
-      IF( iter == nitrst ) THEN
+      IF( iter == nitrst .AND. nprint > 0 ) THEN
          IF(lwp) WRITE(numout,*)
          IF(lwp) WRITE(numout,*) 'ice_rst_write : write ice restart file  kt =', kt
@@ -178,5 +178,5 @@
       !!----------------------------------------------------------------------
 
-      IF(lwp) THEN
+      IF(lwp .AND. nprint > 0) THEN
          WRITE(numout,*)
          WRITE(numout,*) 'ice_rst_read: read ice NetCDF restart file'
@@ -196,6 +196,6 @@
          CALL iom_get( numrir, 'nn_fsbc', zfice )
          CALL iom_get( numrir, 'kt_ice' , ziter )    
-         IF(lwp) WRITE(numout,*) '   read ice restart file at time step    : ', ziter
-         IF(lwp) WRITE(numout,*) '   in any case we force it to nit000 - 1 : ', nit000 - 1
+         IF(lwp .AND. nprint > 0) WRITE(numout,*) '   read ice restart file at time step    : ', ziter
+         IF(lwp .AND. nprint > 0) WRITE(numout,*) '   in any case we force it to nit000 - 1 : ', nit000 - 1
 
          ! Control of date
Index: /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icesbc.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icesbc.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icesbc.F90	(revision 11782)
@@ -290,5 +290,5 @@
       READ  ( numnam_ice_cfg, namsbc, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc in configuration namelist' )
-      IF(lwm) WRITE( numoni, namsbc )
+      IF(lwm .AND. nprint > 2) WRITE( numoni, namsbc )
       !
       IF(lwp) THEN                     ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icestp.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icestp.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icestp.F90	(revision 11782)
@@ -235,5 +235,5 @@
       CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )
       CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )
-      IF(lwm) CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 )
+      IF(lwm .AND. nprint > 2) CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 )
       !
       CALL par_init                ! set some ice run parameters
@@ -307,5 +307,5 @@
       READ  ( numnam_ice_cfg, nampar, IOSTAT = ios, ERR = 902 )
 902   IF( ios > 0 )   CALL ctl_nam ( ios , 'nampar in configuration namelist' )
-      IF(lwm) WRITE( numoni, nampar )
+      IF(lwm .AND. nprint > 2) WRITE( numoni, nampar )
       !
       IF(lwp) THEN                  ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd.F90	(revision 11782)
@@ -545,5 +545,5 @@
       READ  ( numnam_ice_cfg, namthd, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd in configuration namelist' )
-      IF(lwm) WRITE( numoni, namthd )
+      IF(lwm .AND. nprint > 2) WRITE( numoni, namthd )
       !
       IF(lwp) THEN                          ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_da.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_da.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_da.F90	(revision 11782)
@@ -183,5 +183,5 @@
       READ  ( numnam_ice_cfg, namthd_da, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd_da in configuration namelist' )
-      IF(lwm) WRITE( numoni, namthd_da )
+      IF(lwm .AND. nprint > 2) WRITE( numoni, namthd_da )
       !
       IF(lwp) THEN                          ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_do.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_do.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_do.F90	(revision 11782)
@@ -449,5 +449,5 @@
       READ  ( numnam_ice_cfg, namthd_do, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd_do in configuration namelist' )
-      IF(lwm) WRITE( numoni, namthd_do )
+      IF(lwm .AND. nprint > 2) WRITE( numoni, namthd_do )
       !
       IF(lwp) THEN                          ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_pnd.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_pnd.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_pnd.F90	(revision 11782)
@@ -214,5 +214,5 @@
       READ  ( numnam_ice_cfg, namthd_pnd, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd_pnd in configuration namelist' )
-      IF(lwm) WRITE ( numoni, namthd_pnd )
+      IF(lwm .AND. nprint > 2) WRITE ( numoni, namthd_pnd )
       !
       IF(lwp) THEN                        ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_sal.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_sal.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_sal.F90	(revision 11782)
@@ -138,5 +138,5 @@
       READ  ( numnam_ice_cfg, namthd_sal, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd_sal in configuration namelist' )
-      IF(lwm) WRITE ( numoni, namthd_sal )
+      IF(lwm .AND. nprint > 2) WRITE ( numoni, namthd_sal )
       !
       IF(lwp) THEN                           ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_zdf.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_zdf.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_zdf.F90	(revision 11782)
@@ -94,5 +94,5 @@
       READ  ( numnam_ice_cfg, namthd_zdf, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd_zdf in configuration namelist' )
-      IF(lwm) WRITE( numoni, namthd_zdf )
+      IF(lwm .AND. nprint > 2) WRITE( numoni, namthd_zdf )
       !
       IF(lwp) THEN                          ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/ICE/iceupdate.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/ICE/iceupdate.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/ICE/iceupdate.F90	(revision 11782)
@@ -439,5 +439,5 @@
       ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file
          !                                   ! -------------------
-         IF(lwp) WRITE(numout,*) '---- update-rst ----'
+         IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- update-rst ----'
          iter = kt + nn_fsbc - 1             ! ice restarts are written at kt == nitrst - nn_fsbc + 1
          !
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ASM/asminc.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ASM/asminc.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ASM/asminc.F90	(revision 11782)
@@ -151,5 +151,5 @@
       READ  ( numnam_cfg, nam_asminc, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nam_asminc in configuration namelist' )
-      IF(lwm) WRITE ( numond, nam_asminc )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_asminc )
 
       ! Control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/BDY/bdydta.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/BDY/bdydta.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/BDY/bdydta.F90	(revision 11782)
@@ -434,5 +434,5 @@
             READ  ( numnam_cfg, nambdy_dta, IOSTAT = ios, ERR = 902 )
 902         IF( ios >  0 )   CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist' )
-            IF(lwm) WRITE( numond, nambdy_dta )           
+            IF(lwm .AND. nprint > 2) WRITE( numond, nambdy_dta )           
          ENDIF
 
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/BDY/bdyini.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/BDY/bdyini.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/BDY/bdyini.F90	(revision 11782)
@@ -96,5 +96,5 @@
       READ  ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nambdy in configuration namelist' )
-      IF(lwm) WRITE ( numond, nambdy )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy )
 
       IF( .NOT. Agrif_Root() ) ln_bdy = .FALSE.   ! forced for Agrif children
@@ -1088,5 +1088,5 @@
       READ  ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 )
 904   IF( ios /= 0 )   CALL ctl_nam ( ios , 'nambdy_index in configuration namelist' )
-      IF(lwm) WRITE ( numond, nambdy_index )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy_index )
       
       SELECT CASE ( TRIM(ctypebdy) )
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/BDY/bdytides.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/BDY/bdytides.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/BDY/bdytides.F90	(revision 11782)
@@ -100,5 +100,5 @@
             READ  ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 )
 902         IF( ios >  0 )   CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist' )
-            IF(lwm) WRITE ( numond, nambdy_tide )
+            IF(lwm  .AND. nprint > 2) WRITE ( numond, nambdy_tide )
             !                                               ! Parameter control and print
             IF(lwp) WRITE(numout,*) '  '
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/C1D/c1d.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/C1D/c1d.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/C1D/c1d.F90	(revision 11782)
@@ -57,5 +57,5 @@
       READ  ( numnam_cfg, namc1d, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namc1d in configuration namelist' )
-      IF(lwm) WRITE ( numond, namc1d )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namc1d )
       !
       IF(lwp) THEN                    ! Control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/C1D/dtauvd.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/C1D/dtauvd.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/C1D/dtauvd.F90	(revision 11782)
@@ -67,5 +67,5 @@
       READ  ( numnam_cfg, namc1d_uvd, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namc1d_uvd in configuration namelist' )
-      IF(lwm) WRITE ( numond, namc1d_uvd )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namc1d_uvd )
 
       !                             ! force the initialization when dyndmp is used
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/C1D/dyndmp.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/C1D/dyndmp.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/C1D/dyndmp.F90	(revision 11782)
@@ -85,5 +85,5 @@
       READ  ( numnam_cfg, namc1d_dyndmp, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namc1d_dyndmp in configuration namelist' )
-      IF(lwm) WRITE ( numond, namc1d_dyndmp )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namc1d_dyndmp )
       !
       IF(lwp) THEN                           ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/CRS/crsini.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/CRS/crsini.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/CRS/crsini.F90	(revision 11782)
@@ -86,5 +86,5 @@
       READ  ( numnam_cfg, namcrs, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namcrs in configuration namelist' )
-      IF(lwm) WRITE ( numond, namcrs )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namcrs )
 
      IF(lwp) THEN
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/dia25h.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/dia25h.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/dia25h.F90	(revision 11782)
@@ -59,5 +59,5 @@
       READ  ( numnam_cfg, nam_dia25h, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nam_dia25h in configuration namelist' )
-      IF(lwm) WRITE ( numond, nam_dia25h )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_dia25h )
 
       IF(lwp) THEN                   ! Control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diadct.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diadct.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diadct.F90	(revision 11782)
@@ -130,5 +130,5 @@
      READ  ( numnam_cfg, nam_diadct, IOSTAT = ios, ERR = 902 )
 902  IF( ios >  0 ) CALL ctl_nam ( ios , 'nam_diadct in configuration namelist' )
-     IF(lwm) WRITE ( numond, nam_diadct )
+     IF(lwm .AND. nprint > 2) WRITE ( numond, nam_diadct )
 
      IF( lwp ) THEN
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diaharm.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diaharm.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diaharm.F90	(revision 11782)
@@ -85,5 +85,5 @@
       READ  ( numnam_cfg, nam_diaharm, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nam_diaharm in configuration namelist' )
-      IF(lwm) WRITE ( numond, nam_diaharm )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_diaharm )
       !
       IF(lwp) THEN
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diahsb.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diahsb.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diahsb.F90	(revision 11782)
@@ -310,7 +310,9 @@
       ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file
          !                                   ! -------------------
-         IF(lwp) WRITE(numout,*)
-         IF(lwp) WRITE(numout,*) '   dia_hsb_rst : write restart at it= ', kt,' date= ', ndastp
-         IF(lwp) WRITE(numout,*)
+         IF(lwp .AND. nprint > 0) THEN
+            WRITE(numout,*)
+            WRITE(numout,*) '   dia_hsb_rst : write restart at it= ', kt,' date= ', ndastp
+            WRITE(numout,*)
+         ENDIF
          !
          IF( lwxios ) CALL iom_swap(      cwxios_context          )
@@ -366,5 +368,5 @@
       READ  ( numnam_cfg, namhsb, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namhsb in configuration namelist' )
-      IF(lwm) WRITE( numond, namhsb )
+      IF(lwm .AND. nprint > 2) WRITE( numond, namhsb )
 
       IF(lwp) THEN
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diaptr.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diaptr.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diaptr.F90	(revision 11782)
@@ -398,5 +398,5 @@
       READ  ( numnam_cfg, namptr, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namptr in configuration namelist' )
-      IF(lwm) WRITE ( numond, namptr )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namptr )
 
       IF(lwp) THEN                     ! Control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diatmb.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diatmb.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diatmb.F90	(revision 11782)
@@ -48,5 +48,5 @@
       READ  ( numnam_cfg, nam_diatmb, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 ) CALL ctl_nam ( ios , 'nam_diatmb in configuration namelist' )
-      IF(lwm) WRITE ( numond, nam_diatmb )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_diatmb )
 
       IF(lwp) THEN                   ! Control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/daymod.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/daymod.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/daymod.F90	(revision 11782)
@@ -134,5 +134,5 @@
 
       ! control print
-      IF(lwp) WRITE(numout,'(a,i6,a,i2,a,i2,a,i8,a,i8,a,i8,a,i8)')   &
+      IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i6,a,i2,a,i2,a,i8,a,i8,a,i8,a,i8)')   &
            &                   ' =======>> 1/2 time step before the start of the run DATE Y/M/D = ',   &
            &                   nyear, '/', nmonth, '/', nday, '  nsec_day:', nsec_day, '  nsec_week:', nsec_week, '  &
@@ -269,7 +269,7 @@
          CALL ymds2ju( nyear, 01, 01, 0.0, fjulstartyear )
          !
-         IF(lwp) WRITE(numout,'(a,i8,a,i4.4,a,i2.2,a,i2.2,a,i3.3)') '======>> time-step =', kt,   &
+         IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i8,a,i4.4,a,i2.2,a,i2.2,a,i3.3)') '======>> time-step =', kt,   &
               &   '      New day, DATE Y/M/D = ', nyear, '/', nmonth, '/', nday, '      nday_year = ', nday_year
-         IF(lwp) WRITE(numout,'(a,i8,a,i7,a,i5)') '         nsec_year = ', nsec_year,   &
+         IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i8,a,i7,a,i5)') '         nsec_year = ', nsec_year,   &
               &   '   nsec_month = ', nsec_month, '   nsec_day = ', nsec_day, '   nsec_week = ', nsec_week
       ENDIF
@@ -402,7 +402,9 @@
          !
          IF( kt == nitrst ) THEN
-            IF(lwp) WRITE(numout,*)
-            IF(lwp) WRITE(numout,*) 'rst_write : write oce restart file  kt =', kt
-            IF(lwp) WRITE(numout,*) '~~~~~~~'
+            IF(lwp .AND. nprint > 0) THEN
+               WRITE(numout,*)
+               WRITE(numout,*) 'rst_write : write oce restart file  kt =', kt
+               WRITE(numout,*) '~~~~~~~'
+            ENDIF
          ENDIF
          ! calendar control
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/domain.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/domain.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/domain.F90	(revision 11782)
@@ -312,5 +312,5 @@
       READ  ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namrun in configuration namelist' )
-      IF(lwm) WRITE ( numond, namrun )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namrun )
       !
       IF(lwp) THEN                  ! control print
@@ -410,5 +410,5 @@
       READ  ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 )
 904   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdom in configuration namelist' )
-      IF(lwm) WRITE( numond, namdom )
+      IF(lwm .AND. nprint > 2) WRITE( numond, namdom )
       !
       IF(lwp) THEN
@@ -442,5 +442,5 @@
       READ  ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 )
 908   IF( ios >  0 )   CALL ctl_nam ( ios , 'namnc4 in configuration namelist' )
-      IF(lwm) WRITE( numond, namnc4 )
+      IF(lwm .AND. nprint > 2) WRITE( numond, namnc4 )
 
       IF(lwp) THEN                        ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/dommsk.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/dommsk.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/dommsk.F90	(revision 11782)
@@ -109,5 +109,5 @@
       READ  ( numnam_cfg, namlbc, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namlbc in configuration namelist' )
-      IF(lwm) WRITE ( numond, namlbc )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namlbc )
       
       IF(lwp) THEN                  ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/domvvl.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/domvvl.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/domvvl.F90	(revision 11782)
@@ -820,5 +820,5 @@
                CALL iom_get( numror, jpdom_autoglo, 'e3t_n', e3t_n(:,:,:), ldxios = lrxios )
                ! needed to restart if land processor not computed 
-               IF(lwp) write(numout,*) 'dom_vvl_rst : e3t_b and e3t_n found in restart files'
+               IF(lwp .AND. nprint > 0) write(numout,*) 'dom_vvl_rst : e3t_b and e3t_n found in restart files'
                WHERE ( tmask(:,:,:) == 0.0_wp ) 
                   e3t_n(:,:,:) = e3t_0(:,:,:)
@@ -952,5 +952,5 @@
       ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file
          !                                   ! ===================
-         IF(lwp) WRITE(numout,*) '---- dom_vvl_rst ----'
+         IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- dom_vvl_rst ----'
          IF( lwxios ) CALL iom_swap(      cwxios_context          )
          !                                           ! --------- !
@@ -997,5 +997,5 @@
       READ  ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist' )
-      IF(lwm) WRITE ( numond, nam_vvl )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_vvl )
       !
       IF(lwp) THEN                    ! Namelist print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/domzgr.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/domzgr.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/domzgr.F90	(revision 11782)
@@ -147,5 +147,5 @@
 !!gm end bug
       !
-      IF( nprint == 1 .AND. lwp )   THEN
+      IF( nprint > 3 .AND. lwp )   THEN
          WRITE(numout,*) ' MIN val k_top   ', MINVAL(   k_top(:,:) ), ' MAX ', MAXVAL( k_top(:,:) )
          WRITE(numout,*) ' MIN val k_bot   ', MINVAL(   k_bot(:,:) ), ' MAX ', MAXVAL( k_bot(:,:) )
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/dtatsd.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/dtatsd.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/dtatsd.F90	(revision 11782)
@@ -71,5 +71,5 @@
       READ  ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtsd in configuration namelist' )
-      IF(lwm) WRITE ( numond, namtsd )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namtsd )
 
       IF( PRESENT( ld_tradmp ) )   ln_tsd_dmp = .TRUE.     ! forces the initialization when tradmp is used
@@ -243,5 +243,5 @@
       IF( .NOT.ln_tsd_dmp ) THEN                   !==   deallocate T & S structure   ==! 
          !                                              (data used only for initialisation)
-         IF(lwp) WRITE(numout,*) 'dta_tsd: deallocte T & S arrays as they are only use to initialize the run'
+         IF(lwp .AND. nprint > 1) WRITE(numout,*) 'dta_tsd: deallocte T & S arrays as they are only use to initialize the run'
                                         DEALLOCATE( sf_tsd(jp_tem)%fnow )     ! T arrays in the structure
          IF( sf_tsd(jp_tem)%ln_tint )   DEALLOCATE( sf_tsd(jp_tem)%fdta )
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/iscplini.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/iscplini.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/iscplini.F90	(revision 11782)
@@ -68,5 +68,5 @@
       READ  ( numnam_cfg, namsbc_iscpl, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_iscpl in configuration namelist' )
-      IF(lwm) WRITE ( numond, namsbc_iscpl )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_iscpl )
       !
       nstp_iscpl=MIN( nn_fiscpl, nitend-nit000+1 ) ! the coupling period have to be less or egal than the total number of time step
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynadv.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynadv.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynadv.F90	(revision 11782)
@@ -110,5 +110,5 @@
       READ  ( numnam_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist' )
-      IF(lwm) WRITE ( numond, namdyn_adv )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_adv )
 
       IF(lwp) THEN                    ! Namelist print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynhpg.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynhpg.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynhpg.F90	(revision 11782)
@@ -157,5 +157,5 @@
       READ  ( numnam_cfg, namdyn_hpg, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_hpg in configuration namelist' )
-      IF(lwm) WRITE ( numond, namdyn_hpg )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_hpg )
       !
       IF(lwp) THEN                   ! Control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynspg.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynspg.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynspg.F90	(revision 11782)
@@ -207,5 +207,5 @@
       READ  ( numnam_cfg, namdyn_spg, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_spg in configuration namelist' )
-      IF(lwm) WRITE ( numond, namdyn_spg )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_spg )
       !
       IF(lwp) THEN             ! Namelist print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynspg_ts.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynspg_ts.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynspg_ts.F90	(revision 11782)
@@ -969,5 +969,5 @@
       ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file
          !                                   ! -------------------
-         IF(lwp) WRITE(numout,*) '---- ts_rst ----'
+         IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- ts_rst ----'
          IF( lwxios ) CALL iom_swap(      cwxios_context          )
          CALL iom_rstput( kt, nitrst, numrow, 'ub2_b'   , ub2_b  (:,:), ldxios = lwxios )
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynvor.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynvor.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynvor.F90	(revision 11782)
@@ -855,5 +855,5 @@
       READ  ( numnam_cfg, namdyn_vor, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_vor in configuration namelist' )
-      IF(lwm) WRITE ( numond, namdyn_vor )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_vor )
       !
       IF(lwp) THEN                    ! Namelist print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/wet_dry.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/wet_dry.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/wet_dry.F90	(revision 11782)
@@ -85,5 +85,5 @@
       READ  ( numnam_cfg, namwad, IOSTAT = ios, ERR = 906)
 906   IF( ios >  0 )   CALL ctl_nam ( ios , 'namwad in configuration namelist' )
-      IF(lwm) WRITE ( numond, namwad )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namwad )
       !
       IF( rn_wd_sbcfra>=1 )   CALL ctl_stop( 'STOP', 'rn_wd_sbcfra >=1 : must be < 1' )
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/FLO/floats.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/FLO/floats.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/FLO/floats.F90	(revision 11782)
@@ -93,5 +93,5 @@
       READ  ( numnam_cfg, namflo, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namflo in configuration namelist' )
-      IF(lwm) WRITE ( numond, namflo )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namflo )
       !
       IF(lwp) THEN                  ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbini.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbini.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbini.F90	(revision 11782)
@@ -410,5 +410,5 @@
       READ  ( numnam_cfg, namberg, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namberg in configuration namelist' )
-      IF(lwm) WRITE ( numond, namberg )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namberg )
       !
       IF(lwp) WRITE(numout,*)
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbrst.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbrst.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbrst.F90	(revision 11782)
@@ -211,5 +211,5 @@
             WRITE(cl_filename,'(A,"_icebergs_",I8.8,"_restart.nc")') TRIM(cexper), kt
          ENDIF
-         IF ( lwp .AND. nn_verbose_level >= 0) WRITE(numout,'(2a)') 'icebergs, write_restart: creating ',  &
+         IF ( lwp .AND. nprint > 0) WRITE(numout,'(2a)') 'icebergs, write_restart: creating ',  &
            &                                                         TRIM(cl_path)//TRIM(cl_filename)
    
@@ -346,5 +346,5 @@
             ENDIF
          ENDDO
-         IF( lwp ) WRITE(numout,*) 'file: ',TRIM(cl_path)//TRIM(cl_filename),' var: stored_ice  written'
+         IF( lwp .AND. nprint > 0 ) WRITE(numout,*) 'file: ',TRIM(cl_path)//TRIM(cl_filename),' var: stored_ice  written'
    
          nret = NF90_PUT_VAR( ncid, nkountid, num_bergs(:) )
@@ -353,5 +353,5 @@
          nret = NF90_PUT_VAR( ncid, nsheatid, berg_grid%stored_heat(:,:) )
          IF (nret .ne. NF90_NOERR) CALL ctl_stop('icebergs, write_restart: nf_put_var stored_heat failed')
-         IF( lwp ) WRITE(numout,*) 'file: ',TRIM(cl_path)//TRIM(cl_filename),' var: stored_heat written'
+         IF( lwp .AND. nprint > 0 ) WRITE(numout,*) 'file: ',TRIM(cl_path)//TRIM(cl_filename),' var: stored_heat written'
    
          nret = NF90_PUT_VAR( ncid, ncalvid , src_calving(:,:) )
@@ -359,5 +359,5 @@
          nret = NF90_PUT_VAR( ncid, ncalvhid, src_calving_hflx(:,:) )
          IF (nret .ne. NF90_NOERR) CALL ctl_stop('icebergs, write_restart: nf_put_var calving_hflx failed')
-         IF( lwp ) WRITE(numout,*) 'file: ',TRIM(cl_path)//TRIM(cl_filename),' var: calving written'
+         IF( lwp .AND. nprint > 0 ) WRITE(numout,*) 'file: ',TRIM(cl_path)//TRIM(cl_filename),' var: calving written'
    
          IF ( ASSOCIATED(first_berg) ) THEN
@@ -401,10 +401,10 @@
          ! Sanity check
          jn = icb_utl_count()
-         IF ( lwp .AND. nn_verbose_level >= 0)   &
+         IF ( lwp .AND. nprint > 0)   &
             WRITE(numout,'(2(a,i5))') 'icebergs, icb_rst_write: # bergs =',jn,' on PE',narea-1
          IF( lk_mpp ) THEN
             CALL mpp_sum('icbrst', jn)
          ENDIF
-         IF(lwp)   WRITE(numout,'(a,i5,a,i5,a)') 'icebergs, icb_rst_write: ', jn,   &
+         IF(lwp .AND. nprint > 0)   WRITE(numout,'(a,i5,a,i5,a)') 'icebergs, icb_rst_write: ', jn,   &
             &                                    ' bergs in total have been written at timestep ', kt
          !
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbstp.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbstp.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbstp.F90	(revision 11782)
@@ -161,5 +161,5 @@
       IF( nn_sample_rate > 0 )   CALL icb_trj_end()
 
-      IF(lwp) WRITE(numout,'(a,i6)') 'icebergs: icb_end complete', narea
+      IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i6)') 'icebergs: icb_end complete', narea
       !
       IF( nn_verbose_level > 0 ) THEN
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbtrj.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbtrj.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbtrj.F90	(revision 11782)
@@ -85,5 +85,5 @@
          &                        TRIM(ADJUSTL(cldate_ini)), TRIM(ADJUSTL(cldate_end))
       ENDIF
-      IF( lwp .AND. nn_verbose_level >= 0 )   WRITE(numout,'(2a)') 'icebergs, icb_trj_init: creating ',TRIM(cl_filename)
+      IF( lwp .AND. nprint > 0 )   WRITE(numout,'(2a)') 'icebergs, icb_trj_init: creating ',TRIM(cl_filename)
 
       iret = NF90_CREATE( TRIM(cl_filename), NF90_CLOBBER, ntrajid )
@@ -248,5 +248,5 @@
          this => this%next
       END DO
-      IF( lwp .AND. nn_verbose_level > 0 )   WRITE(numout,*) 'trajectory write to frame ', jn
+      IF( lwp .AND. nprint > 0 )   WRITE(numout,*) 'trajectory write to frame ', jn
       num_traj = jn
       !
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/IOM/iom.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/IOM/iom.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/IOM/iom.F90	(revision 11782)
@@ -318,5 +318,5 @@
         ENDIF
 !set name of the restart file and enable available fields
-        if(lwp) WRITE(numout,*) 'Setting restart filename (for XIOS) to: ',rst_file
+        if(lwp .AND. nprint > 1) WRITE(numout,*) 'Setting restart filename (for XIOS) to: ',rst_file
         CALL xios_get_handle("file_definition", filegroup_hdl )
         CALL xios_add_child(filegroup_hdl, file_hdl, 'rrestart')
@@ -343,5 +343,5 @@
                         scalar_ref = "grid_scalar", operation = "instant")
                 END SELECT
-                IF(lwp) WRITE(numout,*) 'XIOS read: ', TRIM(rst_rfields(i)%vname), ' enabled in ', TRIM(rst_file)
+                IF(lwp .AND. nprint > 1) WRITE(numout,*) 'XIOS read: ', TRIM(rst_rfields(i)%vname), ' enabled in ', TRIM(rst_file)
            ENDIF
          ENDIF
@@ -534,5 +534,5 @@
 
 !set name of the restart file and enable available fields
-        IF(lwp) WRITE(numout,*) 'Setting restart filename (for XIOS write) to: ',cdrst_file
+        IF(lwp .AND. nprint > 1) WRITE(numout,*) 'Setting restart filename (for XIOS write) to: ',cdrst_file
         CALL xios_get_handle("file_definition", filegroup_hdl )
         CALL xios_add_child(filegroup_hdl, file_hdl, 'wrestart')
@@ -540,9 +540,9 @@
            CALL xios_set_file_attr( "wrestart", type="one_file", enabled=.TRUE.,& 
                                     mode="write", output_freq=xios_timestep) 
-           if(lwp) write(numout,*) 'OPEN ', trim(cdrst_file), ' in one_file mode' 
+           if(lwp .AND. nprint > 1) write(numout,*) 'OPEN ', trim(cdrst_file), ' in one_file mode' 
         ELSE  
            CALL xios_set_file_attr( "wrestart", type="multiple_file", enabled=.TRUE.,& 
                                     mode="write", output_freq=xios_timestep) 
-           if(lwp) write(numout,*) 'OPEN ', trim(cdrst_file), ' in multiple_file mode' 
+           if(lwp .AND. nprint > 1) write(numout,*) 'OPEN ', trim(cdrst_file), ' in multiple_file mode' 
         ENDIF 
         CALL xios_set_file_attr( "wrestart", name=trim(cdrst_file))
@@ -822,5 +822,5 @@
                iom_file(jf)%nfid       = 0          ! free the id 
                IF( PRESENT(kiomid) )   kiomid = 0   ! return 0 as id to specify that the file was closed
-               IF(lwp) WRITE(numout,*) TRIM(clinfo)//' close file: '//TRIM(iom_file(jf)%name)//' ok'
+               IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' close file: '//TRIM(iom_file(jf)%name)//' ok'
             ELSEIF( PRESENT(kiomid) ) THEN
                WRITE(ctmp1,*) '--->',  kiomid
@@ -941,5 +941,5 @@
       ELSE
 #if defined key_iomput
-         IF(lwp) WRITE(numout,*) 'XIOS RST READ (0D): ', trim(cdvar)
+         IF(lwp .AND. nprint > 1) WRITE(numout,*) 'XIOS RST READ (0D): ', trim(cdvar)
          CALL iom_swap( TRIM(crxios_context) )
          CALL xios_recv_field( trim(cdvar), pvar)
@@ -1266,5 +1266,5 @@
 
             IF( istop == nstop ) THEN   ! no additional errors until this point...
-               IF(lwp) WRITE(numout,"(10x,' read ',a,' (rec: ',i6,') in ',a,' ok')") TRIM(cdvar), itime, TRIM(iom_file(kiomid)%name)
+               IF(lwp .AND. nprint > 1) WRITE(numout,"(10x,' read ',a,' (rec: ',i6,') in ',a,' ok')") TRIM(cdvar), itime, TRIM(iom_file(kiomid)%name)
              
                !--- overlap areas and extra hallows (mpp)
@@ -1296,5 +1296,5 @@
          IF( PRESENT(pv_r3d) ) THEN
             pv_r3d(:, :, :) = 0.
-            if(lwp) write(numout,*) 'XIOS RST READ (3D): ',trim(cdvar)
+            if(lwp .AND. nprint > 1) write(numout,*) 'XIOS RST READ (3D): ',trim(cdvar)
             CALL xios_recv_field( trim(cdvar), pv_r3d)
             IF(idom /= jpdom_unknown ) then
@@ -1303,5 +1303,5 @@
          ELSEIF( PRESENT(pv_r2d) ) THEN
             pv_r2d(:, :) = 0.
-            if(lwp) write(numout,*) 'XIOS RST READ (2D): ', trim(cdvar)
+            if(lwp .AND. nprint > 1) write(numout,*) 'XIOS RST READ (2D): ', trim(cdvar)
             CALL xios_recv_field( trim(cdvar), pv_r2d)
             IF(idom /= jpdom_unknown ) THEN
@@ -1310,5 +1310,5 @@
          ELSEIF( PRESENT(pv_r1d) ) THEN
             pv_r1d(:) = 0.
-            if(lwp) write(numout,*) 'XIOS RST READ (1D): ', trim(cdvar)
+            if(lwp .AND. nprint > 1) write(numout,*) 'XIOS RST READ (1D): ', trim(cdvar)
             CALL xios_recv_field( trim(cdvar), pv_r1d)
          ENDIF
@@ -1512,5 +1512,5 @@
 #ifdef key_iomput
       IF( kt == kwrite ) THEN
-          IF(lwp) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar)
+          IF(lwp .AND. nprint > 1) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar)
           CALL xios_send_field(trim(cdvar), pvar)
       ENDIF
@@ -1542,5 +1542,5 @@
 #ifdef key_iomput
       IF( kt == kwrite ) THEN
-         IF(lwp) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar)
+         IF(lwp .AND. nprint > 1) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar)
          CALL xios_send_field(trim(cdvar), pvar)
       ENDIF
@@ -1572,5 +1572,5 @@
 #ifdef key_iomput
       IF( kt == kwrite ) THEN
-         IF(lwp) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar)
+         IF(lwp .AND. nprint > 1) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar)
          CALL xios_send_field(trim(cdvar), pvar)
       ENDIF
@@ -1602,5 +1602,5 @@
 #ifdef key_iomput
       IF( kt == kwrite ) THEN
-         IF(lwp) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar)
+         IF(lwp .AND. nprint > 1) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar)
          CALL xios_send_field(trim(cdvar), pvar)
       ENDIF
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/IOM/iom_nf90.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/IOM/iom_nf90.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/IOM/iom_nf90.F90	(revision 11782)
@@ -88,5 +88,5 @@
          !                                       !=========================!
          IF( ldwrt ) THEN  ! ... in write mode
-            IF(lwp) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in WRITE mode'
+            IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in WRITE mode'
             IF( snc4set%luse ) THEN
                CALL iom_nf90_check(NF90_OPEN( TRIM(cdname), NF90_WRITE  , if90id ), clinfo)
@@ -96,5 +96,5 @@
             CALL iom_nf90_check(NF90_SET_FILL( if90id, NF90_NOFILL, idmy                          ), clinfo)
          ELSE              ! ... in read mode
-            IF(lwp) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in READ mode'
+            IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in READ mode'
             CALL iom_nf90_check(NF90_OPEN( TRIM(cdname), NF90_NOWRITE, if90id, chunksize = ichunk ), clinfo)
          ENDIF
@@ -107,5 +107,5 @@
                cdname = TRIM(cltmp)
             ENDIF
-            IF(lwp) WRITE(numout,*) TRIM(clinfo)//' create new file: '//TRIM(cdname)//' in WRITE mode'
+            IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' create new file: '//TRIM(cdname)//' in WRITE mode'
 
             IF( llclobber ) THEN   ;   imode = IOR( NF90_64BIT_OFFSET, NF90_CLOBBER   )
@@ -113,5 +113,5 @@
             ENDIF
             IF( snc4set%luse ) THEN
-               IF(lwp) WRITE(numout,*) TRIM(clinfo)//' creating file: '//TRIM(cdname)//' in hdf5 (netcdf4) mode'
+               IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' creating file: '//TRIM(cdname)//' in hdf5 (netcdf4) mode'
                CALL GET_NF90_SYMBOL("NF90_HDF5", ihdf5)
                IF( llclobber ) THEN   ;   imode = IOR(ihdf5, NF90_CLOBBER)
@@ -165,5 +165,5 @@
                &                                       len  = iom_file(kiomid)%lenuld ), clinfo )
          ENDIF
-         IF(lwp) WRITE(numout,*) '                   ---> '//TRIM(cdname)//' OK'
+         IF(lwp .AND. nprint > 0) WRITE(numout,*) '                   ---> '//TRIM(cdname)//' OK'
       ELSE
          kiomid = 0               ! return error flag
@@ -564,5 +564,5 @@
          ! trick: defined to 0 to say that dimension variables are defined but not yet written
          iom_file(kiomid)%dimsz(1, 1)  = 0   
-         IF(lwp) WRITE(numout,*) TRIM(clinfo)//' define dimension variables done'
+         IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' define dimension variables done'
       ENDIF
       ! define the data if it is not already done
@@ -639,7 +639,7 @@
             CALL iom_nf90_check(SET_NF90_DEF_VAR_CHUNKING(if90id, idvar, ichunkalg, ichunksz), clinfo)
             CALL iom_nf90_check(SET_NF90_DEF_VAR_DEFLATE(if90id, idvar, ishuffle, ideflate, ideflate_level), clinfo)
-            IF(lwp) WRITE(numout,*) TRIM(clinfo)//' chunked ok. Chunks sizes: ', ichunksz
-         ENDIF
-         IF(lwp) WRITE(numout,*) TRIM(clinfo)//' defined ok'
+            IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' chunked ok. Chunks sizes: ', ichunksz
+         ENDIF
+         IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' defined ok'
       ELSE
          idvar = kvid
@@ -687,5 +687,5 @@
                CALL iom_nf90_check( NF90_INQUIRE_DIMENSION( if90id, 3, len = iom_file(kiomid)%dimsz(1,3) ), clinfo )
                iom_file(kiomid)%dimsz(1  , 4) = 1   ! unlimited dimension
-               IF(lwp) WRITE(numout,*) TRIM(clinfo)//' write dimension variables done'
+               IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' write dimension variables done'
             ENDIF
          ENDIF
@@ -705,5 +705,5 @@
          IF( iom_file(kiomid)%luld(idvar) )   iom_file(kiomid)%dimsz(iom_file(kiomid)%ndims(idvar), idvar)    &
                &                            = iom_file(kiomid)%dimsz(iom_file(kiomid)%ndims(idvar), idvar) + 1
-         IF(lwp) WRITE(numout,*) TRIM(clinfo)//' written ok'
+         IF(lwp  .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' written ok'
       ENDIF
       !     
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/IOM/restart.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/IOM/restart.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/IOM/restart.F90	(revision 11782)
@@ -97,5 +97,5 @@
             clpath = TRIM(cn_ocerst_outdir)
             IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/'
-            IF(lwp) THEN
+            IF(lwp .AND. nprint > 1) THEN
                WRITE(numout,*)
                IF(.NOT.lwxios) THEN
@@ -225,5 +225,5 @@
              crxios_context = 'nemo_rst'
              IF( .NOT.lxios_set ) THEN
-                 IF(lwp) WRITE(numout,*) 'Enable restart reading by XIOS'
+                 IF(lwp .AND. nprint > 1) WRITE(numout,*) 'Enable restart reading by XIOS'
                  CALL iom_init( crxios_context, ld_tmppatch = .false. )
                  lxios_set = .TRUE.
@@ -232,5 +232,5 @@
          IF( TRIM(Agrif_CFixed()) /= '0' .AND. lrxios) THEN
              CALL iom_init( crxios_context, ld_tmppatch = .false. )
-             IF(lwp) WRITE(numout,*) 'Enable restart reading by XIOS for AGRIF'
+             IF(lwp .AND. nprint > 1) WRITE(numout,*) 'Enable restart reading by XIOS for AGRIF'
              lxios_set = .TRUE.
          ENDIF 
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/LBC/lib_mpp.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/LBC/lib_mpp.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/LBC/lib_mpp.F90	(revision 11782)
@@ -946,5 +946,5 @@
             crname_dlg(n_sequence_dlg) = cdname     ! keep the name of the calling routine
          ENDIF
-      ELSE IF ( ncom_stp == nit000+2*ncom_freq ) THEN
+      ELSE IF ( ncom_stp == nit000+2*ncom_freq .AND. nprint > 1 ) THEN
          CALL ctl_opn( numcom, 'communication_report.txt', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., narea )
          WRITE(numcom,*) ' '
@@ -1204,5 +1204,5 @@
          &  OPEN(UNIT=knum,FILE='NUL', FORM=cdform, ACCESS=cdacce, STATUS=cdstat                      , ERR=100, IOSTAT=iost )   
       IF( iost == 0 ) THEN
-         IF(ldwp) THEN
+         IF(ldwp .AND. nprint > 2) THEN
             WRITE(kout,*) '     file   : ', TRIM(clfile),' open ok'
             WRITE(kout,*) '     unit   = ', knum
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/LBC/mppini.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/LBC/mppini.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/LBC/mppini.F90	(revision 11782)
@@ -171,5 +171,5 @@
       !!----------------------------------------------------------------------
       !
-      llwrtlay = lwp .OR. ln_ctl .OR. sn_cfctl%l_layout
+      llwrtlay = (lwp.AND.nprint>1) .OR. ln_ctl .OR. sn_cfctl%l_layout
       !
       !  0. read namelists parameters
@@ -194,5 +194,5 @@
       ENDIF
       !
-      IF(lwm)   WRITE( numond, nammpp )
+      IF(lwm  .AND. nprint > 2)   WRITE( numond, nammpp )
 
       ! do we need to take into account bdy_msk?
@@ -517,5 +517,5 @@
       ! 5. Subdomain print
       ! ------------------
-      IF(lwp) THEN
+      IF(lwp .AND. nprint > 1) THEN
          ifreq = 4
          il1 = 1
@@ -656,5 +656,5 @@
       !
       nproc = narea-1
-      IF(lwp) THEN
+      IF(lwp .AND. nprint > 0) THEN
          WRITE(numout,*)
          WRITE(numout,*) '   resulting internal parameters : '
@@ -1204,5 +1204,5 @@
       idid(2) = 2
 
-      IF(lwp) THEN
+      IF(lwp.AND. nprint > 0) THEN
           WRITE(numout,*)
           WRITE(numout,*) 'mpp_init_ioipsl :   iloc  = ', iloc (1), iloc (2)
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/LDF/ldfdyn.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/LDF/ldfdyn.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/LDF/ldfdyn.F90	(revision 11782)
@@ -122,5 +122,5 @@
       READ  ( numnam_cfg, namdyn_ldf, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_ldf in configuration namelist' )
-      IF(lwm) WRITE ( numond, namdyn_ldf )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_ldf )
 
       IF(lwp) THEN                      ! Parameter print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/LDF/ldftra.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/LDF/ldftra.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/LDF/ldftra.F90	(revision 11782)
@@ -158,5 +158,5 @@
       READ  ( numnam_cfg, namtra_ldf, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtra_ldf in configuration namelist' )
-      IF(lwm) WRITE( numond, namtra_ldf )
+      IF(lwm .AND. nprint > 2) WRITE( numond, namtra_ldf )
       !
       IF(lwp) THEN                      ! control print
@@ -517,5 +517,5 @@
       READ  ( numnam_cfg, namtra_eiv, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtra_eiv in configuration namelist' )
-      IF(lwm)  WRITE ( numond, namtra_eiv )
+      IF(lwm .AND. nprint > 2)  WRITE ( numond, namtra_eiv )
 
       IF(lwp) THEN                      ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/OBS/diaobs.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/OBS/diaobs.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/OBS/diaobs.F90	(revision 11782)
@@ -207,5 +207,5 @@
       READ  ( numnam_cfg, namobs, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namobs in configuration namelist' )
-      IF(lwm) WRITE ( numond, namobs )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namobs )
 
       IF( .NOT.ln_diaobs ) THEN
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/fldread.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/fldread.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/fldread.F90	(revision 11782)
@@ -185,5 +185,5 @@
             CALL fld_init( kn_fsbc, sd(jf) )       ! read each before field (put them in after as they will be swapped)
          END DO
-         IF( lwp ) CALL wgt_print()                ! control print
+         IF( lwp .AND. nprint > 1 ) CALL wgt_print()                ! control print
       ENDIF
       !                                            ! ====================================== !
@@ -287,5 +287,5 @@
             !
             IF( sd(jf)%ln_tint ) THEN              ! temporal interpolation
-               IF(lwp .AND. kt - nit000 <= 100 ) THEN 
+               IF(lwp .AND. kt - nit000 <= 100 .AND. nprint > 1) THEN 
                   clfmt = "('   fld_read: var ', a, ' kt = ', i8, ' (', f9.4,' days), Y/M/D = ', i4.4,'/', i2.2,'/', i2.2," //   &
                      &    "', records b/a: ', i6.4, '/', i6.4, ' (days ', f9.4,'/', f9.4, ')')"
@@ -299,5 +299,5 @@
                sd(jf)%fnow(:,:,:) = ztintb * sd(jf)%fdta(:,:,:,1) + ztinta * sd(jf)%fdta(:,:,:,2)
             ELSE   ! nothing to do...
-               IF(lwp .AND. kt - nit000 <= 100 ) THEN
+               IF(lwp .AND. kt - nit000 <= 100 .AND. nprint > 1) THEN
                   clfmt = "('   fld_read: var ', a, ' kt = ', i8,' (', f9.4,' days), Y/M/D = ', i4.4,'/', i2.2,'/', i2.2," //   &
                      &    "', record: ', i6.4, ' (days ', f9.4, ' <-> ', f9.4, ')')"
@@ -423,5 +423,5 @@
          !
          clfmt = "('   fld_init : time-interpolation for ', a, ' read previous record = ', i6, ' at time = ', f7.2, ' days')"
-         IF(lwp) WRITE(numout, clfmt) TRIM(sdjf%clvar), sdjf%nrec_a(1), REAL(sdjf%nrec_a(2),wp)/rday
+         IF(lwp .AND. nprint > 1) WRITE(numout, clfmt) TRIM(sdjf%clvar), sdjf%nrec_a(1), REAL(sdjf%nrec_a(2),wp)/rday
          !
       ENDIF
@@ -1036,5 +1036,5 @@
                      END DO
                      sd(ju)%rotn(jn) = .TRUE.               ! vector was rotated 
-                     IF( lwp .AND. kt == nit000 )   WRITE(numout,*)   &
+                     IF( lwp .AND. kt == nit000 .AND. nprint > 1 )   WRITE(numout,*)   &
                         &   'fld_read: vector pair ('//TRIM(sd(ju)%clvar)//', '//TRIM(sd(iv)%clvar)//') rotated on to model grid'
                   ENDIF
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcapr.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcapr.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcapr.F90	(revision 11782)
@@ -76,5 +76,5 @@
       READ  ( numnam_cfg, namsbc_apr, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_apr in configuration namelist' )
-      IF(lwm) WRITE ( numond, namsbc_apr )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_apr )
       !
       ALLOCATE( sf_apr(1), STAT=ierror )           !* allocate and fill sf_sst (forcing structure) with sn_sst
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcblk.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcblk.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcblk.F90	(revision 11782)
@@ -188,5 +188,5 @@
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_blk in configuration namelist' )
       !
-      IF(lwm) WRITE( numond, namsbc_blk )
+      IF(lwm .AND. nprint > 2) WRITE( numond, namsbc_blk )
       !
       !                             !** initialization of the chosen bulk formulae (+ check)
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbccpl.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbccpl.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbccpl.F90	(revision 11782)
@@ -271,5 +271,5 @@
       READ  ( numnam_cfg, namsbc_cpl, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_cpl in configuration namelist' )
-      IF(lwm) WRITE ( numond, namsbc_cpl )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_cpl )
       !
       IF(lwp) THEN                        ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcflx.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcflx.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcflx.F90	(revision 11782)
@@ -98,5 +98,5 @@
          READ  ( numnam_cfg, namsbc_flx, IOSTAT = ios, ERR = 902 )
 902      IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_flx in configuration namelist' )
-         IF(lwm) WRITE ( numond, namsbc_flx ) 
+         IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_flx ) 
          !
          !                                         ! check: do we plan to use ln_dm2dc with non-daily forcing?
@@ -159,5 +159,5 @@
          CALL lbc_lnk( 'sbcflx', taum(:,:), 'T', 1. )   ;   CALL lbc_lnk( 'sbcflx', wndm(:,:), 'T', 1. )
 
-         IF( nitend-nit000 <= 100 .AND. lwp ) THEN                ! control print (if less than 100 time-step asked)
+         IF( nitend-nit000 <= 100 .AND. lwp .AND. nprint > 0 ) THEN                ! control print (if less than 100 time-step asked)
             WRITE(numout,*) 
             WRITE(numout,*) '        read daily momentum, heat and freshwater fluxes OK'
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcfwb.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcfwb.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcfwb.F90	(revision 11782)
@@ -187,5 +187,5 @@
             erp(:,:) = erp(:,:) + zerp_cor(:,:)
             !
-            IF( nprint == 1 .AND. lwp ) THEN                   ! control print
+            IF( nprint > 3 .AND. lwp ) THEN                   ! control print
                IF( z_fwf < 0._wp ) THEN
                   WRITE(numout,*)'   z_fwf < 0'
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcice_cice.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcice_cice.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcice_cice.F90	(revision 11782)
@@ -159,5 +159,5 @@
       !!---------------------------------------------------------------------
       !
-      IF(lwp) WRITE(numout,*)'cice_sbc_init'
+      IF(lwp .AND. nprint > 0) WRITE(numout,*)'cice_sbc_init'
 
       ji_off = INT ( (jpiglo - nx_global) / 2 )
@@ -287,5 +287,5 @@
       !
       IF( kt == nit000 )  THEN
-         IF(lwp) WRITE(numout,*)'cice_sbc_in'
+         IF(lwp .AND. nprint > 0) WRITE(numout,*)'cice_sbc_in'
       ENDIF
 
@@ -501,5 +501,5 @@
       !
       IF( kt == nit000 )  THEN
-         IF(lwp) WRITE(numout,*)'cice_sbc_out'
+         IF(lwp .AND. nprint > 0) WRITE(numout,*)'cice_sbc_out'
       ENDIF
       
@@ -665,5 +665,5 @@
       !
       IF( kt == nit000 )  THEN
-         IF(lwp) WRITE(numout,*)'cice_sbc_hadgam'
+         IF(lwp .AND. nprint > 0) WRITE(numout,*)'cice_sbc_hadgam'
          IF( sbc_cpl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' )
       ENDIF
@@ -696,5 +696,5 @@
       !!---------------------------------------------------------------------
       !
-      IF(lwp) WRITE(numout,*)'cice_sbc_final'
+      IF(lwp .AND. nprint > 0) WRITE(numout,*)'cice_sbc_final'
       !
       CALL CICE_Finalize
@@ -814,5 +814,5 @@
 
       ! control print (if less than 100 time-step asked)
-      IF( nitend-nit000 <= 100 .AND. lwp ) THEN
+      IF( nitend-nit000 <= 100 .AND. lwp .AND. nprint > 0 ) THEN
          WRITE(numout,*) 
          WRITE(numout,*) '        read forcing fluxes for CICE OK'
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcice_if.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcice_if.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcice_if.F90	(revision 11782)
@@ -81,5 +81,5 @@
          READ  ( numnam_cfg, namsbc_iif, IOSTAT = ios, ERR = 902 )
 902      IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist' )
-         IF(lwm) WRITE ( numond, namsbc_iif )
+         IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_iif )
 
          ALLOCATE( sf_ice(1), STAT=ierror )
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcisf.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcisf.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcisf.F90	(revision 11782)
@@ -206,5 +206,5 @@
          IF( ln_rstart .AND.    &                     ! Restart: read in restart file
             &   iom_varid( numror, 'fwf_isf_b', ldstop = .FALSE. ) > 0 ) THEN
-            IF(lwp) WRITE(numout,*) '          nit000-1 isf tracer content forcing fields read in the restart file'
+            IF(lwp .AND. nprint > 0) WRITE(numout,*) '          nit000-1 isf tracer content forcing fields read in the restart file'
             CALL iom_get( numror, jpdom_autoglo, 'fwf_isf_b', fwfisf_b(:,:)         , ldxios = lrxios )   ! before salt content isf_tsc trend
             CALL iom_get( numror, jpdom_autoglo, 'isf_sc_b' , risf_tsc_b(:,:,jp_sal), ldxios = lrxios )   ! before salt content isf_tsc trend
@@ -217,8 +217,8 @@
       ! 
       IF( lrst_oce ) THEN
-         IF(lwp) WRITE(numout,*)
-         IF(lwp) WRITE(numout,*) 'sbc : isf surface tracer content forcing fields written in ocean restart file ',   &
+         IF(lwp .AND. nprint > 0) WRITE(numout,*)
+         IF(lwp .AND. nprint > 0) WRITE(numout,*) 'sbc : isf surface tracer content forcing fields written in ocean restart file ',   &
             &                    'at it= ', kt,' date= ', ndastp
-         IF(lwp) WRITE(numout,*) '~~~~'
+         IF(lwp .AND. nprint > 0) WRITE(numout,*) '~~~~'
          IF( lwxios ) CALL iom_swap(      cwxios_context          )
          CALL iom_rstput( kt, nitrst, numrow, 'fwf_isf_b', fwfisf(:,:)         , ldxios = lwxios )
@@ -283,5 +283,5 @@
       READ  ( numnam_cfg, namsbc_isf, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_isf in configuration namelist' )
-      IF(lwm) WRITE ( numond, namsbc_isf )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_isf )
 
       IF(lwp) WRITE(numout,*)
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcmod.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcmod.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcmod.F90	(revision 11782)
@@ -114,5 +114,5 @@
       READ  ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc in configuration namelist' )
-      IF(lwm) WRITE( numond, namsbc )
+      IF(lwm .AND. nprint > 2) WRITE( numond, namsbc )
       !
 #if defined key_mpp_mpi
@@ -499,5 +499,5 @@
          IF( ln_rstart .AND.    &                               !* Restart: read in restart file
             & iom_varid( numror, 'utau_b', ldstop = .FALSE. ) > 0 ) THEN
-            IF(lwp) WRITE(numout,*) '          nit000-1 surface forcing fields red in the restart file'
+            IF(lwp .AND. nprint > 0) WRITE(numout,*) '          nit000-1 surface forcing fields red in the restart file'
             CALL iom_get( numror, jpdom_autoglo, 'utau_b', utau_b, ldxios = lrxios )   ! before i-stress  (U-point)
             CALL iom_get( numror, jpdom_autoglo, 'vtau_b', vtau_b, ldxios = lrxios )   ! before j-stress  (V-point)
@@ -513,5 +513,5 @@
             ENDIF
          ELSE                                                   !* no restart: set from nit000 values
-            IF(lwp) WRITE(numout,*) '          nit000-1 surface forcing fields set to nit000'
+            IF(lwp .AND. nprint > 0) WRITE(numout,*) '          nit000-1 surface forcing fields set to nit000'
             utau_b(:,:) = utau(:,:)
             vtau_b(:,:) = vtau(:,:)
@@ -524,8 +524,8 @@
       IF( lrst_oce ) THEN                              !      Write in the ocean restart file     !
          !                                             ! ---------------------------------------- !
-         IF(lwp) WRITE(numout,*)
-         IF(lwp) WRITE(numout,*) 'sbc : ocean surface forcing fields written in ocean restart file ',   &
+         IF(lwp .AND. nprint > 0) WRITE(numout,*)
+         IF(lwp .AND. nprint > 0) WRITE(numout,*) 'sbc : ocean surface forcing fields written in ocean restart file ',   &
             &                    'at it= ', kt,' date= ', ndastp
-         IF(lwp) WRITE(numout,*) '~~~~'
+         IF(lwp .AND. nprint > 0) WRITE(numout,*) '~~~~'
          IF( lwxios ) CALL iom_swap(      cwxios_context          )
          CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau, ldxios = lwxios )
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcrnf.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcrnf.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcrnf.F90	(revision 11782)
@@ -146,10 +146,10 @@
          IF( ln_rstart .AND.    &                               !* Restart: read in restart file
             & iom_varid( numror, 'rnf_b', ldstop = .FALSE. ) > 0 ) THEN
-            IF(lwp) WRITE(numout,*) '          nit000-1 runoff forcing fields red in the restart file', lrxios
+            IF(lwp .AND. nprint > 0) WRITE(numout,*) '          nit000-1 runoff forcing fields red in the restart file', lrxios
             CALL iom_get( numror, jpdom_autoglo, 'rnf_b', rnf_b, ldxios = lrxios )     ! before runoff
             CALL iom_get( numror, jpdom_autoglo, 'rnf_hc_b', rnf_tsc_b(:,:,jp_tem), ldxios = lrxios )   ! before heat content of runoff
             CALL iom_get( numror, jpdom_autoglo, 'rnf_sc_b', rnf_tsc_b(:,:,jp_sal), ldxios = lrxios )   ! before salinity content of runoff
          ELSE                                                   !* no restart: set from nit000 values
-            IF(lwp) WRITE(numout,*) '          nit000-1 runoff forcing fields set to nit000'
+            IF(lwp .AND. nprint > 0) WRITE(numout,*) '          nit000-1 runoff forcing fields set to nit000'
             rnf_b    (:,:  ) = rnf    (:,:  )
             rnf_tsc_b(:,:,:) = rnf_tsc(:,:,:)
@@ -159,8 +159,8 @@
       IF( lrst_oce ) THEN                              !      Write in the ocean restart file     !
          !                                             ! ---------------------------------------- !
-         IF(lwp) WRITE(numout,*)
-         IF(lwp) WRITE(numout,*) 'sbcrnf : runoff forcing fields written in ocean restart file ',   &
+         IF(lwp .AND. nprint > 0) WRITE(numout,*)
+         IF(lwp .AND. nprint > 0) WRITE(numout,*) 'sbcrnf : runoff forcing fields written in ocean restart file ',   &
             &                    'at it= ', kt,' date= ', ndastp
-         IF(lwp) WRITE(numout,*) '~~~~'
+         IF(lwp .AND. nprint > 0) WRITE(numout,*) '~~~~'
          IF( lwxios ) CALL iom_swap(      cwxios_context          )
          CALL iom_rstput( kt, nitrst, numrow, 'rnf_b' , rnf, ldxios = lwxios )
@@ -272,5 +272,5 @@
       READ  ( numnam_cfg, namsbc_rnf, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_rnf in configuration namelist' )
-      IF(lwm) WRITE ( numond, namsbc_rnf )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_rnf )
       !
       !                                         ! Control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcssm.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcssm.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcssm.F90	(revision 11782)
@@ -151,8 +151,8 @@
          IF( lrst_oce ) THEN                              !      Write in the ocean restart file     !
             !                                             ! ---------------------------------------- !
-            IF(lwp) WRITE(numout,*)
-            IF(lwp) WRITE(numout,*) 'sbc_ssm : sea surface mean fields written in ocean restart file ',   &
+            IF(lwp .AND. nprint > 0) WRITE(numout,*)
+            IF(lwp .AND. nprint > 0) WRITE(numout,*) 'sbc_ssm : sea surface mean fields written in ocean restart file ',   &
                &                    'at it= ', kt,' date= ', ndastp
-            IF(lwp) WRITE(numout,*) '~~~~~~~'
+            IF(lwp .AND. nprint > 0) WRITE(numout,*) '~~~~~~~'
             zf_sbc = REAL( nn_fsbc, wp )
             IF( lwxios ) CALL iom_swap(      cwxios_context          )
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcssr.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcssr.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcssr.F90	(revision 11782)
@@ -171,5 +171,5 @@
       READ  ( numnam_cfg, namsbc_ssr, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_ssr in configuration namelist' )
-      IF(lwm) WRITE ( numond, namsbc_ssr )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_ssr )
 
       IF(lwp) THEN                 !* control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcwave.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcwave.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcwave.F90	(revision 11782)
@@ -402,5 +402,5 @@
       READ  ( numnam_cfg, namsbc_wave, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_wave in configuration namelist' )
-      IF(lwm) WRITE ( numond, namsbc_wave )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_wave )
       !
       IF( ln_cdgw ) THEN
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/tideini.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/tideini.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/tideini.F90	(revision 11782)
@@ -65,5 +65,5 @@
       READ  ( numnam_cfg, nam_tide, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nam_tide in configuration namelist' )
-      IF(lwm) WRITE ( numond, nam_tide )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_tide )
       !
       IF( ln_tide ) THEN
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/STO/stopar.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/STO/stopar.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/STO/stopar.F90	(revision 11782)
@@ -268,5 +268,5 @@
       READ  ( numnam_cfg, namsto, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namsto in configuration namelist' )
-      IF(lwm) WRITE ( numond, namsto )
+      IF(lwm  .AND. nprint > 2) WRITE ( numond, namsto )
 
       IF( .NOT.ln_sto_eos ) THEN   ! no use of stochastic parameterization
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/eosbn2.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/eosbn2.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/eosbn2.F90	(revision 11782)
@@ -1242,5 +1242,5 @@
       READ  ( numnam_cfg, nameos, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nameos in configuration namelist' )
-      IF(lwm) WRITE( numond, nameos )
+      IF(lwm .AND. nprint > 2) WRITE( numond, nameos )
       !
       rau0        = 1026._wp                 !: volumic mass of reference     [kg/m3]
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/traadv.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/traadv.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/traadv.F90	(revision 11782)
@@ -201,5 +201,5 @@
       READ  ( numnam_cfg, namtra_adv, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtra_adv in configuration namelist' )
-      IF(lwm) WRITE( numond, namtra_adv )
+      IF(lwm .AND. nprint > 2) WRITE( numond, namtra_adv )
       !
       IF(lwp) THEN                           ! Namelist print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/trabbc.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/trabbc.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/trabbc.F90	(revision 11782)
@@ -140,5 +140,5 @@
       READ  ( numnam_cfg, nambbc, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nambbc in configuration namelist' )
-      IF(lwm) WRITE ( numond, nambbc )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, nambbc )
       !
       IF(lwp) THEN                     ! Control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/trabbl.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/trabbl.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/trabbl.F90	(revision 11782)
@@ -490,5 +490,5 @@
       READ  ( numnam_cfg, nambbl, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nambbl in configuration namelist' )
-      IF(lwm) WRITE ( numond, nambbl )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, nambbl )
       !
       l_bbl = .TRUE.                 !* flag to compute bbl coef and transport
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/tradmp.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/tradmp.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/tradmp.F90	(revision 11782)
@@ -184,5 +184,5 @@
       READ  ( numnam_cfg, namtra_dmp, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist' )
-      IF(lwm) WRITE ( numond, namtra_dmp )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namtra_dmp )
       !
       IF(lwp) THEN                  ! Namelist print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/tramle.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/tramle.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/tramle.F90	(revision 11782)
@@ -273,5 +273,5 @@
       READ  ( numnam_cfg, namtra_mle, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtra_mle in configuration namelist' )
-      IF(lwm) WRITE ( numond, namtra_mle )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namtra_mle )
 
       IF(lwp) THEN                     ! Namelist print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/traqsr.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/traqsr.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/traqsr.F90	(revision 11782)
@@ -135,5 +135,5 @@
 !!gm case neuler  not taken into account....
          IF( ln_rstart .AND. iom_varid( numror, 'qsr_hc_b', ldstop = .FALSE. ) > 0 ) THEN    ! read in restart
-            IF(lwp) WRITE(numout,*) '          nit000-1 qsr tracer content forcing field read in the restart file'
+            IF(lwp .AND. nprint >0) WRITE(numout,*) '          nit000-1 qsr tracer content forcing field read in the restart file'
             z1_2 = 0.5_wp
             CALL iom_get( numror, jpdom_autoglo, 'qsr_hc_b', qsr_hc_b, ldxios = lrxios )   ! before heat content trend due to Qsr flux
@@ -343,5 +343,5 @@
       READ  ( numnam_cfg, namtra_qsr, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist' )
-      IF(lwm) WRITE ( numond, namtra_qsr )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namtra_qsr )
       !
       IF(lwp) THEN                ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/trasbc.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/trasbc.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/trasbc.F90	(revision 11782)
@@ -107,5 +107,5 @@
          IF( ln_rstart .AND.    &               ! Restart: read in restart file
               & iom_varid( numror, 'sbc_hc_b', ldstop = .FALSE. ) > 0 ) THEN
-            IF(lwp) WRITE(numout,*) '          nit000-1 sbc tracer content field read in the restart file'
+            IF(lwp .AND. nprint > 0) WRITE(numout,*) '          nit000-1 sbc tracer content field read in the restart file'
             zfact = 0.5_wp
             sbc_tsc(:,:,:) = 0._wp
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRD/trdini.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRD/trdini.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRD/trdini.F90	(revision 11782)
@@ -53,5 +53,5 @@
       READ  ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtrd in configuration namelist' )
-      IF(lwm) WRITE( numond, namtrd )
+      IF(lwm .AND. nprint > 2) WRITE( numond, namtrd )
       !
       IF(lwp) THEN                  ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRD/trdmxl.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRD/trdmxl.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRD/trdmxl.F90	(revision 11782)
@@ -739,5 +739,5 @@
       READ  ( numnam_cfg, namtrd_mxl, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtrd_mxl in configuration namelist' )
-      IF(lwm) WRITE( numond, namtrd_mxl )
+      IF(lwm .AND. nprint > 2) WRITE( numond, namtrd_mxl )
       !
       IF(lwp) THEN                      ! control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/USR/usrdef_hgr.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/USR/usrdef_hgr.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/USR/usrdef_hgr.F90	(revision 11782)
@@ -107,5 +107,5 @@
          CALL ctl_warn( ' GYRE used as Benchmark: e1=e2=106km, no need to adjust rdt, ahm,aht ' )
       ENDIF
-      IF( nprint==1 .AND. lwp )   THEN
+      IF( nprint > 3 .AND. lwp )   THEN
          WRITE(numout,*) 'ze1', ze1, 'cosalpha', zcos_alpha, 'sinalpha', zsin_alpha
          WRITE(numout,*) 'ze1deg', ze1deg, 'zlam0', zlam0, 'zphi0', zphi0
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/USR/usrdef_nam.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/USR/usrdef_nam.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/USR/usrdef_nam.F90	(revision 11782)
@@ -63,5 +63,5 @@
 902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namusr_def in configuration namelist' )
       !
-      IF(lwm)   WRITE( numond, namusr_def )
+      IF(lwm .AND. nprint > 2)   WRITE( numond, namusr_def )
       !
       cd_cfg = 'GYRE'               ! name & resolution (not used)
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfdrg.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfdrg.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfdrg.F90	(revision 11782)
@@ -242,5 +242,5 @@
       READ  ( numnam_cfg, namdrg, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam( ios , 'namdrg in configuration namelist' )
-      IF(lwm) WRITE ( numond, namdrg )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namdrg )
       !
       IF(lwp) THEN
@@ -343,6 +343,6 @@
       IF(ll_bot)   READ  ( numnam_cfg, namdrg_bot, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam( ios , TRIM(cl_namcfg) )
-      IF(lwm .AND. ll_top)   WRITE ( numond, namdrg_top )
-      IF(lwm .AND. ll_bot)   WRITE ( numond, namdrg_bot )
+      IF(lwm .AND. ll_top .AND. nprint > 2)   WRITE ( numond, namdrg_top )
+      IF(lwm .AND. ll_bot .AND. nprint > 2)   WRITE ( numond, namdrg_bot )
       !
       IF(lwp) THEN
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfgls.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfgls.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfgls.F90	(revision 11782)
@@ -864,5 +864,5 @@
       READ  ( numnam_cfg, namzdf_gls, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namzdf_gls in configuration namelist' )
-      IF(lwm) WRITE ( numond, namzdf_gls )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_gls )
 
       IF(lwp) THEN                     !* Control print
@@ -1193,5 +1193,5 @@
       ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file
          !                                   ! -------------------
-         IF(lwp) WRITE(numout,*) '---- gls-rst ----'
+         IF(lwp .AND. nprint > 2) WRITE(numout,*) '---- gls-rst ----'
          IF( lwxios ) CALL iom_swap(      cwxios_context         )
          CALL iom_rstput( kt, nitrst, numrow, 'en'    , en    , ldxios = lwxios )
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfiwm.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfiwm.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfiwm.F90	(revision 11782)
@@ -429,5 +429,5 @@
       READ  ( numnam_cfg, namzdf_iwm, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namzdf_iwm in configuration namelist' )
-      IF(lwm) WRITE ( numond, namzdf_iwm )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_iwm )
       !
       IF(lwp) THEN                  ! Control print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfosm.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfosm.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfosm.F90	(revision 11782)
@@ -1391,5 +1391,5 @@
      READ  ( numnam_cfg, namzdf_osm, IOSTAT = ios, ERR = 902 )
 902  IF( ios >  0 ) CALL ctl_nam ( ios , 'namzdf_osm in configuration namelist' )
-     IF(lwm) WRITE ( numond, namzdf_osm )
+     IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_osm )
 
      IF(lwp) THEN                    ! Control print
@@ -1567,5 +1567,5 @@
      !!-----------------------------------------------------------------------------
      IF( TRIM(cdrw) == 'WRITE') THEN     !* Write hbli into the restart file, then return
-        IF(lwp) WRITE(numout,*) '---- osm-rst ----'
+        IF(lwp  .AND. nprint > 0) WRITE(numout,*) '---- osm-rst ----'
          CALL iom_rstput( kt, nitrst, numrow, 'wn'     , wn  , ldxios = lwxios )
          CALL iom_rstput( kt, nitrst, numrow, 'hbl'    , hbl , ldxios = lwxios )
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfphy.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfphy.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfphy.F90	(revision 11782)
@@ -98,5 +98,5 @@
       READ  ( numnam_cfg, namzdf, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namzdf in configuration namelist' )
-      IF(lwm)   WRITE ( numond, namzdf )
+      IF(lwm .AND. nprint > 2)   WRITE ( numond, namzdf )
       !
       IF(lwp) THEN                      ! Parameter print
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfric.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfric.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfric.F90	(revision 11782)
@@ -85,5 +85,5 @@
       READ  ( numnam_cfg, namzdf_ric, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namzdf_ric in configuration namelist' )
-      IF(lwm) WRITE ( numond, namzdf_ric )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_ric )
       !
       IF(lwp) THEN                   ! Control print
@@ -234,5 +234,5 @@
       ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file
          !                                   ! -------------------
-         IF(lwp) WRITE(numout,*) '---- ric-rst ----'
+         IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- ric-rst ----'
          IF( lwxios ) CALL iom_swap(      cwxios_context          )
          CALL iom_rstput( kt, nitrst, numrow, 'avt_k', avt_k, ldxios = lwxios )
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdftke.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdftke.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdftke.F90	(revision 11782)
@@ -663,5 +663,5 @@
       READ  ( numnam_cfg, namzdf_tke, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namzdf_tke in configuration namelist' )
-      IF(lwm) WRITE ( numond, namzdf_tke )
+      IF(lwm.AND. nprint > 2) WRITE ( numond, namzdf_tke )
       !
       ri_cri   = 2._wp    / ( 2._wp + rn_ediss / rn_ediff )   ! resulting critical Richardson number
@@ -797,5 +797,5 @@
       ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file
          !                                   ! -------------------
-         IF(lwp) WRITE(numout,*) '---- tke_rst ----'
+         IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- tke_rst ----'
          IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
          CALL iom_rstput( kt, nitrst, numrow, 'en'   , en   , ldxios = lwxios )
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/nemogcm.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/nemogcm.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/nemogcm.F90	(revision 11782)
@@ -153,5 +153,5 @@
       CALL mpp_max( 'nemogcm', nstop )
 
-      IF(lwp) WRITE(numout,cform_aaa)   ! Flag AAAAAAA
+      IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa)   ! Flag AAAAAAA
 
       !                            !-----------------------!
@@ -226,5 +226,5 @@
       !                            !==  finalize the run  ==!
       !                            !------------------------!
-      IF(lwp) WRITE(numout,cform_aaa)        ! Flag AAAAAAA
+      IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa)        ! Flag AAAAAAA
       !
       IF( nstop /= 0 .AND. lwp ) THEN        ! error print
@@ -309,5 +309,4 @@
                   CALL ctl_opn( numnam_ref,        'namelist_ref',     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )
                   CALL ctl_opn( numnam_cfg,        'namelist_cfg',     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )
-      IF( lwm )   CALL ctl_opn(     numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )
       ! open /dev/null file to be able to supress output write easily
                   CALL ctl_opn(     numnul,           '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )
@@ -325,4 +324,8 @@
       !
       lwp = (narea == 1) .OR. ln_ctl    ! control of all listing output print
+      !
+      nprint    = nn_print          ! convert DOCTOR namelist names into OLD names
+      !
+      IF( lwm .AND. nprint > 2 )   CALL ctl_opn(     numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )
       !
       IF(lwp) THEN                      ! open listing units
@@ -352,5 +355,5 @@
          WRITE(numout,*)
          !
-         WRITE(numout,cform_aaa)                                        ! Flag AAAAAAA
+         IF(nprint > 1) WRITE(numout,cform_aaa)                                        ! Flag AAAAAAA
          !
       ENDIF
@@ -369,5 +372,5 @@
       ENDIF
       !
-      IF(lwm) WRITE( numond, namctl )
+      IF(lwm .AND. nprint > 2) WRITE( numond, namctl )
       !
       !                             !------------------------------------!
@@ -388,5 +391,5 @@
       ENDIF
       !
-      IF(lwm)   WRITE( numond, namcfg )
+      IF(lwm .AND. nprint > 2)   WRITE( numond, namcfg )
       !
       !                             !-----------------------------------------!
@@ -492,5 +495,5 @@
       IF( lk_asminc    )   CALL asm_inc_init    ! Initialize assimilation increments
       !
-      IF(lwp) WRITE(numout,cform_aaa)           ! Flag AAAAAAA
+      IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa)           ! Flag AAAAAAA
       !
       IF( ln_timing    )   CALL timing_stop( 'nemo_init')
@@ -536,5 +539,4 @@
       ENDIF
       !
-      nprint    = nn_print          ! convert DOCTOR namelist names into OLD names
       nictls    = nn_ictls
       nictle    = nn_ictle
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/step.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/step.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/step.F90	(revision 11782)
@@ -298,6 +298,6 @@
       IF( kstp == nit000 ) THEN                          ! 1st time step only
                                         CALL iom_close( numror )   ! close input  ocean restart file
-         IF(lwm)                        CALL FLUSH    ( numond )   ! flush output namelist oce
-         IF(lwm .AND. numoni /= -1 )    CALL FLUSH    ( numoni )   ! flush output namelist ice (if exist)
+         IF( lwm .AND. numond /= -1 )    CALL FLUSH    ( numond )   ! flush output namelist oce
+         IF( lwm .AND. numoni /= -1 )    CALL FLUSH    ( numoni )   ! flush output namelist ice (if exist)
       ENDIF
 
Index: /NEMO/branches/2019/dev_r11756_text_output/src/OCE/timing.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/OCE/timing.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/OCE/timing.F90	(revision 11782)
@@ -375,5 +375,5 @@
       CALL MPI_GATHER( (/compute_time, waiting_time(1), waiting_time(2), elapsed_time/),   &
          &             4, MPI_DOUBLE_PRECISION, timing_glob, 4, MPI_DOUBLE_PRECISION, 0, MPI_COMM_OCE, icode)
-      IF( narea == 1 ) THEN
+      IF( narea == 1 .AND. nprint > 1) THEN
          WRITE(numtime,*) ' '
          WRITE(numtime,*) ' Report on time spent on waiting MPI messages '
Index: /NEMO/branches/2019/dev_r11756_text_output/src/SAS/daymod.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/SAS/daymod.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/SAS/daymod.F90	(revision 11782)
@@ -134,5 +134,5 @@
 
       ! control print
-      IF(lwp) WRITE(numout,'(a,i6,a,i2,a,i2,a,i8,a,i8,a,i8,a,i8)')   &
+      IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i6,a,i2,a,i2,a,i8,a,i8,a,i8,a,i8)')   &
            &                   ' =======>> 1/2 time step before the start of the run DATE Y/M/D = ',   &
            &                   nyear, '/', nmonth, '/', nday, '  nsec_day:', nsec_day, '  nsec_week:', nsec_week, '  &
@@ -267,7 +267,7 @@
          CALL ymds2ju( nyear, 01, 01, 0.0, fjulstartyear )
          !
-         IF(lwp) WRITE(numout,'(a,i8,a,i4.4,a,i2.2,a,i2.2,a,i3.3)') '======>> time-step =', kt,   &
+         IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i8,a,i4.4,a,i2.2,a,i2.2,a,i3.3)') '======>> time-step =', kt,   &
               &   '      New day, DATE Y/M/D = ', nyear, '/', nmonth, '/', nday, '      nday_year = ', nday_year
-         IF(lwp) WRITE(numout,'(a,i8,a,i7,a,i5)') '         nsec_year = ', nsec_year,   &
+         IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i8,a,i7,a,i5)') '         nsec_year = ', nsec_year,   &
               &   '   nsec_month = ', nsec_month, '   nsec_day = ', nsec_day, '   nsec_week = ', nsec_week
       ENDIF
Index: /NEMO/branches/2019/dev_r11756_text_output/src/SAS/nemogcm.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/SAS/nemogcm.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/SAS/nemogcm.F90	(revision 11782)
@@ -96,5 +96,5 @@
       CALL mpp_max( 'nemogcm', nstop )
 
-      IF(lwp) WRITE(numout,cform_aaa)   ! Flag AAAAAAA
+      IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa)   ! Flag AAAAAAA
 
       !                            !-----------------------!
@@ -148,5 +148,5 @@
       !                            !==  finalize the run  ==!
       !                            !------------------------!
-      IF(lwp) WRITE(numout,cform_aaa)        ! Flag AAAAAAA
+      IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa)        ! Flag AAAAAAA
       !
       IF( nstop /= 0 .AND. lwp ) THEN        ! error print
@@ -234,5 +234,5 @@
                      CALL ctl_opn( numnam_ref,        'namelist_sas_ref',     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )
                      CALL ctl_opn( numnam_cfg,        'namelist_sas_cfg',     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )
-         IF( lwm )   CALL ctl_opn(     numond, 'output.namelist_sas.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )
+         IF( lwm .AND. nprint > 2 )   CALL ctl_opn(     numond, 'output.namelist_sas.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )
       ELSE
          IF( lwm )   CALL ctl_opn(     numout,            'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )
@@ -240,5 +240,5 @@
                      CALL ctl_opn( numnam_ref,            'namelist_ref',     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )
                      CALL ctl_opn( numnam_cfg,            'namelist_cfg',     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )
-         IF( lwm )   CALL ctl_opn(     numond,     'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )
+         IF( lwm .AND. nprint > 2  )   CALL ctl_opn(     numond,     'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )
       ENDIF
       ! open /dev/null file to be able to supress output write easily
@@ -288,5 +288,5 @@
          WRITE(numout,*)
          !
-         WRITE(numout,cform_aaa)                                        ! Flag AAAAAAA
+         IF(nprint > 1) WRITE(numout,cform_aaa)                                        ! Flag AAAAAAA
          !
       ENDIF
@@ -305,5 +305,5 @@
       ENDIF
       !
-      IF(lwm) WRITE( numond, namctl )
+      IF(lwm .AND. nprint > 2) WRITE( numond, namctl )
       !
       !                             !------------------------------------!
@@ -324,5 +324,7 @@
       ENDIF
       !
-      IF(lwm)   WRITE( numond, namcfg )
+      nprint    = nn_print          ! convert DOCTOR namelist names into OLD names
+      !
+      IF(lwm .AND. nprint > 2)   WRITE( numond, namcfg )
       !
       !                             !-----------------------------------------!
@@ -362,5 +364,5 @@
                            CALL icb_init( rdt, nit000)   ! initialise icebergs instance
       !
-      IF(lwp) WRITE(numout,cform_aaa)           ! Flag AAAAAAA
+      IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa)           ! Flag AAAAAAA
       !
       IF( ln_timing    )   CALL timing_stop( 'nemo_init')
@@ -406,5 +408,4 @@
       ENDIF
       !
-      nprint    = nn_print          ! convert DOCTOR namelist names into OLD names
       nictls    = nn_ictls
       nictle    = nn_ictle
Index: /NEMO/branches/2019/dev_r11756_text_output/src/SAS/sbcssm.F90
===================================================================
--- /NEMO/branches/2019/dev_r11756_text_output/src/SAS/sbcssm.F90	(revision 11781)
+++ /NEMO/branches/2019/dev_r11756_text_output/src/SAS/sbcssm.F90	(revision 11782)
@@ -192,5 +192,5 @@
       READ  ( numnam_cfg, namsbc_sas, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_sas in configuration namelist' )
-      IF(lwm) WRITE ( numond, namsbc_sas )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_sas )
       !           
       IF(lwp) THEN                              ! Control print
