partdim = ncddef(ncid, 'Particles', npart, iret)
dims(1) = partdim
integer partdim,Timedim,Dep_tdim, Dep_wdim, Dep_wm1dim
integer partdim,Timedim