Changeset 10570 for NEMO/trunk/src/OCE/ICB/icbstp.F90
- Timestamp:
- 2019-01-24T16:14:49+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ICB/icbstp.F90
r10068 r10570 163 163 IF(lwp) WRITE(numout,'(a,i6)') 'icebergs: icb_end complete', narea 164 164 ! 165 CALL flush( numicb ) 166 CLOSE( numicb ) 165 IF( nn_verbose_level > 0 ) THEN 166 CALL flush( numicb ) 167 CLOSE( numicb ) 168 ENDIF 167 169 ! 168 170 END SUBROUTINE icb_end
Note: See TracChangeset
for help on using the changeset viewer.