function pp_ocean_fixup1,ppi

; Purpose: "fixup" ocean fields for shifting
; Category: pp data ocean
; Description: for no obvious reason, the ocean fields coming out of
;   vn4.5 after convpp are shifted by 2 points each row. So, for now,
;   lets leave this fixup routine here.

ppo=ppi
for i=0,ppo.lbrow-1 do ppo.data(*,i)=shift(ppi.data(*,i),i*2)

return,ppo
end

; ----------------------------------

function pp_ocean_fixup,ppi

ppo=ppi
for i=0,n_elements(ppi)-1 do ppo[i]=pp_ocean_fixup1(ppi[i])

return,ppo
end