
function [varout]=regridmap2(varin,lon)

clzcalipso=varin;

clzcalipso2(1:lon/2,:)=clzcalipso(lon/2+1:lon,:);
for i=1:lon/2
clzcalipso2(lon/2+i,:)=clzcalipso(i,:);
end

clear clzcalipso
varout=clzcalipso2;



