{"id":84,"date":"2017-09-11T15:20:58","date_gmt":"2017-09-11T18:20:58","guid":{"rendered":"http:\/\/www.professores.uff.br\/diomarcesarlobao\/?page_id=84"},"modified":"2017-09-11T15:20:58","modified_gmt":"2017-09-11T18:20:58","slug":"debug-f","status":"publish","type":"page","link":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/debug-f\/","title":{"rendered":"debug.f"},"content":{"rendered":"<pre>c&lt;html&gt;\r\nc&lt;head&gt;&lt;title&gt;debug.f&lt;\/title&gt;&lt;\/head&gt;\r\nc&lt;body&gt;\r\nc&lt;pre&gt;\r\n      program htcoef\r\nc\r\nc       John Mahaffy,  Penn State University, CmpSc 201 Example\r\nc       1\/26\/96\r\nc\r\nc\r\nc     John Mahaffy 12\/27\/95\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,k,D,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\nc     John Mahaffy, 12\/27\/95\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\nc     &lt;a name=1&gt;&lt;font color=FF0000&gt;\r\n      htc=k\/Hd*max(Nulam,Nuturb)\r\nc     &lt;\/font&gt;\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\r\nc&lt;\/pre&gt;\r\nc&lt;\/body&gt;\r\nc&lt;\/html&gt;<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>c&lt;html&gt; c&lt;head&gt;&lt;title&gt;debug.f&lt;\/title&gt;&lt;\/head&gt; c&lt;body&gt; c&lt;pre&gt; program htcoef c c John Mahaffy, Penn State University, CmpSc 201 Example c 1\/26\/96 c c c John Mahaffy 12\/27\/95 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; [&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-84","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/84","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=84"}],"version-history":[{"count":1,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/84\/revisions"}],"predecessor-version":[{"id":85,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/pages\/84\/revisions\/85"}],"wp:attachment":[{"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/media?parent=84"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/categories?post=84"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.professores.uff.br\/diomarcesarlobao\/wp-json\/wp\/v2\/tags?post=84"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}