Changeset 6622 for trunk/NEMOGCM/NEMO/OPA_SRC
- Timestamp:
- 2016-05-25T16:24:04+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90
r6140 r6622 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.