Changeset 451


Ignore:
Timestamp:
05/15/09 14:29:09 (16 years ago)
Author:
Mathieu Morlighem
Message:

fixed cielo_parallel in tests + cpsmetics

Location:
issm/trunk/test/Verification
Files:
37 edited

Legend:

Unmodified
Added
Removed

  • issm/trunk/test/Verification/IceSheetIceFrontM2d_7/runme.m

    r259 r451  
    5050
    5151                %compute solution
    52                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    53                         md=solve(md,'diagnostic_horiz','cielo');
    54                 elseif strcmpi(package,'cielo_serial'),
    55                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     52                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     53                        md=solve(md,solution,'cielo');
    5654                else
    57                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     55                        md=solve(md,solution,package);
    5856                end
    5957

  • issm/trunk/test/Verification/IceSheetIceFrontM2d_7/updatearchive.m

    r145 r451  
    4343
    4444                %compute solution
    45                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    46                         md=solve(md,'diagnostic_horiz','cielo');
    47                 elseif strcmpi(package,'cielo_serial'),
    48                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     45                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     46                        md=solve(md,solution,'cielo');
    4947                else
    50                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     48                        md=solve(md,solution,package);
    5149                end
    5250

  • issm/trunk/test/Verification/IceSheetIceFrontM3d_8/runme.m

    r293 r451  
    5252
    5353                %compute solution
    54                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    55                         md=solve(md,'diagnostic_horiz','cielo');
    56                 elseif strcmpi(package,'cielo_serial'),
    57                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     54                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     55                        md=solve(md,solution,'cielo');
    5856                else
    59                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     57                        md=solve(md,solution,package);
    6058                end
    6159

  • issm/trunk/test/Verification/IceSheetIceFrontM3d_8/updatearchive.m

    r293 r451  
    4545
    4646                %compute solution
    47                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    48                         md=solve(md,'diagnostic_horiz','cielo');
    49                 elseif strcmpi(package,'cielo_serial'),
    50                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     47                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     48                        md=solve(md,solution,'cielo');
    5149                else
    52                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     50                        md=solve(md,solution,package);
    5351                end
    5452

  • issm/trunk/test/Verification/IceSheetIceFrontMP3d_9/runme.m

    r294 r451  
    5252
    5353                %compute solution
    54                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    55                         md=solve(md,'diagnostic_horiz','cielo');
    56                 elseif strcmpi(package,'cielo_serial'),
    57                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     54                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     55                        md=solve(md,solution,'cielo');
    5856                else
    59                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     57                        md=solve(md,solution,package);
    6058                end
    6159

  • issm/trunk/test/Verification/IceSheetIceFrontMP3d_9/updatearchive.m

    r294 r451  
    4545
    4646                %compute solution
    47                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    48                         md=solve(md,'diagnostic_horiz','cielo');
    49                 elseif strcmpi(package,'cielo_serial'),
    50                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     47                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     48                        md=solve(md,solution,'cielo');
    5149                else
    52                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     50                        md=solve(md,solution,package);
    5351                end
    5452

  • issm/trunk/test/Verification/IceSheetIceFrontP3d_10/runme.m

    r341 r451  
    5252
    5353                %compute solution
    54                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    55                         md=solve(md,'diagnostic_horiz','cielo');
    56                 elseif strcmpi(package,'cielo_serial'),
    57                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     54                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     55                        md=solve(md,solution,'cielo');
    5856                else
    59                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     57                        md=solve(md,solution,package);
    6058                end
    6159

  • issm/trunk/test/Verification/IceSheetIceFrontP3d_10/updatearchive.m

    r341 r451  
    4545
    4646                %compute solution
    47                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    48                         md=solve(md,'diagnostic_horiz','cielo');
    49                 elseif strcmpi(package,'cielo_serial'),
    50                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     47                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     48                        md=solve(md,solution,'cielo');
    5149                else
    52                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     50                        md=solve(md,solution,package);
    5351                end
    5452

  • issm/trunk/test/Verification/IceSheetIceFrontS3d_11/runme.m

    r259 r451  
    5252
    5353                %compute solution
    54                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    55                         md=solve(md,'diagnostic_horiz','cielo');
    56                 elseif strcmpi(package,'cielo_serial'),
    57                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     54                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     55                        md=solve(md,solution,'cielo');
    5856                else
    59                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     57                        md=solve(md,solution,package);
    6058                end
    6159

  • issm/trunk/test/Verification/IceSheetIceFrontS3d_11/updatearchive.m

    r160 r451  
    4545
    4646                %compute solution
    47                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    48                         md=solve(md,'diagnostic_horiz','cielo');
    49                 elseif strcmpi(package,'cielo_serial'),
    50                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     47                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     48                        md=solve(md,solution,'cielo');
    5149                else
    52                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     50                        md=solve(md,solution,package);
    5351                end
    5452

  • issm/trunk/test/Verification/IceSheetNoIceFrontH2d_12/runme.m

    r389 r451  
    5050
    5151                %compute solution
    52                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    53                         md=solve(md,'diagnostic_horiz','cielo');
    54                 elseif strcmpi(package,'cielo_serial'),
    55                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     52                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     53                        md=solve(md,solution,'cielo');
    5654                else
    57                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     55                        md=solve(md,solution,package);
    5856                end
    5957

  • issm/trunk/test/Verification/IceSheetNoIceFrontH2d_12/updatearchive.m

    r389 r451  
    4343
    4444                %compute solution
    45                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    46                         md=solve(md,'diagnostic_horiz','cielo');
    47                 elseif strcmpi(package,'cielo_serial'),
    48                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     45                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     46                        md=solve(md,solution,'cielo');
    4947                else
    50                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     48                        md=solve(md,solution,package);
    5149                end
    5250

  • issm/trunk/test/Verification/IceSheetNoIceFrontH3d_13/runme.m

    r389 r451  
    5252
    5353                %compute solution
    54                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    55                         md=solve(md,'diagnostic_horiz','cielo');
    56                 elseif strcmpi(package,'cielo_serial'),
    57                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     54                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     55                        md=solve(md,solution,'cielo');
    5856                else
    59                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     57                        md=solve(md,solution,package);
    6058                end
    6159

  • issm/trunk/test/Verification/IceSheetNoIceFrontH3d_13/updatearchive.m

    r389 r451  
    4545
    4646                %compute solution
    47                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    48                         md=solve(md,'diagnostic_horiz','cielo');
    49                 elseif strcmpi(package,'cielo_serial'),
    50                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     47                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     48                        md=solve(md,solution,'cielo');
    5149                else
    52                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     50                        md=solve(md,solution,package);
    5351                end
    5452

  • issm/trunk/test/Verification/IceSheetNoIceFrontHM2d_14/runme.m

    r259 r451  
    5050
    5151                %compute solution
    52                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    53                         md=solve(md,'diagnostic_horiz','cielo');
    54                 elseif strcmpi(package,'cielo_serial'),
    55                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     52                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     53                        md=solve(md,solution,'cielo');
    5654                else
    57                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     55                        md=solve(md,solution,package);
    5856                end
    5957

  • issm/trunk/test/Verification/IceSheetNoIceFrontHM2d_14/updatearchive.m

    r148 r451  
    4343
    4444                %compute solution
    45                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    46                         md=solve(md,'diagnostic_horiz','cielo');
    47                 elseif strcmpi(package,'cielo_serial'),
    48                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     45                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     46                        md=solve(md,solution,'cielo');
    4947                else
    50                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     48                        md=solve(md,solution,package);
    5149                end
    5250

  • issm/trunk/test/Verification/IceSheetNoIceFrontHM3d_15/runme.m

    r259 r451  
    5252
    5353                %compute solution
    54                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    55                         md=solve(md,'diagnostic_horiz','cielo');
    56                 elseif strcmpi(package,'cielo_serial'),
    57                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     54                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     55                        md=solve(md,solution,'cielo');
    5856                else
    59                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     57                        md=solve(md,solution,package);
    6058                end
    6159

  • issm/trunk/test/Verification/IceSheetNoIceFrontHM3d_15/updatearchive.m

    r245 r451  
    4545
    4646                %compute solution
    47                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    48                         md=solve(md,'diagnostic_horiz','cielo');
    49                 elseif strcmpi(package,'cielo_serial'),
    50                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     47                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     48                        md=solve(md,solution,'cielo');
    5149                else
    52                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     50                        md=solve(md,solution,package);
    5351                end
    5452

  • issm/trunk/test/Verification/IceSheetNoIceFrontM2d_16/runme.m

    r259 r451  
    5050
    5151                %compute solution
    52                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    53                         md=solve(md,'diagnostic_horiz','cielo');
    54                 elseif strcmpi(package,'cielo_serial'),
    55                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     52                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     53                        md=solve(md,solution,'cielo');
    5654                else
    57                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     55                        md=solve(md,solution,package);
    5856                end
    5957

  • issm/trunk/test/Verification/IceSheetNoIceFrontM2d_16/updatearchive.m

    r147 r451  
    4343
    4444                %compute solution
    45                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    46                         md=solve(md,'diagnostic_horiz','cielo');
    47                 elseif strcmpi(package,'cielo_serial'),
    48                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     45                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     46                        md=solve(md,solution,'cielo');
    4947                else
    50                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     48                        md=solve(md,solution,package);
    5149                end
    5250

  • issm/trunk/test/Verification/IceSheetNoIceFrontM3d_17/runme.m

    r296 r451  
    5252
    5353                %compute solution
    54                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    55                         md=solve(md,'diagnostic_horiz','cielo');
    56                 elseif strcmpi(package,'cielo_serial'),
    57                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     54                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     55                        md=solve(md,solution,'cielo');
    5856                else
    59                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     57                        md=solve(md,solution,package);
    6058                end
    6159

  • issm/trunk/test/Verification/IceSheetNoIceFrontM3d_17/updatearchive.m

    r296 r451  
    4545
    4646                %compute solution
    47                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    48                         md=solve(md,'diagnostic_horiz','cielo');
    49                 elseif strcmpi(package,'cielo_serial'),
    50                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     47                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     48                        md=solve(md,solution,'cielo');
    5149                else
    52                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     50                        md=solve(md,solution,package);
    5351                end
    5452

  • issm/trunk/test/Verification/IceSheetNoIceFrontP3d_18/runme.m

    r297 r451  
    5252
    5353                %compute solution
    54                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    55                         md=solve(md,'diagnostic_horiz','cielo');
    56                 elseif strcmpi(package,'cielo_serial'),
    57                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     54                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     55                        md=solve(md,solution,'cielo');
    5856                else
    59                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     57                        md=solve(md,solution,package);
    6058                end
    6159

  • issm/trunk/test/Verification/IceSheetNoIceFrontP3d_18/updatearchive.m

    r297 r451  
    4545
    4646                %compute solution
    47                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    48                         md=solve(md,'diagnostic_horiz','cielo');
    49                 elseif strcmpi(package,'cielo_serial'),
    50                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     47                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     48                        md=solve(md,solution,'cielo');
    5149                else
    52                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     50                        md=solve(md,solution,package);
    5351                end
    5452

  • issm/trunk/test/Verification/IceSheetNoIceFrontS3d_19/runme.m

    r259 r451  
    5252
    5353                %compute solution
    54                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    55                         md=solve(md,'diagnostic_horiz','cielo');
    56                 elseif strcmpi(package,'cielo_serial'),
    57                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     54                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     55                        md=solve(md,solution,'cielo');
    5856                else
    59                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     57                        md=solve(md,solution,package);
    6058                end
    6159

  • issm/trunk/test/Verification/IceSheetNoIceFrontS3d_19/updatearchive.m

    r243 r451  
    4545
    4646                %compute solution
    47                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    48                         md=solve(md,'diagnostic_horiz','cielo');
    49                 elseif strcmpi(package,'cielo_serial'),
    50                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     47                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     48                        md=solve(md,solution,'cielo');
    5149                else
    52                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     50                        md=solve(md,solution,package);
    5351                end
    5452

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

    r288 r451  
    5252
    5353                %compute solution
    54                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    55                         md=solve(md,'diagnostic_horiz','cielo');
    56                 elseif strcmpi(package,'cielo_serial'),
    57                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     54                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     55                        md=solve(md,solution,'cielo');
    5856                else
    59                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     57                        md=solve(md,solution,package);
    6058                end
    6159

  • issm/trunk/test/Verification/IceShelfIceFrontM3d_2/updatearchive.m

    r288 r451  
    77
    88%packages and solutions to be tested
    9 packages={'macayeal','ice','cielo_serial','cielo_parallel'};
     9packages={'ice','cielo_serial','cielo_parallel'};
     10packages={'cielo_parallel'};
    1011solutions={'diagnostic','thermalsteady','thermaltransient','prognostic','transient'};
    1112
    … …  
    1920
    2021                %check package
    21                 if ~(strcmpi(package,'macayeal') | strcmpi(package,'ice') | strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel'));
     22                if ~(strcmpi(package,'ice') | strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel'));
    2223                        error(['package: ' package  ' in test: ' testname  ' not supported yet']);
    2324                        %check solution
    … …  
    2728                end
    2829                %check solution requested
    29                 if (~(strcmpi(package,'ice') | (strcmpi(package,'cielo_serial') & strcmpi(solution,'diagnostic'))) | strcmpi(solution,'transient')),
     30                if (~(strcmpi(package,'ice') | strcmpi(solution,'diagnostic')) | strcmpi(solution,'transient')),
    3031                        disp(sprintf(['\nsolution: ' solution  ', with package: ' package  ', in test: ' testname  ', not supported yet.\n']));
    3132                        continue
    … …  
    4546
    4647                %compute solution
    47                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    48                         md=solve(md,'diagnostic_horiz','cielo');
    49                 elseif strcmpi(package,'cielo_serial'),
    50                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     48                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     49                        md=solve(md,solution,'cielo');
    5150                else
    52                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     51                        md=solve(md,solution,package);
    5352                end
    5453

  • issm/trunk/test/Verification/IceShelfIceFrontMP3d_3/runme.m

    r289 r451  
    5252
    5353                %compute solution
    54                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    55                         md=solve(md,'diagnostic_horiz','cielo');
    56                 elseif strcmpi(package,'cielo_serial'),
    57                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     54                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     55                        md=solve(md,solution,'cielo');
    5856                else
    59                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     57                        md=solve(md,solution,package);
    6058                end
    6159

  • issm/trunk/test/Verification/IceShelfIceFrontMP3d_3/updatearchive.m

    r289 r451  
    4545
    4646                %compute solution
    47                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    48                         md=solve(md,'diagnostic_horiz','cielo');
    49                 elseif strcmpi(package,'cielo_serial'),
    50                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     47                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     48                        md=solve(md,solution,'cielo');
    5149                else
    52                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     50                        md=solve(md,solution,package);
    5351                end
    5452

  • issm/trunk/test/Verification/IceShelfIceFrontMPS3d_4/runme.m

    r259 r451  
    5252
    5353                %compute solution
    54                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    55                         md=solve(md,'diagnostic_horiz','cielo');
    56                 elseif strcmpi(package,'cielo_serial'),
    57                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     54                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     55                        md=solve(md,solution,'cielo');
    5856                else
    59                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     57                        md=solve(md,solution,package);
    6058                end
    6159

  • issm/trunk/test/Verification/IceShelfIceFrontMPS3d_4/updatearchive.m

    r220 r451  
    4545
    4646                %compute solution
    47                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    48                         md=solve(md,'diagnostic_horiz','cielo');
    49                 elseif strcmpi(package,'cielo_serial'),
    50                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     47                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     48                        md=solve(md,solution,'cielo');
    5149                else
    52                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     50                        md=solve(md,solution,package);
    5351                end
    5452

  • issm/trunk/test/Verification/IceShelfIceFrontP3d_5/runme.m

    r290 r451  
    5252
    5353                %compute solution
    54                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    55                         md=solve(md,'diagnostic_horiz','cielo');
    56                 elseif strcmpi(package,'cielo_serial'),
    57                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     54                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     55                        md=solve(md,solution,'cielo');
    5856                else
    59                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     57                        md=solve(md,solution,package);
    6058                end
    6159

  • issm/trunk/test/Verification/IceShelfIceFrontP3d_5/updatearchive.m

    r290 r451  
    4545
    4646                %compute solution
    47                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    48                         md=solve(md,'diagnostic_horiz','cielo');
    49                 elseif strcmpi(package,'cielo_serial'),
    50                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     47                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     48                        md=solve(md,solution,'cielo');
    5149                else
    52                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     50                        md=solve(md,solution,package);
    5351                end
    5452

  • issm/trunk/test/Verification/IceShelfIceFrontS3d_6/runme.m

    r265 r451  
    5252
    5353                %compute solution
    54                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    55                         md=solve(md,'diagnostic_horiz','cielo');
    56                 elseif strcmpi(package,'cielo_serial'),
    57                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     54                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     55                        md=solve(md,solution,'cielo');
    5856                else
    59                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     57                        md=solve(md,solution,package);
    6058                end
    6159

  • issm/trunk/test/Verification/IceShelfIceFrontS3d_6/updatearchive.m

    r201 r451  
    4545
    4646                %compute solution
    47                 if strcmpi(package,'cielo_parallel') & strcmpi(solution,'diagnostic'),
    48                         md=solve(md,'diagnostic_horiz','cielo');
    49                 elseif strcmpi(package,'cielo_serial'),
    50                         eval(['md=solve(md,''' solution ''',''cielo'');']);
     47                if (strcmpi(package,'cielo_serial') | strcmpi(package,'cielo_parallel')),
     48                        md=solve(md,solution,'cielo');
    5149                else
    52                         eval(['md=solve(md,''' solution ''',''' package ''');']);
     50                        md=solve(md,solution,package);
    5351                end
    5452

  • issm/trunk/test/Verification/test_cielo/runme.m

    r16 r451  
    1313md.cluster='wilkes';
    1414
    15 md=solve(md,'diagnostic_horiz','cielo'); pause(10);
     15md=solve(md,solution,'cielo'); pause(10);
    1616md=loadresultsfromcluster(md,'diagnostic_horiz');
    1717vel_cielo=md.vel;
    … …  
    3939md.cluster='wilkes';
    4040
    41 md=solve(md,'diagnostic_horiz','cielo'); pause(10);
     41md=solve(md,solution,'cielo'); pause(10);
    4242md=loadresultsfromcluster(md,'diagnostic_horiz');
    4343vel_cielo=md.vel;
    … …  
    6464md.cluster='wilkes';
    6565
    66 md=solve(md,'diagnostic_horiz','cielo'); pause(10);
     66md=solve(md,solution,'cielo'); pause(10);
    6767md=loadresultsfromcluster(md,'diagnostic_horiz');
    6868vel_cielo=md.vel;
    … …  
    9090md.cluster='wilkes';
    9191
    92 md=solve(md,'diagnostic_horiz','cielo'); pause(10);
     92md=solve(md,solution,'cielo'); pause(10);
    9393md=loadresultsfromcluster(md,'diagnostic_horiz');
    9494vel_cielo=md.vel;
    … …  
    154154md.drag(pos)=0;
    155155
    156 md=solve(md,'diagnostic_horiz','cielo'); pause(10);
     156md=solve(md,solution,'cielo'); pause(10);
    157157md=loadresultsfromcluster(md,'diagnostic_horiz');
    158158md.vx_obs=md.vx;
Note: See TracChangeset for help on using the changeset viewer.