- Timestamp:
- 2016-04-18T11:53:47+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/icebergs_restart_single_file_corrected/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90
r5986 r6480 94 94 & ij .GE. nldj+njmpp-1 .AND. ij .LE. nlej+njmpp-1 ) THEN 95 95 96 CALL iom_get( ncid, jpdom_unknown, 'number' , (/zdata(:)/) , ktime=jn, kstart=(/1/), kcount=(/nkounts/) )96 CALL iom_get( ncid, jpdom_unknown, 'number' , zdata(:) , ktime=jn, kstart=(/1/), kcount=(/nkounts/) ) 97 97 localberg%number(:) = INT(zdata(:)) 98 98 CALL iom_get( ncid, 'mass_scaling' , localberg%mass_scaling, ktime=jn ) … … 126 126 CALL iom_get( ncid, jpdom_autoglo_xy, 'stored_ice' , berg_grid%stored_ice, kstart=(/1,1,1/), kcount=(/1,1,nclasses/) ) 127 127 128 CALL iom_get( ncid, jpdom_unknown, 'kount' , (/zdata(:)/) )128 CALL iom_get( ncid, jpdom_unknown, 'kount' , zdata(:) ) 129 129 num_bergs(:) = INT(zdata(:)) 130 130
Note: See TracChangeset
for help on using the changeset viewer.