wrfv2_fire/phys/read_model_test_out.m

   1 function a=read_model_test_out(file,n)\r
   2 f=fopen(file,'r');\r
   3 a.dx=next_mat(f);\r
   4 a.dy=next_mat(f);\r
   5 t=next_mat(f)\r
   6 i=0;\r
   7 while ~isempty(t),\r
   8     i=i+1\r
   9     if i>n,break,end\r
  10     a.d(i).t=t;\r
  11     a.d(i).lfn=next_mat(f);\r
  12     a.d(i).tign=next_mat(f);\r
  13     a.d(i).vx=next_mat(f);\r
  14     a.d(i).vy=next_mat(f);\r
  15     a.d(i).flux=next_mat(f);\r
  16     t=next_mat(f)\r
  17 end\r
  18 fclose(f);\r