{"id":119,"date":"2017-09-13T10:16:29","date_gmt":"2017-09-13T13:16:29","guid":{"rendered":"http:\/\/www.professores.uff.br\/diomarcesarlobao\/?page_id=119"},"modified":"2017-09-13T10:16:29","modified_gmt":"2017-09-13T13:16:29","slug":"htcoef3-f","status":"publish","type":"page","link":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/htcoef3-f\/","title":{"rendered":"htcoef3.f"},"content":{"rendered":"<pre>      program htcoef3\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,h,Re,Pr\r\n      real htc\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   h    -  heat transfer coefficient ( w\/m**2\/K)'\r\nc   k   -  conductivity ( w\/m\/K)'\r\nc   D   -  hydraulic diameter (m)\r\nc   Re  -  Reynolds number\r\nc\r\n      data k,D,Pr\/0.617,0.0254,1.0\/\r\nc\r\nc    Calculate and print Heat Transfer Coefficients for several\r\nc    Reynolds numbers.\r\nc\r\n      Re=10.\r\n      h=htc(Re,D,k,Pr)\r\n      call output (Re,h)\r\nc\r\n      h=htc(100.,D,k,Pr)\r\n      call output( 100., h)\r\nc\r\n      call output (1000.,htc(1000.,D,k,Pr))\r\nc\r\n      h=htc(1.e4,D,k,Pr)\r\n      call output(1.0e4,h)\r\nc\r\n      stop\r\n      end\r\nc\r\n      function htc(Re,Hd,k,Pr)\r\nc\r\nc    Calculate a heat transfer coefficient based on the maximum of the\r\nc    Laminar and Turbulent coefficients.  The turbulent coefficient is\r\nc    obtained from a Dittus-Boelter correlation\r\nc\r\n      implicit none\r\n      real Re,k,Hd,Pr,htc,Nulam,Nuturb\r\nc\r\nc   htc  -  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   Hd  -  hydraulic diameter (m)\r\nc   Re  -  Reynolds number\r\nc   Pr  -  Prandl number\r\nc\r\n      data Nulam \/ 4.0\/\r\nc\r\nc     One big advantage of isolating repeated operations in a single\r\nc     location is that you can change things quickly.  Here, I'm going\r\nc     to use what I know about the \"**\" operator to speed the calculation\r\nc     of \"Nuturb=0.023*Re**.8*Pr**0.4\r\nc\r\n      Nuturb=0.023*exp(log(Re)*0.8+log(Pr)*0.4)\r\n      htc=k\/Hd*max(Nulam,Nuturb)\r\n      return\r\n      end\r\nc\r\n      subroutine output ( Re, h)\r\nc   Print results to the screen\r\nc\r\n      implicit none\r\n      real Re, h\r\nc\r\nc   Re  -  Reynolds Number\r\nc   h   -  Heat Transfer Coefficient\r\nc\r\n      print *, 'For Reynolds Number = ',Re\r\n      print *, 'Heat Transfer Coefficient is ',h,' w\/m**2\/K'\r\n      return\r\n      end<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>program htcoef3 c c John Mahaffy, Penn State University, CmpSc 201 Example c 1\/26\/96 c implicit none real k,D,h,Re,Pr real htc c c Calculate an approximation for heat transfer coefficients c in a 1 inch pipe for several different Reynolds numbers c c h &#8211; heat transfer coefficient ( w\/m**2\/K)&#8217; c k &#8211; conductivity ( [&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-119","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/119","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=119"}],"version-history":[{"count":1,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/119\/revisions"}],"predecessor-version":[{"id":120,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/119\/revisions\/120"}],"wp:attachment":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/media?parent=119"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/categories?post=119"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/tags?post=119"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}