| 1 |
% |
| 2 |
% Ed Hill |
| 3 |
% Fri Dec 12 12:09:00 EST 2003 |
| 4 |
|
| 5 |
% Convert ACSII drifter data to netCDF format suitable for Ingrid |
| 6 |
|
| 7 |
% NOTE: see Chris Hill to obtain the two necessary (large) binary |
| 8 |
% data files: |
| 9 |
% |
| 10 |
% uVeltave.0000049680.data |
| 11 |
% vVeltave.0000049680.data |
| 12 |
% |
| 13 |
% At the time of writing, they were in: |
| 14 |
% |
| 15 |
% eliot.lcs.mit.edu:/export/d06/cnh/latlon_global_1-4 |
| 16 |
|
| 17 |
|
| 18 |
/usr/local/pkg/matlab/matlab-6.5r13/bin/matlab -nojvm |
| 19 |
|
| 20 |
matlab -nojvm |
| 21 |
clear all |
| 22 |
|
| 23 |
dz = [ 10.00 10.00 10.00 10.00 10.00 10.00 10.00 10.01 ... |
| 24 |
10.03 10.11 10.32 10.80 11.76 13.42 16.04 19.82 24.85 ... |
| 25 |
31.10 38.42 46.50 55.00 63.50 71.58 78.90 85.15 90.18 ... |
| 26 |
93.96 96.58 98.25 99.25 100.01 101.33 104.56 111.33 122.83 ... |
| 27 |
139.09 158.94 180.83 203.55 226.50 249.50 272.50 295.50 318.50 ... |
| 28 |
341.50 364.50 387.50 410.50 433.50 456.50 ]; |
| 29 |
z = zeros(size(dz)); |
| 30 |
z(1) = dz(1)/2.0; |
| 31 |
for i=2:length(dz), |
| 32 |
z(i) = sum(dz(1:(i-1))) + dz(i)/2.0; |
| 33 |
end |
| 34 |
load dy.txt |
| 35 |
dy = dy'; |
| 36 |
y = zeros(size(dy)); |
| 37 |
y(1) = dy(1)/2.0; |
| 38 |
for i=2:length(dy), |
| 39 |
y(i) = sum(dy(1:(i-1))) + dy(i)/2.0; |
| 40 |
end |
| 41 |
|
| 42 |
% plotu.m |
| 43 |
fid=fopen('uVeltave.0000049680.data','r','ieee-be'); |
| 44 |
phi=fread(fid,1088*1440*50,'float32'); |
| 45 |
fclose(fid); |
| 46 |
uall=reshape(phi,[1440 1088 50]); |
| 47 |
% imagesc(phi(:,:,1)); |
| 48 |
u = uall(:,:,[ 1 11 29 38 ]); |
| 49 |
clear uall phi |
| 50 |
|
| 51 |
% plotv.m |
| 52 |
fid=fopen('vVeltave.0000049680.data','r','ieee-be'); |
| 53 |
phi=fread(fid,1088*1440*50,'float32'); |
| 54 |
fclose(fid); |
| 55 |
vall=reshape(phi,[1440 1088 50]); |
| 56 |
v = vall(:,:,[ 1 11 29 38 ]); |
| 57 |
% imagesc(phi(:,:,1)); |
| 58 |
clear vall phi |
| 59 |
|
| 60 |
x = [ 0:0.25:(360-0.25) ] + (0.25)/2; |
| 61 |
phimin = -78.6671; |
| 62 |
y = phimin + y; |
| 63 |
z = z([ 1 11 29 38 ]); |
| 64 |
|
| 65 |
% surf(u(:,:,1)'), shading interp, view(2) |
| 66 |
% surf(u(:,:,1)'), shading interp, view(2) |
| 67 |
|
| 68 |
save dat_needed u v x y z |
| 69 |
|
| 70 |
matlab -nojvm |
| 71 |
clear all |
| 72 |
load dat_needed |
| 73 |
|
| 74 |
idu = 'zonal_velocity'; |
| 75 |
idv = 'meridional_velocity'; |
| 76 |
units = 'm/s'; |
| 77 |
|
| 78 |
desc = [ 'Simulated velocities (1/4-deg) from Chris Hill.' ]; |
| 79 |
ncname = [ 'cnh_1-4.nc' ]; |
| 80 |
nc = netcdf(ncname, 'clobber'); |
| 81 |
nc.reference = desc; |
| 82 |
nc.author = 'Ed Hill <eh3@mit.edu>'; |
| 83 |
nc.date = 'Dec 12, 2003'; |
| 84 |
nc('X') = length(x); |
| 85 |
nc('Y') = length(y); |
| 86 |
nc('Z') = length(z); |
| 87 |
nc{'X'} = 'X'; |
| 88 |
nc{'Y'} = 'Y'; |
| 89 |
nc{'Z'} = 'Z'; |
| 90 |
nc{ idu } = { 'Z', 'Y', 'X' }; |
| 91 |
nc{ idv } = { 'Z', 'Y', 'X' }; |
| 92 |
nc{'X'}.uniquename = 'X'; |
| 93 |
nc{'X'}.long_name = 'longitude'; |
| 94 |
nc{'X'}.gridtype = ncint(1); |
| 95 |
nc{'X'}.units = 'degree_east'; |
| 96 |
nc{'Y'}.uniquename = 'Y'; |
| 97 |
nc{'Y'}.long_name = 'latitude'; |
| 98 |
nc{'Y'}.gridtype = ncint(0); |
| 99 |
nc{'Y'}.units = 'degree_north'; |
| 100 |
nc{'Z'}.uniquename = 'Z'; |
| 101 |
nc{'Z'}.long_name = 'depth'; |
| 102 |
nc{'Z'}.gridtype = ncint(0); |
| 103 |
nc{'Z'}.units = 'm'; |
| 104 |
nc{ idu }.units = units; |
| 105 |
nc{ idu }.long_name = idu; |
| 106 |
nc{ idu }.missing_value = ncdouble(NaN); |
| 107 |
nc{ idu }.FillValue_ = ncdouble(0.); |
| 108 |
nc{ idv }.units = units; |
| 109 |
nc{ idv }.long_name = idv; |
| 110 |
nc{ idv }.missing_value = ncdouble(NaN); |
| 111 |
nc{ idv }.FillValue_ = ncdouble(0.); |
| 112 |
nc{'X'}(:) = x; |
| 113 |
nc{'Y'}(:) = y; |
| 114 |
nc{'Z'}(:) = z; |
| 115 |
p = permute(u,[ 3 2 1 ]); |
| 116 |
nc{ idu }(:) = p; |
| 117 |
p = permute(v,[ 3 2 1 ]); |
| 118 |
nc{ idv }(:) = p; |
| 119 |
nc = close(nc); |
| 120 |
|
| 121 |
! scp ./cnh_1-4.nc channel.mit.edu:/home/edhill/cnh_1-4 |
| 122 |
|
| 123 |
! gzip cnh_1-4.nc |
| 124 |
! scp ./cnh_1-4.nc.gz channel.mit.edu:/home/edhill/cnh_1-4 |
| 125 |
|
| 126 |
% AS ROOT ON channel.mit.edu : |
| 127 |
cd /home/benno/ingrid/data/MIT/LOCAL/PEOPLE/EH3 |
| 128 |
mkdir cnh_1-4 |
| 129 |
cd cnh_1-4 |
| 130 |
ln -s /home/edhill/cnh_1-4/* . |
| 131 |
|
| 132 |
|
| 133 |
|
| 134 |
% ;;; Local Variables: *** |
| 135 |
% ;;; mode:matlab *** |
| 136 |
% ;;; End: *** |
Parent Directory
| 
Revision Log
| 
Revision Graph