9 |
ny=1; |
ny=1; |
10 |
nz=26; |
nz=26; |
11 |
% Vertical grid (meters) |
% Vertical grid (meters) |
12 |
dz =[10 10 10 10 10 12 12 15 15 18 18 22 22 26 32 38 46 46 46 46 46 46 46 46 46 46]; |
dz =[10 10 10 10 10 11 12 14 16 18 21 24 27 31 35 40 40 40 40 40 40 40 40 40 40 40]; |
13 |
sprintf('delR = %d * %7.6g,',nz,dz) |
sprintf('delR = %d * %7.6g,',nz,dz) |
14 |
zi = [0 cumsum(dz)]; |
zi = [0 cumsum(dz)]; |
15 |
z = 0.5*(zi(1:end-1)+zi(2:end)); |
z = 0.5*(zi(1:end-1)+zi(2:end)); |
21 |
Tz=N2/(gravity*talpha); |
Tz=N2/(gravity*talpha); |
22 |
|
|
23 |
Tref=-Tz*(z - zi(end))+2; |
Tref=-Tz*(z - zi(end))+2; |
24 |
[sprintf('Tref =') sprintf(' %8.6g,',Tref)]; |
sprintf('Tref ='), sprintf(' %8.6g,',Tref) |
25 |
fid=fopen('T_26.init','w',ieee); fwrite(fid,Tref,prec); fclose(fid); |
fid=fopen('T_26.init','w',ieee); fwrite(fid,Tref,prec); fclose(fid); |
26 |
|
|
27 |
% Flux |
% Flux |