Please Delete
#573
Almost Deleted
Rennlist Member
Rennlist Member
![Default](https://rennlist.com/forums/images/icons/icon1.gif)
I'll see your post and raise you a DELETE.. Can you spot the parens I should have deleted?? ![Smilie](https://rennlist.com/forums/images/smilies/smile.gif)
error_reporting(E_ALL & ~E_NOTICE);
if (!@include 'functions_rwgarage_plus.php') {
include 'functions_rwgarage.php';
}
static $rwgarage_postbit_cache = array();
function rwgarage_fetchFromCache($userID, $use_username_in_link, $usepostid, $onclick_launch_window)
{
global $rwgarage_postbit_cache;
$key = $userID . ($use_username_in_link ? '_T' : '_F') . ($usepostid ? '_T' : '_F') . ($onclick_launch_window ? '_T' : '_F');
return $rwgarage_postbit_cache[$key];
}
function rwgarage_putInCache($userID, $use_username_in_link, $usepostid, $onclick_launch_window, $content)
{
global $rwgarage_postbit_cache;
$key = $userID . ($use_username_in_link ? '_T' : '_F') . ($usepostid ? '_T' : '_F') . ($onclick_launch_window ? '_T' : '_F');
$rwgarage_postbit_cache[$key] = $content;
}
function generate_garage_popup_menu($userinfo, $use_username_in_link = false, $usepostid = false, $onclick_launch_window=true)
{
global $vbulletin, $db, $vbphrase, $post;
$userID = $userinfo['userid'];
$cacheHit = rwgarage_fetchFromCache($userID, $use_username_in_link, $usepostid, $onclick_launch_window);
if(!$cacheHit)
{
$vehicles = $db->query_read("SELECT * FROM " .
TABLE_PREFIX . "rwgarage_vehicle WHERE userid = ". $userID . " AND display='1'");
$num_vehicles = $db->num_rows($vehicles);
if($num_vehicles > 0)
{
$content = "";
$popupbits = "";
while($vehicle = $db->fetch_Array($vehicles))
{
$usethumb = false;
$thumbname = NULL;
$image = $db->query_first("SELECT * from " .
TABLE_PREFIX . "rwgarage_image WHERE vehicle_id = ". $vehicle['vehicle_id'] ." AND showinsections='main'");
if($image['image_id']!=0)
{
$usethumb = true;
$thumbname = $vbulletin->options['bburl']. "/" .$vbulletin->options['rwgarage_imagedir']. "/" .$image['userid']. "/" .$image['image_id']. "t.jpg";
}
if($vehicle['name'] != "")
$vehicle_name = $vehicle['name'];
else
$vehicle_name = $vehicle['year']. " " .$vehicle['make']. " " .$vehicle['model'];
$vehicle_id = $vehicle['vehicle_id'];
eval('$popupbits .= "' . fetch_template('rwgarage_popup_menubit') . '";') );
}
rwgarage_putInCache($userID, $use_username_in_link, $usepostid, $onclick_launch_window, $popupbits);
$cacheHit = $popupbits;
}
else
{
rwgarage_putInCache($userID, $use_username_in_link, $usepostid, $onclick_launch_window, ' ');
$cacheHit = ' ';
}
}
if($cacheHit == ' ')
return NULL;
else
{
$popupbits = $cacheHit;
eval('$content = "' . fetch_template('rwgarage_popup_menu') . '";');
return $content;
}
}
![Smilie](https://rennlist.com/forums/images/smilies/smile.gif)
error_reporting(E_ALL & ~E_NOTICE);
if (!@include 'functions_rwgarage_plus.php') {
include 'functions_rwgarage.php';
}
static $rwgarage_postbit_cache = array();
function rwgarage_fetchFromCache($userID, $use_username_in_link, $usepostid, $onclick_launch_window)
{
global $rwgarage_postbit_cache;
$key = $userID . ($use_username_in_link ? '_T' : '_F') . ($usepostid ? '_T' : '_F') . ($onclick_launch_window ? '_T' : '_F');
return $rwgarage_postbit_cache[$key];
}
function rwgarage_putInCache($userID, $use_username_in_link, $usepostid, $onclick_launch_window, $content)
{
global $rwgarage_postbit_cache;
$key = $userID . ($use_username_in_link ? '_T' : '_F') . ($usepostid ? '_T' : '_F') . ($onclick_launch_window ? '_T' : '_F');
$rwgarage_postbit_cache[$key] = $content;
}
function generate_garage_popup_menu($userinfo, $use_username_in_link = false, $usepostid = false, $onclick_launch_window=true)
{
global $vbulletin, $db, $vbphrase, $post;
$userID = $userinfo['userid'];
$cacheHit = rwgarage_fetchFromCache($userID, $use_username_in_link, $usepostid, $onclick_launch_window);
if(!$cacheHit)
{
$vehicles = $db->query_read("SELECT * FROM " .
TABLE_PREFIX . "rwgarage_vehicle WHERE userid = ". $userID . " AND display='1'");
$num_vehicles = $db->num_rows($vehicles);
if($num_vehicles > 0)
{
$content = "";
$popupbits = "";
while($vehicle = $db->fetch_Array($vehicles))
{
$usethumb = false;
$thumbname = NULL;
$image = $db->query_first("SELECT * from " .
TABLE_PREFIX . "rwgarage_image WHERE vehicle_id = ". $vehicle['vehicle_id'] ." AND showinsections='main'");
if($image['image_id']!=0)
{
$usethumb = true;
$thumbname = $vbulletin->options['bburl']. "/" .$vbulletin->options['rwgarage_imagedir']. "/" .$image['userid']. "/" .$image['image_id']. "t.jpg";
}
if($vehicle['name'] != "")
$vehicle_name = $vehicle['name'];
else
$vehicle_name = $vehicle['year']. " " .$vehicle['make']. " " .$vehicle['model'];
$vehicle_id = $vehicle['vehicle_id'];
eval('$popupbits .= "' . fetch_template('rwgarage_popup_menubit') . '";') );
}
rwgarage_putInCache($userID, $use_username_in_link, $usepostid, $onclick_launch_window, $popupbits);
$cacheHit = $popupbits;
}
else
{
rwgarage_putInCache($userID, $use_username_in_link, $usepostid, $onclick_launch_window, ' ');
$cacheHit = ' ';
}
}
if($cacheHit == ' ')
return NULL;
else
{
$popupbits = $cacheHit;
eval('$content = "' . fetch_template('rwgarage_popup_menu') . '";');
return $content;
}
}
rwgarage_putInCache($userID, $use_username_in_link, $usepostid,
$onclick_launch_window, ' ');
$cacheHit = ' ';
Try...
PRODUCE_CO: IF (.NOT. CO_PRODUCTION) THEN !Combustion without CO formation and destruction
YO2Z => WORK1
Q = 0._EB
Z_2 = 0._EB
DO K=1,KBAR
DO J=1,JBAR
ILOOPA: DO I=1,IBAR
IF (SOLID(CELL_INDEX(I,J,K))) CYCLE ILOOPA
CALL GET_MASS_FRACTION2(YY(I,J,K,I_FUEL),Z_2,YY(I,J,K,I_PROG_F),O2_INDEX,Y_SU M(I,J,K),YO2Z(I,J,K))
ENDDO ILOOPA
ENDDO
ENDDO
YO2MIN = 1.E-10_EB
YFUMIN = 1.E-10_EB
!Loop and do F -> CO
RN => REACTION(1)
HFAC_F = RN%HEAT_OF_COMBUSTION/DT
SUPPRESSIONIF: IF (SUPPRESSION) THEN !TMP and Y_O2 dependent combustion
DO K=1,KBAR
DO J=1,JBAR
ILOOPB: DO I=1,IBAR
IC = CELL_INDEX(I,J,K)
IF (SOLID(IC)) CYCLE ILOOPB
IWA = WALL_INDEX(IC,
![Smilie](https://rennlist.com/forums/images/smilies/smile.gif)
YO20 = YO2Z(I,J,K)
YFU0 = MAX(0._EB,MIN(1._EB,YY(I,J,K,I_FUEL)))*RN%Y_F_INLET
IF (YFU0<=YFUMIN .OR. YO20<=YO2MIN) CYCLE ILOOPB
!Get min O2
Y_O2_MAX = YO20
Y_F_MAX = YFU0/RN%Y_F_INLET
TMP_MIN = TMP(I,J,K)
TMP_F_MIN = TMP(I,J,K)
!Check neighboring cells for fuel and oxygen
!X direction
IF (IWA(-1)==0) THEN
IF (YO2Z(I-1,J,K)>Y_O2_MAX) THEN
Y_O2_MAX = YO2Z(I-1,J,K)
TMP_MIN = TMP(I-1,J,K)
ENDIF
IF (YY(I-1,J,K,I_FUEL)>Y_F_MAX) THEN
Y_F_MAX = YY(I-1,J,K,I_FUEL)
TMP_F_MIN = TMP(I-1,J,K)
ENDIF
ELSE
IW = IWA(-1)
IF (SURFACE(IJKW(5,IW))%SPECIES_BC_INDEX/=NO_MASS_FLUX) THEN
Y_SUM_W = 0._EB
DO N=1,N_SPECIES
IF (SPECIES(N)%MODE==GAS_SPECIES) THEN
Y_SUM_W = Y_SUM_W + YY_W(IW,N)
ENDIF
ENDDO
CALL GET_MASS_FRACTION2(YY_W(IW,I_FUEL),Z_2,YY_W(IW,I_PROG_F),O2_INDEX,Y_SUM_ W,YO2W)
IF (YO2W>Y_O2_MAX) THEN
Y_O2_MAX = YO2W
TMP_MIN = TMP_F(IW)
ENDIF
IF (MAX(0._EB,MIN(1._EB,YY_W(IW,I_FUEL)))>Y_F_MAX) THEN
Y_F_MAX = YY_W(IW,I_FUEL)
TMP_F_MIN = TMP_F(IW)
ENDIF
ENDIF
ENDIF
IF (IWA(1)==0) THEN
IF (YO2Z(I+1,J,K)>Y_O2_MAX) THEN
Y_O2_MAX = YO2Z(I+1,J,K)
TMP_MIN = TMP(I+1,J,K)
ENDIF
IF (YY(I+1,J,K,I_FUEL)>Y_F_MAX) THEN
Y_F_MAX = YY(I+1,J,K,I_FUEL)
TMP_F_MIN = TMP(I+1,J,K)
ENDIF
#577
![Default](https://rennlist.com/forums/images/icons/icon1.gif)
![Cool](https://rennlist.com/forums/images/smilies/cool.gif)
#578
![Default](https://rennlist.com/forums/images/icons/icon1.gif)
WTF?
Dude...? Interpreted languages....?
rwgarage_putInCache($userID, $use_username_in_link, $usepostid,
$onclick_launch_window, ' ');
$cacheHit = ' ';
Try...
PRODUCE_CO: IF (.NOT. CO_PRODUCTION) THEN !Combustion without CO formation and destruction
YO2Z => WORK1
Q = 0._EB
Z_2 = 0._EB
DO K=1,KBAR
DO J=1,JBAR
ILOOPA: DO I=1,IBAR
IF (SOLID(CELL_INDEX(I,J,K))) CYCLE ILOOPA
CALL GET_MASS_FRACTION2(YY(I,J,K,I_FUEL),Z_2,YY(I,J,K,I_PROG_F),O2_INDEX,Y_SU M(I,J,K),YO2Z(I,J,K))
ENDDO ILOOPA
ENDDO
ENDDO
YO2MIN = 1.E-10_EB
YFUMIN = 1.E-10_EB
!Loop and do F -> CO
RN => REACTION(1)
HFAC_F = RN%HEAT_OF_COMBUSTION/DT
SUPPRESSIONIF: IF (SUPPRESSION) THEN !TMP and Y_O2 dependent combustion
DO K=1,KBAR
DO J=1,JBAR
ILOOPB: DO I=1,IBAR
IC = CELL_INDEX(I,J,K)
IF (SOLID(IC)) CYCLE ILOOPB
IWA = WALL_INDEX(IC,![Smilie](https://rennlist.com/forums/images/smilies/smile.gif)
YO20 = YO2Z(I,J,K)
YFU0 = MAX(0._EB,MIN(1._EB,YY(I,J,K,I_FUEL)))*RN%Y_F_INLET
IF (YFU0<=YFUMIN .OR. YO20<=YO2MIN) CYCLE ILOOPB
!Get min O2
Y_O2_MAX = YO20
Y_F_MAX = YFU0/RN%Y_F_INLET
TMP_MIN = TMP(I,J,K)
TMP_F_MIN = TMP(I,J,K)
!Check neighboring cells for fuel and oxygen
!X direction
IF (IWA(-1)==0) THEN
IF (YO2Z(I-1,J,K)>Y_O2_MAX) THEN
Y_O2_MAX = YO2Z(I-1,J,K)
TMP_MIN = TMP(I-1,J,K)
ENDIF
IF (YY(I-1,J,K,I_FUEL)>Y_F_MAX) THEN
Y_F_MAX = YY(I-1,J,K,I_FUEL)
TMP_F_MIN = TMP(I-1,J,K)
ENDIF
ELSE
IW = IWA(-1)
IF (SURFACE(IJKW(5,IW))%SPECIES_BC_INDEX/=NO_MASS_FLUX) THEN
Y_SUM_W = 0._EB
DO N=1,N_SPECIES
IF (SPECIES(N)%MODE==GAS_SPECIES) THEN
Y_SUM_W = Y_SUM_W + YY_W(IW,N)
ENDIF
ENDDO
CALL GET_MASS_FRACTION2(YY_W(IW,I_FUEL),Z_2,YY_W(IW,I_PROG_F),O2_INDEX,Y_SUM_ W,YO2W)
IF (YO2W>Y_O2_MAX) THEN
Y_O2_MAX = YO2W
TMP_MIN = TMP_F(IW)
ENDIF
IF (MAX(0._EB,MIN(1._EB,YY_W(IW,I_FUEL)))>Y_F_MAX) THEN
Y_F_MAX = YY_W(IW,I_FUEL)
TMP_F_MIN = TMP_F(IW)
ENDIF
ENDIF
ENDIF
IF (IWA(1)==0) THEN
IF (YO2Z(I+1,J,K)>Y_O2_MAX) THEN
Y_O2_MAX = YO2Z(I+1,J,K)
TMP_MIN = TMP(I+1,J,K)
ENDIF
IF (YY(I+1,J,K,I_FUEL)>Y_F_MAX) THEN
Y_F_MAX = YY(I+1,J,K,I_FUEL)
TMP_F_MIN = TMP(I+1,J,K)
ENDIF
rwgarage_putInCache($userID, $use_username_in_link, $usepostid,
$onclick_launch_window, ' ');
$cacheHit = ' ';
Try...
PRODUCE_CO: IF (.NOT. CO_PRODUCTION) THEN !Combustion without CO formation and destruction
YO2Z => WORK1
Q = 0._EB
Z_2 = 0._EB
DO K=1,KBAR
DO J=1,JBAR
ILOOPA: DO I=1,IBAR
IF (SOLID(CELL_INDEX(I,J,K))) CYCLE ILOOPA
CALL GET_MASS_FRACTION2(YY(I,J,K,I_FUEL),Z_2,YY(I,J,K,I_PROG_F),O2_INDEX,Y_SU M(I,J,K),YO2Z(I,J,K))
ENDDO ILOOPA
ENDDO
ENDDO
YO2MIN = 1.E-10_EB
YFUMIN = 1.E-10_EB
!Loop and do F -> CO
RN => REACTION(1)
HFAC_F = RN%HEAT_OF_COMBUSTION/DT
SUPPRESSIONIF: IF (SUPPRESSION) THEN !TMP and Y_O2 dependent combustion
DO K=1,KBAR
DO J=1,JBAR
ILOOPB: DO I=1,IBAR
IC = CELL_INDEX(I,J,K)
IF (SOLID(IC)) CYCLE ILOOPB
IWA = WALL_INDEX(IC,
![Smilie](https://rennlist.com/forums/images/smilies/smile.gif)
YO20 = YO2Z(I,J,K)
YFU0 = MAX(0._EB,MIN(1._EB,YY(I,J,K,I_FUEL)))*RN%Y_F_INLET
IF (YFU0<=YFUMIN .OR. YO20<=YO2MIN) CYCLE ILOOPB
!Get min O2
Y_O2_MAX = YO20
Y_F_MAX = YFU0/RN%Y_F_INLET
TMP_MIN = TMP(I,J,K)
TMP_F_MIN = TMP(I,J,K)
!Check neighboring cells for fuel and oxygen
!X direction
IF (IWA(-1)==0) THEN
IF (YO2Z(I-1,J,K)>Y_O2_MAX) THEN
Y_O2_MAX = YO2Z(I-1,J,K)
TMP_MIN = TMP(I-1,J,K)
ENDIF
IF (YY(I-1,J,K,I_FUEL)>Y_F_MAX) THEN
Y_F_MAX = YY(I-1,J,K,I_FUEL)
TMP_F_MIN = TMP(I-1,J,K)
ENDIF
ELSE
IW = IWA(-1)
IF (SURFACE(IJKW(5,IW))%SPECIES_BC_INDEX/=NO_MASS_FLUX) THEN
Y_SUM_W = 0._EB
DO N=1,N_SPECIES
IF (SPECIES(N)%MODE==GAS_SPECIES) THEN
Y_SUM_W = Y_SUM_W + YY_W(IW,N)
ENDIF
ENDDO
CALL GET_MASS_FRACTION2(YY_W(IW,I_FUEL),Z_2,YY_W(IW,I_PROG_F),O2_INDEX,Y_SUM_ W,YO2W)
IF (YO2W>Y_O2_MAX) THEN
Y_O2_MAX = YO2W
TMP_MIN = TMP_F(IW)
ENDIF
IF (MAX(0._EB,MIN(1._EB,YY_W(IW,I_FUEL)))>Y_F_MAX) THEN
Y_F_MAX = YY_W(IW,I_FUEL)
TMP_F_MIN = TMP_F(IW)
ENDIF
ENDIF
ENDIF
IF (IWA(1)==0) THEN
IF (YO2Z(I+1,J,K)>Y_O2_MAX) THEN
Y_O2_MAX = YO2Z(I+1,J,K)
TMP_MIN = TMP(I+1,J,K)
ENDIF
IF (YY(I+1,J,K,I_FUEL)>Y_F_MAX) THEN
Y_F_MAX = YY(I+1,J,K,I_FUEL)
TMP_F_MIN = TMP(I+1,J,K)
ENDIF
#580
Banned
![Default](https://rennlist.com/forums/images/icons/icon1.gif)
Tried it? BSOD on a runtime? Maybe, instead I'll try js or precompile some vb? Not sure how it will act for the MySQL calls and PHP handlers?
Posted from my iPhone.![Wink](https://rennlist.com/forums/images/smilies/wink.gif)
Posted from my iPhone.
![Wink](https://rennlist.com/forums/images/smilies/wink.gif)
Dude...? Interpreted languages....?
rwgarage_putInCache($userID, $use_username_in_link, $usepostid,
$onclick_launch_window, ' ');
$cacheHit = ' ';
Try...
PRODUCE_CO: IF (.NOT. CO_PRODUCTION) THEN !Combustion without CO formation and destruction
YO2Z => WORK1
Q = 0._EB
Z_2 = 0._EB
DO K=1,KBAR
DO J=1,JBAR
ILOOPA: DO I=1,IBAR
IF (SOLID(CELL_INDEX(I,J,K))) CYCLE ILOOPA
CALL GET_MASS_FRACTION2(YY(I,J,K,I_FUEL),Z_2,YY(I,J,K,I_PROG_F),O2_INDEX,Y_SU M(I,J,K),YO2Z(I,J,K))
ENDDO ILOOPA
ENDDO
ENDDO
YO2MIN = 1.E-10_EB
YFUMIN = 1.E-10_EB
!Loop and do F -> CO
RN => REACTION(1)
HFAC_F = RN%HEAT_OF_COMBUSTION/DT
SUPPRESSIONIF: IF (SUPPRESSION) THEN !TMP and Y_O2 dependent combustion
DO K=1,KBAR
DO J=1,JBAR
ILOOPB: DO I=1,IBAR
IC = CELL_INDEX(I,J,K)
IF (SOLID(IC)) CYCLE ILOOPB
IWA = WALL_INDEX(IC,![Smilie](https://rennlist.com/forums/images/smilies/smile.gif)
YO20 = YO2Z(I,J,K)
YFU0 = MAX(0._EB,MIN(1._EB,YY(I,J,K,I_FUEL)))*RN%Y_F_INLET
IF (YFU0<=YFUMIN .OR. YO20<=YO2MIN) CYCLE ILOOPB
!Get min O2
Y_O2_MAX = YO20
Y_F_MAX = YFU0/RN%Y_F_INLET
TMP_MIN = TMP(I,J,K)
TMP_F_MIN = TMP(I,J,K)
!Check neighboring cells for fuel and oxygen
!X direction
IF (IWA(-1)==0) THEN
IF (YO2Z(I-1,J,K)>Y_O2_MAX) THEN
Y_O2_MAX = YO2Z(I-1,J,K)
TMP_MIN = TMP(I-1,J,K)
ENDIF
IF (YY(I-1,J,K,I_FUEL)>Y_F_MAX) THEN
Y_F_MAX = YY(I-1,J,K,I_FUEL)
TMP_F_MIN = TMP(I-1,J,K)
ENDIF
ELSE
IW = IWA(-1)
IF (SURFACE(IJKW(5,IW))%SPECIES_BC_INDEX/=NO_MASS_FLUX) THEN
Y_SUM_W = 0._EB
DO N=1,N_SPECIES
IF (SPECIES(N)%MODE==GAS_SPECIES) THEN
Y_SUM_W = Y_SUM_W + YY_W(IW,N)
ENDIF
ENDDO
CALL GET_MASS_FRACTION2(YY_W(IW,I_FUEL),Z_2,YY_W(IW,I_PROG_F),O2_INDEX,Y_SUM_ W,YO2W)
IF (YO2W>Y_O2_MAX) THEN
Y_O2_MAX = YO2W
TMP_MIN = TMP_F(IW)
ENDIF
IF (MAX(0._EB,MIN(1._EB,YY_W(IW,I_FUEL)))>Y_F_MAX) THEN
Y_F_MAX = YY_W(IW,I_FUEL)
TMP_F_MIN = TMP_F(IW)
ENDIF
ENDIF
ENDIF
IF (IWA(1)==0) THEN
IF (YO2Z(I+1,J,K)>Y_O2_MAX) THEN
Y_O2_MAX = YO2Z(I+1,J,K)
TMP_MIN = TMP(I+1,J,K)
ENDIF
IF (YY(I+1,J,K,I_FUEL)>Y_F_MAX) THEN
Y_F_MAX = YY(I+1,J,K,I_FUEL)
TMP_F_MIN = TMP(I+1,J,K)
ENDIF
rwgarage_putInCache($userID, $use_username_in_link, $usepostid,
$onclick_launch_window, ' ');
$cacheHit = ' ';
Try...
PRODUCE_CO: IF (.NOT. CO_PRODUCTION) THEN !Combustion without CO formation and destruction
YO2Z => WORK1
Q = 0._EB
Z_2 = 0._EB
DO K=1,KBAR
DO J=1,JBAR
ILOOPA: DO I=1,IBAR
IF (SOLID(CELL_INDEX(I,J,K))) CYCLE ILOOPA
CALL GET_MASS_FRACTION2(YY(I,J,K,I_FUEL),Z_2,YY(I,J,K,I_PROG_F),O2_INDEX,Y_SU M(I,J,K),YO2Z(I,J,K))
ENDDO ILOOPA
ENDDO
ENDDO
YO2MIN = 1.E-10_EB
YFUMIN = 1.E-10_EB
!Loop and do F -> CO
RN => REACTION(1)
HFAC_F = RN%HEAT_OF_COMBUSTION/DT
SUPPRESSIONIF: IF (SUPPRESSION) THEN !TMP and Y_O2 dependent combustion
DO K=1,KBAR
DO J=1,JBAR
ILOOPB: DO I=1,IBAR
IC = CELL_INDEX(I,J,K)
IF (SOLID(IC)) CYCLE ILOOPB
IWA = WALL_INDEX(IC,
![Smilie](https://rennlist.com/forums/images/smilies/smile.gif)
YO20 = YO2Z(I,J,K)
YFU0 = MAX(0._EB,MIN(1._EB,YY(I,J,K,I_FUEL)))*RN%Y_F_INLET
IF (YFU0<=YFUMIN .OR. YO20<=YO2MIN) CYCLE ILOOPB
!Get min O2
Y_O2_MAX = YO20
Y_F_MAX = YFU0/RN%Y_F_INLET
TMP_MIN = TMP(I,J,K)
TMP_F_MIN = TMP(I,J,K)
!Check neighboring cells for fuel and oxygen
!X direction
IF (IWA(-1)==0) THEN
IF (YO2Z(I-1,J,K)>Y_O2_MAX) THEN
Y_O2_MAX = YO2Z(I-1,J,K)
TMP_MIN = TMP(I-1,J,K)
ENDIF
IF (YY(I-1,J,K,I_FUEL)>Y_F_MAX) THEN
Y_F_MAX = YY(I-1,J,K,I_FUEL)
TMP_F_MIN = TMP(I-1,J,K)
ENDIF
ELSE
IW = IWA(-1)
IF (SURFACE(IJKW(5,IW))%SPECIES_BC_INDEX/=NO_MASS_FLUX) THEN
Y_SUM_W = 0._EB
DO N=1,N_SPECIES
IF (SPECIES(N)%MODE==GAS_SPECIES) THEN
Y_SUM_W = Y_SUM_W + YY_W(IW,N)
ENDIF
ENDDO
CALL GET_MASS_FRACTION2(YY_W(IW,I_FUEL),Z_2,YY_W(IW,I_PROG_F),O2_INDEX,Y_SUM_ W,YO2W)
IF (YO2W>Y_O2_MAX) THEN
Y_O2_MAX = YO2W
TMP_MIN = TMP_F(IW)
ENDIF
IF (MAX(0._EB,MIN(1._EB,YY_W(IW,I_FUEL)))>Y_F_MAX) THEN
Y_F_MAX = YY_W(IW,I_FUEL)
TMP_F_MIN = TMP_F(IW)
ENDIF
ENDIF
ENDIF
IF (IWA(1)==0) THEN
IF (YO2Z(I+1,J,K)>Y_O2_MAX) THEN
Y_O2_MAX = YO2Z(I+1,J,K)
TMP_MIN = TMP(I+1,J,K)
ENDIF
IF (YY(I+1,J,K,I_FUEL)>Y_F_MAX) THEN
Y_F_MAX = YY(I+1,J,K,I_FUEL)
TMP_F_MIN = TMP(I+1,J,K)
ENDIF
#581
Three Wheelin'
Join Date: Jun 2008
Location: Surprise, Arizona
Posts: 1,914
Likes: 0
Received 0 Likes
on
0 Posts
![Default](https://rennlist.com/forums/images/icons/icon1.gif)
I'll just call this one DELETE COMMON SENSE...
I was wasting time at work looking for more stupid stuff to post on this worthless thread when I came across this....
I don't think I have ever seen anything as pathetic as this....![crying](https://rennlist.com/forums/graemlins/bigcry.gif)
WARNING!!! DO NOT CLICK THE LINK UNLESS YOU ARE PREPARED TO SERIOUSLY WASTE A FEW MOMENTS OF YOUR LIFE.....
http://www.newcougar.org/forums/vide...ut-cougar.html
I was wasting time at work looking for more stupid stuff to post on this worthless thread when I came across this....
I don't think I have ever seen anything as pathetic as this....
![crying](https://rennlist.com/forums/graemlins/bigcry.gif)
WARNING!!! DO NOT CLICK THE LINK UNLESS YOU ARE PREPARED TO SERIOUSLY WASTE A FEW MOMENTS OF YOUR LIFE.....
http://www.newcougar.org/forums/vide...ut-cougar.html
#583
Almost Deleted
Rennlist Member
Rennlist Member
#584
Banned
#585
Almost Deleted
Rennlist Member
Rennlist Member