- Timestamp:
- 2019-05-13T11:43:03+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icbstp.F90
r10888 r10968 88 88 IF( nn_verbose_write > 0 .AND. MOD( kt-1 , nn_verbose_write ) == 0 ) ll_verbose = ( nn_verbose_level >= 0 ) 89 89 ! 90 IF( ll_verbose ) WRITE(numicb,9100) nktberg, ndastp, nsec_day90 IF( ll_verbose .AND. numicb /= -1) WRITE(numicb,9100) nktberg, ndastp, nsec_day 91 91 9100 FORMAT('kt= ',i8, ' day= ',i8,' secs=',i8) 92 92 ! … … 161 161 IF( nn_sample_rate > 0 ) CALL icb_trj_end() 162 162 163 IF(lwp ) WRITE(numout,'(a,i6)') 'icebergs: icb_end complete', narea163 IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i6)') 'icebergs: icb_end complete', narea 164 164 ! 165 IF( nn_verbose_level > 0 ) THEN165 IF( nn_verbose_level > 0 .AND. numicb /= -1) THEN 166 166 CALL flush( numicb ) 167 167 CLOSE( numicb )
Note: See TracChangeset
for help on using the changeset viewer.