39 |
|
|
40 |
fprintf('\n\n basic gcmfaces test: started... \n'); |
fprintf('\n\n basic gcmfaces test: started... \n'); |
41 |
gcmfaces_path; |
gcmfaces_path; |
42 |
global mygrid; mygrid=[]; grid_load([gcmfaces_dir '/sample_input/GRIDv4/'],5); |
global mygrid; mygrid=[]; grid_load([gcmfaces_dir '/sample_input/GRIDv4/'],5,'compact'); |
43 |
nameFld='DDetan'; tt=[53:78]*336; cc=[0 0.10]; |
nameFld='DDetan'; tt=[53:78]*336; cc=[0 0.10]; |
44 |
fld=rdmds2gcmfaces([gcmfaces_dir '/sample_input/SAMPLEv4/' nameFld],tt,5); |
fld=rdmds2gcmfaces([gcmfaces_dir '/sample_input/SAMPLEv4/' nameFld],tt); |
45 |
fld=std(fld,[],3); msk=mygrid.hFacC(:,:,1); fld(find(msk==0))=NaN; |
fld=std(fld,[],3); msk=mygrid.hFacC(:,:,1); fld(find(msk==0))=NaN; |
46 |
fprintf(' basic gcmfaces test: completed. \n\n'); |
fprintf(' basic gcmfaces test: completed. \n\n'); |
47 |
|
|
52 |
fprintf(' starting 1st example routine: plot_one_field ... \n'); |
fprintf(' starting 1st example routine: plot_one_field ... \n'); |
53 |
end; |
end; |
54 |
|
|
55 |
plot_one_field; |
plot_one_field('v4',0); |
56 |
|
|
57 |
if gcmfaces_verbose; |
if gcmfaces_verbose; |
58 |
fprintf('\n\n\n***********message from gcmfaces_init.m************\n '); |
fprintf('\n\n\n***********message from gcmfaces_init.m************\n '); |
59 |
fprintf(' starting 2nd example routine: plot_std_field ... \n'); |
fprintf(' starting 2nd example routine: plot_std_field ... \n'); |
60 |
end; |
end; |
61 |
|
|
62 |
plot_std_field; |
plot_std_field('v4'); |
63 |
|
|
64 |
end; |
end; |
65 |
|
|