New tests

Tests/TestECGC.m

@@ -0,0 +1,61 @@
+% Run example 3 to test multi-scale meshing, BoundCr, and interp
+cd ..
+
+addpath(genpath('utilities/'))
+addpath(genpath('datasets/'))
+addpath(genpath('m_map/'))
+
+ERR_TOL = 0.05;
+ERR2_TOL = 0.01;
+QUAL_TOL = 0.25;
+Re2 = 111^2;
+
+bbox = [-71.6 42.7; -64 30; -80 24; -85 38; -71.6 42.7]; %polygon boubox
+min_el    = 1e3;  		        % minimum resolution in meters.
+max_el    = 50e3; 		        % maximum resolution in meters. 
+wl        = 30;                 % 60 elements resolve M2 wavelength.
+dt        = [50,0.5,6.0];      % Automatically set timestep based on nearshore res
+grade     = 0.15;               % mesh grade in decimal percent. 
+R         = 3; 			        % Number of elements to resolve feature.
+
+
+dem       = 'SRTM15+V2.nc';
+coastline = 'GSHHS_f_L1';
+gdat1 = geodata('shp',coastline,'dem',dem,'h0',min_el,...
+                'bbox',bbox);
+
+fh1 = edgefx('geodata',gdat1,...
+             'fs',R,'wl',wl,'max_el',max_el,...
+             'dt',dt,'g',grade);
+
+mshopts = meshgen('ef',fh1,'bou',gdat1,...
+                  'plot_on',1,'proj','lam');
+mshopts = mshopts.build; 
+
+m = mshopts.grd; 
+
+m = interp(m,gdat1); 
+
+m = BoundCr(m,50,6.0,0.5,20);
+
+Crnew = CalcCFL(m,50); 
+
+if(sum(Crnew < 6) < 50)
+    error(['Unable to bound maximum Courant number. Got ',...
+        num2str(max(Crnew)),' expecting < 6.0']);
+    %exit(1)
+else
+    disp(['Unable to bound maximum Courant number. Got ',...
+        num2str(max(Crnew)),' expecting < 6.0']);
+end
+if(sum(Crnew > 0.5) < 50)
+    error(['Bounded minimum Courant number. Got ',...
+        num2str(min(Crnew))]);
+    %exit(1)
+else
+    disp(['Bounded maximum Courant number. Got ',...
+        num2str(max(Crnew))]);
+end
+
+
+disp('Passed: ECGC');