/[ascend]/trunk/models/collocation.a4l
ViewVC logotype

Diff of /trunk/models/collocation.a4l

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 834 by johnpye, Tue May 9 03:42:08 2006 UTC revision 835 by aw0a, Wed Sep 6 15:52:46 2006 UTC
# Line 1874  METHOD seqmod_massbal; Line 1874  METHOD seqmod_massbal;
1874      FOR j IN [1..ncolls] DO      FOR j IN [1..ncolls] DO
1875      (*FREE coll[j].botliq.state.H;*)      (*FREE coll[j].botliq.state.H;*)
1876    
1877      coll[j].z_set      FREE coll[j].z_set.z_values[coll[j].ntrays+1];
     .FREE z_values[coll[j].ntrays+1];  
1878      FREE coll[j].z_set.stot;      FREE coll[j].z_set.stot;
1879      END FOR;      END FOR;
1880      FIX stot;      FIX stot;
# Line 1894  METHOD seqmod_fullthermo; Line 1893  METHOD seqmod_fullthermo;
1893      FOR j IN [1..ncolls] DO      FOR j IN [1..ncolls] DO
1894      (*FREE coll[j].botliq.state.H;*)      (*FREE coll[j].botliq.state.H;*)
1895    
1896      coll[j].z_set      FREE coll[j].z_set.z_values[coll[j].ntrays+1];
     .FREE z_values[coll[j].ntrays+1];  
1897      FREE coll[j].z_set.stot;      FREE coll[j].z_set.stot;
1898      END FOR;      END FOR;
1899      FIX stot;      FIX stot;
# Line 1915  METHOD seqmod_adiabatic; Line 1913  METHOD seqmod_adiabatic;
1913      FOR j IN [1..ncolls] DO      FOR j IN [1..ncolls] DO
1914      (*FREE coll[j].botliq.state.H;*)      (*FREE coll[j].botliq.state.H;*)
1915    
1916      coll[j].z_set      FREE coll[j].z_set.z_values[coll[j].ntrays+1];
     .FREE z_values[coll[j].ntrays+1];  
1917      FREE coll[j].z_set.stot;      FREE coll[j].z_set.stot;
1918      END FOR;      END FOR;
1919      FIX stot;      FIX stot;
Legend:
Removed from v.834  
changed lines
  Added in v.835
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22