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/DOM/daymod.F90 – NEMO

Ignore:
Timestamp:
2019-10-24T10:30:30+02:00 (4 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/DOM/daymod.F90

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