- Timestamp:
- 2015-11-12T17:16:56+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/icebergs_restart_single_file/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90
r5879 r5882 133 133 num_bergs(:) = INT(zdata_in(1,:)) 134 134 135 ! Finish up136 CALL iom_close( ncid )137 138 135 ! Sanity check 139 136 jn = icb_utl_count() … … 142 139 IF( lk_mpp ) THEN 143 140 ! Only mpp_sum ibergs_in_file if we are reading from multiple restart files. 144 WRITE(numout,*) 'iom_file(ncid)%name : ',iom_file(ncid)%name145 WRITE(numout,*) "INDEX(iom_file(ncid)%name,'icebergs.nc' ) : ",INDEX(iom_file(ncid)%name,'icebergs.nc' )146 141 IF( INDEX(iom_file(ncid)%name,'icebergs.nc' ) .EQ. 0 ) CALL mpp_sum(ibergs_in_file) 147 142 CALL mpp_sum(jn) … … 149 144 IF(lwp) WRITE(numout,'(a,i5,a,i5,a)') 'icebergs, read_restart_bergs: there were',ibergs_in_file, & 150 145 & ' bergs in the restart file and', jn,' bergs have been read' 146 ! 147 ! Finish up 148 CALL iom_close( ncid ) 151 149 ! 152 150 IF( lwp .and. nn_verbose_level >= 0) WRITE(numout,'(a)') 'icebergs, read_restart_bergs: completed'
Note: See TracChangeset
for help on using the changeset viewer.