- Timestamp:
- 2019-06-11T16:10:28+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/ICB/icbstp.F90
r6486 r11101 88 88 89 89 ! write out time 90 IF( ll_verbose ) WRITE(numicb,9100) nktberg, ndastp, nsec_day90 IF( ll_verbose .AND. numicb.NE.-1) WRITE(numicb,9100) nktberg, ndastp, nsec_day 91 91 9100 FORMAT('kt= ',i8, ' day= ',i8,' secs=',i8) 92 92 … … 166 166 IF( nn_sample_rate .GT. 0 ) CALL icb_trj_end() 167 167 168 IF(lwp) WRITE(numout,'(a,i6)') 'icebergs: icb_end complete', narea 169 CALL flush( numicb ) 170 CLOSE( numicb ) 168 IF(lwp .AND. nprint>3) WRITE(numout,'(a,i6)') 'icebergs: icb_end complete', narea 169 IF(numicb.NE.-1) THEN 170 CALL flush( numicb ) 171 CLOSE( numicb ) 172 ENDIF 171 173 ! 172 174 END SUBROUTINE icb_end
Note: See TracChangeset
for help on using the changeset viewer.