// EXTRADORSO
Lcorda = 1.0;
lc1 = Lcorda/100;
p0 = newp;     Point(p0)    =  { 0.          ,0.0         ,0.0,lc1};
pext1  = newp; Point(pext1) =  { 0.02081/100.,0.30156/100.,0.0,lc1};
pext2  = newp; Point(pext2) =  { 0.04404/100.,0.42896/100.,0.0,lc1};
pext3  = newp; Point(pext3) =  { 0.06768/100.,0.52722/100.,0.0,lc1};
pext4  = newp; Point(pext4) =  { 0.09152/100.,0.61014/100.,0.0,lc1};
pext5  = newp; Point(pext5) =  { 0.13960/100.,0.74893/100.,0.0,lc1};
pext6  = newp; Point(pext6) =  { 0.18798/100.,0.86523/100.,0.0,lc1};
pext7  = newp; Point(pext7) =  { 0.23657/100.,0.96695/100.,0.0,lc1};
pext8  = newp; Point(pext8) =  { 0.48113/100.,1.35796/100.,0.0,lc1};
pext9  = newp; Point(pext9) =  { 0.97387/100.,1.88041/100.,0.0,lc1};
pext10 = newp; Point(pext10) = { 1.96455/100.,2.55093/100.,0.0,lc1};
pext11 = newp; Point(pext11) = { 2.95765/100.,3.04662/100.,0.0,lc1};
pext12 = newp; Point(pext12) = { 3.95197/100.,3.45513/100.,0.0,lc1};
pext13 = newp; Point(pext13) = { 4.94700/100.,3.81238/100.,0.0,lc1};
pext14 = newp; Point(pext14) = { 5.94256/100.,4.13146/100.,0.0,lc1};
pext15 = newp; Point(pext15) = { 7.93488/100.,4.68303/100.,0.0,lc1};
pext16 = newp; Point(pext16) = { 8.93149/100.,4.92664/100.,0.0,lc1};
pext17 = newp; Point(pext17) = { 9.92833/100.,5.15290/100.,0.0,lc1};
pext18 = newp; Point(pext18) = {12.42134/100.,5.65480/100.,0.0,lc1};
pext19 = newp; Point(pext19) = {14.91534/100.,6.08503/100.,0.0,lc1};
pext20 = newp; Point(pext20) = {17.41017/100.,6.45565/100.,0.0,lc1};
pext21 = newp; Point(pext21) = {19.90572/100.,6.77428/100.,0.0,lc1};
pext22 = newp; Point(pext22) = {22.40189/100.,7.04807/100.,0.0,lc1};
pext23 = newp; Point(pext23) = {24.89862/100.,7.28205/100.,0.0,lc1};
pext24 = newp; Point(pext24) = {27.39588/100.,7.47781/100.,0.0,lc1};
pext25 = newp; Point(pext25) = {29.89362/100.,7.63869/100.,0.0,lc1};
pext26 = newp; Point(pext26) = {32.39183/100.,7.76567/100.,0.0,lc1};
pext27 = newp; Point(pext27) = {34.89050/100.,7.85958/100.,0.0,lc1};
pext28 = newp; Point(pext28) = {37.38961/100.,7.92244/100.,0.0,lc1};
pext29 = newp; Point(pext29) = {39.88915/100.,7.95402/100.,0.0,lc1};
pext30 = newp; Point(pext30) = {42.38911/100.,7.95538/100.,0.0,lc1};
pext31 = newp; Point(pext31) = {44.88952/100.,7.92429/100.,0.0,lc1};
pext32 = newp; Point(pext32) = {47.39037/100.,7.86115/100.,0.0,lc1};
pext33 = newp; Point(pext33) = {49.89173/100.,7.76188/100.,0.0,lc1};
pext34 = newp; Point(pext34) = {52.39361/100.,7.62416/100.,0.0,lc1};
pext35 = newp; Point(pext35) = {54.89615/100.,7.44017/100.,0.0,lc1};
pext36 = newp; Point(pext36) = {57.39940/100.,7.20512/100.,0.0,lc1};
pext37 = newp; Point(pext37) = {59.90348/100.,6.90951/100.,0.0,lc1};
pext38 = newp; Point(pext38) = {62.40846/100.,6.54873/100.,0.0,lc1};
pext39 = newp; Point(pext39) = {64.91438/100.,6.12047/100.,0.0,lc1};
pext40 = newp; Point(pext40) = {67.42112/100.,5.63390/100.,0.0,lc1};
pext41 = newp; Point(pext41) = {67.92255/100.,5.53066/100.,0.0,lc1};
pext42 = newp; Point(pext42) = {69.92846/100.,5.10353/100.,0.0,lc1};
pext43 = newp; Point(pext43) = {72.43610/100.,4.55240/100.,0.0,lc1};
pext44 = newp; Point(pext44) = {74.94381/100.,3.99538/100.,0.0,lc1};
pext45 = newp; Point(pext45) = {77.45122/100.,3.45993/100.,0.0,lc1};
pext46 = newp; Point(pext46) = {77.95268/100.,3.35463/100.,0.0,lc1};
pext47 = newp; Point(pext47) = {79.95843/100.,2.93932/100.,0.0,lc1};
pext48 = newp; Point(pext48) = {81.96388/100.,2.54604/100.,0.0,lc1};
pext49 = newp; Point(pext49) = {82.46519/100.,2.45092/100.,0.0,lc1};
pext50 = newp; Point(pext50) = {84.97156/100.,1.99073/100.,0.0,lc1};
pext51 = newp; Point(pext51) = {87.47744/100.,1.56566/100.,0.0,lc1};
pext52 = newp; Point(pext52) = {89.98261/100.,1.19208/100.,0.0,lc1};
pext53 = newp; Point(pext53) = {91.98638/100.,0.91876/100.,0.0,lc1};
pext54 = newp; Point(pext54) = {92.48728/100.,0.85371/100.,0.0,lc1};
pext55 = newp; Point(pext55) = {94.99137/100.,0.55808/100.,0.0,lc1};
pext56 = newp; Point(pext56) = {97.49509/100.,0.28859/100.,0.0,lc1};
pext57 = newp; Point(pext57) = {97.99575/100.,0.24050/100.,0.0,lc1};
pext58 = newp; Point(pext58) = {98.99698/100.,0.15154/100.,0.0,lc1};
pext59 = newp; Point(pext59) = {100.0000/100.,0.06699/100.,0.0,0.0009};
//
// INTRADORSO
//
pint1  = newp; Point(pint1) =  { 0.02722/100.0,-0.15952/100.,0.0,lc1};
pint2  = newp; Point(pint2) =  { 0.05319/100.0,-0.22948/100.,0.0,lc1};
pint3  = newp; Point(pint3) =  { 0.07896/100.0,-0.28494/100.,0.0,lc1};
pint4  = newp; Point(pint4) =  { 0.10462/100.0,-0.33303/100.,0.0,lc1};
pint5  = newp; Point(pint5) =  { 0.15579/100.0,-0.41686/100.,0.0,lc1};
pint6  = newp; Point(pint6) =  { 0.20680/100.0,-0.48937/100.,0.0,lc1};
pint7  = newp; Point(pint7) =  { 0.25768/100.0,-0.55288/100.,0.0,lc1};
pint8  = newp; Point(pint8) =  { 0.51095/100.0,-0.78869/100.,0.0,lc1};
pint9  = newp; Point(pint9) =  { 1.01535/100.0,-1.10600/100.,0.0,lc1};
pint10 = newp; Point(pint10) = { 2.02114/100.0,-1.52308/100.,0.0,lc1};
pint11 = newp; Point(pint11) = { 3.02550/100.0,-1.83788/100.,0.0,lc1};
pint12 = newp; Point(pint12) = { 4.02912/100.0,-2.09903/100.,0.0,lc1};
pint13 = newp; Point(pint13) = { 5.03219/100.0,-2.32064/100.,0.0,lc1};
pint14 = newp; Point(pint14) = { 6.03492/100.0,-2.5182 /100.,0.0,lc1};
pint15 = newp; Point(pint15) = { 8.03972/100.0,-2.86494/100.,0.0,lc1};
pint16 = newp; Point(pint16) = { 9.04188/100.0,-3.02069/100.,0.0,lc1};
pint17 = newp; Point(pint17) = {10.04391/100.0,-3.16799/100.,0.0,lc1};
pint18 = newp; Point(pint18) = {12.54849/100.0,-3.49892/100.,0.0,lc1};
pint19 = newp; Point(pint19) = {15.05247/100.0,-3.78769/100.,0.0,lc1};
pint20 = newp; Point(pint20) = {17.55594/100.0,-4.03926/100.,0.0,lc1};
pint21 = newp; Point(pint21) = {20.05894/100.0,-4.25688/100.,0.0,lc1};
pint22 = newp; Point(pint22) = {22.56161/100.0,-4.45036/100.,0.0,lc1};
pint23 = newp; Point(pint23) = {25.06398/100.0,-4.6231 /100.,0.0,lc1};
pint24 = newp; Point(pint24) = {27.56608/100.0,-4.7753 /100.,0.0,lc1};
pint25 = newp; Point(pint25) = {30.06791/100.0,-4.90918/100.,0.0,lc1};
pint26 = newp; Point(pint26) = {32.56950/100.0,-5.02523/100.,0.0,lc1};
pint27 = newp; Point(pint27) = {35.07084/100.0,-5.12314/100.,0.0,lc1};
pint28 = newp; Point(pint28) = {37.57190/100.0,-5.20125/100.,0.0,lc1};
pint29 = newp; Point(pint29) = {40.07270/100.0,-5.2605 /100.,0.0,lc1};
pint30 = newp; Point(pint30) = {42.57324/100.0,-5.30064/100.,0.0,lc1};
pint31 = newp; Point(pint31) = {45.07349/100.0,-5.32088/100.,0.0,lc1};
pint32 = newp; Point(pint32) = {47.57345/100.0,-5.31965/100.,0.0,lc1};
pint33 = newp; Point(pint33) = {50.07319/100.0,-5.30259/100.,0.0,lc1};
pint34 = newp; Point(pint34) = {52.57273/100.0,-5.27197/100.,0.0,lc1};
pint35 = newp; Point(pint35) = {55.07193/100.0,-5.2153 /100.,0.0,lc1};
pint36 = newp; Point(pint36) = {57.57076/100.0,-5.13265/100.,0.0,lc1};
pint37 = newp; Point(pint37) = {60.06921/100.0,-5.02214/100.,0.0,lc1};
pint38 = newp; Point(pint38) = {62.56720/100.0,-4.87928/100.,0.0,lc1};
pint39 = newp; Point(pint39) = {65.06455/100.0,-4.6902 /100.,0.0,lc1};
pint40 = newp; Point(pint40) = {67.56113/100.0,-4.44586/100.,0.0,lc1};
pint41 = newp; Point(pint41) = {68.06035/100.0,-4.38963/100.,0.0,lc1};
pint42 = newp; Point(pint42) = {70.05657/100.0,-4.11985/100.,0.0,lc1};
pint43 = newp; Point(pint43) = {72.54971/100.0,-3.62719/100.,0.0,lc1};
pint44 = newp; Point(pint44) = {75.04186/100.0,-3.06382/100.,0.0,lc1};
pint45 = newp; Point(pint45) = {77.53537/100.0,-2.59808/100.,0.0,lc1};
pint46 = newp; Point(pint46) = {78.03422/100.0,-2.51533/100.,0.0,lc1};
pint47 = newp; Point(pint47) = {80.02983/100.0,-2.20149/100.,0.0,lc1};
pint48 = newp; Point(pint48) = {82.02578/100.0,-1.91028/100.,0.0,lc1};
pint49 = newp; Point(pint49) = {82.52481/100.0,-1.84089/100.,0.0,lc1};
pint50 = newp; Point(pint50) = {85.02025/100.0,-1.5141 /100.,0.0,lc1};
pint51 = newp; Point(pint51) = {87.51609/100.0,-1.21685/100.,0.0,lc1};
pint52 = newp; Point(pint52) = {90.01219/100.0,-0.93751/100.,0.0,lc1};
pint53 = newp; Point(pint53) = {92.00921/100.0,-0.72401/100.,0.0,lc1};
pint54 = newp; Point(pint54) = {92.50848/100.0,-0.67255/100.,0.0,lc1};
pint55 = newp; Point(pint55) = {95.00512/100.0,-0.4323 /100.,0.0,lc1};
pint56 = newp; Point(pint56) = {97.50227/100.0,-0.22855/100.,0.0,lc1};
pint57 = newp; Point(pint57) = {98.00178/100.0,-0.19329/100.,0.0,lc1};
pint58 = newp; Point(pint58) = {99.00086/100.0,-0.12757/100.,0.0,lc1};
pint59 = newp; Point(pint59) = {100.0000/100.0,-0.06699/100.,0.0,0.0009};

c1 = newreg; CatmullRom(c1) = {12,11,10,9,8,7,6,5,4,3,2,1,61,62,63,64,65,66,67,68,69,70,71,72};
c2 = newreg; CatmullRom(c2) = {12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39};
c3 = newreg; CatmullRom(c3) = {72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98};
c4 = newreg; CatmullRom(c4) = {39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60};
c5 = newreg; CatmullRom(c5) = {98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119};
c6 = newreg; Line(c6) = {119,60};

Transfinite Line  {c1} = 30 Using Bump 3;
Transfinite Line  {c2,c3} = 40 Using Bump 1/4;
Transfinite Line  {c4,c5} = 20 Using Bump 1/5;
Transfinite Line  {c6} = 1;
lc3 = Lcorda/300;
lc5 = Lcorda/110;
Point(120) = {-0.09,0.3,0,lc5};
Point(121) = {-0.3,0,0,lc5};
Point(122) = {-0.05,-0.3,0,lc5};
Point(123) = {0.67,0.27,0,lc5};
Point(124) = {0.65,-0.27,0,lc5};
Point(125) = {1.03,-0.25,0,lc5};
Point(126) = {1.02,0.25,0,lc3};
Line(7) = {12,120};
Line(8) = {72,122};
Point(128) = {-0.18,0.21,0,lc5};
Point(129) = {-0.18,-0.21,0,lc5};
CatmullRom(9) = {120,128,121,129,122};
Line(10) = {39,123};
Line(11) = {98,124};
Line(12) = {119,125};
Line(13) = {60,126};
Point(130) = {0.531056,0.300209,0,lc5};
Point(131) = {0.341211,0.331258,0,lc5};
Point(132) = {0.0909927,0.339901,0,lc5};
Point(133) = {-0.0556952,0.319164,0,lc5};
Point(134) = {-0.0159889,-0.312443,0,lc5};
Point(135) = {0.515525,-0.29172,0,lc5};
Point(136) = {0.322242,-0.32,0,lc5};
Point(137) = {0.109976,-0.329714,0,lc5};
CatmullRom(15) = {120,133,132,131,130,123};
CatmullRom(16) = {122,134,137,136,135,124};
Line(17) = {123,126};
Line(18) = {124,125};
//
Transfinite Line {1} = 30 Using Bump 3;
Transfinite Line {9} = 30;
BLNNode = 20;
Transfinite Line {7,10,13,12,11,8} = BLNNode Using Progression 1.2;
//
lc4 = Lcorda/100;
Point(138) = {1.25459,0.00605192,0.00448358,lc4};
Point(139) = {1.143,-0.208675,0.00558128,lc4};
Point(140) = {1.22063,-0.123091,0.00504625,lc4};
Point(141) = {1.22618,0.114776,0.00259643,lc4};
Point(142) = {1.12569,0.22684,0.000970006,lc4};

Transfinite Line {2} = 40 Using Bump 1/4;
Transfinite Line {15} = 40;
Transfinite Line {3} = 40 Using Bump 1/4;
Transfinite Line {16} = 40;
Transfinite Line {4} = 20 Using Bump 1/5;
Transfinite Line {17} = 20;
Transfinite Line {5} = 20 Using Bump 1/5;
Transfinite Line {18} = 20;
CatmullRom(19) = {125,139,140,138,141,142,126};
Line Loop(20) = {1,8,-9,-7};
Ruled Surface(21) = {20};
Line Loop(22) = {2,10,-15,-7};
Ruled Surface(23) = {22};
Line Loop(24) = {4,13,-17,-10};
Ruled Surface(25) = {24};
Line Loop(26) = {3,11,-16,-8};
Ruled Surface(27) = {26};
Line Loop(28) = {5,12,-18,-11};
Ruled Surface(29) = {28};
Line Loop(30) = {6,13,-19,-12};
Plane Surface(31) = {30};
lc2=Lcorda/2.5;
Point(143) = {0.0,10.0,0.0,lc2};
Point(144) = {-10.0,0.0,0.00,lc2};
Point(145) = {0.0,-10.0,0.0,lc2};
Point(146) = {10.0,0.0,0.0,lc2};

Circle(32) = {145,1,144};
Circle(33) = {144,1,143};
Circle(34) = {143,1,146};
Circle(35) = {146,1,145};
//
Transfinite Surface {23} = {12,39,123,120};
Transfinite Surface {21} = {12,120,122,72};
Transfinite Surface {27} = {72,122,124,98};
Transfinite Surface {25} = {60,126,123,39};
Transfinite Surface {29} = {98,124,125,119};
Line Loop(36) = {33,34,35,32};
Line Loop(37) = {9,16,18,19,-17,-15};
Plane Surface(38) = {36,37};
Recombine Surface {25,23,21,27,29};
spanwise = 3.0;


Extrude Surface { 21, {0,0.0,spanwise} } { 
  Recombine; Layers { {20}, {9000}, {1} }; 
};

Extrude Surface { 23, {0,0.0,spanwise} } { 
  Recombine; Layers { {20}, {9000}, {1} }; 
};
Extrude Surface { 25, {0,0.0,spanwise} } { 
  Recombine; Layers { {20}, {9000}, {1} }; 
};
Extrude Surface { 31, {0,0.0,spanwise} } { 
  Recombine; Layers { {20}, {9000}, {1} }; 
};
Extrude Surface { 29, {0,0.0,3.0} } { 
  Recombine; Layers { {20}, {9000}, {1} }; 
};
Extrude Surface { 27, {0,0.0,spanwise} } { 
  Recombine; Layers { {20}, {9000}, {1} }; 
};


Extrude Line {33, {0.0,0.0,spanwise}};
Extrude Line {34, {0.0,0.0,spanwise}};
Extrude Line {35, {0.0,0.0,spanwise}};
Extrude Line {32, {0.0,0.0,spanwise}};
Line Loop(187) = {183,171,175,179};
Line Loop(188) = {152,42,-64,-86,108,130};
Plane Surface(189) = {187,188};
Surface Loop(190) = {186,-38,174,178,182,189,-143,-165,-55,77,99,-121};
NumVolExt = newreg; Volume(NumVolExt) = {190};
Printf("NumVolExt = %g", NumVolExt);
//
SuperfAsa = 400;
Physical Surface(SuperfAsa) = {121,99,209,187,143,165};
Simetria1 = 500;
Physical Surface(Simetria1) = {21,23,25,31,29,27,38};
Simetria2 = 600;
Physical Surface(Simetria2) = {112,134,222,200,156,178,90};
Inlet = 700;
Physical Surface(Inlet) = {65,53};
Outlet = 800;
Physical Surface(Outlet) = {57,61};
VolumePhycId = 900;
Physical Volume(VolumePhycId) = {NumVolExt,9000};

Coherence;

