1 |
|
|
2 |
|
global gcmfaces_verbose; gcmfaces_verbose=1; |
3 |
|
|
4 |
global mydir; mydir=[pwd '/']; |
global mydir; mydir=[pwd '/']; |
5 |
|
|
6 |
fid=fopen([mydir 'gcmfaces_path.m'],'wt'); |
fid=fopen([mydir 'gcmfaces_path.m'],'wt'); |
27 |
|
|
28 |
gcmfaces_path; |
gcmfaces_path; |
29 |
|
|
30 |
|
test0=dir('sample_input'); if isempty(test0); fprintf('no sample input data found\n'); return; end; |
31 |
|
|
32 |
fprintf('\n\n\n***********message from gcmfaces_init.m************\n '); |
fprintf('\n\n\n***********message from gcmfaces_init.m************\n '); |
33 |
fprintf(' starting 1st example routine: plot_one_field ... \n'); |
fprintf(' starting 1st example routine: plot_one_field ... \n'); |
34 |
|
|