{"id":115,"date":"2017-09-13T10:14:47","date_gmt":"2017-09-13T13:14:47","guid":{"rendered":"http:\/\/www.professores.uff.br\/diomarcesarlobao\/?page_id=115"},"modified":"2017-09-13T10:14:47","modified_gmt":"2017-09-13T13:14:47","slug":"htcoef1-f","status":"publish","type":"page","link":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/htcoef1-f\/","title":{"rendered":"htcoef1.f"},"content":{"rendered":"<pre>      program htcoef1\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    Each of the following blocks obtains a heat transfer coefficient\r\nc    from a function named \"htc\", that is defined after the main routine\r\nc\r\n      Re=10.\r\n      h=htc(Re,D,k,Pr)\r\n      print *, 'For Reynolds Number = ',Re\r\n      print *, 'Heat Transfer Coefficient is ',h,' w\/m**2\/K'\r\nc\r\n      h=htc(100.,D,k,Pr)\r\n      print *, 'For Reynolds Number = 100.'\r\n      print *, 'Heat Transfer Coefficient is ',h,' w\/m**2\/K'\r\nc\r\n      h=htc(1000.,D,k,Pr)\r\n      print *, 'For Reynolds Number = 1000'\r\n      print *, 'Heat Transfer Coefficient is ',h,' w\/m**2\/K'\r\nc\r\n      h=htc(1.0e4,D,k,Pr)\r\n      print *, 'For Reynolds Number = 10,000'\r\n      print *, 'Heat Transfer Coefficient is ',h,' w\/m**2\/K'\r\nc\r\n      stop\r\n      end\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\n      Nuturb=0.023*Re**0.8*Pr**0.4\r\nc\r\nc   As with any function a value must be associated with the function\r\nc   name by putting the name on the left side of an \"=\"\r\nc\r\n      htc=k\/Hd*max(Nulam,Nuturb)\r\n      return\r\n      end<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>program htcoef1 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-115","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/115","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=115"}],"version-history":[{"count":1,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/115\/revisions"}],"predecessor-version":[{"id":116,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/115\/revisions\/116"}],"wp:attachment":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/media?parent=115"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/categories?post=115"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/tags?post=115"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}