source: palm/trunk/UTIL/chemistry/gasphase_preproc/kpp/util/util.m @ 4127

Last change on this file since 4127 was 2696, checked in by kanani, 7 years ago

Merge of branch palm4u into trunk

File size: 1.4 KB
Line 
1% ****************************************************************
2%                           
3% InitSaveData - Opens the data file for writing
4%
5% ****************************************************************
6
7function InitSaveData ()
8
9global KPP_ROOT_FID
10
11      KPP_ROOT_FID = fopen('KPP_ROOT.dat','w');
12
13return %  InitSaveData
14
15% End of InitSaveData function
16% ****************************************************************
17
18% ****************************************************************
19%                           
20% SaveData - Write LOOKAT species in the data file
21%
22% ****************************************************************
23
24function SaveData ()
25
26global VAR FIX CFACTOR LOOKAT NLOOKAT KPP_ROOT_FID
27
28      C(1:KPP_NVAR) = VAR(1:KPP_NVAR);
29      C(KPP_NVAR+1:KPP_NSPEC) = FIX(1:KPP_NFIX);
30     
31      fprintf(KPP_ROOT_FID,'%12.5e,',C(LOOKAT(1:NLOOKAT)));
32
33return %  SaveData
34
35% End of SaveData function
36% ****************************************************************
37
38% ****************************************************************
39%                           
40% CloseSaveData - Close the data file
41%
42% ****************************************************************
43
44function CloseSaveData ()
45global KPP_ROOT_FID
46
47      fclose( KPP_ROOT_FID );
48
49return %  CloseSaveData
50
51% End of CloseSaveData function
52% ****************************************************************
53
54
Note: See TracBrowser for help on using the repository browser.