25 |
%tnx=32;tny=32; |
%tnx=32;tny=32; |
26 |
%tnx=32;tny=8; |
%tnx=32;tny=8; |
27 |
%tnx=192;tny=64; |
%tnx=192;tny=64; |
28 |
%tnx=8;tny=32; |
tnx=8;tny=4; |
29 |
|
|
30 |
% Make list of domains. Assume MITgcm standard cube layout, three color path labeling and |
% Make list of domains. Assume MITgcm standard cube layout, three color path labeling and |
31 |
% global indexing convention. |
% global indexing convention. |
57 |
[tile] = exch2_setup_cs6_get_internal_neighbor_index_ranges(tile, domain, ntiles); |
[tile] = exch2_setup_cs6_get_internal_neighbor_index_ranges(tile, domain, ntiles); |
58 |
|
|
59 |
[tile] = exch2_setup_cs6_get_external_neighbor_tiles( tile, domain, ntiles); |
[tile] = exch2_setup_cs6_get_external_neighbor_tiles( tile, domain, ntiles); |
60 |
% Draw a picture of the domain and its tiles in the standard cube layout |
|
61 |
exch2_setup_cs6_plot(domain, tile, tnx, tny); |
% Draw a picture of the full domain and its tiles in the standard cube layout |
62 |
|
% exch2_setup_cs6_plot(domain, tile, tnx, tny); |
63 |
|
|
64 |
|
% Squeeze the blank tiles out |
65 |
|
[tile, domain] = exch2_setup_squeeze_blanks(domain, tile, tnx, tny); |
66 |
|
|
67 |
% Write attributes for a tile |
% Write attributes for a tile |
68 |
exch2_setup_cs6_print( domain, tile, tnx, tny, 1) |
exch2_setup_cs6_print( domain, tile, tnx, tny, 1) |