% generate intial model MOD.gam for DRadiSurfTomo

depth=[0.0 5.0 10.0 15.0 20.0 25.0 30.0 35.0 40.0 45.0 50.0 55.0 60.0 70.0 80.0 90.0 100.0 120.0];
nLat=12;
nLon=19;

% load 1D model
xxx=load('mod.1d');
mod1d=zeros(1,length(xxx));

% second horizontal interpolation
gam= zeros(nLat,nLon,length(depth));
for idepth=1:length(depth)
	gam(:,:,idepth)=1;
end

% write to MOD.true file
MOD=fopen('MOD.gam','w');
for i=1:length(depth)
        fprintf(MOD,'%6.1f',depth(i));
end
fprintf(MOD,'\n');


for iz=1:length(depth)
	for iy=1:nLon
		for ix=1:nLat
			fprintf(MOD,'%8.4f',gam(ix,iy,iz));	
		end
		fprintf(MOD,'\n');
	end
end
fclose(MOD);