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

Diff of /trunk/models/column.a4l

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

revision 1 by aw0a, Fri Oct 29 20:54:12 2004 UTC revision 576 by johnpye, Tue May 9 03:42:08 2006 UTC
# Line 315  END reset_to_full_thermo; Line 315  END reset_to_full_thermo;
315    
316  METHOD reset_to_adiabatic;  METHOD reset_to_adiabatic;
317      RUN reset_to_full_thermo;      RUN reset_to_full_thermo;
318      Stack[Tray_set].cmo_ratio.fixed := FALSE;      FREE Stack[Tray_set].cmo_ratio;
319      Stack[Tray_set].Qin.fixed := TRUE;      FIX Stack[Tray_set].Qin;
320      Stack[Tray_set].Qin := 0{W};      Stack[Tray_set].Qin := 0{W};
321  END reset_to_adiabatic;  END reset_to_adiabatic;
322    
# Line 711  METHOD specify; Line 711  METHOD specify;
711      RUN seqmod;      RUN seqmod;
712      RUN feed.specify;      RUN feed.specify;
713          IF (feed.equilibrated AND (feed.pd.phase_indicator == 'VL')) THEN          IF (feed.equilibrated AND (feed.pd.phase_indicator == 'VL')) THEN
714          feed.Details.state.phase[feed.pd.reference_phase].T.fixed := FALSE;          FREE feed.Details.state.phase[feed.pd.reference_phase].T;
715          feed.Details.state.phase_fraction[feed.pd.other_phases].fixed := TRUE;          FIX feed.Details.state.phase_fraction[feed.pd.other_phases];
716          END IF;          END IF;
717  END specify;  END specify;
718    
# Line 731  END reset_to_full_thermo; Line 731  END reset_to_full_thermo;
731  METHOD reset_to_adiabatic;  METHOD reset_to_adiabatic;
732      RUN reset_to_full_thermo;      RUN reset_to_full_thermo;
733      (* condenser, reboiler Qin left free *)      (* condenser, reboiler Qin left free *)
734      rectifying_section.Stack[1..n_trays_above].cmo_ratio.fixed := FALSE;      FREE rectifying_section.Stack[1..n_trays_above].cmo_ratio;
735      stripping_section.Stack[1..n_trays_below].cmo_ratio.fixed := FALSE;      FREE stripping_section.Stack[1..n_trays_below].cmo_ratio;
736      Tray[1..N_trays-1].Qin.fixed := TRUE;      FIX Tray[1..N_trays-1].Qin;
737      Tray[1..N_trays-1].Qin := 0{W};      Tray[1..N_trays-1].Qin := 0{W};
738      feed_tray.q.fixed := FALSE;      FREE feed_tray.q;
739  END reset_to_adiabatic;  END reset_to_adiabatic;
740    
741  METHOD propagate_feed_values;  METHOD propagate_feed_values;

Legend:
Removed from v.1  
changed lines
  Added in v.576

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22