Mercurial > public > mk2

comparison code_part1/OSTC_code_c_part2/p2_deco.c @ 786:0d1a82cdb3dc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
compute ceiling in calc_hauptroutine_update_tissues
author heinrichsweikamp
date Mon, 30 Jun 2014 11:01:22 +0200
parents b0c96aaa86e4
children 2a0e5d884fc3
comparison
equal deleted inserted replaced
785:b0c96aaa86e4 786:0d1a82cdb3dc
1039 calc_hauptroutine_data_input(); 1039 calc_hauptroutine_data_input();
1040 1040
1041 calc_hauptroutine_update_tissues(); 1041 calc_hauptroutine_update_tissues();
1042 calc_gradient_factor(); 1042 calc_gradient_factor();
1043 1043
1044 // Fill int_O_ceiling if ceiling is below the surface
1045 if ((calc_lead_tissue_limit-pres_surface)>0)
1046 int_O_ceiling = (short)((calc_lead_tissue_limit-pres_surface)*1000);
1047 else
1048 int_O_ceiling = 0;
1049
1050 // toggle between calculation for nullzeit (bottom time), 1044 // toggle between calculation for nullzeit (bottom time),
1051 // deco stops 1045 // deco stops
1052 // and more deco stops (continue) 1046 // and more deco stops (continue)
1053 switch( char_O_deco_status ) 1047 switch( char_O_deco_status )
1054 { 1048 {
1236 calc_tissue(1); 1230 calc_tissue(1);
1237 1231
1238 // Calc limit for surface, ie. GF_high. 1232 // Calc limit for surface, ie. GF_high.
1239 calc_limit(); 1233 calc_limit();
1240 1234
1241 int_O_gtissue_limit = (short)(calc_lead_tissue_limit * 1000); 1235 // Fill int_O_ceiling if ceiling is below the surface
1236 if ((calc_lead_tissue_limit-pres_surface)>0)
1237 int_O_ceiling = (short)((calc_lead_tissue_limit-pres_surface)*1000);
1238 else
1239 int_O_ceiling = 0;
1240
1242 int_O_gtissue_press = (short)((pres_tissue_N2[char_O_gtissue_no] + pres_tissue_He[char_O_gtissue_no]) * 1000); 1241 int_O_gtissue_press = (short)((pres_tissue_N2[char_O_gtissue_no] + pres_tissue_He[char_O_gtissue_no]) * 1000);
1243 } 1242 }
1244 1243
1245 1244
1246 ////////////////////////////////////////////////////////////////////////////// 1245 //////////////////////////////////////////////////////////////////////////////