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 11782 for NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbstp.F90 – NEMO

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

Ticket #2320 print levels in ICE/OCE

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/ICB/icbstp.F90

    r11536 r11782  
    161161      IF( nn_sample_rate > 0 )   CALL icb_trj_end() 
    162162 
    163       IF(lwp) WRITE(numout,'(a,i6)') 'icebergs: icb_end complete', narea 
     163      IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i6)') 'icebergs: icb_end complete', narea 
    164164      ! 
    165165      IF( nn_verbose_level > 0 ) THEN 
Note: See TracChangeset for help on using the changeset viewer.