Changeset 12555 for branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/ICB/icbstp.F90
- Timestamp:
- 2020-03-13T17:33:02+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/ICB/icbstp.F90
r12365 r12555 89 89 90 90 ! write out time 91 IF( ll_verbose ) WRITE(numicb,9100) nktberg, ndastp, nsec_day91 IF( ll_verbose .AND. numicb.NE.-1) WRITE(numicb,9100) nktberg, ndastp, nsec_day 92 92 9100 FORMAT('kt= ',i8, ' day= ',i8,' secs=',i8) 93 93 … … 175 175 IF( nn_sample_rate .GT. 0 ) CALL icb_trj_end() 176 176 177 IF(lwp) WRITE(numout,'(a,i6)') 'icebergs: icb_end complete', narea 178 CALL flush( numicb ) 179 CLOSE( numicb ) 177 IF(lwp .AND. nprint>3) WRITE(numout,'(a,i6)') 'icebergs: icb_end complete', narea 178 IF(numicb.NE.-1) THEN 179 CALL flush( numicb ) 180 CLOSE( numicb ) 181 ENDIF 180 182 ! 181 183 END SUBROUTINE icb_end
Note: See TracChangeset
for help on using the changeset viewer.