{"id":113,"date":"2017-09-13T10:13:22","date_gmt":"2017-09-13T13:13:22","guid":{"rendered":"http:\/\/www.professores.uff.br\/diomarcesarlobao\/?page_id=113"},"modified":"2017-09-13T10:13:22","modified_gmt":"2017-09-13T13:13:22","slug":"htcoef-f","status":"publish","type":"page","link":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/htcoef-f\/","title":{"rendered":"htcoef.f"},"content":{"rendered":"<pre>      program htcoef\r\nc\r\nc       John Mahaffy,  Penn State University, CmpSc 201 Example\r\nc       1\/26\/96\r\nc\r\n      implicit none\r\n      real k,D,Pr,h,Nulam,Nuturb\r\n      real Re1,Re2,Re3,Re4\r\nc\r\nc    Calculate an approximation for heat transfer coefficients\r\nc    in a 1 inch pipe for several different Reynolds numbers\r\nc\r\nc    An example of why you should learn to use subprograms\r\nc\r\nc   h    -  heat transfer coefficient ( w\/m**2\/K)'\r\nc   Nulam - laminar Nusselt number\r\nc   Nuturb - Turbulent Nusselt number (Dittus-Boelter correlation)\r\nc   k   -  conductivity ( w\/m\/K)'\r\nc   D   -  hydraulic diameter (m)\r\nc   Re  -  Reynolds number\r\nc   Pr  -  Prandl number\r\nc\r\n      data k,D,Pr\/0.617,0.0254,1.0\/, Nulam\/4.0\/\r\nc\r\nc    Each of the following blocks assigns a Reynolds number, calculates\r\nc    an associated Turbulent Nusselt number and calculates the heat\r\nc    transfer coefficient based on the maximum of Turbulent and Laminar\r\nc    Nusselt Numbers\r\nc\r\n      Re1=10.\r\n      Nuturb=0.023*Re1**0.8*Pr**0.4\r\n      h=k\/D*max(Nulam,Nuturb)\r\n      print *, 'For Reynolds Number = ',Re1\r\n      print *, 'Heat Transfer Coefficient is ',h,' w\/m**2\/K'\r\nc\r\n      Re2=100.\r\n      Nuturb=0.023*Re2**0.8*Pr**0.4\r\n      h=k\/D*max(Nulam,Nuturb)\r\n      print *, 'For Reynolds Number = ',Re2\r\n      print *, 'Heat Transfer Coefficient is ',h,' w\/m**2\/K'\r\nc\r\n      Re3=1000.\r\n      Nuturb=0.023*Re3**0.8*Pr**0.4\r\n      h=k\/D*max(Nulam,Nuturb)\r\n      print *, 'For Reynolds Number = ',Re3\r\n      print *, 'Heat Transfer Coefficient is ',h,' w\/m**2\/K'\r\nc\r\n      Re4=10000.\r\n      Nuturb=0.023*Re4**0.8*Pr**0.4\r\n      h=k\/D*max(Nulam,Nuturb)\r\n      print *, 'For Reynolds Number = ',Re4\r\n      print *, 'Heat Transfer Coefficient is ',h,' w\/m**2\/K'\r\nc\r\n      stop\r\n      end<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>program htcoef c c John Mahaffy, Penn State University, CmpSc 201 Example c 1\/26\/96 c implicit none real k,D,Pr,h,Nulam,Nuturb real Re1,Re2,Re3,Re4 c c Calculate an approximation for heat transfer coefficients c in a 1 inch pipe for several different Reynolds numbers c c An example of why you should learn to use subprograms c c [&hellip;]<\/p>\n","protected":false},"author":22,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"_exactmetrics_skip_tracking":false,"_exactmetrics_sitenote_active":false,"_exactmetrics_sitenote_note":"","_exactmetrics_sitenote_category":0,"footnotes":""},"categories":[],"tags":[],"class_list":["post-113","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/113","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/users\/22"}],"replies":[{"embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/comments?post=113"}],"version-history":[{"count":1,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/113\/revisions"}],"predecessor-version":[{"id":114,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/113\/revisions\/114"}],"wp:attachment":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/media?parent=113"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/categories?post=113"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/tags?post=113"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}