| 1 |
% this works with Matlab 7.2 on csysl4.dmawi.de (Redhat 9) |
| 2 |
% uname -a |
| 3 |
% Linux csysl4 2.4.24 #4 SMP Thu Feb 19 09:31:43 CET 2004 i686 i686 i386 GNU/Linux |
| 4 |
|
| 5 |
%addpath ./bin |
| 6 |
|
| 7 |
bdir = '/net/ross/raid2/mlosch'; |
| 8 |
datapath = fullfile(bdir,'data_sources'); |
| 9 |
gridpath = fullfile(bdir,'MITgcm_contrib/eh3/llc/ecco-godae/input'); |
| 10 |
gridpath = fullfile(bdir,'llc2deg'); |
| 11 |
fnamegrid = 'llc_p90'; |
| 12 |
fnamepattern = [fnamegrid '_%d.nc']; |
| 13 |
|
| 14 |
% set the number of recursion levels here |
| 15 |
nfinepow=4; |
| 16 |
|
| 17 |
save DATAPATH datapath gridpath fnamepattern fnamegrid nfinepow |
| 18 |
setfmt |
| 19 |
vgrid |
| 20 |
|
| 21 |
% offsets for longitude and latitude |
| 22 |
% up to now the scripts work only for monotonically increasing lon |
| 23 |
s_lon = -37; % turns cube corners into land (mostly) |
| 24 |
s_lat = 0; |
| 25 |
|
| 26 |
% generate grid variables |
| 27 |
latlongrid |
| 28 |
|
| 29 |
% load topography and interpolate |
| 30 |
topo_s2004 |
| 31 |
|
| 32 |
% hydrography from levitus (takes some time) |
| 33 |
% levit |
| 34 |
% correct for annual cycle |
| 35 |
% annual |
| 36 |
|
| 37 |
%return |
| 38 |
% put together topography |
| 39 |
load DATAPATH |
| 40 |
load FMT |
| 41 |
load HN |
| 42 |
load ZN |
| 43 |
hntot = hn+hnz; |
| 44 |
|
| 45 |
% save it so a file |
| 46 |
% bottom topography |
| 47 |
fname = ['bathy_' fnamegrid]; |
| 48 |
% with shelfice |
| 49 |
fid=fopen([fname '.shice'],'w',Ieee); |
| 50 |
fwrite(fid,mdsiocompact(hntot),fmt); |
| 51 |
fclose(fid); |
| 52 |
% without shelfice regions |
| 53 |
fid=fopen([fname '.bin'],'w',Ieee); |
| 54 |
fwrite(fid,mdsiocompact(hn),fmt); |
| 55 |
fclose(fid); |
| 56 |
% shelfice topography |
| 57 |
fname = ['shicetopo_' fnamegrid]; |
| 58 |
fid=fopen([fname '.bin'],'w',Ieee); |
| 59 |
fwrite(fid,mdsiocompact(zn),fmt); fclose(fid); |
| 60 |
|
| 61 |
|
| 62 |
|