allocate (tmp(imax))

      allocate (pnum(npart))

      allocate (time(icount))

      allocate (Dep_t(Nr))

      allocate (Dep_w(Nr+1))

      allocate (Dep_wm1(Nr))

      allocate (xpart(npart,icount))

      allocate (ypart(npart,icount))

      allocate (kpart(npart,icount))

      allocate (temp(npart,Nr,icount))

         allocate (uvel(npart,Nr,icount))

         allocate (vvel(npart,Nr,icount))

         allocate (salt(npart,Nr,icount))

      allocate (zeta(npart,icount))