New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10968 for NEMO/branches – NEMO

Changeset 10968 for NEMO/branches


Ignore:
Timestamp:
2019-05-13T11:43:03+02:00 (5 years ago)
Author:
andmirek
Message:

GMED 462 print levels implementation

Location:
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src
Files:
100 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icealb.F90

    r10888 r10968  
    196196      READ  ( numnam_ice_cfg, namalb, IOSTAT = ios, ERR = 902 ) 
    197197902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namalb in configuration namelist', lwp ) 
    198       IF(lwm) WRITE( numoni, namalb ) 
     198      IF(lwm .AND. nprint > 2) WRITE( numoni, namalb ) 
    199199      ! 
    200200      IF(lwp) THEN                      ! Control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icedia.F90

    r10888 r10968  
    184184      READ  ( numnam_ice_cfg, namdia, IOSTAT = ios, ERR = 902 ) 
    185185902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdia in configuration namelist', lwp ) 
    186       IF(lwm) WRITE ( numoni, namdia ) 
     186      IF(lwm .AND. nprint > 2) WRITE ( numoni, namdia ) 
    187187      ! 
    188188      IF(lwp) THEN                  ! control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icedyn.F90

    r10888 r10968  
    330330      READ  ( numnam_ice_cfg, namdyn, IOSTAT = ios, ERR = 902 ) 
    331331902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn in configuration namelist', lwp ) 
    332       IF(lwm) WRITE( numoni, namdyn ) 
     332      IF(lwm .AND. nprint > 2) WRITE( numoni, namdyn ) 
    333333      ! 
    334334      IF(lwp) THEN                     ! control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icedyn_adv.F90

    r10888 r10968  
    162162      READ  ( numnam_ice_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 ) 
    163163902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist', lwp ) 
    164       IF(lwm) WRITE( numoni, namdyn_adv ) 
     164      IF(lwm .AND. nprint > 2) WRITE( numoni, namdyn_adv ) 
    165165      ! 
    166166      IF(lwp) THEN                     ! control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icedyn_rdgrft.F90

    r10888 r10968  
    915915      READ  ( numnam_ice_cfg, namdyn_rdgrft, IOSTAT = ios, ERR = 902 ) 
    916916902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_rdgrft in configuration namelist', lwp ) 
    917       IF(lwm) WRITE ( numoni, namdyn_rdgrft ) 
     917      IF(lwm .AND. nprint > 2) WRITE ( numoni, namdyn_rdgrft ) 
    918918      ! 
    919919      IF (lwp) THEN                          ! control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icedyn_rhg.F90

    r10888 r10968  
    115115      READ  ( numnam_ice_cfg, namdyn_rhg, IOSTAT = ios, ERR = 902 ) 
    116116902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namdyn_rhg in configuration namelist', lwp ) 
    117       IF(lwm) WRITE ( numoni, namdyn_rhg ) 
     117      IF(lwm .AND. nprint > 2) WRITE ( numoni, namdyn_rhg ) 
    118118      ! 
    119119      IF(lwp) THEN                     ! control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icedyn_rhg_evp.F90

    r10888 r10968  
    932932      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file 
    933933         !                                   ! ------------------- 
    934          IF(lwp) WRITE(numout,*) '---- rhg-rst ----' 
     934         IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- rhg-rst ----' 
    935935         iter = kt + nn_fsbc - 1             ! ice restarts are written at kt == nitrst - nn_fsbc + 1 
    936936         ! 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/iceistate.F90

    r10888 r10968  
    524524      READ  ( numnam_ice_cfg, namini, IOSTAT = ios, ERR = 902 ) 
    525525902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namini in configuration namelist', lwp ) 
    526       IF(lwm) WRITE ( numoni, namini ) 
     526      IF(lwm .AND. nprint > 2) WRITE ( numoni, namini ) 
    527527      ! 
    528528      slf_i(jp_hti) = sn_hti  ;  slf_i(jp_hts) = sn_hts 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/iceitd.F90

    r10888 r10968  
    659659      READ  ( numnam_ice_cfg, namitd, IOSTAT = ios, ERR = 902 ) 
    660660902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namitd in configuration namelist', lwp ) 
    661       IF(lwm) WRITE( numoni, namitd ) 
     661      IF(lwm .AND. nprint > 2) WRITE( numoni, namitd ) 
    662662      ! 
    663663      IF(lwp) THEN                  ! control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icerst.F90

    r10888 r10968  
    6767            clpath = TRIM(cn_icerst_outdir)  
    6868            IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath)//'/' 
    69             IF(lwp) THEN 
     69            IF(lwp .AND. nprint > 0) THEN 
    7070               WRITE(numout,*) 
    7171               WRITE(numout,*) '             open ice restart NetCDF file: ',TRIM(clpath)//clname 
    … …  
    104104      iter = kt + nn_fsbc - 1   ! ice restarts are written at kt == nitrst - nn_fsbc + 1 
    105105 
    106       IF( iter == nitrst ) THEN 
     106      IF( iter == nitrst .AND. nprint > 0 ) THEN 
    107107         IF(lwp) WRITE(numout,*) 
    108108         IF(lwp) WRITE(numout,*) 'ice_rst_write : write ice restart file  kt =', kt 
    … …  
    176176      !!---------------------------------------------------------------------- 
    177177 
    178       IF(lwp) THEN 
     178      IF(lwp .AND. nprint > 0) THEN 
    179179         WRITE(numout,*) 
    180180         WRITE(numout,*) 'ice_rst_read: read ice NetCDF restart file' 
    … …  
    186186      CALL iom_get( numrir, 'nn_fsbc', zfice ) 
    187187      CALL iom_get( numrir, 'kt_ice' , ziter )     
    188       IF(lwp) WRITE(numout,*) '   read ice restart file at time step    : ', ziter 
    189       IF(lwp) WRITE(numout,*) '   in any case we force it to nit000 - 1 : ', nit000 - 1 
     188      IF(lwp .AND. nprint > 0) WRITE(numout,*) '   read ice restart file at time step    : ', ziter 
     189      IF(lwp .AND. nprint > 0) WRITE(numout,*) '   in any case we force it to nit000 - 1 : ', nit000 - 1 
    190190 
    191191      ! Control of date 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icesbc.F90

    r10888 r10968  
    276276      READ  ( numnam_ice_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 
    277277902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwp ) 
    278       IF(lwm) WRITE( numoni, namsbc ) 
     278      IF(lwm .AND. nprint > 2) WRITE( numoni, namsbc ) 
    279279      ! 
    280280      IF(lwp) THEN                     ! control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icestp.F90

    r10888 r10968  
    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) & 
     238          CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 
    238239      ! 
    239240      CALL par_init                ! set some ice run parameters 
    … …  
    307308      READ  ( numnam_ice_cfg, nampar, IOSTAT = ios, ERR = 902 ) 
    308309902   IF( ios > 0 )   CALL ctl_nam ( ios , 'nampar in configuration namelist', lwp ) 
    309       IF(lwm) WRITE( numoni, nampar ) 
     310      IF(lwm .AND. nprint > 2) WRITE( numoni, nampar ) 
    310311      ! 
    311312      IF(lwp) THEN                  ! control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icethd.F90

    r10888 r10968  
    549549      READ  ( numnam_ice_cfg, namthd, IOSTAT = ios, ERR = 902 ) 
    550550902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd in configuration namelist', lwp ) 
    551       IF(lwm) WRITE( numoni, namthd ) 
     551      IF(lwm .AND. nprint > 2) WRITE( numoni, namthd ) 
    552552      ! 
    553553      IF(lwp) THEN                          ! control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icethd_da.F90

    r10888 r10968  
    183183      READ  ( numnam_ice_cfg, namthd_da, IOSTAT = ios, ERR = 902 ) 
    184184902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd_da in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icethd_do.F90

    r10888 r10968  
    446446      READ  ( numnam_ice_cfg, namthd_do, IOSTAT = ios, ERR = 902 ) 
    447447902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd_do in configuration namelist', lwp ) 
    448       IF(lwm) WRITE( numoni, namthd_do ) 
     448      IF(lwm .AND. nprint > 2) WRITE( numoni, namthd_do ) 
    449449      ! 
    450450      IF(lwp) THEN                          ! control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icethd_pnd.F90

    r10888 r10968  
    214214      READ  ( numnam_ice_cfg, namthd_pnd, IOSTAT = ios, ERR = 902 ) 
    215215902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd_pnd in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icethd_sal.F90

    r10888 r10968  
    138138      READ  ( numnam_ice_cfg, namthd_sal, IOSTAT = ios, ERR = 902 ) 
    139139902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd_sal in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icethd_zdf.F90

    r10888 r10968  
    9494      READ  ( numnam_ice_cfg, namthd_zdf, IOSTAT = ios, ERR = 902 ) 
    9595902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd_zdf in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/iceupdate.F90

    r10888 r10968  
    442442      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file 
    443443         !                                   ! ------------------- 
    444          IF(lwp) WRITE(numout,*) '---- update-rst ----' 
     444         IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- update-rst ----' 
    445445         iter = kt + nn_fsbc - 1             ! ice restarts are written at kt == nitrst - nn_fsbc + 1 
    446446         ! 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ASM/asminc.F90

    r10888 r10968  
    151151      READ  ( numnam_cfg, nam_asminc, IOSTAT = ios, ERR = 902 ) 
    152152902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nam_asminc in configuration namelist', lwp ) 
    153       IF(lwm) WRITE ( numond, nam_asminc ) 
     153      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_asminc ) 
    154154 
    155155      ! Control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/BDY/bdydta.F90

    r10888 r10968  
    517517            READ  ( numnam_cfg, nambdy_dta, IOSTAT = ios, ERR = 902 ) 
    518518902         IF( ios >  0 )   CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist', lwp ) 
    519             IF(lwm) WRITE( numond, nambdy_dta ) 
     519            IF(lwm .AND. nprint > 2) WRITE( numond, nambdy_dta ) 
    520520 
    521521            cn_dir_array(jbdy) = cn_dir 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/BDY/bdyini.F90

    r10888 r10968  
    8383      READ  ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 ) 
    8484902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwp ) 
    85       IF(lwm) WRITE ( numond, nambdy ) 
     85      IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy ) 
    8686 
    8787      IF( .NOT. Agrif_Root() ) ln_bdy = .FALSE.   ! forced for Agrif children 
    … …  
    432432            READ  ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 
    433433904         IF( ios /= 0 )   CALL ctl_nam ( ios , 'nambdy_index in configuration namelist', lwp ) 
    434             IF(lwm) WRITE ( numond, nambdy_index ) 
     434            IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy_index ) 
    435435 
    436436            SELECT CASE ( TRIM(ctypebdy) ) 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/BDY/bdytides.F90

    r10888 r10968  
    105105            READ  ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 ) 
    106106902         IF( ios >  0 )   CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist', lwp ) 
    107             IF(lwm) WRITE ( numond, nambdy_tide ) 
     107            IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy_tide ) 
    108108            !                                               ! Parameter control and print 
    109109            IF(lwp) WRITE(numout,*) '  ' 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/C1D/c1d.F90

    r10888 r10968  
    5757      READ  ( numnam_cfg, namc1d, IOSTAT = ios, ERR = 902 ) 
    5858902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namc1d in configuration namelist', lwp ) 
    59       IF(lwm) WRITE ( numond, namc1d ) 
     59      IF(lwm .AND. nprint > 2) WRITE ( numond, namc1d ) 
    6060      ! 
    6161      IF(lwp) THEN                    ! Control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/C1D/dtauvd.F90

    r10888 r10968  
    6767      READ  ( numnam_cfg, namc1d_uvd, IOSTAT = ios, ERR = 902 ) 
    6868902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namc1d_uvd in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/C1D/dyndmp.F90

    r10888 r10968  
    8585      READ  ( numnam_cfg, namc1d_dyndmp, IOSTAT = ios, ERR = 902 ) 
    8686902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namc1d_dyndmp in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/CRS/crsini.F90

    r10888 r10968  
    8686      READ  ( numnam_cfg, namcrs, IOSTAT = ios, ERR = 902 ) 
    8787902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namcrs in configuration namelist', lwp ) 
    88       IF(lwm) WRITE ( numond, namcrs ) 
     88      IF(lwm .AND. nprint > 2) WRITE ( numond, namcrs ) 
    8989 
    9090     IF(lwp) THEN 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DIA/dia25h.F90

    r10888 r10968  
    5959      READ  ( numnam_cfg, nam_dia25h, IOSTAT = ios, ERR = 902 ) 
    6060902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nam_dia25h in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DIA/diadct.F90

    r10888 r10968  
    140140     READ  ( numnam_cfg, namdct, IOSTAT = ios, ERR = 902 ) 
    141141902  IF( ios >  0 ) CALL ctl_nam ( ios , 'namdct in configuration namelist', lwp ) 
    142      IF(lwm) WRITE ( numond, namdct ) 
     142     IF(lwm .AND. nprint > 2) WRITE ( numond, namdct ) 
    143143 
    144144     IF( lwp ) THEN 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DIA/diaharm.F90

    r10888 r10968  
    9393      READ  ( numnam_cfg, nam_diaharm, IOSTAT = ios, ERR = 902 ) 
    9494902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nam_diaharm in configuration namelist', lwp ) 
    95       IF(lwm) WRITE ( numond, nam_diaharm ) 
     95      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_diaharm ) 
    9696      ! 
    9797      IF(lwp) THEN 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DIA/diahsb.F90

    r10888 r10968  
    211211         CALL iom_put( 'bgvole3t' , zdiff_v2 * 1.e-9    )              ! volume e3t drift      (km3)   
    212212         ! 
    213          IF( kt == nitend .AND. lwp ) THEN 
     213         IF( kt == nitend .AND. lwp) THEN 
    214214            WRITE(numout,*) 
    215215            WRITE(numout,*) 'dia_hsb : last time step hsb diagnostics: at it= ', kt,' date= ', ndastp 
    … …  
    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) WRITE(numout,*) 
     313         IF(lwp .AND. nprint > 0) WRITE(numout,*) '   dia_hsb_rst : write restart at it= ', kt,' date= ', ndastp 
     314         IF(lwp .AND. nprint > 0) WRITE(numout,*) 
    315315         ! 
    316316         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
    … …  
    366366      READ  ( numnam_cfg, namhsb, IOSTAT = ios, ERR = 902 ) 
    367367902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namhsb in configuration namelist', lwp ) 
    368       IF(lwm) WRITE( numond, namhsb ) 
     368      IF(lwm  .AND. nprint > 2) WRITE( numond, namhsb ) 
    369369 
    370370      IF(lwp) THEN 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DIA/diaptr.F90

    r10888 r10968  
    398398      READ  ( numnam_cfg, namptr, IOSTAT = ios, ERR = 902 ) 
    399399902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namptr in configuration namelist', lwp ) 
    400       IF(lwm) WRITE ( numond, namptr ) 
     400      IF(lwm.AND. nprint > 2) WRITE ( numond, namptr ) 
    401401 
    402402      IF(lwp) THEN                     ! Control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DIA/diatmb.F90

    r10888 r10968  
    4848      READ  ( numnam_cfg, nam_diatmb, IOSTAT = ios, ERR = 902 ) 
    4949902   IF( ios >  0 ) CALL ctl_nam ( ios , 'nam_diatmb in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DOM/daymod.F90

    r10888 r10968  
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DOM/domain.F90

    r10888 r10968  
    312312      READ  ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 
    313313902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namrun in configuration namelist', lwp ) 
    314       IF(lwm) WRITE ( numond, namrun ) 
     314      IF(lwm .AND. nprint > 2) WRITE ( numond, namrun ) 
    315315      ! 
    316316      IF(lwp) THEN                  ! control print 
    … …  
    405405      READ  ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 
    406406904   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp ) 
    407       IF(lwm) WRITE( numond, namdom ) 
     407      IF(lwm .AND. nprint > 2) WRITE( numond, namdom ) 
    408408      ! 
    409409      IF(lwp) THEN 
    … …  
    437437      READ  ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 
    438438908   IF( ios >  0 )   CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp ) 
    439       IF(lwm) WRITE( numond, namnc4 ) 
     439      IF(lwm .AND. nprint > 2) WRITE( numond, namnc4 ) 
    440440 
    441441      IF(lwp) THEN                        ! control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DOM/dommsk.F90

    r10888 r10968  
    110110      READ  ( numnam_cfg, namlbc, IOSTAT = ios, ERR = 902 ) 
    111111902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namlbc in configuration namelist', lwp ) 
    112       IF(lwm) WRITE ( numond, namlbc ) 
     112      IF(lwm .AND. nprint > 2) WRITE ( numond, namlbc ) 
    113113       
    114114      IF(lwp) THEN                  ! control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DOM/domvvl.F90

    r10888 r10968  
    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', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DOM/domzgr.F90

    r10888 r10968  
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DOM/dtatsd.F90

    r10888 r10968  
    7171      READ  ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 ) 
    7272902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtsd in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DOM/iscplini.F90

    r10888 r10968  
    6868      READ  ( numnam_cfg, namsbc_iscpl, IOSTAT = ios, ERR = 902 ) 
    6969902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_iscpl in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN/dynadv.F90

    r10888 r10968  
    110110      READ  ( numnam_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 ) 
    111111902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN/dynhpg.F90

    r10888 r10968  
    157157      READ  ( numnam_cfg, namdyn_hpg, IOSTAT = ios, ERR = 902 ) 
    158158902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_hpg in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN/dynspg.F90

    r10888 r10968  
    207207      READ  ( numnam_cfg, namdyn_spg, IOSTAT = ios, ERR = 902 ) 
    208208902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_spg in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN/dynspg_ts.F90

    r10888 r10968  
    14361436      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file 
    14371437         !                                   ! ------------------- 
    1438          IF(lwp) WRITE(numout,*) '---- ts_rst ----' 
     1438         IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- ts_rst ----' 
    14391439         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
    14401440         CALL iom_rstput( kt, nitrst, numrow, 'ub2_b'   , ub2_b  (:,:), ldxios = lwxios ) 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN/dynvor.F90

    r10888 r10968  
    855855      READ  ( numnam_cfg, namdyn_vor, IOSTAT = ios, ERR = 902 ) 
    856856902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_vor in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN/wet_dry.F90

    r10888 r10968  
    8585      READ  ( numnam_cfg, namwad, IOSTAT = ios, ERR = 906) 
    8686906   IF( ios >  0 )   CALL ctl_nam ( ios , 'namwad in configuration namelist', .TRUE. ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/FLO/floats.F90

    r10888 r10968  
    9595      READ  ( numnam_cfg, namflo, IOSTAT = ios, ERR = 902 ) 
    9696902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namflo in configuration namelist', lwp ) 
    97       IF(lwm) WRITE ( numond, namflo ) 
     97      IF(lwm .AND. nprint > 2) WRITE ( numond, namflo ) 
    9898      ! 
    9999      IF(lwp) THEN                  ! control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icbclv.F90

    r10888 r10968  
    179179      CALL lbc_lnk( 'icbclv', berg_grid%stored_heat, 'T', 1._wp ) 
    180180      ! 
    181       IF( nn_verbose_level > 0 .AND. icntmax > 1 )   WRITE(numicb,*) 'icb_clv: icnt=', icnt,' on', narea 
     181      IF( nn_verbose_level > 0 .AND. icntmax > 1 .AND. numicb /= -1)  & 
     182         WRITE(numicb,*) 'icb_clv: icnt=', icnt,' on', narea 
    182183      ! 
    183184   END SUBROUTINE  icb_clv 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icbdia.F90

    r10888 r10968  
    327327               &                    'returned',calving_ret_net) 
    328328         ENDIF 
    329          IF (nn_verbose_level > 0) THEN 
     329         IF (nn_verbose_level > 0 .AND. numicb.NE.-1) THEN 
    330330            WRITE( numicb, '("calved by class = ",i6,20(",",i6))') (nbergs_calved_by_class(ik),ik=1,nclasses) 
    331331            IF( nspeeding_tickets > 0 )   WRITE( numicb, '("speeding tickets issued = ",i6)') nspeeding_tickets 
    … …  
    442442         stored_heat_start = SUM( berg_grid%stored_heat(:,:) ) 
    443443         CALL mpp_sum( 'icbdia', stored_heat_start ) 
    444          IF (nn_verbose_level > 0) THEN 
     444         IF (nn_verbose_level > 0 .AND. numicb.NE.-1) THEN 
    445445            WRITE(numicb,'(a,es13.6,a)')   'icb_dia_income: initial stored mass=',stored_start,' kg' 
    446446            WRITE(numicb,'(a,es13.6,a)')   'icb_dia_income: initial stored heat=',stored_heat_start,' J' 
    … …  
    521521      IF (nn_verbose_level == 0) RETURN 
    522522      IF( PRESENT(kbergs) ) THEN 
    523          WRITE(numicb,100) cd_budgetstr // ' state:',                                    & 
    524             &              cd_startstr  // ' start',  pstartval,         cd_budgetunits, & 
    525             &              cd_endstr    // ' end',    pendval,           cd_budgetunits, & 
    526             &              'Delta '     // cd_delstr, pendval-pstartval, cd_budgetunits, & 
    527             &              '# of bergs', kbergs 
     523         IF( numicb.NE.-1 ) & 
     524            WRITE(numicb,100) cd_budgetstr // ' state:',                                    & 
     525               &              cd_startstr  // ' start',  pstartval,         cd_budgetunits, & 
     526               &              cd_endstr    // ' end',    pendval,           cd_budgetunits, & 
     527               &              'Delta '     // cd_delstr, pendval-pstartval, cd_budgetunits, & 
     528               &              '# of bergs', kbergs 
    528529      ELSE 
    529          WRITE(numicb,100) cd_budgetstr // ' state:',                                   & 
    530             &              cd_startstr  // ' start', pstartval,         cd_budgetunits, & 
    531             &              cd_endstr    // ' end',   pendval,           cd_budgetunits, & 
    532             &              cd_delstr    // 'Delta',  pendval-pstartval, cd_budgetunits 
     530         IF( numicb.NE.-1 ) & 
     531            WRITE(numicb,100) cd_budgetstr // ' state:',                                   & 
     532               &              cd_startstr  // ' start', pstartval,         cd_budgetunits, & 
     533               &              cd_endstr    // ' end',   pendval,           cd_budgetunits, & 
     534               &              cd_delstr    // 'Delta',  pendval-pstartval, cd_budgetunits 
    533535      ENDIF 
    534536100   FORMAT(a19,3(a18,"=",es14.7,x,a2,:,","),a12,i8) 
    … …  
    545547      ! 
    546548      IF (nn_verbose_level == 0) RETURN 
    547       WRITE(numicb,200) cd_budgetstr // ' check:',                 & 
    548          &              cd_startstr,    pstartval, cd_budgetunits, & 
    549          &              cd_endstr,      pendval,   cd_budgetunits, & 
    550          &              'error',        (pendval-pstartval)/((pendval+pstartval)+1e-30), 'nd' 
     549      IF(numicb.NE.-1) &  
     550         WRITE(numicb,200) cd_budgetstr // ' check:',                 & 
     551            &              cd_startstr,    pstartval, cd_budgetunits, & 
     552            &              cd_endstr,      pendval,   cd_budgetunits, & 
     553            &              'error',        (pendval-pstartval)/((pendval+pstartval)+1e-30), 'nd' 
    551554200   FORMAT(a19,10(a18,"=",es14.7,x,a2,:,",")) 
    552555      ! 
    … …  
    568571         &   MAX( 1.e-30, MAX( ABS( pendval - pstartval ) , ABS( pinval - poutval ) ) ) 
    569572         ! 
    570       WRITE(numicb,200) cd_budgetstr // ' budget:', & 
    571          &              cd_instr     // ' in',      pinval,         cd_budgetunits, & 
    572          &              cd_outstr    // ' out',     poutval,        cd_budgetunits, & 
    573          &              'Delta '     // cd_delstr,  pinval-poutval, cd_budgetunits, & 
    574          &              'error',        zval,                       'nd' 
     573      IF(numicb.NE.-1) &  
     574         WRITE(numicb,200) cd_budgetstr // ' budget:', & 
     575            &              cd_instr     // ' in',      pinval,         cd_budgetunits, & 
     576            &              cd_outstr    // ' out',     poutval,        cd_budgetunits, & 
     577            &              'Delta '     // cd_delstr,  pinval-poutval, cd_budgetunits, & 
     578            &              'error',        zval,                       'nd' 
    575579  200 FORMAT(a19,3(a18,"=",es14.7,x,a2,:,","),a8,"=",es10.3,x,a2) 
    576580      ! 
    … …  
    586590      ! 
    587591      IF (nn_verbose_level == 0) RETURN 
    588       WRITE(numicb,100) cd_budgetstr // ' state:',           & 
    589          &              cd_startstr  // ' start', pstartval, & 
    590          &              cd_endstr    // ' end',   pendval,   & 
    591          &              cd_delstr    // 'Delta',  pendval-pstartval 
     592      IF(numicb.NE.-1) &  
     593         WRITE(numicb,100) cd_budgetstr // ' state:',           & 
     594            &              cd_startstr  // ' start', pstartval, & 
     595            &              cd_endstr    // ' end',   pendval,   & 
     596            &              cd_delstr    // 'Delta',  pendval-pstartval 
    592597  100 FORMAT(a19,3(a18,"=",i14,x,:,",")) 
    593598      ! 
    … …  
    604609      ! 
    605610      IF (nn_verbose_level == 0) RETURN 
    606       WRITE(numicb,200) cd_budgetstr // ' budget:', & 
    607          &              cd_instr     // ' in',      pinval, & 
    608          &              cd_outstr    // ' out',     poutval, & 
    609          &              'Delta '     // cd_delstr,  pinval-poutval, & 
    610          &              'error',                    ( ( pendval - pstartval ) - ( pinval - poutval ) ) 
     611      IF(numicb.NE.-1) &  
     612         WRITE(numicb,200) cd_budgetstr // ' budget:', & 
     613            &              cd_instr     // ' in',      pinval, & 
     614            &              cd_outstr    // ' out',     poutval, & 
     615            &              'Delta '     // cd_delstr,  pinval-poutval, & 
     616            &              'error',                    ( ( pendval - pstartval ) - ( pinval - poutval ) ) 
    611617200   FORMAT(a19,10(a18,"=",i14,x,:,",")) 
    612618      ! 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icbdyn.F90

    r10888 r10968  
    372372      !                                      ! check the speed and acceleration limits 
    373373      IF (nn_verbose_level > 0) THEN 
    374          IF( ABS( zuveln ) > pp_vel_lim   .OR. ABS( zvveln ) > pp_vel_lim   )   & 
    375             WRITE(numicb,'("pe=",i3,x,a)') narea,'Dump triggered by excessive velocity' 
    376          IF( ABS( pax    ) > pp_accel_lim .OR. ABS( pay    ) > pp_accel_lim )   & 
    377             WRITE(numicb,'("pe=",i3,x,a)') narea,'Dump triggered by excessive acceleration' 
     374          IF( ABS( zuveln ) > pp_vel_lim   .OR. ABS( zvveln ) > pp_vel_lim   ) THEN  
     375              IF(numicb.NE.-1) THEN  
     376                  WRITE(numicb,'("pe=",i3,x,a)') narea,'Dump triggered by excessive velocity'  
     377              ELSE  
     378                  WRITE(*,'("pe=",i3,x,a)') narea,'Dump triggered by excessive velocity'   
     379              ENDIF  
     380          ENDIF  
     381          IF( ABS( pax    ) > pp_accel_lim .OR. ABS( pay    ) > pp_accel_lim ) THEN  
     382              IF(numicb.NE.-1) THEN  
     383                  WRITE(numicb,'("pe=",i3,x,a)') narea,'Dump triggered by excessive acceleration'  
     384              ELSE  
     385                  WRITE(*,'("pe=",i3,x,a)') narea,'Dump triggered by excessive acceleration'  
     386              ENDIF  
     387          ENDIF 
    378388      ENDIF 
    379389      ! 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icbini.F90

    r10888 r10968  
    8989      !                          ! note that we choose to do this on all processors since we cannot 
    9090      !                          ! predict where icebergs will be ahead of time 
    91       IF( nn_verbose_level > 0) THEN 
     91      numicb=-1 
     92      IF( nn_verbose_level > 0 .AND. nprint>0) THEN 
    9293         CALL ctl_opn( numicb, 'icebergs.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 
     94      ELSE  
     95         IF(lwp) CALL ctl_opn( numicb, 'icebergs.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )  
    9396      ENDIF 
    9497 
    … …  
    200203      ENDIF 
    201204      ! 
    202       IF( nn_verbose_level > 0) THEN 
     205      IF( nn_verbose_level > 0  .AND. numicb.NE.-1 ) THEN 
    203206         WRITE(numicb,*) 'processor ', narea 
    204207         WRITE(numicb,*) 'jpi, jpj   ', jpi, jpj 
    … …  
    262265         CALL iom_close( inum )                                     ! close file 
    263266         ! 
    264          IF( nn_verbose_level > 0) THEN 
     267         IF( nn_verbose_level > 0  .AND. numicb.NE.-1 ) THEN 
    265268            WRITE(numicb,*) 
    266269            WRITE(numicb,*) '          calving read in a file' 
    … …  
    359362      ibergs = icb_utl_count() 
    360363      CALL mpp_sum('icbini', ibergs) 
    361       IF( nn_verbose_level > 0) THEN 
     364      IF( nn_verbose_level > 0  .AND. numicb.NE.-1 ) THEN 
    362365         WRITE(numicb,'(a,i6,a)') 'diamonds, icb_ini_gen: ',ibergs,' were generated' 
    363366      ENDIF 
    … …  
    410413      READ  ( numnam_cfg, namberg, IOSTAT = ios, ERR = 902 ) 
    411414902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namberg in configuration namelist', lwp ) 
    412       IF(lwm) WRITE ( numond, namberg ) 
     415      IF(lwm .AND. nprint > 2) WRITE ( numond, namberg ) 
    413416      ! 
    414417      IF(lwp) WRITE(numout,*) 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icblbc.F90

    r10888 r10968  
    194194      ENDIF 
    195195 
    196       IF( nn_verbose_level >= 2 ) THEN 
     196      IF( nn_verbose_level >= 2 .AND. numicb /= -1) THEN 
    197197         WRITE(numicb,*) 'processor west  : ', ipe_W 
    198198         WRITE(numicb,*) 'processor east  : ', ipe_E 
    … …  
    237237               this => this%next 
    238238               ibergs_to_send_e = ibergs_to_send_e + 1 
    239                IF( nn_verbose_level >= 4 ) THEN 
     239               IF( nn_verbose_level >= 4 .AND. numicb /= -1) THEN 
    240240                  WRITE(numicb,*) 'bergstep ',nktberg,' packing berg ',tmpberg%number(:),' for transfer to east' 
    241241                  CALL flush( numicb ) 
    … …  
    250250               this => this%next 
    251251               ibergs_to_send_w = ibergs_to_send_w + 1 
    252                IF( nn_verbose_level >= 4 ) THEN 
     252               IF( nn_verbose_level >= 4 .AND. numicb /= -1) THEN 
    253253                  WRITE(numicb,*) 'bergstep ',nktberg,' packing berg ',tmpberg%number(:),' for transfer to west' 
    254254                  CALL flush( numicb ) 
    … …  
    264264         END DO 
    265265      ENDIF 
    266       IF( nn_verbose_level >= 3) THEN 
     266      IF( nn_verbose_level >= 3 .AND. numicb /= -1) THEN 
    267267         WRITE(numicb,*) 'bergstep ',nktberg,' send ew: ', ibergs_to_send_e, ibergs_to_send_w 
    268268         CALL flush(numicb) 
    … …  
    298298         ibergs_rcvd_from_w = INT( zwebergs(2) ) 
    299299      END SELECT 
    300       IF( nn_verbose_level >= 3) THEN 
     300      IF( nn_verbose_level >= 3 .AND. numicb /= -1 ) THEN 
    301301         WRITE(numicb,*) 'bergstep ',nktberg,' recv ew: ', ibergs_rcvd_from_w, ibergs_rcvd_from_e 
    302302         CALL flush(numicb) 
    … …  
    312312         IF( ibergs_to_send_e > 0 .AND. l_isend ) CALL mpi_wait( iml_req1, iml_stat, iml_err ) 
    313313         DO i = 1, ibergs_rcvd_from_e 
    314             IF( nn_verbose_level >= 4 ) THEN 
     314            IF( nn_verbose_level >= 4 .AND. numicb /= -1 ) THEN 
    315315               WRITE(numicb,*) 'bergstep ',nktberg,' unpacking berg ',INT(ibuffer_e%data(16,i)),' from east' 
    316316               CALL flush( numicb ) 
    … …  
    332332         IF( ibergs_to_send_e > 0 .AND. l_isend ) CALL mpi_wait( iml_req3, iml_stat, iml_err ) 
    333333         DO i = 1, ibergs_rcvd_from_e 
    334             IF( nn_verbose_level >= 4 ) THEN 
     334            IF( nn_verbose_level >= 4 .AND. numicb /= -1 ) THEN 
    335335               WRITE(numicb,*) 'bergstep ',nktberg,' unpacking berg ',INT(ibuffer_e%data(16,i)),' from east' 
    336336               CALL flush( numicb ) 
    … …  
    339339         END DO 
    340340         DO i = 1, ibergs_rcvd_from_w 
    341             IF( nn_verbose_level >= 4 ) THEN 
     341            IF( nn_verbose_level >= 4 .AND. numicb /= -1 ) THEN 
    342342               WRITE(numicb,*) 'bergstep ',nktberg,' unpacking berg ',INT(ibuffer_w%data(16,i)),' from west' 
    343343               CALL flush( numicb ) 
    … …  
    353353         IF( ibergs_to_send_w > 0 .AND. l_isend ) CALL mpi_wait( iml_req4, iml_stat, iml_err ) 
    354354         DO i = 1, ibergs_rcvd_from_w 
    355             IF( nn_verbose_level >= 4 ) THEN 
     355            IF( nn_verbose_level >= 4 .AND. numicb /= -1 ) THEN 
    356356               WRITE(numicb,*) 'bergstep ',nktberg,' unpacking berg ',INT(ibuffer_w%data(16,i)),' from west' 
    357357               CALL flush( numicb ) 
    … …  
    375375               this => this%next 
    376376               ibergs_to_send_n = ibergs_to_send_n + 1 
    377                IF( nn_verbose_level >= 4 ) THEN 
     377               IF( nn_verbose_level >= 4 .AND. numicb /= -1 ) THEN 
    378378                  WRITE(numicb,*) 'bergstep ',nktberg,' packing berg ',tmpberg%number(:),' for transfer to north' 
    379379                  CALL flush( numicb ) 
    … …  
    385385               this => this%next 
    386386               ibergs_to_send_s = ibergs_to_send_s + 1 
    387                IF( nn_verbose_level >= 4 ) THEN 
     387               IF( nn_verbose_level >= 4 .AND. numicb /= -1 ) THEN 
    388388                  WRITE(numicb,*) 'bergstep ',nktberg,' packing berg ',tmpberg%number(:),' for transfer to south' 
    389389                  CALL flush( numicb ) 
    … …  
    396396         END DO 
    397397      ENDIF 
    398       if( nn_verbose_level >= 3) then 
     398      if( nn_verbose_level >= 3 .AND. numicb /= -1 ) then 
    399399         write(numicb,*) 'bergstep ',nktberg,' send ns: ', ibergs_to_send_n, ibergs_to_send_s 
    400400         call flush(numicb) 
    … …  
    429429         ibergs_rcvd_from_s = INT( zsnbergs(2) ) 
    430430      END SELECT 
    431       if( nn_verbose_level >= 3) then 
     431      if( nn_verbose_level >= 3 .AND. numicb /= -1) then 
    432432         write(numicb,*) 'bergstep ',nktberg,' recv ns: ', ibergs_rcvd_from_s, ibergs_rcvd_from_n 
    433433         call flush(numicb) 
    … …  
    443443         IF( ibergs_to_send_n > 0 .AND. l_isend ) CALL mpi_wait( iml_req1, iml_stat, iml_err ) 
    444444         DO i = 1, ibergs_rcvd_from_n 
    445             IF( nn_verbose_level >= 4 ) THEN 
     445            IF( nn_verbose_level >= 4 .AND. numicb /= -1 ) THEN 
    446446               WRITE(numicb,*) 'bergstep ',nktberg,' unpacking berg ',INT(ibuffer_n%data(16,i)),' from north' 
    447447               CALL flush( numicb ) 
    … …  
    463463         IF( ibergs_to_send_n > 0 .AND. l_isend ) CALL mpi_wait( iml_req3, iml_stat, iml_err ) 
    464464         DO i = 1, ibergs_rcvd_from_n 
    465             IF( nn_verbose_level >= 4 ) THEN 
     465            IF( nn_verbose_level >= 4 .AND. numicb /= -1) THEN 
    466466               WRITE(numicb,*) 'bergstep ',nktberg,' unpacking berg ',INT(ibuffer_n%data(16,i)),' from north' 
    467467               CALL flush( numicb ) 
    … …  
    470470         END DO 
    471471         DO i = 1, ibergs_rcvd_from_s 
    472             IF( nn_verbose_level >= 4 ) THEN 
     472            IF( nn_verbose_level >= 4 .AND. numicb /= -1) THEN 
    473473               WRITE(numicb,*) 'bergstep ',nktberg,' unpacking berg ',INT(ibuffer_s%data(16,i)),' from south' 
    474474               CALL flush( numicb ) 
    … …  
    484484         IF( ibergs_to_send_s > 0 .AND. l_isend ) CALL mpi_wait( iml_req4, iml_stat, iml_err ) 
    485485         DO i = 1, ibergs_rcvd_from_s 
    486             IF( nn_verbose_level >= 4 ) THEN 
     486            IF( nn_verbose_level >= 4 .AND. numicb /= -1) THEN 
    487487               WRITE(numicb,*) 'bergstep ',nktberg,' unpacking berg ',INT(ibuffer_s%data(16,i)),' from south' 
    488488               CALL flush( numicb ) 
    … …  
    497497         i = ( ibergs_rcvd_from_n + ibergs_rcvd_from_s + ibergs_rcvd_from_e + ibergs_rcvd_from_w ) - & 
    498498             ( ibergs_to_send_n + ibergs_to_send_s + ibergs_to_send_e + ibergs_to_send_w ) 
    499          IF( ibergs_end-(ibergs_start+i) .NE. 0 ) THEN 
     499         IF( ibergs_end-(ibergs_start+i) .NE. 0 .AND. numicb /= -1) THEN 
    500500            WRITE( numicb,*   ) 'send_bergs_to_other_pes: net change in number of icebergs' 
    501501            WRITE( numicb,1000) 'send_bergs_to_other_pes: ibergs_end=', & 
    … …  
    532532      IF( npolj /= 0 .AND. jpni > 1 ) CALL icb_lbc_mpp_nfld( ) 
    533533 
    534       IF( nn_verbose_level > 0 ) THEN 
     534      IF( nn_verbose_level > 0) THEN 
    535535         i = 0 
    536536         this => first_berg 
    … …  
    544544                ijne .GT. mjg(nicbej)) THEN 
    545545               i = i + 1 
    546                WRITE(numicb,*) 'berg lost in halo: ', this%number(:),iine,ijne 
    547                WRITE(numicb,*) '                   ', nimpp, njmpp 
    548                WRITE(numicb,*) '                   ', nicbdi, nicbei, nicbdj, nicbej 
    549                CALL flush( numicb ) 
     546               IF(numicb /= -1) THEN  
     547                   WRITE(numicb,*) 'berg lost in halo: ', this%number(:),iine,ijne 
     548                   WRITE(numicb,*) '                   ', nimpp, njmpp 
     549                   WRITE(numicb,*) '                   ', nicbdi, nicbei, nicbdj, nicbej 
     550                   CALL flush( numicb ) 
     551               ENDIF 
    550552            ENDIF 
    551553            this => this%next 
    … …  
    553555         CALL mpp_sum('icblbc', i) 
    554556         IF( i .GT. 0 ) THEN 
    555             WRITE( numicb,'(a,i4)') 'send_bergs_to_other_pes: # of bergs outside computational domain = ',i 
     557            IF(numicb /= -1) THEN 
     558                WRITE( numicb,'(a,i4)') 'send_bergs_to_other_pes: # of bergs outside computational domain = ',i 
     559            ELSE 
     560                WRITE( *,'(a,i4)') 'send_bergs_to_other_pes: # of bergs outside computational domain = ',i 
     561            ENDIF 
    556562            CALL ctl_stop('send_bergs_to_other_pes:  there are bergs still in halos!') 
    557563         ENDIF ! root_pe 
    … …  
    656662             IF( nicbfldproc(jjn) .eq. INT(znbergs(1)) ) EXIT 
    657663            END DO 
    658             IF( jjn .GT. jpni .AND. nn_verbose_level > 0 ) write(numicb,*) 'ICB ERROR' 
     664            IF( jjn .GT. jpni .AND. nn_verbose_level > 0 .AND. numicb /= -1 ) write(numicb,*) 'ICB ERROR' 
    659665            nicbfldexpect(jjn) = INT( znbergs(2) ) 
    660666            !IF ( nicbfldexpect(jjn) .GT. 0 .AND. nn_verbose_level > 0 ) write(numicb,*) 'ICB expecting ',nicbfldexpect(jjn),' from ', nicbfldproc(jjn) 
    … …  
    711717                           tmpberg => this 
    712718                           ibergs_to_send = ibergs_to_send + 1 
    713                            IF( nn_verbose_level >= 4 ) THEN 
     719                           IF( nn_verbose_level >= 4 .AND. numicb /= -1) THEN 
    714720                              WRITE(numicb,*) 'bergstep ',nktberg,' packing berg ',tmpberg%number(:),' for north fold' 
    715721                              CALL flush( numicb ) 
    … …  
    724730               END DO 
    725731            ENDIF 
    726             if( nn_verbose_level >= 3) then 
     732            if( nn_verbose_level >= 3 .AND. numicb /= -1) then 
    727733               write(numicb,*) 'bergstep ',nktberg,' send nfld: ', ibergs_to_send 
    728734               call flush(numicb) 
    … …  
    755761            ! 
    756762            DO jk = 1, ibergs_to_rcv 
    757                IF( nn_verbose_level >= 4 ) THEN 
     763               IF( nn_verbose_level >= 4 .AND. numicb /= -1) THEN 
    758764                  WRITE(numicb,*) 'bergstep ',nktberg,' unpacking berg ',INT(ibuffer_f%data(16,jk)),' from north fold' 
    759765                  CALL flush( numicb ) 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icbrst.F90

    r10888 r10968  
    137137      ! Sanity checks 
    138138      jn = icb_utl_count() 
    139       IF ( lwp .AND. nn_verbose_level >= 0 )   & 
     139      IF ( lwp .AND. nprint > 0 )   & 
    140140         WRITE(numout,'(2(a,i5))') 'icebergs, read_restart_bergs: # bergs =',jn,' on PE',narea-1 
    141141      IF( lk_mpp ) THEN 
    … …  
    144144         CALL mpp_sum('icbrst', jn) 
    145145      ENDIF 
    146       IF( lwp )   WRITE(numout,'(a,i5,a,i5,a)') 'icebergs, icb_rst_read: there were',ibergs_in_file,   & 
     146      IF( lwp .AND. nprint > 0 )   WRITE(numout,'(a,i5,a,i5,a)') 'icebergs, icb_rst_read: there were',ibergs_in_file,   & 
    147147         &                                    ' bergs in the restart file and', jn,' bergs have been read' 
    148148      ! 
    … …  
    176176      ENDIF 
    177177      ! 
    178       IF( lwp .AND. nn_verbose_level >= 0 )  WRITE(numout,'(a)') 'icebergs, icb_rst_read: completed' 
     178      IF( lwp .AND. nprint > 0 )  WRITE(numout,'(a)') 'icebergs, icb_rst_read: completed' 
    179179      ! 
    180180   END SUBROUTINE icb_rst_read 
    … …  
    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 > 1) 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 > 1) 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 > 1) 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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icbstp.F90

    r10888 r10968  
    8888      IF( nn_verbose_write > 0 .AND. MOD( kt-1 , nn_verbose_write ) == 0 )   ll_verbose = ( nn_verbose_level >= 0 ) 
    8989      ! 
    90       IF( ll_verbose )   WRITE(numicb,9100) nktberg, ndastp, nsec_day 
     90      IF( ll_verbose .AND. numicb /= -1)   WRITE(numicb,9100) nktberg, ndastp, nsec_day 
    9191 9100 FORMAT('kt= ',i8, ' day= ',i8,' secs=',i8) 
    9292      ! 
    … …  
    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      ! 
    165       IF( nn_verbose_level > 0 ) THEN 
     165      IF( nn_verbose_level > 0 .AND. numicb /= -1) THEN 
    166166         CALL flush( numicb ) 
    167167         CLOSE( numicb ) 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icbtrj.F90

    r10888 r10968  
    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 > 2 )   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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icbutl.F90

    r10888 r10968  
    647647      ! 
    648648      IF (nn_verbose_level == 0) RETURN 
    649       pt => berg%current_point 
    650       WRITE(numicb, 9200) kt, berg%number(1), & 
     649      IF(numicb /= -1) THEN 
     650         pt => berg%current_point 
     651         WRITE(numicb, 9200) kt, berg%number(1), & 
    651652                   pt%xi, pt%yj, pt%lon, pt%lat, pt%uvel, pt%vvel,  & 
    652653                   pt%uo, pt%vo, pt%ua, pt%va, pt%ui, pt%vi 
    653       CALL flush( numicb ) 
     654         CALL flush( numicb ) 
     655      ENDIF 
    654656 9200 FORMAT(5x,i5,2x,i10,6(2x,2f10.4)) 
    655657      ! 
    … …  
    673675      IF (nn_verbose_level == 0) RETURN 
    674676      this => first_berg 
    675       IF( ASSOCIATED(this) ) THEN 
    676          WRITE(numicb,'(a," pe=(",i3,")")' ) cd_label, narea 
    677          WRITE(numicb,'(a8,4x,a6,12x,a5,15x,a7,19x,a3,17x,a5,17x,a5,17x,a5)' )   & 
    678             &         'timestep', 'number', 'xi,yj','lon,lat','u,v','uo,vo','ua,va','ui,vi' 
     677      IF(numicb /= -1) THEN 
     678         IF( ASSOCIATED(this) ) THEN 
     679            WRITE(numicb,'(a," pe=(",i3,")")' ) cd_label, narea 
     680            WRITE(numicb,'(a8,4x,a6,12x,a5,15x,a7,19x,a3,17x,a5,17x,a5,17x,a5)' )   & 
     681               &         'timestep', 'number', 'xi,yj','lon,lat','u,v','uo,vo','ua,va','ui,vi' 
     682         ENDIF 
    679683      ENDIF 
    680684      DO WHILE( ASSOCIATED(this) ) 
    … …  
    685689      inbergs = ibergs 
    686690      CALL mpp_sum('icbutl', inbergs) 
    687       IF( ibergs > 0 )   WRITE(numicb,'(a," there are",i5," bergs out of",i6," on PE ",i4)')   & 
     691      IF( ibergs > 0 .AND. numicb /= -1)   WRITE(numicb,'(a," there are",i5," bergs out of",i6," on PE ",i4)')   & 
    688692         &                                  cd_label, ibergs, inbergs, narea 
    689693      ! 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/IOM/iom.F90

    r10888 r10968  
    321321        ENDIF 
    322322!set name of the restart file and enable available fields 
    323         if(lwp) WRITE(numout,*) 'Setting restart filename (for XIOS) to: ',rst_file 
     323        if(lwp .AND. nprint > 1) WRITE(numout,*) 'Setting restart filename (for XIOS) to: ',rst_file 
    324324        CALL xios_get_handle("file_definition", filegroup_hdl ) 
    325325        CALL xios_add_child(filegroup_hdl, file_hdl, 'rrestart') 
    … …  
    346346                        scalar_ref = "grid_scalar", operation = "instant") 
    347347                END SELECT 
    348                 IF(lwp) WRITE(numout,*) 'XIOS read: ', TRIM(rst_rfields(i)%vname), ' enabled in ', TRIM(rst_file) 
     348                IF(lwp .AND. nprint > 1) WRITE(numout,*) 'XIOS read: ', TRIM(rst_rfields(i)%vname), ' enabled in ', TRIM(rst_file) 
    349349           ENDIF 
    350350         ENDIF 
    … …  
    537537 
    538538!set name of the restart file and enable available fields 
    539         IF(lwp) WRITE(numout,*) 'Setting restart filename (for XIOS write) to: ',cdrst_file 
     539        IF(lwp .AND. nprint > 1) WRITE(numout,*) 'Setting restart filename (for XIOS write) to: ',cdrst_file 
    540540        CALL xios_get_handle("file_definition", filegroup_hdl ) 
    541541        CALL xios_add_child(filegroup_hdl, file_hdl, 'wrestart') 
    … …  
    543543           CALL xios_set_file_attr( "wrestart", type="one_file", enabled=.TRUE.,&  
    544544                                    mode="write", output_freq=xios_timestep)  
    545            if(lwp) write(numout,*) 'OPEN ', trim(cdrst_file), ' in one_file mode'  
     545           if(lwp .AND. nprint > 1) write(numout,*) 'OPEN ', trim(cdrst_file), ' in one_file mode'  
    546546        ELSE   
    547547           CALL xios_set_file_attr( "wrestart", type="multiple_file", enabled=.TRUE.,&  
    548548                                    mode="write", output_freq=xios_timestep)  
    549            if(lwp) write(numout,*) 'OPEN ', trim(cdrst_file), ' in multiple_file mode'  
     549           if(lwp .AND. nprint > 1) write(numout,*) 'OPEN ', trim(cdrst_file), ' in multiple_file mode'  
    550550        ENDIF  
    551551        CALL xios_set_file_attr( "wrestart", name=trim(cdrst_file)) 
    … …  
    824824               iom_file(jf)%nfid       = 0          ! free the id  
    825825               IF( PRESENT(kiomid) )   kiomid = 0   ! return 0 as id to specify that the file was closed 
    826                IF(lwp) WRITE(numout,*) TRIM(clinfo)//' close file: '//TRIM(iom_file(jf)%name)//' ok' 
     826               IF(lwp  .AND. nprint > 1) & 
     827                 WRITE(numout,*) TRIM(clinfo)//' close file: '//TRIM(iom_file(jf)%name)//' ok' 
    827828            ELSEIF( PRESENT(kiomid) ) THEN 
    828829               WRITE(ctmp1,*) '--->',  kiomid 
    … …  
    941942      ELSE 
    942943#if defined key_iomput 
    943          IF(lwp) WRITE(numout,*) 'XIOS RST READ (0D): ', trim(cdvar) 
     944         IF(lwp .AND. nprint > 1) WRITE(numout,*) 'XIOS RST READ (0D): ', trim(cdvar) 
    944945         CALL iom_swap( TRIM(crxios_context) ) 
    945946         CALL xios_recv_field( trim(cdvar), pvar) 
    … …  
    12661267 
    12671268            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) 
     1269               IF(lwp .AND. nprint > 1) & 
     1270                  WRITE(numout,"(10x,' read ',a,' (rec: ',i6,') in ',a,' ok')") TRIM(cdvar), itime, TRIM(iom_file(kiomid)%name) 
    12691271              
    12701272               !--- overlap areas and extra hallows (mpp) 
    … …  
    12961298         IF( PRESENT(pv_r3d) ) THEN 
    12971299            pv_r3d(:, :, :) = 0. 
    1298             if(lwp) write(numout,*) 'XIOS RST READ (3D): ',trim(cdvar) 
     1300            if(lwp .AND. nprint > 1) write(numout,*) 'XIOS RST READ (3D): ',trim(cdvar) 
    12991301            CALL xios_recv_field( trim(cdvar), pv_r3d) 
    13001302            IF(idom /= jpdom_unknown ) then 
    … …  
    13031305         ELSEIF( PRESENT(pv_r2d) ) THEN 
    13041306            pv_r2d(:, :) = 0. 
    1305             if(lwp) write(numout,*) 'XIOS RST READ (2D): ', trim(cdvar) 
     1307            if(lwp .AND. nprint > 1) write(numout,*) 'XIOS RST READ (2D): ', trim(cdvar) 
    13061308            CALL xios_recv_field( trim(cdvar), pv_r2d) 
    13071309            IF(idom /= jpdom_unknown ) THEN 
    … …  
    13101312         ELSEIF( PRESENT(pv_r1d) ) THEN 
    13111313            pv_r1d(:) = 0. 
    1312             if(lwp) write(numout,*) 'XIOS RST READ (1D): ', trim(cdvar) 
     1314            if(lwp .AND. nprint > 1) write(numout,*) 'XIOS RST READ (1D): ', trim(cdvar) 
    13131315            CALL xios_recv_field( trim(cdvar), pv_r1d) 
    13141316         ENDIF 
    … …  
    15121514#ifdef key_iomput 
    15131515      IF( kt == kwrite ) THEN 
    1514           IF(lwp) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar) 
     1516          IF(lwp .AND. nprint > 1) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar) 
    15151517          CALL xios_send_field(trim(cdvar), pvar) 
    15161518      ENDIF 
    … …  
    15421544#ifdef key_iomput 
    15431545      IF( kt == kwrite ) THEN 
    1544          IF(lwp) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar) 
     1546         IF(lwp .AND. nprint > 1) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar) 
    15451547         CALL xios_send_field(trim(cdvar), pvar) 
    15461548      ENDIF 
    … …  
    15721574#ifdef key_iomput 
    15731575      IF( kt == kwrite ) THEN 
    1574          IF(lwp) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar) 
     1576         IF(lwp .AND. nprint > 1) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar) 
    15751577         CALL xios_send_field(trim(cdvar), pvar) 
    15761578      ENDIF 
    … …  
    16021604#ifdef key_iomput 
    16031605      IF( kt == kwrite ) THEN 
    1604          IF(lwp) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar) 
     1606         IF(lwp .AND. nprint > 1) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar) 
    16051607         CALL xios_send_field(trim(cdvar), pvar) 
    16061608      ENDIF 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/IOM/iom_nf90.F90

    r10888 r10968  
    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 
    … …  
    562562         ! trick: defined to 0 to say that dimension variables are defined but not yet written 
    563563         iom_file(kiomid)%dimsz(1, 1)  = 0    
    564          IF(lwp) WRITE(numout,*) TRIM(clinfo)//' define dimension variables done' 
     564         IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' define dimension variables done' 
    565565      ENDIF 
    566566      ! define the data if it is not already done 
    … …  
    637637            CALL iom_nf90_check(SET_NF90_DEF_VAR_CHUNKING(if90id, idvar, ichunkalg, ichunksz), clinfo) 
    638638            CALL iom_nf90_check(SET_NF90_DEF_VAR_DEFLATE(if90id, idvar, ishuffle, ideflate, ideflate_level), clinfo) 
    639             IF(lwp) WRITE(numout,*) TRIM(clinfo)//' chunked ok. Chunks sizes: ', ichunksz 
    640          ENDIF 
    641          IF(lwp) WRITE(numout,*) TRIM(clinfo)//' defined ok' 
     639            IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' chunked ok. Chunks sizes: ', ichunksz 
     640         ENDIF 
     641         IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' defined ok' 
    642642      ELSE 
    643643         idvar = kvid 
    … …  
    685685               CALL iom_nf90_check( NF90_INQUIRE_DIMENSION( if90id, 3, len = iom_file(kiomid)%dimsz(1,3) ), clinfo ) 
    686686               iom_file(kiomid)%dimsz(1  , 4) = 1   ! unlimited dimension 
    687                IF(lwp) WRITE(numout,*) TRIM(clinfo)//' write dimension variables done' 
     687               IF(lwp .AND. nprint > 1) WRITE(numout,*) TRIM(clinfo)//' write dimension variables done' 
    688688            ENDIF 
    689689         ENDIF 
    … …  
    703703         IF( iom_file(kiomid)%luld(idvar) )   iom_file(kiomid)%dimsz(iom_file(kiomid)%ndims(idvar), idvar)    & 
    704704               &                            = iom_file(kiomid)%dimsz(iom_file(kiomid)%ndims(idvar), idvar) + 1 
    705          IF(lwp) WRITE(numout,*) TRIM(clinfo)//' written ok' 
     705         IF(lwp .AND. nprint > 0) WRITE(numout,*) TRIM(clinfo)//' written ok' 
    706706      ENDIF 
    707707      !      

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/IOM/restart.F90

    r10888 r10968  
    9595            clpath = TRIM(cn_ocerst_outdir) 
    9696            IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/' 
    97             IF(lwp) THEN 
     97            IF(lwp .AND. nprint > 1) THEN 
    9898               WRITE(numout,*) 
    9999               IF(.NOT.lwxios) THEN 
    … …  
    223223             crxios_context = 'nemo_rst' 
    224224             IF( .NOT.lxios_set ) THEN 
    225                  IF(lwp) WRITE(numout,*) 'Enable restart reading by XIOS' 
     225                 IF(lwp .AND. nprint > 0) WRITE(numout,*) 'Enable restart reading by XIOS' 
    226226                 CALL iom_init( crxios_context, ld_tmppatch = .false. ) 
    227227                 lxios_set = .TRUE. 
    … …  
    230230         IF( TRIM(Agrif_CFixed()) /= '0' .AND. lrxios) THEN 
    231231             CALL iom_init( crxios_context, ld_tmppatch = .false. ) 
    232              IF(lwp) WRITE(numout,*) 'Enable restart reading by XIOS for AGRIF' 
     232             IF(lwp .AND. nprint > 0) WRITE(numout,*) 'Enable restart reading by XIOS for AGRIF' 
    233233             lxios_set = .TRUE. 
    234234         ENDIF  

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/LBC/lib_mpp.F90

    r10888 r10968  
    322322      mynode = mpprank 
    323323 
    324       IF( mynode == 0 ) THEN 
     324      IF( mynode == 0 .AND. nprint > 2) THEN 
    325325         CALL ctl_opn( kumond, TRIM(ldname), 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 
    326326         WRITE(kumond, nammpp)       
    … …  
    15171517            crname_dlg(n_sequence_dlg) = cdname     ! keep the name of the calling routine 
    15181518         ENDIF 
    1519       ELSE IF ( ncom_stp == nit000+2*ncom_freq ) THEN 
     1519      ELSE IF ( ncom_stp == nit000+2*ncom_freq .AND. nprint > 1 ) THEN 
    15201520         CALL ctl_opn( numcom, 'communication_report.txt', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., narea ) 
    15211521         WRITE(numcom,*) ' ' 
    … …  
    19861986         &  OPEN(UNIT=knum,FILE='NUL', FORM=cdform, ACCESS=cdacce, STATUS=cdstat                      , ERR=100, IOSTAT=iost )    
    19871987      IF( iost == 0 ) THEN 
    1988          IF(ldwp) THEN 
     1988         IF(ldwp .AND. nprint > 2) THEN 
    19891989            WRITE(kout,*) '     file   : ', TRIM(clfile),' open ok' 
    19901990            WRITE(kout,*) '     unit   = ', knum 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/LBC/mppini.F90

    r10888 r10968  
    168168      !!---------------------------------------------------------------------- 
    169169 
    170       llwrtlay = lwp .OR. ln_ctl .OR. sn_cfctl%l_layout 
     170      llwrtlay = (lwp.AND.nprint>1).OR. ln_ctl .OR. sn_cfctl%l_layout 
    171171      ! do we need to take into account bdy_msk? 
    172172      REWIND( numnam_ref )              ! Namelist nambdy in reference namelist : BDY 
    … …  
    490490      ! 5. Subdomain print 
    491491      ! ------------------ 
    492       IF(lwp) THEN 
     492      IF(lwp .AND. nprint > 1) THEN 
    493493         ifreq = 4 
    494494         il1 = 1 
    … …  
    629629      ! 
    630630      nproc = narea-1 
    631       IF(lwp) THEN 
     631      IF(lwp .AND. nprint > 0) THEN 
    632632         WRITE(numout,*) 
    633633         WRITE(numout,*) '   resulting internal parameters : ' 
    … …  
    11651165      idid(2) = 2 
    11661166 
    1167       IF(lwp) THEN 
     1167      IF(lwp .AND. nprint > 0) THEN 
    11681168          WRITE(numout,*) 
    11691169          WRITE(numout,*) 'mpp_init_ioipsl :   iloc  = ', iloc (1), iloc (2) 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/LDF/ldfdyn.F90

    r10888 r10968  
    122122      READ  ( numnam_cfg, namdyn_ldf, IOSTAT = ios, ERR = 902 ) 
    123123902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_ldf in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/LDF/ldftra.F90

    r10888 r10968  
    158158      READ  ( numnam_cfg, namtra_ldf, IOSTAT = ios, ERR = 902 ) 
    159159902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtra_ldf in configuration namelist', lwp ) 
    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', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/OBS/diaobs.F90

    r10888 r10968  
    207207      READ  ( numnam_cfg, namobs, IOSTAT = ios, ERR = 902 ) 
    208208902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namobs in configuration namelist', lwp ) 
    209       IF(lwm) WRITE ( numond, namobs ) 
     209      IF(lwm .AND. nprint > 2) WRITE ( numond, namobs ) 
    210210 
    211211      IF( .NOT.ln_diaobs ) THEN 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/fldread.F90

    r10888 r10968  
    195195               ENDIF 
    196196         END DO 
    197          IF( lwp ) CALL wgt_print()                ! control print 
     197         IF( lwp .AND. nprint > 1) CALL wgt_print()                ! control print 
    198198      ENDIF 
    199199      !                                            ! ====================================== ! 
    … …  
    298298            ! 
    299299            IF( sd(jf)%ln_tint ) THEN              ! temporal interpolation 
    300                IF(lwp .AND. kt - nit000 <= 100 ) THEN  
     300               IF(lwp .AND. nprint > 1 ) THEN  
    301301                  clfmt = "('   fld_read: var ', a, ' kt = ', i8, ' (', f9.4,' days), Y/M/D = ', i4.4,'/', i2.2,'/', i2.2," //   & 
    302302                     &    "', records b/a: ', i6.4, '/', i6.4, ' (days ', f9.4,'/', f9.4, ')')" 
    … …  
    310310               sd(jf)%fnow(:,:,:) = ztintb * sd(jf)%fdta(:,:,:,1) + ztinta * sd(jf)%fdta(:,:,:,2) 
    311311            ELSE   ! nothing to do... 
    312                IF(lwp .AND. kt - nit000 <= 100 ) THEN 
     312               IF(lwp .AND. nprint > 1 ) THEN 
    313313                  clfmt = "('   fld_read: var ', a, ' kt = ', i8,' (', f9.4,' days), Y/M/D = ', i4.4,'/', i2.2,'/', i2.2," //   & 
    314314                     &    "', record: ', i6.4, ' (days ', f9.4, ' <-> ', f9.4, ')')" 
    … …  
    440440         ! 
    441441         clfmt = "('   fld_init : time-interpolation for ', a, ' read previous record = ', i6, ' at time = ', f7.2, ' days')" 
    442          IF(lwp) WRITE(numout, clfmt) TRIM(sdjf%clvar), sdjf%nrec_a(1), REAL(sdjf%nrec_a(2),wp)/rday 
     442         IF(lwp .AND. nprint > 1) WRITE(numout, clfmt) TRIM(sdjf%clvar), sdjf%nrec_a(1), REAL(sdjf%nrec_a(2),wp)/rday 
    443443         ! 
    444444      ENDIF 
    … …  
    762762      ENDIF 
    763763 
    764       IF(lwp) WRITE(numout,*) 'Dim size for ',        TRIM(clvar),' is ', ilendta 
    765       IF(lwp) WRITE(numout,*) 'Number of levels for ',TRIM(clvar),' is ', ipk 
     764      IF(lwp.AND. nprint > 1) WRITE(numout,*) 'Dim size for ',        TRIM(clvar),' is ', ilendta 
     765      IF(lwp.AND. nprint > 1) WRITE(numout,*) 'Number of levels for ',TRIM(clvar),' is ', ipk 
    766766      ! 
    767767      SELECT CASE( ipk ) 
    … …  
    908908                     WRITE(ibstr,"(I10.10)") map%ptr(ib)  
    909909                     CALL ctl_warn('fld_bdy_interp: U depths differ between grids at BDY point '//TRIM(ibstr)//' by more than 1%') 
    910                      IF(lwp) WRITE(*,*) 'DEPTHU', zh, sum(e3u_n(zij,zjj,:), mask=umask(zij,zjj,:)==1),  sum(umask(zij,zjj,:)), & 
     910                     IF(lwp .AND. nprint > 1) WRITE(*,*) 'DEPTHU', zh, sum(e3u_n(zij,zjj,:), mask=umask(zij,zjj,:)==1),  sum(umask(zij,zjj,:)), & 
    911911                       &                hu_n(zij,zjj), map%ptr(ib), ib, zij, zjj, narea-1  , & 
    912912                        &                dta_read(map%ptr(ib),1,:) 
    … …  
    11741174                     END DO 
    11751175                     sd(ju)%rotn(jn) = .TRUE.               ! vector was rotated  
    1176                      IF( lwp .AND. kt == nit000 )   WRITE(numout,*)   & 
     1176                     IF( lwp .AND. kt == nit000 .AND. nprint > 1)   WRITE(numout,*)   & 
    11771177                        &   'fld_read: vector pair ('//TRIM(sd(ju)%clvar)//', '//TRIM(sd(iv)%clvar)//') rotated on to model grid' 
    11781178                  ENDIF 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcapr.F90

    r10888 r10968  
    7676      READ  ( numnam_cfg, namsbc_apr, IOSTAT = ios, ERR = 902 ) 
    7777902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_apr in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcblk.F90

    r10888 r10968  
    188188902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_blk in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbccpl.F90

    r10888 r10968  
    271271      READ  ( numnam_cfg, namsbc_cpl, IOSTAT = ios, ERR = 902 ) 
    272272902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_cpl in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcflx.F90

    r10888 r10968  
    9898         READ  ( numnam_cfg, namsbc_flx, IOSTAT = ios, ERR = 902 ) 
    9999902      IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_flx in configuration namelist', lwp ) 
    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? 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcfwb.F90

    r10888 r10968  
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcice_cice.F90

    r10888 r10968  
    769769         READ  ( numnam_cfg, namsbc_cice, IOSTAT = ios, ERR = 902 ) 
    770770902      IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_cice in configuration namelist', lwp ) 
    771          IF(lwm) WRITE ( numond, namsbc_cice ) 
     771         IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_cice ) 
    772772 
    773773         ! store namelist information in an array 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcice_if.F90

    r10888 r10968  
    8181         READ  ( numnam_cfg, namsbc_iif, IOSTAT = ios, ERR = 902 ) 
    8282902      IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcisf.F90

    r10888 r10968  
    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', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcmod.F90

    r10888 r10968  
    114114      READ  ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 
    115115902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwp ) 
    116       IF(lwm) WRITE( numond, namsbc ) 
     116      IF(lwm .AND. nprint > 2) WRITE( numond, namsbc ) 
    117117      ! 
    118118#if defined key_mpp_mpi 
    … …  
    495495         IF( ln_rstart .AND.    &                               !* Restart: read in restart file 
    496496            & iom_varid( numror, 'utau_b', ldstop = .FALSE. ) > 0 ) THEN 
    497             IF(lwp) WRITE(numout,*) '          nit000-1 surface forcing fields red in the restart file' 
     497            IF(lwp .AND. nprint > 0) WRITE(numout,*) '          nit000-1 surface forcing fields red in the restart file' 
    498498            CALL iom_get( numror, jpdom_autoglo, 'utau_b', utau_b, ldxios = lrxios )   ! before i-stress  (U-point) 
    499499            CALL iom_get( numror, jpdom_autoglo, 'vtau_b', vtau_b, ldxios = lrxios )   ! before j-stress  (V-point) 
    … …  
    520520      IF( lrst_oce ) THEN                              !      Write in the ocean restart file     ! 
    521521         !                                             ! ---------------------------------------- ! 
    522          IF(lwp) WRITE(numout,*) 
    523          IF(lwp) WRITE(numout,*) 'sbc : ocean surface forcing fields written in ocean restart file ',   & 
     522         IF(lwp .AND. nprint > 0) WRITE(numout,*) 
     523         IF(lwp .AND. nprint > 0) WRITE(numout,*) 'sbc : ocean surface forcing fields written in ocean restart file ',   & 
    524524            &                    'at it= ', kt,' date= ', ndastp 
    525          IF(lwp) WRITE(numout,*) '~~~~' 
     525         IF(lwp .AND. nprint > 0) WRITE(numout,*) '~~~~' 
    526526         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
    527527         CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau, ldxios = lwxios ) 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcrnf.F90

    r10888 r10968  
    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', lwp ) 
    274       IF(lwm) WRITE ( numond, namsbc_rnf ) 
     274      IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_rnf ) 
    275275      ! 
    276276      !                                         ! Control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcssr.F90

    r10888 r10968  
    171171      READ  ( numnam_cfg, namsbc_ssr, IOSTAT = ios, ERR = 902 ) 
    172172902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_ssr in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcwave.F90

    r10888 r10968  
    402402      READ  ( numnam_cfg, namsbc_wave, IOSTAT = ios, ERR = 902 ) 
    403403902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc_wave in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/tideini.F90

    r10888 r10968  
    6565      READ  ( numnam_cfg, nam_tide, IOSTAT = ios, ERR = 902 ) 
    6666902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nam_tide in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/STO/stopar.F90

    r10888 r10968  
    268268      READ  ( numnam_cfg, namsto, IOSTAT = ios, ERR = 902 ) 
    269269902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namsto in configuration namelist', lwp ) 
    270       IF(lwm) WRITE ( numond, namsto ) 
     270      IF(lwm .AND. nprint > 2) WRITE ( numond, namsto ) 
    271271 
    272272      IF( .NOT.ln_rststo ) THEN   ! no use of stochastic parameterization 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/eosbn2.F90

    r10888 r10968  
    12401240      READ  ( numnam_cfg, nameos, IOSTAT = ios, ERR = 902 ) 
    12411241902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nameos in configuration namelist', lwp ) 
    1242       IF(lwm) WRITE( numond, nameos ) 
     1242      IF(lwm .AND. nprint > 2) WRITE( numond, nameos ) 
    12431243      ! 
    12441244      rau0        = 1026._wp                 !: volumic mass of reference     [kg/m3] 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/traadv.F90

    r10888 r10968  
    201201      READ  ( numnam_cfg, namtra_adv, IOSTAT = ios, ERR = 902 ) 
    202202902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtra_adv in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/trabbc.F90

    r10888 r10968  
    140140      READ  ( numnam_cfg, nambbc, IOSTAT = ios, ERR = 902 ) 
    141141902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nambbc in configuration namelist', lwp ) 
    142       IF(lwm) WRITE ( numond, nambbc ) 
     142      IF(lwm .AND. nprint > 2) WRITE ( numond, nambbc ) 
    143143      ! 
    144144      IF(lwp) THEN                     ! Control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/trabbl.F90

    r10888 r10968  
    490490      READ  ( numnam_cfg, nambbl, IOSTAT = ios, ERR = 902 ) 
    491491902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nambbl in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/tradmp.F90

    r10888 r10968  
    184184      READ  ( numnam_cfg, namtra_dmp, IOSTAT = ios, ERR = 902 ) 
    185185902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/tramle.F90

    r10888 r10968  
    273273      READ  ( numnam_cfg, namtra_mle, IOSTAT = ios, ERR = 902 ) 
    274274902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtra_mle in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/traqsr.F90

    r10888 r10968  
    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', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/trasbc.F90

    r10888 r10968  
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRD/trdini.F90

    r10888 r10968  
    5353      READ  ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 ) 
    5454902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtrd in configuration namelist', lwp ) 
    55       IF(lwm) WRITE( numond, namtrd ) 
     55      IF(lwm .AND. nprint > 2) WRITE( numond, namtrd ) 
    5656      ! 
    5757      IF(lwp) THEN                  ! control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRD/trdmxl.F90

    r10888 r10968  
    739739      READ  ( numnam_cfg, namtrd_mxl, IOSTAT = ios, ERR = 902 ) 
    740740902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtrd_mxl in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/USR/usrdef_hgr.F90

    r10888 r10968  
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ZDF/zdfdrg.F90

    r10888 r10968  
    242242      READ  ( numnam_cfg, namdrg, IOSTAT = ios, ERR = 902 ) 
    243243902   IF( ios >  0 )   CALL ctl_nam( ios , 'namdrg in configuration namelist', lwp ) 
    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), lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ZDF/zdfgls.F90

    r10888 r10968  
    864864      READ  ( numnam_cfg, namzdf_gls, IOSTAT = ios, ERR = 902 ) 
    865865902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namzdf_gls in configuration namelist', lwp ) 
    866       IF(lwm) WRITE ( numond, namzdf_gls ) 
     866      IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_gls ) 
    867867 
    868868      IF(lwp) THEN                     !* Control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ZDF/zdfiwm.F90

    r10888 r10968  
    429429      READ  ( numnam_cfg, namzdf_iwm, IOSTAT = ios, ERR = 902 ) 
    430430902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namzdf_iwm in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ZDF/zdfosm.F90

    r10888 r10968  
    13911391     READ  ( numnam_cfg, namzdf_osm, IOSTAT = ios, ERR = 902 ) 
    13921392902  IF( ios >  0 ) CALL ctl_nam ( ios , 'namzdf_osm in configuration namelist', lwp ) 
    1393      IF(lwm) WRITE ( numond, namzdf_osm ) 
     1393     IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_osm ) 
    13941394 
    13951395     IF(lwp) THEN                    ! Control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ZDF/zdfphy.F90

    r10888 r10968  
    9898      READ  ( numnam_cfg, namzdf, IOSTAT = ios, ERR = 902 ) 
    9999902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namzdf in configuration namelist', lwp ) 
    100       IF(lwm)   WRITE ( numond, namzdf ) 
     100      IF(lwm .AND. nprint > 2)   WRITE ( numond, namzdf ) 
    101101      ! 
    102102      IF(lwp) THEN                      ! Parameter print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ZDF/zdfric.F90

    r10888 r10968  
    8585      READ  ( numnam_cfg, namzdf_ric, IOSTAT = ios, ERR = 902 ) 
    8686902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namzdf_ric in configuration namelist', lwp ) 
    87       IF(lwm) WRITE ( numond, namzdf_ric ) 
     87      IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_ric ) 
    8888      ! 
    8989      IF(lwp) THEN                   ! Control print 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ZDF/zdftke.F90

    r10888 r10968  
    663663      READ  ( numnam_cfg, namzdf_tke, IOSTAT = ios, ERR = 902 ) 
    664664902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namzdf_tke in configuration namelist', lwp ) 
    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/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/nemogcm.F90

    r10888 r10968  
    100100   PUBLIC   nemo_alloc  ! needed by TAM 
    101101 
     102   CHARACTER(lc) ::   cform_start="( /, 'Start run', / ) "     ! flag for output listing 
     103   CHARACTER(lc) ::   cform_end="( /, 'End run', / ) "     ! flag for output listing 
    102104   CHARACTER(lc) ::   cform_aaa="( /, 'AAAAAAAA', / ) "     ! flag for output listing 
    103105 
    … …  
    150152      CALL mpp_max( 'nemogcm', nstop ) 
    151153 
    152       IF(lwp) WRITE(numout,cform_aaa)   ! Flag AAAAAAA 
     154      IF(lwp) WRITE(numout, cform_start)   ! Flag AAAAAAA 
    153155 
    154156      !                            !-----------------------! 
    … …  
    217219      !                            !==  finalize the run  ==! 
    218220      !                            !------------------------! 
    219       IF(lwp) WRITE(numout,cform_aaa)        ! Flag AAAAAAA 
     221      IF(lwp) WRITE(numout, cform_end)        ! Flag AAAAAAA 
    220222      ! 
    221223      IF( nstop /= 0 .AND. lwp ) THEN        ! error print 
    … …  
    295297         CALL usr_def_nam( cltxt2, clnam, cn_cfg, nn_cfg, jpiglo, jpjglo, jpkglo, jperio ) 
    296298      ENDIF 
     299      nprint    = nn_print          ! convert DOCTOR namelist names into OLD names 
    297300      ! 
    298301      ! 
    … …  
    343346      lwp = (narea == 1) .OR. ln_ctl                        ! control of all listing output print 
    344347 
    345       IF(lwm) THEN               ! write merged namelists from earlier to output namelist  
     348      IF(lwm .AND. nprint > 2) THEN               ! write merged namelists from earlier to output namelist  
    346349         !                       ! now that the file has been opened in call to mynode.  
    347350         !                       ! NB: nammpp has already been written in mynode (if lk_mpp_mpi) 
    … …  
    389392         END DO 
    390393         ! 
    391          WRITE(numout,cform_aaa)                                        ! Flag AAAAAAA 
     394         IF(nprint > 1) WRITE(numout,cform_aaa)                                        ! Flag AAAAAAA 
    392395         ! 
    393396      ENDIF 
    … …  
    494497      IF( lk_asminc    )   CALL asm_inc_init    ! Initialize assimilation increments 
    495498      ! 
    496       IF(lwp) WRITE(numout,cform_aaa)           ! Flag AAAAAAA 
     499      IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa)           ! Flag AAAAAAA 
    497500      ! 
    498501      IF( ln_timing    )   CALL timing_stop( 'nemo_init') 
    … …  
    538541      ENDIF 
    539542      ! 
    540       nprint    = nn_print          ! convert DOCTOR namelist names into OLD names 
    541543      nictls    = nn_ictls 
    542544      nictle    = nn_ictle 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/step.F90

    r10888 r10968  
    307307      IF( kstp == nit000 ) THEN                          ! 1st time step only 
    308308                                        CALL iom_close( numror )   ! close input  ocean restart file 
    309          IF(lwm)                        CALL FLUSH    ( numond )   ! flush output namelist oce 
     309         IF(lwm .AND. numond /= -1 )    CALL FLUSH    ( numond )   ! flush output namelist oce 
    310310         IF(lwm .AND. numoni /= -1 )    CALL FLUSH    ( numoni )   ! flush output namelist ice (if exist) 
    311311      ENDIF 

  • NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/timing.F90

    r10888 r10968  
    373373      CALL MPI_GATHER( (/compute_time, waiting_time(1), waiting_time(2), elapsed_time/),   & 
    374374         &             4, MPI_DOUBLE_PRECISION, timing_glob, 4, MPI_DOUBLE_PRECISION, 0, MPI_COMM_OCE, icode) 
    375       IF( narea == 1 ) THEN 
     375      IF( narea == 1 .AND. nprint > 1) THEN 
    376376         WRITE(numtime,*) ' ' 
    377377         WRITE(numtime,*) ' Report on time spent on waiting MPI messages ' 
Note: See TracChangeset for help on using the changeset viewer.