1 |
%-- In order to run a short test where "something" happens, |
2 |
% provide pseudo initial conditions which correspond to the output |
3 |
% of a standard run, at t=2.h, when convection starts to develop. |
4 |
|
5 |
% $Header: $ |
6 |
% $Name: $ |
7 |
|
8 |
it=360; %- t= 2.h in the simulation |
9 |
|
10 |
namF='T'; |
11 |
var=rdmds(namF,it); |
12 |
fid=fopen([namF,'.120mn.bin'],'w','b'); fwrite(fid,var,'real*4'); fclose(fid); |
13 |
|
14 |
namF='Eta'; |
15 |
var=rdmds(namF,it); |
16 |
fid=fopen([namF,'.120mn.bin'],'w','b'); fwrite(fid,var,'real*4'); fclose(fid); |
17 |
|
18 |
namF='U'; |
19 |
var=rdmds(namF,it); |
20 |
fid=fopen([namF,'.120mn.bin'],'w','b'); fwrite(fid,var,'real*4'); fclose(fid); |
21 |
|
22 |
namF='V'; |
23 |
var=rdmds(namF,it); |
24 |
fid=fopen([namF,'.120mn.bin'],'w','b'); fwrite(fid,var,'real*4'); fclose(fid); |
25 |
|