Changeset 519 for issm/trunk/test/Verification/IceShelfIceFrontM3d_2/runme.m

Timestamp:

05/20/09 09:51:48 (16 years ago)

Author:

Mathieu Morlighem

Message:

use nightly run utilities to compute analysis type, sub analysis type package and fields to be checked

File:

• issm/trunk/test/Verification/IceShelfIceFrontM3d_2/runme.m (modified) (2 diffs)

issm/trunk/test/Verification/IceShelfIceFrontM3d_2/runme.m

@@ -45 +45 @@
                 md=extrude(md,8,4);
                 md=setelementstype(md,'macayeal','all');
-                if strcmpi(package,'cielo_parallel'), md.cluster='wilkes'; end
                 if md.numberofgrids==832
                         load Velocities; md.vx=0.8*vx; md.vy=0.8*vy; md.vz=0.8*vz; md.temperature=temperature-1; md.pressure=pressure;
@@ -51 +50 @@
 
                 %compute solution
-                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
-                        md=solve(md,'analysis_type',solution,'package','cielo');
-                else
-                        md=solve(md,'analysis_type',solution,'package',package);
-                end
+                [analysis_type sub_analysis_type]=testsgetanalysis(solution);
+                [md packagefinal]=testsgetpackage(md,package);
+                md=solve(md,'analysis_type',analysis_type,'sub_analysis_type',sub_analysis_type,'package',package);
 
-                %compute field to be checked
-                if strcmpi(solution,'diagnostic'),
-                        fields={'vy','vz'};
-                elseif strcmpi(solution,'thermalsteady'),
-                        fields={'temperature','melting'};
-                elseif strcmpi(solution,'thermaltransient'),
-                        fields={'thermaltransient_results(end).temperature','thermaltransient_results(end).melting'};
-                elseif strcmpi(solution,'prognostic'),
-                        fields={'new_thickness'};
-                elseif strcmpi(solution,'transient'),
-                        fields={'transient_results(end).vy','transient_results(end).vz','transient_results(end).temperature','transient_results(end).melting','transient_results(end).thickness'};
-                end
+                %compute fields to be checked
+                fields=testsgetfields(md.type,solution);
 
                 %load archive