Changeset 11782


Ignore:
Timestamp:
2019-10-24T10:30:30+02:00 (11 months ago)
Author:
andmirek
Message:

Ticket #2320 print levels in ICE/OCE

Location:
NEMO/branches/2019/dev_r11756_text_output/src
Files:
101 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icealb.F90

    r11536 r11782  
    196196      READ  ( numnam_ice_cfg, namalb, IOSTAT = ios, ERR = 902 ) 
    197197902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namalb in configuration namelist' ) 
    198       IF(lwm) WRITE( numoni, namalb ) 
     198      IF(lwm .AND. nprint > 2) WRITE( numoni, namalb ) 
    199199      ! 
    200200      IF(lwp) THEN                      ! Control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedia.F90

    r11536 r11782  
    184184      READ  ( numnam_ice_cfg, namdia, IOSTAT = ios, ERR = 902 ) 
    185185902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdia in configuration namelist' ) 
    186       IF(lwm) WRITE ( numoni, namdia ) 
     186      IF(lwm .AND. nprint > 2) WRITE ( numoni, namdia ) 
    187187      ! 
    188188      IF(lwp) THEN                  ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn.F90

    r11536 r11782  
    230230      READ  ( numnam_ice_cfg, namdyn, IOSTAT = ios, ERR = 902 ) 
    231231902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn in configuration namelist' ) 
    232       IF(lwm) WRITE( numoni, namdyn ) 
     232      IF(lwm .AND. nprint > 2) WRITE( numoni, namdyn ) 
    233233      ! 
    234234      IF(lwp) THEN                     ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_adv.F90

    r11536 r11782  
    137137      READ  ( numnam_ice_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 ) 
    138138902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist' ) 
    139       IF(lwm) WRITE( numoni, namdyn_adv ) 
     139      IF(lwm .AND. nprint > 2) WRITE( numoni, namdyn_adv ) 
    140140      ! 
    141141      IF(lwp) THEN                     ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_adv_pra.F90

    r11732 r11782  
    788788      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   !==  write in the ice restart file  ==! 
    789789         !                                   !=====================================! 
    790          IF(lwp) WRITE(numout,*) '----  ice-adv-rst  ----' 
     790         IF(lwp .AND. nprint > 0) WRITE(numout,*) '----  ice-adv-rst  ----' 
    791791         iter = kt + nn_fsbc - 1             ! ice restarts are written at kt == nitrst - nn_fsbc + 1 
    792792         ! 
  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_rdgrft.F90

    r11732 r11782  
    914914      READ  ( numnam_ice_cfg, namdyn_rdgrft, IOSTAT = ios, ERR = 902 ) 
    915915902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_rdgrft in configuration namelist' ) 
    916       IF(lwm) WRITE ( numoni, namdyn_rdgrft ) 
     916      IF(lwm .AND. nprint > 2) WRITE ( numoni, namdyn_rdgrft ) 
    917917      ! 
    918918      IF (lwp) THEN                          ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_rhg.F90

    r11536 r11782  
    119119      READ  ( numnam_ice_cfg, namdyn_rhg, IOSTAT = ios, ERR = 902 ) 
    120120902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namdyn_rhg in configuration namelist' ) 
    121       IF(lwm) WRITE ( numoni, namdyn_rhg ) 
     121      IF(lwm .AND. nprint > 2) WRITE ( numoni, namdyn_rhg ) 
    122122      ! 
    123123      IF(lwp) THEN                     ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_rhg_evp.F90

    r11536 r11782  
    899899      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file 
    900900         !                                   ! ------------------- 
    901          IF(lwp) WRITE(numout,*) '---- rhg-rst ----' 
     901         IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- rhg-rst ----' 
    902902         iter = kt + nn_fsbc - 1             ! ice restarts are written at kt == nitrst - nn_fsbc + 1 
    903903         ! 
  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/iceistate.F90

    r11536 r11782  
    480480      READ  ( numnam_ice_cfg, namini, IOSTAT = ios, ERR = 902 ) 
    481481902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namini in configuration namelist' ) 
    482       IF(lwm) WRITE ( numoni, namini ) 
     482      IF(lwm .AND. nprint > 2) WRITE ( numoni, namini ) 
    483483      ! 
    484484      slf_i(jp_hti) = sn_hti  ;  slf_i(jp_hts) = sn_hts 
  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/iceitd.F90

    r11732 r11782  
    692692      READ  ( numnam_ice_cfg, namitd, IOSTAT = ios, ERR = 902 ) 
    693693902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namitd in configuration namelist' ) 
    694       IF(lwm) WRITE( numoni, namitd ) 
     694      IF(lwm .AND. nprint > 2) WRITE( numoni, namitd ) 
    695695      ! 
    696696      IF(lwp) THEN                  ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icerst.F90

    r11536 r11782  
    7070            clpath = TRIM(cn_icerst_outdir)  
    7171            IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath)//'/' 
    72             IF(lwp) THEN 
     72            IF(lwp .AND. nprint > 0) THEN 
    7373               WRITE(numout,*) 
    7474               WRITE(numout,*) '             open ice restart NetCDF file: ',TRIM(clpath)//clname 
     
    108108      iter = kt + nn_fsbc - 1   ! ice restarts are written at kt == nitrst - nn_fsbc + 1 
    109109 
    110       IF( iter == nitrst ) THEN 
     110      IF( iter == nitrst .AND. nprint > 0 ) THEN 
    111111         IF(lwp) WRITE(numout,*) 
    112112         IF(lwp) WRITE(numout,*) 'ice_rst_write : write ice restart file  kt =', kt 
     
    178178      !!---------------------------------------------------------------------- 
    179179 
    180       IF(lwp) THEN 
     180      IF(lwp .AND. nprint > 0) THEN 
    181181         WRITE(numout,*) 
    182182         WRITE(numout,*) 'ice_rst_read: read ice NetCDF restart file' 
     
    196196         CALL iom_get( numrir, 'nn_fsbc', zfice ) 
    197197         CALL iom_get( numrir, 'kt_ice' , ziter )     
    198          IF(lwp) WRITE(numout,*) '   read ice restart file at time step    : ', ziter 
    199          IF(lwp) WRITE(numout,*) '   in any case we force it to nit000 - 1 : ', nit000 - 1 
     198         IF(lwp .AND. nprint > 0) WRITE(numout,*) '   read ice restart file at time step    : ', ziter 
     199         IF(lwp .AND. nprint > 0) WRITE(numout,*) '   in any case we force it to nit000 - 1 : ', nit000 - 1 
    200200 
    201201         ! Control of date 
  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icesbc.F90

    r11575 r11782  
    290290      READ  ( numnam_ice_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 
    291291902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc in configuration namelist' ) 
    292       IF(lwm) WRITE( numoni, namsbc ) 
     292      IF(lwm .AND. nprint > 2) WRITE( numoni, namsbc ) 
    293293      ! 
    294294      IF(lwp) THEN                     ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icestp.F90

    r11536 r11782  
    235235      CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 
    236236      CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 
    237       IF(lwm) CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 
     237      IF(lwm .AND. nprint > 2) CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 
    238238      ! 
    239239      CALL par_init                ! set some ice run parameters 
     
    307307      READ  ( numnam_ice_cfg, nampar, IOSTAT = ios, ERR = 902 ) 
    308308902   IF( ios > 0 )   CALL ctl_nam ( ios , 'nampar in configuration namelist' ) 
    309       IF(lwm) WRITE( numoni, nampar ) 
     309      IF(lwm .AND. nprint > 2) WRITE( numoni, nampar ) 
    310310      ! 
    311311      IF(lwp) THEN                  ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd.F90

    r11536 r11782  
    545545      READ  ( numnam_ice_cfg, namthd, IOSTAT = ios, ERR = 902 ) 
    546546902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd in configuration namelist' ) 
    547       IF(lwm) WRITE( numoni, namthd ) 
     547      IF(lwm .AND. nprint > 2) WRITE( numoni, namthd ) 
    548548      ! 
    549549      IF(lwp) THEN                          ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_da.F90

    r11536 r11782  
    183183      READ  ( numnam_ice_cfg, namthd_da, IOSTAT = ios, ERR = 902 ) 
    184184902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd_da in configuration namelist' ) 
    185       IF(lwm) WRITE( numoni, namthd_da ) 
     185      IF(lwm .AND. nprint > 2) WRITE( numoni, namthd_da ) 
    186186      ! 
    187187      IF(lwp) THEN                          ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_do.F90

    r11536 r11782  
    449449      READ  ( numnam_ice_cfg, namthd_do, IOSTAT = ios, ERR = 902 ) 
    450450902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd_do in configuration namelist' ) 
    451       IF(lwm) WRITE( numoni, namthd_do ) 
     451      IF(lwm .AND. nprint > 2) WRITE( numoni, namthd_do ) 
    452452      ! 
    453453      IF(lwp) THEN                          ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_pnd.F90

    r11536 r11782  
    214214      READ  ( numnam_ice_cfg, namthd_pnd, IOSTAT = ios, ERR = 902 ) 
    215215902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd_pnd in configuration namelist' ) 
    216       IF(lwm) WRITE ( numoni, namthd_pnd ) 
     216      IF(lwm .AND. nprint > 2) WRITE ( numoni, namthd_pnd ) 
    217217      ! 
    218218      IF(lwp) THEN                        ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_sal.F90

    r11536 r11782  
    138138      READ  ( numnam_ice_cfg, namthd_sal, IOSTAT = ios, ERR = 902 ) 
    139139902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd_sal in configuration namelist' ) 
    140       IF(lwm) WRITE ( numoni, namthd_sal ) 
     140      IF(lwm .AND. nprint > 2) WRITE ( numoni, namthd_sal ) 
    141141      ! 
    142142      IF(lwp) THEN                           ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_zdf.F90

    r11536 r11782  
    9494      READ  ( numnam_ice_cfg, namthd_zdf, IOSTAT = ios, ERR = 902 ) 
    9595902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd_zdf in configuration namelist' ) 
    96       IF(lwm) WRITE( numoni, namthd_zdf ) 
     96      IF(lwm .AND. nprint > 2) WRITE( numoni, namthd_zdf ) 
    9797      ! 
    9898      IF(lwp) THEN                          ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/iceupdate.F90

    r11536 r11782  
    439439      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file 
    440440         !                                   ! ------------------- 
    441          IF(lwp) WRITE(numout,*) '---- update-rst ----' 
     441         IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- update-rst ----' 
    442442         iter = kt + nn_fsbc - 1             ! ice restarts are written at kt == nitrst - nn_fsbc + 1 
    443443         ! 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/ASM/asminc.F90

    r11536 r11782  
    151151      READ  ( numnam_cfg, nam_asminc, IOSTAT = ios, ERR = 902 ) 
    152152902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nam_asminc in configuration namelist' ) 
    153       IF(lwm) WRITE ( numond, nam_asminc ) 
     153      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_asminc ) 
    154154 
    155155      ! Control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/BDY/bdydta.F90

    r11536 r11782  
    434434            READ  ( numnam_cfg, nambdy_dta, IOSTAT = ios, ERR = 902 ) 
    435435902         IF( ios >  0 )   CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist' ) 
    436             IF(lwm) WRITE( numond, nambdy_dta )            
     436            IF(lwm .AND. nprint > 2) WRITE( numond, nambdy_dta )            
    437437         ENDIF 
    438438 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/BDY/bdyini.F90

    r11536 r11782  
    9696      READ  ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 ) 
    9797902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nambdy in configuration namelist' ) 
    98       IF(lwm) WRITE ( numond, nambdy ) 
     98      IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy ) 
    9999 
    100100      IF( .NOT. Agrif_Root() ) ln_bdy = .FALSE.   ! forced for Agrif children 
     
    10881088      READ  ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 
    10891089904   IF( ios /= 0 )   CALL ctl_nam ( ios , 'nambdy_index in configuration namelist' ) 
    1090       IF(lwm) WRITE ( numond, nambdy_index ) 
     1090      IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy_index ) 
    10911091       
    10921092      SELECT CASE ( TRIM(ctypebdy) ) 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/BDY/bdytides.F90

    r11536 r11782  
    100100            READ  ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 ) 
    101101902         IF( ios >  0 )   CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist' ) 
    102             IF(lwm) WRITE ( numond, nambdy_tide ) 
     102            IF(lwm  .AND. nprint > 2) WRITE ( numond, nambdy_tide ) 
    103103            !                                               ! Parameter control and print 
    104104            IF(lwp) WRITE(numout,*) '  ' 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/C1D/c1d.F90

    r11536 r11782  
    5757      READ  ( numnam_cfg, namc1d, IOSTAT = ios, ERR = 902 ) 
    5858902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namc1d in configuration namelist' ) 
    59       IF(lwm) WRITE ( numond, namc1d ) 
     59      IF(lwm .AND. nprint > 2) WRITE ( numond, namc1d ) 
    6060      ! 
    6161      IF(lwp) THEN                    ! Control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/C1D/dtauvd.F90

    r11536 r11782  
    6767      READ  ( numnam_cfg, namc1d_uvd, IOSTAT = ios, ERR = 902 ) 
    6868902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namc1d_uvd in configuration namelist' ) 
    69       IF(lwm) WRITE ( numond, namc1d_uvd ) 
     69      IF(lwm .AND. nprint > 2) WRITE ( numond, namc1d_uvd ) 
    7070 
    7171      !                             ! force the initialization when dyndmp is used 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/C1D/dyndmp.F90

    r11536 r11782  
    8585      READ  ( numnam_cfg, namc1d_dyndmp, IOSTAT = ios, ERR = 902 ) 
    8686902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namc1d_dyndmp in configuration namelist' ) 
    87       IF(lwm) WRITE ( numond, namc1d_dyndmp ) 
     87      IF(lwm .AND. nprint > 2) WRITE ( numond, namc1d_dyndmp ) 
    8888      ! 
    8989      IF(lwp) THEN                           ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/CRS/crsini.F90

    r11536 r11782  
    8686      READ  ( numnam_cfg, namcrs, IOSTAT = ios, ERR = 902 ) 
    8787902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namcrs in configuration namelist' ) 
    88       IF(lwm) WRITE ( numond, namcrs ) 
     88      IF(lwm .AND. nprint > 2) WRITE ( numond, namcrs ) 
    8989 
    9090     IF(lwp) THEN 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/dia25h.F90

    r11536 r11782  
    5959      READ  ( numnam_cfg, nam_dia25h, IOSTAT = ios, ERR = 902 ) 
    6060902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nam_dia25h in configuration namelist' ) 
    61       IF(lwm) WRITE ( numond, nam_dia25h ) 
     61      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_dia25h ) 
    6262 
    6363      IF(lwp) THEN                   ! Control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diadct.F90

    r11536 r11782  
    130130     READ  ( numnam_cfg, nam_diadct, IOSTAT = ios, ERR = 902 ) 
    131131902  IF( ios >  0 ) CALL ctl_nam ( ios , 'nam_diadct in configuration namelist' ) 
    132      IF(lwm) WRITE ( numond, nam_diadct ) 
     132     IF(lwm .AND. nprint > 2) WRITE ( numond, nam_diadct ) 
    133133 
    134134     IF( lwp ) THEN 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diaharm.F90

    r11536 r11782  
    8585      READ  ( numnam_cfg, nam_diaharm, IOSTAT = ios, ERR = 902 ) 
    8686902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nam_diaharm in configuration namelist' ) 
    87       IF(lwm) WRITE ( numond, nam_diaharm ) 
     87      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_diaharm ) 
    8888      ! 
    8989      IF(lwp) THEN 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diahsb.F90

    r11536 r11782  
    310310      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file 
    311311         !                                   ! ------------------- 
    312          IF(lwp) WRITE(numout,*) 
    313          IF(lwp) WRITE(numout,*) '   dia_hsb_rst : write restart at it= ', kt,' date= ', ndastp 
    314          IF(lwp) WRITE(numout,*) 
     312         IF(lwp .AND. nprint > 0) THEN 
     313            WRITE(numout,*) 
     314            WRITE(numout,*) '   dia_hsb_rst : write restart at it= ', kt,' date= ', ndastp 
     315            WRITE(numout,*) 
     316         ENDIF 
    315317         ! 
    316318         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
     
    366368      READ  ( numnam_cfg, namhsb, IOSTAT = ios, ERR = 902 ) 
    367369902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namhsb in configuration namelist' ) 
    368       IF(lwm) WRITE( numond, namhsb ) 
     370      IF(lwm .AND. nprint > 2) WRITE( numond, namhsb ) 
    369371 
    370372      IF(lwp) THEN 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diaptr.F90

    r11536 r11782  
    398398      READ  ( numnam_cfg, namptr, IOSTAT = ios, ERR = 902 ) 
    399399902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namptr in configuration namelist' ) 
    400       IF(lwm) WRITE ( numond, namptr ) 
     400      IF(lwm .AND. nprint > 2) WRITE ( numond, namptr ) 
    401401 
    402402      IF(lwp) THEN                     ! Control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diatmb.F90

    r11536 r11782  
    4848      READ  ( numnam_cfg, nam_diatmb, IOSTAT = ios, ERR = 902 ) 
    4949902   IF( ios >  0 ) CALL ctl_nam ( ios , 'nam_diatmb in configuration namelist' ) 
    50       IF(lwm) WRITE ( numond, nam_diatmb ) 
     50      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_diatmb ) 
    5151 
    5252      IF(lwp) THEN                   ! Control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/daymod.F90

    r10068 r11782  
    134134 
    135135      ! control print 
    136       IF(lwp) WRITE(numout,'(a,i6,a,i2,a,i2,a,i8,a,i8,a,i8,a,i8)')   & 
     136      IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i6,a,i2,a,i2,a,i8,a,i8,a,i8,a,i8)')   & 
    137137           &                   ' =======>> 1/2 time step before the start of the run DATE Y/M/D = ',   & 
    138138           &                   nyear, '/', nmonth, '/', nday, '  nsec_day:', nsec_day, '  nsec_week:', nsec_week, '  & 
     
    269269         CALL ymds2ju( nyear, 01, 01, 0.0, fjulstartyear ) 
    270270         ! 
    271          IF(lwp) WRITE(numout,'(a,i8,a,i4.4,a,i2.2,a,i2.2,a,i3.3)') '======>> time-step =', kt,   & 
     271         IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i8,a,i4.4,a,i2.2,a,i2.2,a,i3.3)') '======>> time-step =', kt,   & 
    272272              &   '      New day, DATE Y/M/D = ', nyear, '/', nmonth, '/', nday, '      nday_year = ', nday_year 
    273          IF(lwp) WRITE(numout,'(a,i8,a,i7,a,i5)') '         nsec_year = ', nsec_year,   & 
     273         IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i8,a,i7,a,i5)') '         nsec_year = ', nsec_year,   & 
    274274              &   '   nsec_month = ', nsec_month, '   nsec_day = ', nsec_day, '   nsec_week = ', nsec_week 
    275275      ENDIF 
     
    402402         ! 
    403403         IF( kt == nitrst ) THEN 
    404             IF(lwp) WRITE(numout,*) 
    405             IF(lwp) WRITE(numout,*) 'rst_write : write oce restart file  kt =', kt 
    406             IF(lwp) WRITE(numout,*) '~~~~~~~' 
     404            IF(lwp .AND. nprint > 0) THEN 
     405               WRITE(numout,*) 
     406               WRITE(numout,*) 'rst_write : write oce restart file  kt =', kt 
     407               WRITE(numout,*) '~~~~~~~' 
     408            ENDIF 
    407409         ENDIF 
    408410         ! calendar control 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/domain.F90

    r11536 r11782  
    312312      READ  ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 
    313313902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namrun in configuration namelist' ) 
    314       IF(lwm) WRITE ( numond, namrun ) 
     314      IF(lwm .AND. nprint > 2) WRITE ( numond, namrun ) 
    315315      ! 
    316316      IF(lwp) THEN                  ! control print 
     
    410410      READ  ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 
    411411904   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdom in configuration namelist' ) 
    412       IF(lwm) WRITE( numond, namdom ) 
     412      IF(lwm .AND. nprint > 2) WRITE( numond, namdom ) 
    413413      ! 
    414414      IF(lwp) THEN 
     
    442442      READ  ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 
    443443908   IF( ios >  0 )   CALL ctl_nam ( ios , 'namnc4 in configuration namelist' ) 
    444       IF(lwm) WRITE( numond, namnc4 ) 
     444      IF(lwm .AND. nprint > 2) WRITE( numond, namnc4 ) 
    445445 
    446446      IF(lwp) THEN                        ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/dommsk.F90

    r11536 r11782  
    109109      READ  ( numnam_cfg, namlbc, IOSTAT = ios, ERR = 902 ) 
    110110902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namlbc in configuration namelist' ) 
    111       IF(lwm) WRITE ( numond, namlbc ) 
     111      IF(lwm .AND. nprint > 2) WRITE ( numond, namlbc ) 
    112112       
    113113      IF(lwp) THEN                  ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/domvvl.F90

    r11536 r11782  
    820820               CALL iom_get( numror, jpdom_autoglo, 'e3t_n', e3t_n(:,:,:), ldxios = lrxios ) 
    821821               ! needed to restart if land processor not computed  
    822                IF(lwp) write(numout,*) 'dom_vvl_rst : e3t_b and e3t_n found in restart files' 
     822               IF(lwp .AND. nprint > 0) write(numout,*) 'dom_vvl_rst : e3t_b and e3t_n found in restart files' 
    823823               WHERE ( tmask(:,:,:) == 0.0_wp )  
    824824                  e3t_n(:,:,:) = e3t_0(:,:,:) 
     
    952952      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file 
    953953         !                                   ! =================== 
    954          IF(lwp) WRITE(numout,*) '---- dom_vvl_rst ----' 
     954         IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- dom_vvl_rst ----' 
    955955         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
    956956         !                                           ! --------- ! 
     
    997997      READ  ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 ) 
    998998902   IF( ios >  0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist' ) 
    999       IF(lwm) WRITE ( numond, nam_vvl ) 
     999      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_vvl ) 
    10001000      ! 
    10011001      IF(lwp) THEN                    ! Namelist print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/domzgr.F90

    r10425 r11782  
    147147!!gm end bug 
    148148      ! 
    149       IF( nprint == 1 .AND. lwp )   THEN 
     149      IF( nprint > 3 .AND. lwp )   THEN 
    150150         WRITE(numout,*) ' MIN val k_top   ', MINVAL(   k_top(:,:) ), ' MAX ', MAXVAL( k_top(:,:) ) 
    151151         WRITE(numout,*) ' MIN val k_bot   ', MINVAL(   k_bot(:,:) ), ' MAX ', MAXVAL( k_bot(:,:) ) 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/dtatsd.F90

    r11536 r11782  
    7171      READ  ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 ) 
    7272902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtsd in configuration namelist' ) 
    73       IF(lwm) WRITE ( numond, namtsd ) 
     73      IF(lwm .AND. nprint > 2) WRITE ( numond, namtsd ) 
    7474 
    7575      IF( PRESENT( ld_tradmp ) )   ln_tsd_dmp = .TRUE.     ! forces the initialization when tradmp is used 
     
    243243      IF( .NOT.ln_tsd_dmp ) THEN                   !==   deallocate T & S structure   ==!  
    244244         !                                              (data used only for initialisation) 
    245          IF(lwp) WRITE(numout,*) 'dta_tsd: deallocte T & S arrays as they are only use to initialize the run' 
     245         IF(lwp .AND. nprint > 1) WRITE(numout,*) 'dta_tsd: deallocte T & S arrays as they are only use to initialize the run' 
    246246                                        DEALLOCATE( sf_tsd(jp_tem)%fnow )     ! T arrays in the structure 
    247247         IF( sf_tsd(jp_tem)%ln_tint )   DEALLOCATE( sf_tsd(jp_tem)%fdta ) 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/iscplini.F90

    r11536 r11782  
    6868      READ  ( numnam_cfg, namsbc_iscpl, IOSTAT = ios, ERR = 902 ) 
    6969902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_iscpl in configuration namelist' ) 
    70       IF(lwm) WRITE ( numond, namsbc_iscpl ) 
     70      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_iscpl ) 
    7171      ! 
    7272      nstp_iscpl=MIN( nn_fiscpl, nitend-nit000+1 ) ! the coupling period have to be less or egal than the total number of time step 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynadv.F90

    r11536 r11782  
    110110      READ  ( numnam_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 ) 
    111111902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist' ) 
    112       IF(lwm) WRITE ( numond, namdyn_adv ) 
     112      IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_adv ) 
    113113 
    114114      IF(lwp) THEN                    ! Namelist print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynhpg.F90

    r11536 r11782  
    157157      READ  ( numnam_cfg, namdyn_hpg, IOSTAT = ios, ERR = 902 ) 
    158158902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_hpg in configuration namelist' ) 
    159       IF(lwm) WRITE ( numond, namdyn_hpg ) 
     159      IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_hpg ) 
    160160      ! 
    161161      IF(lwp) THEN                   ! Control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynspg.F90

    r11536 r11782  
    207207      READ  ( numnam_cfg, namdyn_spg, IOSTAT = ios, ERR = 902 ) 
    208208902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_spg in configuration namelist' ) 
    209       IF(lwm) WRITE ( numond, namdyn_spg ) 
     209      IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_spg ) 
    210210      ! 
    211211      IF(lwp) THEN             ! Namelist print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynspg_ts.F90

    r11536 r11782  
    969969      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file 
    970970         !                                   ! ------------------- 
    971          IF(lwp) WRITE(numout,*) '---- ts_rst ----' 
     971         IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- ts_rst ----' 
    972972         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
    973973         CALL iom_rstput( kt, nitrst, numrow, 'ub2_b'   , ub2_b  (:,:), ldxios = lwxios ) 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/dynvor.F90

    r11536 r11782  
    855855      READ  ( numnam_cfg, namdyn_vor, IOSTAT = ios, ERR = 902 ) 
    856856902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_vor in configuration namelist' ) 
    857       IF(lwm) WRITE ( numond, namdyn_vor ) 
     857      IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_vor ) 
    858858      ! 
    859859      IF(lwp) THEN                    ! Namelist print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DYN/wet_dry.F90

    r11536 r11782  
    8585      READ  ( numnam_cfg, namwad, IOSTAT = ios, ERR = 906) 
    8686906   IF( ios >  0 )   CALL ctl_nam ( ios , 'namwad in configuration namelist' ) 
    87       IF(lwm) WRITE ( numond, namwad ) 
     87      IF(lwm .AND. nprint > 2) WRITE ( numond, namwad ) 
    8888      ! 
    8989      IF( rn_wd_sbcfra>=1 )   CALL ctl_stop( 'STOP', 'rn_wd_sbcfra >=1 : must be < 1' ) 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/FLO/floats.F90

    r11536 r11782  
    9393      READ  ( numnam_cfg, namflo, IOSTAT = ios, ERR = 902 ) 
    9494902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namflo in configuration namelist' ) 
    95       IF(lwm) WRITE ( numond, namflo ) 
     95      IF(lwm .AND. nprint > 2) WRITE ( numond, namflo ) 
    9696      ! 
    9797      IF(lwp) THEN                  ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbini.F90

    r11536 r11782  
    410410      READ  ( numnam_cfg, namberg, IOSTAT = ios, ERR = 902 ) 
    411411902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namberg in configuration namelist' ) 
    412       IF(lwm) WRITE ( numond, namberg ) 
     412      IF(lwm .AND. nprint > 2) WRITE ( numond, namberg ) 
    413413      ! 
    414414      IF(lwp) WRITE(numout,*) 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbrst.F90

    r11536 r11782  
    211211            WRITE(cl_filename,'(A,"_icebergs_",I8.8,"_restart.nc")') TRIM(cexper), kt 
    212212         ENDIF 
    213          IF ( lwp .AND. nn_verbose_level >= 0) WRITE(numout,'(2a)') 'icebergs, write_restart: creating ',  & 
     213         IF ( lwp .AND. nprint > 0) WRITE(numout,'(2a)') 'icebergs, write_restart: creating ',  & 
    214214           &                                                         TRIM(cl_path)//TRIM(cl_filename) 
    215215    
     
    346346            ENDIF 
    347347         ENDDO 
    348          IF( lwp ) WRITE(numout,*) 'file: ',TRIM(cl_path)//TRIM(cl_filename),' var: stored_ice  written' 
     348         IF( lwp .AND. nprint > 0 ) WRITE(numout,*) 'file: ',TRIM(cl_path)//TRIM(cl_filename),' var: stored_ice  written' 
    349349    
    350350         nret = NF90_PUT_VAR( ncid, nkountid, num_bergs(:) ) 
     
    353353         nret = NF90_PUT_VAR( ncid, nsheatid, berg_grid%stored_heat(:,:) ) 
    354354         IF (nret .ne. NF90_NOERR) CALL ctl_stop('icebergs, write_restart: nf_put_var stored_heat failed') 
    355          IF( lwp ) WRITE(numout,*) 'file: ',TRIM(cl_path)//TRIM(cl_filename),' var: stored_heat written' 
     355         IF( lwp .AND. nprint > 0 ) WRITE(numout,*) 'file: ',TRIM(cl_path)//TRIM(cl_filename),' var: stored_heat written' 
    356356    
    357357         nret = NF90_PUT_VAR( ncid, ncalvid , src_calving(:,:) ) 
     
    359359         nret = NF90_PUT_VAR( ncid, ncalvhid, src_calving_hflx(:,:) ) 
    360360         IF (nret .ne. NF90_NOERR) CALL ctl_stop('icebergs, write_restart: nf_put_var calving_hflx failed') 
    361          IF( lwp ) WRITE(numout,*) 'file: ',TRIM(cl_path)//TRIM(cl_filename),' var: calving written' 
     361         IF( lwp .AND. nprint > 0 ) WRITE(numout,*) 'file: ',TRIM(cl_path)//TRIM(cl_filename),' var: calving written' 
    362362    
    363363         IF ( ASSOCIATED(first_berg) ) THEN 
     
    401401         ! Sanity check 
    402402         jn = icb_utl_count() 
    403          IF ( lwp .AND. nn_verbose_level >= 0)   & 
     403         IF ( lwp .AND. nprint > 0)   & 
    404404            WRITE(numout,'(2(a,i5))') 'icebergs, icb_rst_write: # bergs =',jn,' on PE',narea-1 
    405405         IF( lk_mpp ) THEN 
    406406            CALL mpp_sum('icbrst', jn) 
    407407         ENDIF 
    408          IF(lwp)   WRITE(numout,'(a,i5,a,i5,a)') 'icebergs, icb_rst_write: ', jn,   & 
     408         IF(lwp .AND. nprint > 0)   WRITE(numout,'(a,i5,a,i5,a)') 'icebergs, icb_rst_write: ', jn,   & 
    409409            &                                    ' bergs in total have been written at timestep ', kt 
    410410         ! 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbstp.F90

    r11536 r11782  
    161161      IF( nn_sample_rate > 0 )   CALL icb_trj_end() 
    162162 
    163       IF(lwp) WRITE(numout,'(a,i6)') 'icebergs: icb_end complete', narea 
     163      IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i6)') 'icebergs: icb_end complete', narea 
    164164      ! 
    165165      IF( nn_verbose_level > 0 ) THEN 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbtrj.F90

    r10068 r11782  
    8585         &                        TRIM(ADJUSTL(cldate_ini)), TRIM(ADJUSTL(cldate_end)) 
    8686      ENDIF 
    87       IF( lwp .AND. nn_verbose_level >= 0 )   WRITE(numout,'(2a)') 'icebergs, icb_trj_init: creating ',TRIM(cl_filename) 
     87      IF( lwp .AND. nprint > 0 )   WRITE(numout,'(2a)') 'icebergs, icb_trj_init: creating ',TRIM(cl_filename) 
    8888 
    8989      iret = NF90_CREATE( TRIM(cl_filename), NF90_CLOBBER, ntrajid ) 
     
    248248         this => this%next 
    249249      END DO 
    250       IF( lwp .AND. nn_verbose_level > 0 )   WRITE(numout,*) 'trajectory write to frame ', jn 
     250      IF( lwp .AND. nprint > 0 )   WRITE(numout,*) 'trajectory write to frame ', jn 
    251251      num_traj = jn 
    252252      ! 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/IOM/iom.F90

    r11554 r11782  
    318318        ENDIF 
    319319!set name of the restart file and enable available fields 
    320         if(lwp) WRITE(numout,*) 'Setting restart filename (for XIOS) to: ',rst_file 
     320        if(lwp .AND. nprint > 1) WRITE(numout,*) 'Setting restart filename (for XIOS) to: ',rst_file 
    321321        CALL xios_get_handle("file_definition", filegroup_hdl ) 
    322322        CALL xios_add_child(filegroup_hdl, file_hdl, 'rrestart') 
     
    343343                        scalar_ref = "grid_scalar", operation = "instant") 
    344344                END SELECT 
    345                 IF(lwp) WRITE(numout,*) 'XIOS read: ', TRIM(rst_rfields(i)%vname), ' enabled in ', TRIM(rst_file) 
     345                IF(lwp .AND. nprint > 1) WRITE(numout,*) 'XIOS read: ', TRIM(rst_rfields(i)%vname), ' enabled in ', TRIM(rst_file) 
    346346           ENDIF 
    347347         ENDIF 
     
    534534 
    535535!set name of the restart file and enable available fields 
    536         IF(lwp) WRITE(numout,*) 'Setting restart filename (for XIOS write) to: ',cdrst_file 
     536        IF(lwp .AND. nprint > 1) WRITE(numout,*) 'Setting restart filename (for XIOS write) to: ',cdrst_file 
    537537        CALL xios_get_handle("file_definition", filegroup_hdl ) 
    538538        CALL xios_add_child(filegroup_hdl, file_hdl, 'wrestart') 
     
    540540           CALL xios_set_file_attr( "wrestart", type="one_file", enabled=.TRUE.,&  
    541541                                    mode="write", output_freq=xios_timestep)  
    542            if(lwp) write(numout,*) 'OPEN ', trim(cdrst_file), ' in one_file mode'  
     542           if(lwp .AND. nprint > 1) write(numout,*) 'OPEN ', trim(cdrst_file), ' in one_file mode'  
    543543        ELSE   
    544544           CALL xios_set_file_attr( "wrestart", type="multiple_file", enabled=.TRUE.,&  
    545545                                    mode="write", output_freq=xios_timestep)  
    546            if(lwp) write(numout,*) 'OPEN ', trim(cdrst_file), ' in multiple_file mode'  
     546           if(lwp .AND. nprint > 1) write(numout,*) 'OPEN ', trim(cdrst_file), ' in multiple_file mode'  
    547547        ENDIF  
    548548        CALL xios_set_file_attr( "wrestart", name=trim(cdrst_file)) 
     
    822822               iom_file(jf)%nfid       = 0          ! free the id  
    823823               IF( PRESENT(kiomid) )   kiomid = 0   ! return 0 as id to specify that the file was closed 
    824                IF(lwp) WRITE(numout,*) TRIM(clinfo)//' close file: '//TRIM(iom_file(jf)%name)//' ok' 
     824               IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' close file: '//TRIM(iom_file(jf)%name)//' ok' 
    825825            ELSEIF( PRESENT(kiomid) ) THEN 
    826826               WRITE(ctmp1,*) '--->',  kiomid 
     
    941941      ELSE 
    942942#if defined key_iomput 
    943          IF(lwp) WRITE(numout,*) 'XIOS RST READ (0D): ', trim(cdvar) 
     943         IF(lwp .AND. nprint > 1) WRITE(numout,*) 'XIOS RST READ (0D): ', trim(cdvar) 
    944944         CALL iom_swap( TRIM(crxios_context) ) 
    945945         CALL xios_recv_field( trim(cdvar), pvar) 
     
    12661266 
    12671267            IF( istop == nstop ) THEN   ! no additional errors until this point... 
    1268                IF(lwp) WRITE(numout,"(10x,' read ',a,' (rec: ',i6,') in ',a,' ok')") TRIM(cdvar), itime, TRIM(iom_file(kiomid)%name) 
     1268               IF(lwp .AND. nprint > 1) WRITE(numout,"(10x,' read ',a,' (rec: ',i6,') in ',a,' ok')") TRIM(cdvar), itime, TRIM(iom_file(kiomid)%name) 
    12691269              
    12701270               !--- overlap areas and extra hallows (mpp) 
     
    12961296         IF( PRESENT(pv_r3d) ) THEN 
    12971297            pv_r3d(:, :, :) = 0. 
    1298             if(lwp) write(numout,*) 'XIOS RST READ (3D): ',trim(cdvar) 
     1298            if(lwp .AND. nprint > 1) write(numout,*) 'XIOS RST READ (3D): ',trim(cdvar) 
    12991299            CALL xios_recv_field( trim(cdvar), pv_r3d) 
    13001300            IF(idom /= jpdom_unknown ) then 
     
    13031303         ELSEIF( PRESENT(pv_r2d) ) THEN 
    13041304            pv_r2d(:, :) = 0. 
    1305             if(lwp) write(numout,*) 'XIOS RST READ (2D): ', trim(cdvar) 
     1305            if(lwp .AND. nprint > 1) write(numout,*) 'XIOS RST READ (2D): ', trim(cdvar) 
    13061306            CALL xios_recv_field( trim(cdvar), pv_r2d) 
    13071307            IF(idom /= jpdom_unknown ) THEN 
     
    13101310         ELSEIF( PRESENT(pv_r1d) ) THEN 
    13111311            pv_r1d(:) = 0. 
    1312             if(lwp) write(numout,*) 'XIOS RST READ (1D): ', trim(cdvar) 
     1312            if(lwp .AND. nprint > 1) write(numout,*) 'XIOS RST READ (1D): ', trim(cdvar) 
    13131313            CALL xios_recv_field( trim(cdvar), pv_r1d) 
    13141314         ENDIF 
     
    15121512#ifdef key_iomput 
    15131513      IF( kt == kwrite ) THEN 
    1514           IF(lwp) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar) 
     1514          IF(lwp .AND. nprint > 1) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar) 
    15151515          CALL xios_send_field(trim(cdvar), pvar) 
    15161516      ENDIF 
     
    15421542#ifdef key_iomput 
    15431543      IF( kt == kwrite ) THEN 
    1544          IF(lwp) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar) 
     1544         IF(lwp .AND. nprint > 1) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar) 
    15451545         CALL xios_send_field(trim(cdvar), pvar) 
    15461546      ENDIF 
     
    15721572#ifdef key_iomput 
    15731573      IF( kt == kwrite ) THEN 
    1574          IF(lwp) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar) 
     1574         IF(lwp .AND. nprint > 1) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar) 
    15751575         CALL xios_send_field(trim(cdvar), pvar) 
    15761576      ENDIF 
     
    16021602#ifdef key_iomput 
    16031603      IF( kt == kwrite ) THEN 
    1604          IF(lwp) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar) 
     1604         IF(lwp .AND. nprint > 1) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar) 
    16051605         CALL xios_send_field(trim(cdvar), pvar) 
    16061606      ENDIF 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/IOM/iom_nf90.F90

    r11536 r11782  
    8888         !                                       !=========================! 
    8989         IF( ldwrt ) THEN  ! ... in write mode 
    90             IF(lwp) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in WRITE mode' 
     90            IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in WRITE mode' 
    9191            IF( snc4set%luse ) THEN 
    9292               CALL iom_nf90_check(NF90_OPEN( TRIM(cdname), NF90_WRITE  , if90id ), clinfo) 
     
    9696            CALL iom_nf90_check(NF90_SET_FILL( if90id, NF90_NOFILL, idmy                          ), clinfo) 
    9797         ELSE              ! ... in read mode 
    98             IF(lwp) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in READ mode' 
     98            IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in READ mode' 
    9999            CALL iom_nf90_check(NF90_OPEN( TRIM(cdname), NF90_NOWRITE, if90id, chunksize = ichunk ), clinfo) 
    100100         ENDIF 
     
    107107               cdname = TRIM(cltmp) 
    108108            ENDIF 
    109             IF(lwp) WRITE(numout,*) TRIM(clinfo)//' create new file: '//TRIM(cdname)//' in WRITE mode' 
     109            IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' create new file: '//TRIM(cdname)//' in WRITE mode' 
    110110 
    111111            IF( llclobber ) THEN   ;   imode = IOR( NF90_64BIT_OFFSET, NF90_CLOBBER   ) 
     
    113113            ENDIF 
    114114            IF( snc4set%luse ) THEN 
    115                IF(lwp) WRITE(numout,*) TRIM(clinfo)//' creating file: '//TRIM(cdname)//' in hdf5 (netcdf4) mode' 
     115               IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' creating file: '//TRIM(cdname)//' in hdf5 (netcdf4) mode' 
    116116               CALL GET_NF90_SYMBOL("NF90_HDF5", ihdf5) 
    117117               IF( llclobber ) THEN   ;   imode = IOR(ihdf5, NF90_CLOBBER) 
     
    165165               &                                       len  = iom_file(kiomid)%lenuld ), clinfo ) 
    166166         ENDIF 
    167          IF(lwp) WRITE(numout,*) '                   ---> '//TRIM(cdname)//' OK' 
     167         IF(lwp .AND. nprint > 0) WRITE(numout,*) '                   ---> '//TRIM(cdname)//' OK' 
    168168      ELSE 
    169169         kiomid = 0               ! return error flag 
     
    564564         ! trick: defined to 0 to say that dimension variables are defined but not yet written 
    565565         iom_file(kiomid)%dimsz(1, 1)  = 0    
    566          IF(lwp) WRITE(numout,*) TRIM(clinfo)//' define dimension variables done' 
     566         IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' define dimension variables done' 
    567567      ENDIF 
    568568      ! define the data if it is not already done 
     
    639639            CALL iom_nf90_check(SET_NF90_DEF_VAR_CHUNKING(if90id, idvar, ichunkalg, ichunksz), clinfo) 
    640640            CALL iom_nf90_check(SET_NF90_DEF_VAR_DEFLATE(if90id, idvar, ishuffle, ideflate, ideflate_level), clinfo) 
    641             IF(lwp) WRITE(numout,*) TRIM(clinfo)//' chunked ok. Chunks sizes: ', ichunksz 
    642          ENDIF 
    643          IF(lwp) WRITE(numout,*) TRIM(clinfo)//' defined ok' 
     641            IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' chunked ok. Chunks sizes: ', ichunksz 
     642         ENDIF 
     643         IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' defined ok' 
    644644      ELSE 
    645645         idvar = kvid 
     
    687687               CALL iom_nf90_check( NF90_INQUIRE_DIMENSION( if90id, 3, len = iom_file(kiomid)%dimsz(1,3) ), clinfo ) 
    688688               iom_file(kiomid)%dimsz(1  , 4) = 1   ! unlimited dimension 
    689                IF(lwp) WRITE(numout,*) TRIM(clinfo)//' write dimension variables done' 
     689               IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' write dimension variables done' 
    690690            ENDIF 
    691691         ENDIF 
     
    705705         IF( iom_file(kiomid)%luld(idvar) )   iom_file(kiomid)%dimsz(iom_file(kiomid)%ndims(idvar), idvar)    & 
    706706               &                            = iom_file(kiomid)%dimsz(iom_file(kiomid)%ndims(idvar), idvar) + 1 
    707          IF(lwp) WRITE(numout,*) TRIM(clinfo)//' written ok' 
     707         IF(lwp  .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' written ok' 
    708708      ENDIF 
    709709      !      
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/IOM/restart.F90

    r11536 r11782  
    9797            clpath = TRIM(cn_ocerst_outdir) 
    9898            IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/' 
    99             IF(lwp) THEN 
     99            IF(lwp .AND. nprint > 1) THEN 
    100100               WRITE(numout,*) 
    101101               IF(.NOT.lwxios) THEN 
     
    225225             crxios_context = 'nemo_rst' 
    226226             IF( .NOT.lxios_set ) THEN 
    227                  IF(lwp) WRITE(numout,*) 'Enable restart reading by XIOS' 
     227                 IF(lwp .AND. nprint > 1) WRITE(numout,*) 'Enable restart reading by XIOS' 
    228228                 CALL iom_init( crxios_context, ld_tmppatch = .false. ) 
    229229                 lxios_set = .TRUE. 
     
    232232         IF( TRIM(Agrif_CFixed()) /= '0' .AND. lrxios) THEN 
    233233             CALL iom_init( crxios_context, ld_tmppatch = .false. ) 
    234              IF(lwp) WRITE(numout,*) 'Enable restart reading by XIOS for AGRIF' 
     234             IF(lwp .AND. nprint > 1) WRITE(numout,*) 'Enable restart reading by XIOS for AGRIF' 
    235235             lxios_set = .TRUE. 
    236236         ENDIF  
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/LBC/lib_mpp.F90

    r11536 r11782  
    946946            crname_dlg(n_sequence_dlg) = cdname     ! keep the name of the calling routine 
    947947         ENDIF 
    948       ELSE IF ( ncom_stp == nit000+2*ncom_freq ) THEN 
     948      ELSE IF ( ncom_stp == nit000+2*ncom_freq .AND. nprint > 1 ) THEN 
    949949         CALL ctl_opn( numcom, 'communication_report.txt', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., narea ) 
    950950         WRITE(numcom,*) ' ' 
     
    12041204         &  OPEN(UNIT=knum,FILE='NUL', FORM=cdform, ACCESS=cdacce, STATUS=cdstat                      , ERR=100, IOSTAT=iost )    
    12051205      IF( iost == 0 ) THEN 
    1206          IF(ldwp) THEN 
     1206         IF(ldwp .AND. nprint > 2) THEN 
    12071207            WRITE(kout,*) '     file   : ', TRIM(clfile),' open ok' 
    12081208            WRITE(kout,*) '     unit   = ', knum 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/LBC/mppini.F90

    r11640 r11782  
    171171      !!---------------------------------------------------------------------- 
    172172      ! 
    173       llwrtlay = lwp .OR. ln_ctl .OR. sn_cfctl%l_layout 
     173      llwrtlay = (lwp.AND.nprint>1) .OR. ln_ctl .OR. sn_cfctl%l_layout 
    174174      ! 
    175175      !  0. read namelists parameters 
     
    194194      ENDIF 
    195195      ! 
    196       IF(lwm)   WRITE( numond, nammpp ) 
     196      IF(lwm  .AND. nprint > 2)   WRITE( numond, nammpp ) 
    197197 
    198198      ! do we need to take into account bdy_msk? 
     
    517517      ! 5. Subdomain print 
    518518      ! ------------------ 
    519       IF(lwp) THEN 
     519      IF(lwp .AND. nprint > 1) THEN 
    520520         ifreq = 4 
    521521         il1 = 1 
     
    656656      ! 
    657657      nproc = narea-1 
    658       IF(lwp) THEN 
     658      IF(lwp .AND. nprint > 0) THEN 
    659659         WRITE(numout,*) 
    660660         WRITE(numout,*) '   resulting internal parameters : ' 
     
    12041204      idid(2) = 2 
    12051205 
    1206       IF(lwp) THEN 
     1206      IF(lwp.AND. nprint > 0) THEN 
    12071207          WRITE(numout,*) 
    12081208          WRITE(numout,*) 'mpp_init_ioipsl :   iloc  = ', iloc (1), iloc (2) 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/LDF/ldfdyn.F90

    r11653 r11782  
    122122      READ  ( numnam_cfg, namdyn_ldf, IOSTAT = ios, ERR = 902 ) 
    123123902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_ldf in configuration namelist' ) 
    124       IF(lwm) WRITE ( numond, namdyn_ldf ) 
     124      IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_ldf ) 
    125125 
    126126      IF(lwp) THEN                      ! Parameter print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/LDF/ldftra.F90

    r11536 r11782  
    158158      READ  ( numnam_cfg, namtra_ldf, IOSTAT = ios, ERR = 902 ) 
    159159902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtra_ldf in configuration namelist' ) 
    160       IF(lwm) WRITE( numond, namtra_ldf ) 
     160      IF(lwm .AND. nprint > 2) WRITE( numond, namtra_ldf ) 
    161161      ! 
    162162      IF(lwp) THEN                      ! control print 
     
    517517      READ  ( numnam_cfg, namtra_eiv, IOSTAT = ios, ERR = 902 ) 
    518518902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtra_eiv in configuration namelist' ) 
    519       IF(lwm)  WRITE ( numond, namtra_eiv ) 
     519      IF(lwm .AND. nprint > 2)  WRITE ( numond, namtra_eiv ) 
    520520 
    521521      IF(lwp) THEN                      ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/OBS/diaobs.F90

    r11536 r11782  
    207207      READ  ( numnam_cfg, namobs, IOSTAT = ios, ERR = 902 ) 
    208208902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namobs in configuration namelist' ) 
    209       IF(lwm) WRITE ( numond, namobs ) 
     209      IF(lwm .AND. nprint > 2) WRITE ( numond, namobs ) 
    210210 
    211211      IF( .NOT.ln_diaobs ) THEN 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/fldread.F90

    r11536 r11782  
    185185            CALL fld_init( kn_fsbc, sd(jf) )       ! read each before field (put them in after as they will be swapped) 
    186186         END DO 
    187          IF( lwp ) CALL wgt_print()                ! control print 
     187         IF( lwp .AND. nprint > 1 ) CALL wgt_print()                ! control print 
    188188      ENDIF 
    189189      !                                            ! ====================================== ! 
     
    287287            ! 
    288288            IF( sd(jf)%ln_tint ) THEN              ! temporal interpolation 
    289                IF(lwp .AND. kt - nit000 <= 100 ) THEN  
     289               IF(lwp .AND. kt - nit000 <= 100 .AND. nprint > 1) THEN  
    290290                  clfmt = "('   fld_read: var ', a, ' kt = ', i8, ' (', f9.4,' days), Y/M/D = ', i4.4,'/', i2.2,'/', i2.2," //   & 
    291291                     &    "', records b/a: ', i6.4, '/', i6.4, ' (days ', f9.4,'/', f9.4, ')')" 
     
    299299               sd(jf)%fnow(:,:,:) = ztintb * sd(jf)%fdta(:,:,:,1) + ztinta * sd(jf)%fdta(:,:,:,2) 
    300300            ELSE   ! nothing to do... 
    301                IF(lwp .AND. kt - nit000 <= 100 ) THEN 
     301               IF(lwp .AND. kt - nit000 <= 100 .AND. nprint > 1) THEN 
    302302                  clfmt = "('   fld_read: var ', a, ' kt = ', i8,' (', f9.4,' days), Y/M/D = ', i4.4,'/', i2.2,'/', i2.2," //   & 
    303303                     &    "', record: ', i6.4, ' (days ', f9.4, ' <-> ', f9.4, ')')" 
     
    423423         ! 
    424424         clfmt = "('   fld_init : time-interpolation for ', a, ' read previous record = ', i6, ' at time = ', f7.2, ' days')" 
    425          IF(lwp) WRITE(numout, clfmt) TRIM(sdjf%clvar), sdjf%nrec_a(1), REAL(sdjf%nrec_a(2),wp)/rday 
     425         IF(lwp .AND. nprint > 1) WRITE(numout, clfmt) TRIM(sdjf%clvar), sdjf%nrec_a(1), REAL(sdjf%nrec_a(2),wp)/rday 
    426426         ! 
    427427      ENDIF 
     
    10361036                     END DO 
    10371037                     sd(ju)%rotn(jn) = .TRUE.               ! vector was rotated  
    1038                      IF( lwp .AND. kt == nit000 )   WRITE(numout,*)   & 
     1038                     IF( lwp .AND. kt == nit000 .AND. nprint > 1 )   WRITE(numout,*)   & 
    10391039                        &   'fld_read: vector pair ('//TRIM(sd(ju)%clvar)//', '//TRIM(sd(iv)%clvar)//') rotated on to model grid' 
    10401040                  ENDIF 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcapr.F90

    r11536 r11782  
    7676      READ  ( numnam_cfg, namsbc_apr, IOSTAT = ios, ERR = 902 ) 
    7777902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_apr in configuration namelist' ) 
    78       IF(lwm) WRITE ( numond, namsbc_apr ) 
     78      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_apr ) 
    7979      ! 
    8080      ALLOCATE( sf_apr(1), STAT=ierror )           !* allocate and fill sf_sst (forcing structure) with sn_sst 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcblk.F90

    r11536 r11782  
    188188902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_blk in configuration namelist' ) 
    189189      ! 
    190       IF(lwm) WRITE( numond, namsbc_blk ) 
     190      IF(lwm .AND. nprint > 2) WRITE( numond, namsbc_blk ) 
    191191      ! 
    192192      !                             !** initialization of the chosen bulk formulae (+ check) 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbccpl.F90

    r11536 r11782  
    271271      READ  ( numnam_cfg, namsbc_cpl, IOSTAT = ios, ERR = 902 ) 
    272272902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_cpl in configuration namelist' ) 
    273       IF(lwm) WRITE ( numond, namsbc_cpl ) 
     273      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_cpl ) 
    274274      ! 
    275275      IF(lwp) THEN                        ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcflx.F90

    r11536 r11782  
    9898         READ  ( numnam_cfg, namsbc_flx, IOSTAT = ios, ERR = 902 ) 
    9999902      IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_flx in configuration namelist' ) 
    100          IF(lwm) WRITE ( numond, namsbc_flx )  
     100         IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_flx )  
    101101         ! 
    102102         !                                         ! check: do we plan to use ln_dm2dc with non-daily forcing? 
     
    159159         CALL lbc_lnk( 'sbcflx', taum(:,:), 'T', 1. )   ;   CALL lbc_lnk( 'sbcflx', wndm(:,:), 'T', 1. ) 
    160160 
    161          IF( nitend-nit000 <= 100 .AND. lwp ) THEN                ! control print (if less than 100 time-step asked) 
     161         IF( nitend-nit000 <= 100 .AND. lwp .AND. nprint > 0 ) THEN                ! control print (if less than 100 time-step asked) 
    162162            WRITE(numout,*)  
    163163            WRITE(numout,*) '        read daily momentum, heat and freshwater fluxes OK' 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcfwb.F90

    r10570 r11782  
    187187            erp(:,:) = erp(:,:) + zerp_cor(:,:) 
    188188            ! 
    189             IF( nprint == 1 .AND. lwp ) THEN                   ! control print 
     189            IF( nprint > 3 .AND. lwp ) THEN                   ! control print 
    190190               IF( z_fwf < 0._wp ) THEN 
    191191                  WRITE(numout,*)'   z_fwf < 0' 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcice_cice.F90

    r11536 r11782  
    159159      !!--------------------------------------------------------------------- 
    160160      ! 
    161       IF(lwp) WRITE(numout,*)'cice_sbc_init' 
     161      IF(lwp .AND. nprint > 0) WRITE(numout,*)'cice_sbc_init' 
    162162 
    163163      ji_off = INT ( (jpiglo - nx_global) / 2 ) 
     
    287287      ! 
    288288      IF( kt == nit000 )  THEN 
    289          IF(lwp) WRITE(numout,*)'cice_sbc_in' 
     289         IF(lwp .AND. nprint > 0) WRITE(numout,*)'cice_sbc_in' 
    290290      ENDIF 
    291291 
     
    501501      ! 
    502502      IF( kt == nit000 )  THEN 
    503          IF(lwp) WRITE(numout,*)'cice_sbc_out' 
     503         IF(lwp .AND. nprint > 0) WRITE(numout,*)'cice_sbc_out' 
    504504      ENDIF 
    505505       
     
    665665      ! 
    666666      IF( kt == nit000 )  THEN 
    667          IF(lwp) WRITE(numout,*)'cice_sbc_hadgam' 
     667         IF(lwp .AND. nprint > 0) WRITE(numout,*)'cice_sbc_hadgam' 
    668668         IF( sbc_cpl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' ) 
    669669      ENDIF 
     
    696696      !!--------------------------------------------------------------------- 
    697697      ! 
    698       IF(lwp) WRITE(numout,*)'cice_sbc_final' 
     698      IF(lwp .AND. nprint > 0) WRITE(numout,*)'cice_sbc_final' 
    699699      ! 
    700700      CALL CICE_Finalize 
     
    814814 
    815815      ! control print (if less than 100 time-step asked) 
    816       IF( nitend-nit000 <= 100 .AND. lwp ) THEN 
     816      IF( nitend-nit000 <= 100 .AND. lwp .AND. nprint > 0 ) THEN 
    817817         WRITE(numout,*)  
    818818         WRITE(numout,*) '        read forcing fluxes for CICE OK' 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcice_if.F90

    r11536 r11782  
    8181         READ  ( numnam_cfg, namsbc_iif, IOSTAT = ios, ERR = 902 ) 
    8282902      IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist' ) 
    83          IF(lwm) WRITE ( numond, namsbc_iif ) 
     83         IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_iif ) 
    8484 
    8585         ALLOCATE( sf_ice(1), STAT=ierror ) 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcisf.F90

    r11536 r11782  
    206206         IF( ln_rstart .AND.    &                     ! Restart: read in restart file 
    207207            &   iom_varid( numror, 'fwf_isf_b', ldstop = .FALSE. ) > 0 ) THEN 
    208             IF(lwp) WRITE(numout,*) '          nit000-1 isf tracer content forcing fields read in the restart file' 
     208            IF(lwp .AND. nprint > 0) WRITE(numout,*) '          nit000-1 isf tracer content forcing fields read in the restart file' 
    209209            CALL iom_get( numror, jpdom_autoglo, 'fwf_isf_b', fwfisf_b(:,:)         , ldxios = lrxios )   ! before salt content isf_tsc trend 
    210210            CALL iom_get( numror, jpdom_autoglo, 'isf_sc_b' , risf_tsc_b(:,:,jp_sal), ldxios = lrxios )   ! before salt content isf_tsc trend 
     
    217217      !  
    218218      IF( lrst_oce ) THEN 
    219          IF(lwp) WRITE(numout,*) 
    220          IF(lwp) WRITE(numout,*) 'sbc : isf surface tracer content forcing fields written in ocean restart file ',   & 
     219         IF(lwp .AND. nprint > 0) WRITE(numout,*) 
     220         IF(lwp .AND. nprint > 0) WRITE(numout,*) 'sbc : isf surface tracer content forcing fields written in ocean restart file ',   & 
    221221            &                    'at it= ', kt,' date= ', ndastp 
    222          IF(lwp) WRITE(numout,*) '~~~~' 
     222         IF(lwp .AND. nprint > 0) WRITE(numout,*) '~~~~' 
    223223         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
    224224         CALL iom_rstput( kt, nitrst, numrow, 'fwf_isf_b', fwfisf(:,:)         , ldxios = lwxios ) 
     
    283283      READ  ( numnam_cfg, namsbc_isf, IOSTAT = ios, ERR = 902 ) 
    284284902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_isf in configuration namelist' ) 
    285       IF(lwm) WRITE ( numond, namsbc_isf ) 
     285      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_isf ) 
    286286 
    287287      IF(lwp) WRITE(numout,*) 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcmod.F90

    r11536 r11782  
    114114      READ  ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 
    115115902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc in configuration namelist' ) 
    116       IF(lwm) WRITE( numond, namsbc ) 
     116      IF(lwm .AND. nprint > 2) WRITE( numond, namsbc ) 
    117117      ! 
    118118#if defined key_mpp_mpi 
     
    499499         IF( ln_rstart .AND.    &                               !* Restart: read in restart file 
    500500            & iom_varid( numror, 'utau_b', ldstop = .FALSE. ) > 0 ) THEN 
    501             IF(lwp) WRITE(numout,*) '          nit000-1 surface forcing fields red in the restart file' 
     501            IF(lwp .AND. nprint > 0) WRITE(numout,*) '          nit000-1 surface forcing fields red in the restart file' 
    502502            CALL iom_get( numror, jpdom_autoglo, 'utau_b', utau_b, ldxios = lrxios )   ! before i-stress  (U-point) 
    503503            CALL iom_get( numror, jpdom_autoglo, 'vtau_b', vtau_b, ldxios = lrxios )   ! before j-stress  (V-point) 
     
    513513            ENDIF 
    514514         ELSE                                                   !* no restart: set from nit000 values 
    515             IF(lwp) WRITE(numout,*) '          nit000-1 surface forcing fields set to nit000' 
     515            IF(lwp .AND. nprint > 0) WRITE(numout,*) '          nit000-1 surface forcing fields set to nit000' 
    516516            utau_b(:,:) = utau(:,:) 
    517517            vtau_b(:,:) = vtau(:,:) 
     
    524524      IF( lrst_oce ) THEN                              !      Write in the ocean restart file     ! 
    525525         !                                             ! ---------------------------------------- ! 
    526          IF(lwp) WRITE(numout,*) 
    527          IF(lwp) WRITE(numout,*) 'sbc : ocean surface forcing fields written in ocean restart file ',   & 
     526         IF(lwp .AND. nprint > 0) WRITE(numout,*) 
     527         IF(lwp .AND. nprint > 0) WRITE(numout,*) 'sbc : ocean surface forcing fields written in ocean restart file ',   & 
    528528            &                    'at it= ', kt,' date= ', ndastp 
    529          IF(lwp) WRITE(numout,*) '~~~~' 
     529         IF(lwp .AND. nprint > 0) WRITE(numout,*) '~~~~' 
    530530         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
    531531         CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau, ldxios = lwxios ) 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcrnf.F90

    r11536 r11782  
    146146         IF( ln_rstart .AND.    &                               !* Restart: read in restart file 
    147147            & iom_varid( numror, 'rnf_b', ldstop = .FALSE. ) > 0 ) THEN 
    148             IF(lwp) WRITE(numout,*) '          nit000-1 runoff forcing fields red in the restart file', lrxios 
     148            IF(lwp .AND. nprint > 0) WRITE(numout,*) '          nit000-1 runoff forcing fields red in the restart file', lrxios 
    149149            CALL iom_get( numror, jpdom_autoglo, 'rnf_b', rnf_b, ldxios = lrxios )     ! before runoff 
    150150            CALL iom_get( numror, jpdom_autoglo, 'rnf_hc_b', rnf_tsc_b(:,:,jp_tem), ldxios = lrxios )   ! before heat content of runoff 
    151151            CALL iom_get( numror, jpdom_autoglo, 'rnf_sc_b', rnf_tsc_b(:,:,jp_sal), ldxios = lrxios )   ! before salinity content of runoff 
    152152         ELSE                                                   !* no restart: set from nit000 values 
    153             IF(lwp) WRITE(numout,*) '          nit000-1 runoff forcing fields set to nit000' 
     153            IF(lwp .AND. nprint > 0) WRITE(numout,*) '          nit000-1 runoff forcing fields set to nit000' 
    154154            rnf_b    (:,:  ) = rnf    (:,:  ) 
    155155            rnf_tsc_b(:,:,:) = rnf_tsc(:,:,:) 
     
    159159      IF( lrst_oce ) THEN                              !      Write in the ocean restart file     ! 
    160160         !                                             ! ---------------------------------------- ! 
    161          IF(lwp) WRITE(numout,*) 
    162          IF(lwp) WRITE(numout,*) 'sbcrnf : runoff forcing fields written in ocean restart file ',   & 
     161         IF(lwp .AND. nprint > 0) WRITE(numout,*) 
     162         IF(lwp .AND. nprint > 0) WRITE(numout,*) 'sbcrnf : runoff forcing fields written in ocean restart file ',   & 
    163163            &                    'at it= ', kt,' date= ', ndastp 
    164          IF(lwp) WRITE(numout,*) '~~~~' 
     164         IF(lwp .AND. nprint > 0) WRITE(numout,*) '~~~~' 
    165165         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
    166166         CALL iom_rstput( kt, nitrst, numrow, 'rnf_b' , rnf, ldxios = lwxios ) 
     
    272272      READ  ( numnam_cfg, namsbc_rnf, IOSTAT = ios, ERR = 902 ) 
    273273902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_rnf in configuration namelist' ) 
    274       IF(lwm) WRITE ( numond, namsbc_rnf ) 
     274      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_rnf ) 
    275275      ! 
    276276      !                                         ! Control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcssm.F90

    r10425 r11782  
    151151         IF( lrst_oce ) THEN                              !      Write in the ocean restart file     ! 
    152152            !                                             ! ---------------------------------------- ! 
    153             IF(lwp) WRITE(numout,*) 
    154             IF(lwp) WRITE(numout,*) 'sbc_ssm : sea surface mean fields written in ocean restart file ',   & 
     153            IF(lwp .AND. nprint > 0) WRITE(numout,*) 
     154            IF(lwp .AND. nprint > 0) WRITE(numout,*) 'sbc_ssm : sea surface mean fields written in ocean restart file ',   & 
    155155               &                    'at it= ', kt,' date= ', ndastp 
    156             IF(lwp) WRITE(numout,*) '~~~~~~~' 
     156            IF(lwp .AND. nprint > 0) WRITE(numout,*) '~~~~~~~' 
    157157            zf_sbc = REAL( nn_fsbc, wp ) 
    158158            IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcssr.F90

    r11536 r11782  
    171171      READ  ( numnam_cfg, namsbc_ssr, IOSTAT = ios, ERR = 902 ) 
    172172902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_ssr in configuration namelist' ) 
    173       IF(lwm) WRITE ( numond, namsbc_ssr ) 
     173      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_ssr ) 
    174174 
    175175      IF(lwp) THEN                 !* control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcwave.F90

    r11536 r11782  
    402402      READ  ( numnam_cfg, namsbc_wave, IOSTAT = ios, ERR = 902 ) 
    403403902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_wave in configuration namelist' ) 
    404       IF(lwm) WRITE ( numond, namsbc_wave ) 
     404      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_wave ) 
    405405      ! 
    406406      IF( ln_cdgw ) THEN 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/tideini.F90

    r11536 r11782  
    6565      READ  ( numnam_cfg, nam_tide, IOSTAT = ios, ERR = 902 ) 
    6666902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nam_tide in configuration namelist' ) 
    67       IF(lwm) WRITE ( numond, nam_tide ) 
     67      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_tide ) 
    6868      ! 
    6969      IF( ln_tide ) THEN 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/STO/stopar.F90

    r11536 r11782  
    268268      READ  ( numnam_cfg, namsto, IOSTAT = ios, ERR = 902 ) 
    269269902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namsto in configuration namelist' ) 
    270       IF(lwm) WRITE ( numond, namsto ) 
     270      IF(lwm  .AND. nprint > 2) WRITE ( numond, namsto ) 
    271271 
    272272      IF( .NOT.ln_sto_eos ) THEN   ! no use of stochastic parameterization 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/eosbn2.F90

    r11536 r11782  
    12421242      READ  ( numnam_cfg, nameos, IOSTAT = ios, ERR = 902 ) 
    12431243902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nameos in configuration namelist' ) 
    1244       IF(lwm) WRITE( numond, nameos ) 
     1244      IF(lwm .AND. nprint > 2) WRITE( numond, nameos ) 
    12451245      ! 
    12461246      rau0        = 1026._wp                 !: volumic mass of reference     [kg/m3] 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/traadv.F90

    r11536 r11782  
    201201      READ  ( numnam_cfg, namtra_adv, IOSTAT = ios, ERR = 902 ) 
    202202902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtra_adv in configuration namelist' ) 
    203       IF(lwm) WRITE( numond, namtra_adv ) 
     203      IF(lwm .AND. nprint > 2) WRITE( numond, namtra_adv ) 
    204204      ! 
    205205      IF(lwp) THEN                           ! Namelist print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/trabbc.F90

    r11536 r11782  
    140140      READ  ( numnam_cfg, nambbc, IOSTAT = ios, ERR = 902 ) 
    141141902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nambbc in configuration namelist' ) 
    142       IF(lwm) WRITE ( numond, nambbc ) 
     142      IF(lwm .AND. nprint > 2) WRITE ( numond, nambbc ) 
    143143      ! 
    144144      IF(lwp) THEN                     ! Control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/trabbl.F90

    r11536 r11782  
    490490      READ  ( numnam_cfg, nambbl, IOSTAT = ios, ERR = 902 ) 
    491491902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nambbl in configuration namelist' ) 
    492       IF(lwm) WRITE ( numond, nambbl ) 
     492      IF(lwm .AND. nprint > 2) WRITE ( numond, nambbl ) 
    493493      ! 
    494494      l_bbl = .TRUE.                 !* flag to compute bbl coef and transport 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/tradmp.F90

    r11536 r11782  
    184184      READ  ( numnam_cfg, namtra_dmp, IOSTAT = ios, ERR = 902 ) 
    185185902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist' ) 
    186       IF(lwm) WRITE ( numond, namtra_dmp ) 
     186      IF(lwm .AND. nprint > 2) WRITE ( numond, namtra_dmp ) 
    187187      ! 
    188188      IF(lwp) THEN                  ! Namelist print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/tramle.F90

    r11536 r11782  
    273273      READ  ( numnam_cfg, namtra_mle, IOSTAT = ios, ERR = 902 ) 
    274274902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtra_mle in configuration namelist' ) 
    275       IF(lwm) WRITE ( numond, namtra_mle ) 
     275      IF(lwm .AND. nprint > 2) WRITE ( numond, namtra_mle ) 
    276276 
    277277      IF(lwp) THEN                     ! Namelist print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/traqsr.F90

    r11536 r11782  
    135135!!gm case neuler  not taken into account.... 
    136136         IF( ln_rstart .AND. iom_varid( numror, 'qsr_hc_b', ldstop = .FALSE. ) > 0 ) THEN    ! read in restart 
    137             IF(lwp) WRITE(numout,*) '          nit000-1 qsr tracer content forcing field read in the restart file' 
     137            IF(lwp .AND. nprint >0) WRITE(numout,*) '          nit000-1 qsr tracer content forcing field read in the restart file' 
    138138            z1_2 = 0.5_wp 
    139139            CALL iom_get( numror, jpdom_autoglo, 'qsr_hc_b', qsr_hc_b, ldxios = lrxios )   ! before heat content trend due to Qsr flux 
     
    343343      READ  ( numnam_cfg, namtra_qsr, IOSTAT = ios, ERR = 902 ) 
    344344902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist' ) 
    345       IF(lwm) WRITE ( numond, namtra_qsr ) 
     345      IF(lwm .AND. nprint > 2) WRITE ( numond, namtra_qsr ) 
    346346      ! 
    347347      IF(lwp) THEN                ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/trasbc.F90

    r10499 r11782  
    107107         IF( ln_rstart .AND.    &               ! Restart: read in restart file 
    108108              & iom_varid( numror, 'sbc_hc_b', ldstop = .FALSE. ) > 0 ) THEN 
    109             IF(lwp) WRITE(numout,*) '          nit000-1 sbc tracer content field read in the restart file' 
     109            IF(lwp .AND. nprint > 0) WRITE(numout,*) '          nit000-1 sbc tracer content field read in the restart file' 
    110110            zfact = 0.5_wp 
    111111            sbc_tsc(:,:,:) = 0._wp 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRD/trdini.F90

    r11536 r11782  
    5353      READ  ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 ) 
    5454902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtrd in configuration namelist' ) 
    55       IF(lwm) WRITE( numond, namtrd ) 
     55      IF(lwm .AND. nprint > 2) WRITE( numond, namtrd ) 
    5656      ! 
    5757      IF(lwp) THEN                  ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRD/trdmxl.F90

    r11536 r11782  
    739739      READ  ( numnam_cfg, namtrd_mxl, IOSTAT = ios, ERR = 902 ) 
    740740902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtrd_mxl in configuration namelist' ) 
    741       IF(lwm) WRITE( numond, namtrd_mxl ) 
     741      IF(lwm .AND. nprint > 2) WRITE( numond, namtrd_mxl ) 
    742742      ! 
    743743      IF(lwp) THEN                      ! control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/USR/usrdef_hgr.F90

    r10069 r11782  
    107107         CALL ctl_warn( ' GYRE used as Benchmark: e1=e2=106km, no need to adjust rdt, ahm,aht ' ) 
    108108      ENDIF 
    109       IF( nprint==1 .AND. lwp )   THEN 
     109      IF( nprint > 3 .AND. lwp )   THEN 
    110110         WRITE(numout,*) 'ze1', ze1, 'cosalpha', zcos_alpha, 'sinalpha', zsin_alpha 
    111111         WRITE(numout,*) 'ze1deg', ze1deg, 'zlam0', zlam0, 'zphi0', zphi0 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/USR/usrdef_nam.F90

    r11536 r11782  
    6363902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) 
    6464      ! 
    65       IF(lwm)   WRITE( numond, namusr_def ) 
     65      IF(lwm .AND. nprint > 2)   WRITE( numond, namusr_def ) 
    6666      ! 
    6767      cd_cfg = 'GYRE'               ! name & resolution (not used) 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfdrg.F90

    r11536 r11782  
    242242      READ  ( numnam_cfg, namdrg, IOSTAT = ios, ERR = 902 ) 
    243243902   IF( ios >  0 )   CALL ctl_nam( ios , 'namdrg in configuration namelist' ) 
    244       IF(lwm) WRITE ( numond, namdrg ) 
     244      IF(lwm .AND. nprint > 2) WRITE ( numond, namdrg ) 
    245245      ! 
    246246      IF(lwp) THEN 
     
    343343      IF(ll_bot)   READ  ( numnam_cfg, namdrg_bot, IOSTAT = ios, ERR = 902 ) 
    344344902   IF( ios >  0 )   CALL ctl_nam( ios , TRIM(cl_namcfg) ) 
    345       IF(lwm .AND. ll_top)   WRITE ( numond, namdrg_top ) 
    346       IF(lwm .AND. ll_bot)   WRITE ( numond, namdrg_bot ) 
     345      IF(lwm .AND. ll_top .AND. nprint > 2)   WRITE ( numond, namdrg_top ) 
     346      IF(lwm .AND. ll_bot .AND. nprint > 2)   WRITE ( numond, namdrg_bot ) 
    347347      ! 
    348348      IF(lwp) THEN 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfgls.F90

    r11536 r11782  
    864864      READ  ( numnam_cfg, namzdf_gls, IOSTAT = ios, ERR = 902 ) 
    865865902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namzdf_gls in configuration namelist' ) 
    866       IF(lwm) WRITE ( numond, namzdf_gls ) 
     866      IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_gls ) 
    867867 
    868868      IF(lwp) THEN                     !* Control print 
     
    11931193      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file 
    11941194         !                                   ! ------------------- 
    1195          IF(lwp) WRITE(numout,*) '---- gls-rst ----' 
     1195         IF(lwp .AND. nprint > 2) WRITE(numout,*) '---- gls-rst ----' 
    11961196         IF( lwxios ) CALL iom_swap(      cwxios_context         ) 
    11971197         CALL iom_rstput( kt, nitrst, numrow, 'en'    , en    , ldxios = lwxios ) 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfiwm.F90

    r11536 r11782  
    429429      READ  ( numnam_cfg, namzdf_iwm, IOSTAT = ios, ERR = 902 ) 
    430430902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namzdf_iwm in configuration namelist' ) 
    431       IF(lwm) WRITE ( numond, namzdf_iwm ) 
     431      IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_iwm ) 
    432432      ! 
    433433      IF(lwp) THEN                  ! Control print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfosm.F90

    r11536 r11782  
    13911391     READ  ( numnam_cfg, namzdf_osm, IOSTAT = ios, ERR = 902 ) 
    13921392902  IF( ios >  0 ) CALL ctl_nam ( ios , 'namzdf_osm in configuration namelist' ) 
    1393      IF(lwm) WRITE ( numond, namzdf_osm ) 
     1393     IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_osm ) 
    13941394 
    13951395     IF(lwp) THEN                    ! Control print 
     
    15671567     !!----------------------------------------------------------------------------- 
    15681568     IF( TRIM(cdrw) == 'WRITE') THEN     !* Write hbli into the restart file, then return 
    1569         IF(lwp) WRITE(numout,*) '---- osm-rst ----' 
     1569        IF(lwp  .AND. nprint > 0) WRITE(numout,*) '---- osm-rst ----' 
    15701570         CALL iom_rstput( kt, nitrst, numrow, 'wn'     , wn  , ldxios = lwxios ) 
    15711571         CALL iom_rstput( kt, nitrst, numrow, 'hbl'    , hbl , ldxios = lwxios ) 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfphy.F90

    r11536 r11782  
    9898      READ  ( numnam_cfg, namzdf, IOSTAT = ios, ERR = 902 ) 
    9999902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namzdf in configuration namelist' ) 
    100       IF(lwm)   WRITE ( numond, namzdf ) 
     100      IF(lwm .AND. nprint > 2)   WRITE ( numond, namzdf ) 
    101101      ! 
    102102      IF(lwp) THEN                      ! Parameter print 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdfric.F90

    r11536 r11782  
    8585      READ  ( numnam_cfg, namzdf_ric, IOSTAT = ios, ERR = 902 ) 
    8686902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namzdf_ric in configuration namelist' ) 
    87       IF(lwm) WRITE ( numond, namzdf_ric ) 
     87      IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_ric ) 
    8888      ! 
    8989      IF(lwp) THEN                   ! Control print 
     
    234234      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file 
    235235         !                                   ! ------------------- 
    236          IF(lwp) WRITE(numout,*) '---- ric-rst ----' 
     236         IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- ric-rst ----' 
    237237         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
    238238         CALL iom_rstput( kt, nitrst, numrow, 'avt_k', avt_k, ldxios = lwxios ) 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/ZDF/zdftke.F90

    r11536 r11782  
    663663      READ  ( numnam_cfg, namzdf_tke, IOSTAT = ios, ERR = 902 ) 
    664664902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namzdf_tke in configuration namelist' ) 
    665       IF(lwm) WRITE ( numond, namzdf_tke ) 
     665      IF(lwm.AND. nprint > 2) WRITE ( numond, namzdf_tke ) 
    666666      ! 
    667667      ri_cri   = 2._wp    / ( 2._wp + rn_ediss / rn_ediff )   ! resulting critical Richardson number 
     
    797797      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file 
    798798         !                                   ! ------------------- 
    799          IF(lwp) WRITE(numout,*) '---- tke_rst ----' 
     799         IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- tke_rst ----' 
    800800         IF( lwxios ) CALL iom_swap(      cwxios_context          )  
    801801         CALL iom_rstput( kt, nitrst, numrow, 'en'   , en   , ldxios = lwxios ) 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/nemogcm.F90

    r11536 r11782  
    153153      CALL mpp_max( 'nemogcm', nstop ) 
    154154 
    155       IF(lwp) WRITE(numout,cform_aaa)   ! Flag AAAAAAA 
     155      IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa)   ! Flag AAAAAAA 
    156156 
    157157      !                            !-----------------------! 
     
    226226      !                            !==  finalize the run  ==! 
    227227      !                            !------------------------! 
    228       IF(lwp) WRITE(numout,cform_aaa)        ! Flag AAAAAAA 
     228      IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa)        ! Flag AAAAAAA 
    229229      ! 
    230230      IF( nstop /= 0 .AND. lwp ) THEN        ! error print 
     
    309309                  CALL ctl_opn( numnam_ref,        'namelist_ref',     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    310310                  CALL ctl_opn( numnam_cfg,        'namelist_cfg',     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    311       IF( lwm )   CALL ctl_opn(     numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    312311      ! open /dev/null file to be able to supress output write easily 
    313312                  CALL ctl_opn(     numnul,           '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
     
    325324      ! 
    326325      lwp = (narea == 1) .OR. ln_ctl    ! control of all listing output print 
     326      ! 
     327      nprint    = nn_print          ! convert DOCTOR namelist names into OLD names 
     328      ! 
     329      IF( lwm .AND. nprint > 2 )   CALL ctl_opn(     numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    327330      ! 
    328331      IF(lwp) THEN                      ! open listing units 
     
    352355         WRITE(numout,*) 
    353356         ! 
    354          WRITE(numout,cform_aaa)                                        ! Flag AAAAAAA 
     357         IF(nprint > 1) WRITE(numout,cform_aaa)                                        ! Flag AAAAAAA 
    355358         ! 
    356359      ENDIF 
     
    369372      ENDIF 
    370373      ! 
    371       IF(lwm) WRITE( numond, namctl ) 
     374      IF(lwm .AND. nprint > 2) WRITE( numond, namctl ) 
    372375      ! 
    373376      !                             !------------------------------------! 
     
    388391      ENDIF 
    389392      ! 
    390       IF(lwm)   WRITE( numond, namcfg ) 
     393      IF(lwm .AND. nprint > 2)   WRITE( numond, namcfg ) 
    391394      ! 
    392395      !                             !-----------------------------------------! 
     
    492495      IF( lk_asminc    )   CALL asm_inc_init    ! Initialize assimilation increments 
    493496      ! 
    494       IF(lwp) WRITE(numout,cform_aaa)           ! Flag AAAAAAA 
     497      IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa)           ! Flag AAAAAAA 
    495498      ! 
    496499      IF( ln_timing    )   CALL timing_stop( 'nemo_init') 
     
    536539      ENDIF 
    537540      ! 
    538       nprint    = nn_print          ! convert DOCTOR namelist names into OLD names 
    539541      nictls    = nn_ictls 
    540542      nictle    = nn_ictle 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/step.F90

    r11536 r11782  
    298298      IF( kstp == nit000 ) THEN                          ! 1st time step only 
    299299                                        CALL iom_close( numror )   ! close input  ocean restart file 
    300          IF(lwm)                        CALL FLUSH    ( numond )   ! flush output namelist oce 
    301          IF(lwm .AND. numoni /= -1 )    CALL FLUSH    ( numoni )   ! flush output namelist ice (if exist) 
     300         IF( lwm .AND. numond /= -1 )    CALL FLUSH    ( numond )   ! flush output namelist oce 
     301         IF( lwm .AND. numoni /= -1 )    CALL FLUSH    ( numoni )   ! flush output namelist ice (if exist) 
    302302      ENDIF 
    303303 
  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/timing.F90

    r11536 r11782  
    375375      CALL MPI_GATHER( (/compute_time, waiting_time(1), waiting_time(2), elapsed_time/),   & 
    376376         &             4, MPI_DOUBLE_PRECISION, timing_glob, 4, MPI_DOUBLE_PRECISION, 0, MPI_COMM_OCE, icode) 
    377       IF( narea == 1 ) THEN 
     377      IF( narea == 1 .AND. nprint > 1) THEN 
    378378         WRITE(numtime,*) ' ' 
    379379         WRITE(numtime,*) ' Report on time spent on waiting MPI messages ' 
  • NEMO/branches/2019/dev_r11756_text_output/src/SAS/daymod.F90

    r10068 r11782  
    134134 
    135135      ! control print 
    136       IF(lwp) WRITE(numout,'(a,i6,a,i2,a,i2,a,i8,a,i8,a,i8,a,i8)')   & 
     136      IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i6,a,i2,a,i2,a,i8,a,i8,a,i8,a,i8)')   & 
    137137           &                   ' =======>> 1/2 time step before the start of the run DATE Y/M/D = ',   & 
    138138           &                   nyear, '/', nmonth, '/', nday, '  nsec_day:', nsec_day, '  nsec_week:', nsec_week, '  & 
     
    267267         CALL ymds2ju( nyear, 01, 01, 0.0, fjulstartyear ) 
    268268         ! 
    269          IF(lwp) WRITE(numout,'(a,i8,a,i4.4,a,i2.2,a,i2.2,a,i3.3)') '======>> time-step =', kt,   & 
     269         IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i8,a,i4.4,a,i2.2,a,i2.2,a,i3.3)') '======>> time-step =', kt,   & 
    270270              &   '      New day, DATE Y/M/D = ', nyear, '/', nmonth, '/', nday, '      nday_year = ', nday_year 
    271          IF(lwp) WRITE(numout,'(a,i8,a,i7,a,i5)') '         nsec_year = ', nsec_year,   & 
     271         IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i8,a,i7,a,i5)') '         nsec_year = ', nsec_year,   & 
    272272              &   '   nsec_month = ', nsec_month, '   nsec_day = ', nsec_day, '   nsec_week = ', nsec_week 
    273273      ENDIF 
  • NEMO/branches/2019/dev_r11756_text_output/src/SAS/nemogcm.F90

    r11536 r11782  
    9696      CALL mpp_max( 'nemogcm', nstop ) 
    9797 
    98       IF(lwp) WRITE(numout,cform_aaa)   ! Flag AAAAAAA 
     98      IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa)   ! Flag AAAAAAA 
    9999 
    100100      !                            !-----------------------! 
     
    148148      !                            !==  finalize the run  ==! 
    149149      !                            !------------------------! 
    150       IF(lwp) WRITE(numout,cform_aaa)        ! Flag AAAAAAA 
     150      IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa)        ! Flag AAAAAAA 
    151151      ! 
    152152      IF( nstop /= 0 .AND. lwp ) THEN        ! error print 
     
    234234                     CALL ctl_opn( numnam_ref,        'namelist_sas_ref',     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    235235                     CALL ctl_opn( numnam_cfg,        'namelist_sas_cfg',     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    236          IF( lwm )   CALL ctl_opn(     numond, 'output.namelist_sas.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
     236         IF( lwm .AND. nprint > 2 )   CALL ctl_opn(     numond, 'output.namelist_sas.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    237237      ELSE 
    238238         IF( lwm )   CALL ctl_opn(     numout,            'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
     
    240240                     CALL ctl_opn( numnam_ref,            'namelist_ref',     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    241241                     CALL ctl_opn( numnam_cfg,            'namelist_cfg',     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    242          IF( lwm )   CALL ctl_opn(     numond,     'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
     242         IF( lwm .AND. nprint > 2  )   CALL ctl_opn(     numond,     'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    243243      ENDIF 
    244244      ! open /dev/null file to be able to supress output write easily 
     
    288288         WRITE(numout,*) 
    289289         ! 
    290          WRITE(numout,cform_aaa)                                        ! Flag AAAAAAA 
     290         IF(nprint > 1) WRITE(numout,cform_aaa)                                        ! Flag AAAAAAA 
    291291         ! 
    292292      ENDIF 
     
    305305      ENDIF 
    306306      ! 
    307       IF(lwm) WRITE( numond, namctl ) 
     307      IF(lwm .AND. nprint > 2) WRITE( numond, namctl ) 
    308308      ! 
    309309      !                             !------------------------------------! 
     
    324324      ENDIF 
    325325      ! 
    326       IF(lwm)   WRITE( numond, namcfg ) 
     326      nprint    = nn_print          ! convert DOCTOR namelist names into OLD names 
     327      ! 
     328      IF(lwm .AND. nprint > 2)   WRITE( numond, namcfg ) 
    327329      ! 
    328330      !                             !-----------------------------------------! 
     
    362364                           CALL icb_init( rdt, nit000)   ! initialise icebergs instance 
    363365      ! 
    364       IF(lwp) WRITE(numout,cform_aaa)           ! Flag AAAAAAA 
     366      IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa)           ! Flag AAAAAAA 
    365367      ! 
    366368      IF( ln_timing    )   CALL timing_stop( 'nemo_init') 
     
    406408      ENDIF 
    407409      ! 
    408       nprint    = nn_print          ! convert DOCTOR namelist names into OLD names 
    409410      nictls    = nn_ictls 
    410411      nictle    = nn_ictle 
  • NEMO/branches/2019/dev_r11756_text_output/src/SAS/sbcssm.F90

    r11536 r11782  
    192192      READ  ( numnam_cfg, namsbc_sas, IOSTAT = ios, ERR = 902 ) 
    193193902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_sas in configuration namelist' ) 
    194       IF(lwm) WRITE ( numond, namsbc_sas ) 
     194      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_sas ) 
    195195      !            
    196196      IF(lwp) THEN                              ! Control print 
Note: See TracChangeset for help on using the changeset viewer.