Changeset 6622 for trunk/NEMOGCM
- Timestamp:
- 2016-05-25T16:24:04+02:00 (8 years ago)
- Location:
- trunk/NEMOGCM
- Files:
-
- 2 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 -
trunk/NEMOGCM/TOOLS/REBUILD_NEMO/icb_combrest.py
r6447 r6622 169 169 sys.exit(15) 170 170 fo = Dataset(pathout, 'w') 171 for dim in ['x','y','c' ]:171 for dim in ['x','y','c','k']: 172 172 indim = fi.dimensions[dim] 173 173 fo.createDimension(dim, len(indim)) 174 for var in [' calving','calving_hflx','stored_ice','stored_heat']:174 for var in ['kount','calving','calving_hflx','stored_ice','stored_heat']: 175 175 invar = fi.variables[var] 176 176 fo.createVariable(var, invar.datatype, invar.dimensions) 177 177 fo.variables[var][:] = invar[:] 178 fo.variables[var].long_name = invar.long_name 179 fo.variables[var].units = invar.units 178 if "long_name" in invar.ncattrs(): 179 fo.variables[var].long_name = invar.long_name 180 if "units" in invar.ncattrs(): 181 fo.variables[var].units = invar.units 180 182 os.remove(pathout.replace('.nc','_WORK.nc')) 181 183 #
Note: See TracChangeset
for help on using the changeset viewer.