initial upload

utils/init/GenerateIniGam.m

@@ -0,0 +1,40 @@
+% 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);
+
+
+
+
+
+
+

utils/init/GenerateIniVsv.m

@@ -0,0 +1,40 @@
+% 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=xxx;
+
+% second horizontal interpolation
+vsv= zeros(nLat,nLon,length(depth));
+for idepth=1:length(depth)
+	vsv(:,:,idepth)=mod1d(idepth);
+end
+
+% write to MOD.true file
+MOD=fopen('MOD.Vsv','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',vsv(ix,iy,iz));	
+		end
+		fprintf(MOD,'\n');
+	end
+end
+fclose(MOD);
+
+
+
+
+
+
+

utils/init/mod.1d

@@ -0,0 +1,18 @@
+   2.393
+   3.367
+   3.412
+   3.411
+   3.398
+   3.397
+   3.416
+   3.452
+   3.505
+   3.581
+   3.689
+   3.827
+   4.019
+   4.389
+   4.456
+   4.470
+   4.475
+   4.482