ࡱ> Root EntryRoot Entry@o1FileHeaderWDocInfoN.BodyText P1P%1  !"#$%&'()HwpSummaryInformation.FPrvImage c PrvTextDocOptions @o1@o1Scripts @o1@o1JScriptVersion ^DefaultJScript[_LinkDoc_  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEGHIJKLMOPQRSTUVXYZ\]`abcdefgC************************************************************************************************* C NUMERICAL SIMULATION OF KARMAN VORTEX BY "SOLA" SCHEME. C 2-D, IMCOMPRESSIBLE, VISCOUS AND UNSTEADY FLOW AROUND A C SQUARE BODY. C ORIGINALLY WRITTEN ON : JULY 8, 1987 BY LEE YOUNG-HO. C C (((((((((((((((((( 2008/10/20 ))))))))))))))))))))) C C FOR UNDER GRADUATE LECTURE C PROGRAM NAME:"KARTEST.FOR" C************************************************************************************************* C PROGRAM KARTEST IMPLICIT REAL*8(A-H,O-Z) ; 0ijĬ PARAMETER(MX=52,NY=36) ; l0 x x y=52 x 36 C CHARACTER*1 FILEOUT,PREM2 CHGIF89aɻxxxkkk]]]PPPCCC555((( d`LH00`Hذ̘`H0|pdXL@`0H `H0`dHL`H0xp`XH@0d LȰ``HH00dLؘȀ`H0xp`XH@d0L `H0d`LH`H0|pdXL@0`$H`dHL00`HذȘdL0xp`XH@0` HdH0ȳ``HHdL0xp`XH@`0H Ը̰ĠऀؘpȈXxHp@h@d8`8X0xT0pH dxddxd`d`p`|``x`p``x`!, H*\ȰÇ#JHŋ3jȱǏ CIɓ(S\ɲ˗0cʜI͛8sɳϟ@ JѣH*]ʴӧPJJիXjʵׯ`ÊK,e=˶۷pʝK]PϦwނkoUXq!'62ڧ;\fȌp7'ƜyӪ -ȵڠmےk~]84bϜoSfike}gK&sʷM=7xrҏOn޷}ʿw}<']rkG^` ƶz9wP7m%݀b1 vc!o]Hx.E"e'sjqȤZvw}ɦh.*m9_!馜锥dh#_!Z%g!ѪQwz+(5x*nXr- hƞ&`զީzV)bn(_ѲJo2a嵚/ʊlB g\bxUCx  ggӾ%{/\=j;)h02chݶ33svl mGsqҚ1-6+fb(u7稝 N, O{nS$Uu5ڜzuyN}wyߜ2"Zv|Jy^Jf,w %8Ksn:'-ެwG4#=%VXo7jK~o[m{^ͩu؆pgiT'ė֡|[E5{59;.α/n޵{6 Kk+ {-*] `ujsXZ-fߥw?D__ҽWYMxrW=FN2|ݏ|Nt1tÚiGT%I9݀gj8)Bm"N S.f9!MZ17v+Aӕ(1ԋ:EhBPQf#'X(_3Q8 4T=3$4;/ ܤ;Cjed)2J.a푸%^F] V8eiP^%x&ǍS&7/Wf:<=QD'8vOOÓr%*Ra7g/ݖ1s|[!$Ma\ "˝ӝ X#LA3M3W4e8|(*=zXݘ)/0RҬym"}u8NFGz(D"bԍTASSp\iɳ m{DipVe'4%NQEunb\ր'Tͪ7"S=Zq[}P:n-[*::so2Vrha ]]eޭ,V6ֻLbgk58EF<;IB>}~5ՠD4՘iͽP8" c:ЍtKZͮvz J;`a``a`0x ( P \ ht| Xttt̹@\LYH1983D 9 13| T֔|, 7 0  LEE6, 0, 0, 597 6@pbeW1@P%1@͕?LAƿ;CbIA &X\1XX!A Q(D;I%Y &rR&™X\Ch,()--LeJw7o߼UAbKR)mȻl렰OcВUu˳]WYSection0)۹;?(c,;X 1.as1<[vmn`Ձ˂ x2a/e3M^;.k &ޕՈO >"3QN W:wtgD_w~?e8 ?s݀wTej#uء3LGƂtmgKNo%|>(tY(MQ:n9/O-Q|ޜ~DfDT^T+UUiJmSZ/5pJ >Γ:\\+Cr=B${{s7̍rƘg(2̣Ψ,fv; knXrqJ.Qc]QajhF)F[8)k9oeqxD =`XOascmN)[JG]VHWP Document FileuPDO pKmXXXIkGBQ2\Qd&M*Z:3G1>$(Ygz]2V!3N lٹӹ'BkR2D49jcd`߈ C************************************************************************************************* C PROGRAM KARTEST IMPLICIT REAL*8(A-H,O-Z) ; 0ijĬ PARAMETER(MX=52,NY=36) ; l0 x x y=52 x 36 C CHARACTER*1 FILEOUT,PREM2 WklU;ᑰ (IM;&LۯNlwn;mVQFk;H2Re ~DZD$+&0"DNڑ& EV HY40{U{t%YvT]]U};mUUVJp>T*ZXˇ/~O-4!q.7<],W*76#)W:w*BǼ:L;&|.')|. ~>ɱpj|%wg  qwKBu 6>ծ*ulgVUwOΙĿ(~W4WKӽmX? *5|'dMJ͛-\#e9+W{axVx1S%U'^]:݌ΑPk8w7uSzR?7J5@Q*dUӅѴ#_-#dgǎ/{G_v#J>MGڌ5/}7+E+>Jۑ= #`eҎ _D<ƶCk抃JEj.X۱|&i zxfL=3# )͏MA;戌ΕK&?]<RTxhvQ^F;Wvikn}bl}#7]B^뤁:x41w4I\܋N3`VG=ٙ̚3S9;d/G:tM|ꁦܩc!\oQ};1y4\IGS:[x|w^%{R0Du8e bHEϤMҝĨǎsCծͣT?U=Z."5n0e4" ه]axH Ho&>{V,yڣ=?PQT;6 cxZz/-;s2V<6X'>nj<&D)Kqj~lY+x׳= ȇ"da:$ ;v4f햧ɖ&yFI}7Xk1ɫE'x;ʑyu˽@w|uهu$毃 #͔z/E:h~=io@uMpݧ:+iuUxq[iW{ҁt3AsG}Z ;n28L?wtS9J1r ð_?bI5 o # *źQFs?E^%s)/&.m~THL#O?!&ګ+L±KR~e$/2H&~"DZ޵w2ɫnj5f>J5u@Nt׏_ֵ3yxd˫: yv'z.tq nTE1j3CGy}^#;%{YY$wˢ*ldz#y8S⤂)?B]Ugg&kk8?ٯR6_:TqpÿmČcܤuyf6WT 3mQPV#EݿQKusڋ_of0|ߩԄyfr*W{Wυ&Ÿ~<ʖ 4#GcO;< M`rI *7eo9cPW{QU6NpreGMFsSIvo9]{n 78̷g #_ȾVƣTM^ɫί=92K33xrEq}sǦ%>^?CU"OT>^}G )ŷw;œg_U4':T.qD՞{O̎̎NrܙZqN8}?zeً3U?Q9| hϊ1Wu9v=e); =c +jb- kUօl0 eO#GNBΡ"LyG5+8Q<_KoPnݧӜ=\c𥉉:OU^QUSDHUӽdؒc*v捅dsSe_/nC'C8b;^²o.Z ةGZS!{x|F{=bb.OL7lEh~l =kߵnN^沿7"ZY_Ũ9PSD?kn;)hG/5 @nڷO(N3>Z!lZI4HO7HQ",f4r m'ElѼFbbav4m.;Bfӣ9r͏5YƛH 5qTD̪JoCeLϵr`S7):nsv̵;d)wW %h Po@f,ߨ!)t#ރ9mxb#۪nzMZ[Pn]2NȫX4*'hDb0<(RFURg7ߑWx9i;rOlNѴX- >yZ_?+˭ʢ=r8 %UOS1˥olE>*Ǘ%ܣѫXӍ;}кAE4NWԳN=SCpJdƧ4/iEls(7|!"I(&ؿS3DZ!m®*~>d&n4()FF|$l/xɫV݅ ӞÎaT i,dxm0ɠ}oL|~M,*ͯl/x~}M^,Lڪ^lkC߇..vp#:xsI_^z幆}M::)EښtU)<7EDr2њW]MoE'F x/)XNN#ehڋ'95>EZ7o$ 'w3H%j&j[gucxzsj|!ZgFͦ-+bI{$?mkCz^h:?\B?Jz}v)w²:\=o_TʇefdqL Z~Bv,&5~SQ:O1 ɫGa"_θGqy(7I: @}ҢGdA*ݣTc`eAҪp#H~[3T |1J>T}VIcw )=ݘ5aϷ鶼'QOֶ[#2F2{L#i}Z9prf*&۬gr?̛{MGmDR]Zgw=* ٍ;;uo(z3M4a_oc"fR<6"wCrEw!`pE 53Z{E<9I^ǬӆWt}\e% ޏض7n΢N$x[lj"B\ѽf7b?M3l3^ߎwGy j{aV% UeeyJ.dd9 *)9~O—N:ͳ3GfG'co>މosZCzVvkI~Ngȫ 4zD"\$HhJ}ځ}xG'*i$/_!yU͏*J%Bà]KbLV >DGY"^|fĤ:W&/i9\Af{G,)TIVmW{qe]=zBHs>ۻ1W+ȗ y1[?WÎyUFlTT 1m~泗؏eqEe;rz4{CG?}%?w~YG.~:{ߟr&.dGE'køƹ nw_D,9˨Ř{}\㣜!oĩ#]}"U&ĩQnh`OqUo>SZSwޖmcuw߲]:"`F}RHզ7MzbKۢ6ܜW}e܇ C7wkU{'"jl7׺=ɖR[vwJf)Iue29?![435 cW]/Q";!\؜(kI]IvEp(qa)LUuBcBsd/ouV?mUsy4f!c唝+D?E9idHN-8yZva%o4oB 4"6|szgbGڋs:GƷҞw7cb8;T3:3hsY:zI>ƻ2<bgN~y2JӨoGL:~E}[KT)b}s^B^IݦvD]NߋW—{z`;IlYU}(xø^-Օ}%P˱Ň=>=H-{P|'}v췲5N^N͍kidL \WT M'=WaG:G)rժnh]rx%жCWI9{4rY:I]jأv 'EA_iGg4}A}u>GIقvVQ4*c,_WWfJlaGd[Wu8&/&ԉ3|h= s*&+o:h,TQ'|w=F:?K١R(AdGvj^\VZfh+LQurpy,{BkERN}fNg?"pDazӅGwɈ9ķ-oxz`jJ.|lD _""VΊ3zUd_x3X-Q<ŠpDWEWcGڲfb|YZu'o~wv8&s!#bϯ(e!=3E6mLݹʳy{UC28a[Fq]2"s.#2jZ;l)`!9͎aa![ݍa0${\}LẀ1xqۉ>=T}A'A4ʘ[8V1ߍة5ޘ)1U<)ib%SyUFM*`꣨+ddkd6nwcU˶3ȑ7U+U (RR .{p D%㽱Nz]yǎyom~VT7M2clbi:oEb Fv ]9d@fs߿ਫ&#W]I6G?~lHNƦp.r<01#PY&} LxeNIwUՙѦ[MڦEwNQhhI2&M&@ ݊5ml~0[JY PaVZhJƐtFh 뢸"? B>sssϽn0㝛;zscUbQ rT$ҕfZNa |\yQ>a }Ӡ2}`4b!>`6e^xX*k8E))jSfu N?S?cgl|S\ce@p;EٟQ^)Fѝ- E|sI$STqһ.we#I>9NcF#̥C +Ev)&>FDp?Z>|F&cʆT)sh&^ncLj+eOԅ Odמcתgpt!f.MROs;GMJ94Wh矔O555U="+GQƃG{Ȳ< *p9* _ɘ|j8N׳P{JNev&S8k]wܚ=v(PSqNz*>zw^پ#TXJwi`J6Tr>]$sB2Mdi-Qx7Cp eৡef?;8XzSGSqsb]'T&T09܉ =@j/iGB+~SĨ֦a>#>_˧>i:n[InGg;Sa:Dː(GZ]DomDn]iZ 2^|Vn5H,S^ʾG3kxXu>eP>C^x䩏S+Wo/C;OV',/,NwSكpRKC'dge'&d{7|S\r,ǶЁ>˯T:zO|*VKOnU}3q*eβ+ӍmOqsr{`aO]D"9!bo5?lj6 0ýi6˞Č|j.WҿK/q|N>ՏѬ*/G,Sq;5-r:{DSoqCuT;?s&g*?gM'M_U99.FnS;Jz&}9s{X~X![vla{@Zբ6c@O9V-pg%_ Gy-̊- 7qQI&NI?0ag֬) L9Bf0~ tR|i=9TkG* tx㙳gwl,xcnE[4Az`bzT>J!z]N]:Wt~vyh\Qo7@᳆<~kC}šKUyԼkvCq&> 98hdp0![ _SD#)J?) E)ԧfDŽcw .џ+DS9?- Ϩ!Rvi DIYmN~#el9lA6M7}-OȖF3=(Cl-;ur+ԇگ42vM:ִjqiW^kB6=21ރO}rIό'枝֕rT|7?`8)n;p,ЉtכbPwD|m(-ޑO}jseI5`2L?7T`i+ O򩫭fvJQ4D8?2*:ծF+b$5K*mnjil?)dև>\鮲5Q/9iOwco3ȔKqTsRϤ,0 konUˡS'~I!^8z1Ge/t( kydIjtAScӲMG(G9m֚yɑa fJwL{kl? W&f #PLҕկr]Oڴ68јpUciZi{\ js_?e=<;kr7qn9FEe\yI޻>NVn:CUZnZ,]M'ϐuݪ-# 8'bm't9sﱔS-S׳۩,ކ5{wtX*!FgS'??;ȅe|CJ6R[*woxQ'=qgS4`j<-(}콪^Ga@tAxuM1dp^W<(vPEKDP=cckCsPhR مl=,kpNLCE v:#ۇ#q:ceI_4=؂Nm3SӾϡ>#{PVʽk0mX~1.~;~80gWb".+ E~Q(X-e{PɧˮE0'u$6ULߍ"~AkJm?Y>~[cзAE_{ :YO??]6Er's u̙ #Sʟ=b\ȑ jNS}=X= +qԮ }. 'Su@c:%}e\<Q4 u׈YSjq߆̧kZ'{>S3yȮsn{ޏXs(v`0Y}VYg/˞Ug|DeW]O"-ԗ:y@M\8tɻceǻxC>՟,DE^(ܔO}hj>s۲_0vZ]vW)ޑT(%CkƵV*1oJ;"f"[?V