diff options
author | eschnett <eschnett@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2012-07-04 01:25:29 +0000 |
---|---|---|
committer | eschnett <eschnett@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2012-07-04 01:25:29 +0000 |
commit | 5890fa36427bdea8efe70079e3cd1e5612312e77 (patch) | |
tree | 47d730568fc835f8f37d54728de142c767699f3d /lib/sbin/interface_parser.pl | |
parent | d9fda6d54df1e6de28a99e812e6c5769e4d9be4a (diff) |
Introduce cctk_ash, retire cctk_lssh
Introduce cctk_ash, describing the process-local array shape that has
been allocated. This may be larger than cctk_lsh, the process-local
shape that should be used.
Retire cctk_lssh and related infrastructure to handle staggered grid
functions.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@4841 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/interface_parser.pl')
-rw-r--r-- | lib/sbin/interface_parser.pl | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/lib/sbin/interface_parser.pl b/lib/sbin/interface_parser.pl index b5b0266a..2746030e 100644 --- a/lib/sbin/interface_parser.pl +++ b/lib/sbin/interface_parser.pl @@ -535,23 +535,6 @@ sub check_implementation_consistency { $attributes{"DIM"} = $interface_data_ref->{"\U$thorn GROUP $group\E DIM"}; } - - # Check the staggering are consistant - if($attributes{"STYPE"}) - { - if($attributes{"STYPE"} ne $interface_data_ref->{"\U$thorn GROUP $group\E STYPE"}) - { - $message = "Inconsistent implementations of $implementation\n"; - $message .= "Implemented by thorns " . join(" ", @thorns) . "\n"; - $message .= "Group $group has inconsistent staggering type"; - &CST_error(0,$message,"",__LINE__,__FILE__); - $n_errors++; - } - } - else - { - $attributes{"STYPE"} = $interface_data_ref->{"\U$thorn GROUP $group\E STYPE"}; - } } } } @@ -881,10 +864,6 @@ sub parse_interface_ccl { $interface_data_ref->{"\U$thorn GROUP $current_group\E DIM"} = $options{$option}; } - elsif($option =~ m:STAGGER:i) - { - $interface_data_ref->{"\U$thorn GROUP $current_group\E STYPE"} = "\U$options{$option}\E"; - } elsif($option =~ m:TYPE:i) { $interface_data_ref->{"\U$thorn GROUP $current_group\E GTYPE"} = "\U$options{$option}\E"; @@ -950,11 +929,6 @@ sub parse_interface_ccl $interface_data_ref->{"\U$thorn GROUP $current_group\E TIMELEVELS"} = 1; } - if(! $interface_data_ref->{"\U$thorn GROUP $current_group\E STYPE"}) - { - $interface_data_ref->{"\U$thorn GROUP $current_group\E STYPE"} = "NONE"; - } - if(! $interface_data_ref->{"\U$thorn GROUP $current_group\E DISTRIB"}) { if ($interface_data_ref->{"\U$thorn GROUP $current_group\E GTYPE"} eq 'SCALAR') |