- Timestamp:
- 2019-10-24T10:30:30+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11756_text_output/src/OCE/DOM/daymod.F90
r10068 r11782 134 134 135 135 ! 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)') & 137 137 & ' =======>> 1/2 time step before the start of the run DATE Y/M/D = ', & 138 138 & nyear, '/', nmonth, '/', nday, ' nsec_day:', nsec_day, ' nsec_week:', nsec_week, ' & … … 269 269 CALL ymds2ju( nyear, 01, 01, 0.0, fjulstartyear ) 270 270 ! 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, & 272 272 & ' 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, & 274 274 & ' nsec_month = ', nsec_month, ' nsec_day = ', nsec_day, ' nsec_week = ', nsec_week 275 275 ENDIF … … 402 402 ! 403 403 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 407 409 ENDIF 408 410 ! calendar control
Note: See TracChangeset
for help on using the changeset viewer.