Skip to content

Commit

Permalink
Merge pull request #689 from gspetro-NOAA/text/gh-pages
Browse files Browse the repository at this point in the history 
Add updated MSFPS.f, NGMFLD.f, OTLFT.f, OTLIFT.f, and ZENSUN.f htmls to gh-pages
  • Loading branch information
@gspetro-NOAA
gspetro-NOAA committed Apr 12, 2023
2 parents fd19064 + cf969e4 commit 95fd94f
Show file tree
Hide file tree
Showing 14 changed files with 1,039 additions and 822 deletions.
68 changes: 58 additions & 10 deletions MSFPS_8f.html
View file
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<meta http-equiv="X-UA-Compatible" content="IE=9"/>
<meta name="generator" content="Doxygen 1.8.6"/>
<meta name="generator" content="Doxygen 1.8.5"/>
<title>UPP: MSFPS.f File Reference</title>
<link href="tabs.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="jquery.js"></script>
Expand All @@ -30,15 +30,15 @@
<tr style="height: 56px;">
<td style="padding-left: 0.5em;">
<div id="projectname">UPP
&#160;<span id="projectnumber">V11.0.0</span>
&#160;<span id="projectnumber">11.0.0</span>
</div>
</td>
</tr>
</tbody>
</table>
</div>
<!-- end header part -->
<!-- Generated by Doxygen 1.8.6 -->
<!-- Generated by Doxygen 1.8.5 -->
<script type="text/javascript">
var searchBox = new SearchBox("searchBox", "search",false,'Search');
</script>
Expand Down Expand Up @@ -109,19 +109,19 @@
</div><!--header-->
<div class="contents">

<p>msfps() computes the map scale factor for a polar stereographic grid at a give latitude.
<p><a class="el" href="MSFPS_8f.html#a6c8f1d60cbab1f64dc65f900dc623b2e" title="msfps() computes the map scale factor for a polar stereographic grid at a give latitude. ">msfps()</a> computes the map scale factor for a polar stereographic grid at a give latitude.
<a href="#details">More...</a></p>

<p><a href="MSFPS_8f_source.html">Go to the source code of this file.</a></p>
<table class="memberdecls">
<tr class="heading"><td colspan="2"><h2 class="groupheader"><a name="func-members"></a>
Functions/Subroutines</h2></td></tr>
<tr class="memitem:a61f85c739a82a005bcba00dd4b7443ee"><td class="memItemLeft" align="right" valign="top"><a class="anchor" id="a61f85c739a82a005bcba00dd4b7443ee"></a>
subroutine&#160;</td><td class="memItemRight" valign="bottom"><b>MSFPS</b> (LAT, TRUELAT1, MSF)</td></tr>
<tr class="separator:a61f85c739a82a005bcba00dd4b7443ee"><td class="memSeparator" colspan="2">&#160;</td></tr>
<tr class="memitem:a6c8f1d60cbab1f64dc65f900dc623b2e"><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="MSFPS_8f.html#a6c8f1d60cbab1f64dc65f900dc623b2e">msfps</a> (LAT, TRUELAT1, MSF)</td></tr>
<tr class="memdesc:a6c8f1d60cbab1f64dc65f900dc623b2e"><td class="mdescLeft">&#160;</td><td class="mdescRight"><a class="el" href="MSFPS_8f.html#a6c8f1d60cbab1f64dc65f900dc623b2e" title="msfps() computes the map scale factor for a polar stereographic grid at a give latitude. ">msfps()</a> computes the map scale factor for a polar stereographic grid at a give latitude. <a href="#a6c8f1d60cbab1f64dc65f900dc623b2e">More...</a><br/></td></tr>
<tr class="separator:a6c8f1d60cbab1f64dc65f900dc623b2e"><td class="memSeparator" colspan="2">&#160;</td></tr>
</table>
<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
<div class="textblock"><p>msfps() computes the map scale factor for a polar stereographic grid at a give latitude. </p>
<div class="textblock"><p><a class="el" href="MSFPS_8f.html#a6c8f1d60cbab1f64dc65f900dc623b2e" title="msfps() computes the map scale factor for a polar stereographic grid at a give latitude. ">msfps()</a> computes the map scale factor for a polar stereographic grid at a give latitude. </p>
<p>This subroutine computes the map scale factor for a polar stereographic grid at a give latitude.</p>
<dl class="params"><dt>Parameters</dt><dd>
<table class="params">
Expand All @@ -142,15 +142,63 @@ <h3>Program History Log</h3>
<dl class="section date"><dt>Date</dt><dd>2006-11-01 </dd></dl>

<p>Definition in file <a class="el" href="MSFPS_8f_source.html">MSFPS.f</a>.</p>
</div></div><!-- contents -->
</div><h2 class="groupheader">Function/Subroutine Documentation</h2>
<a class="anchor" id="a6c8f1d60cbab1f64dc65f900dc623b2e"></a>
<div class="memitem">
<div class="memproto">
<table class="memname">
<tr>
<td class="memname">subroutine msfps </td>
<td>(</td>
<td class="paramtype">real, intent(in)&#160;</td>
<td class="paramname"><em>LAT</em>, </td>
</tr>
<tr>
<td class="paramkey"></td>
<td></td>
<td class="paramtype">real, intent(in)&#160;</td>
<td class="paramname"><em>TRUELAT1</em>, </td>
</tr>
<tr>
<td class="paramkey"></td>
<td></td>
<td class="paramtype">real, intent(out)&#160;</td>
<td class="paramname"><em>MSF</em>&#160;</td>
</tr>
<tr>
<td></td>
<td>)</td>
<td></td><td></td>
</tr>
</table>
</div><div class="memdoc">

<p><a class="el" href="MSFPS_8f.html#a6c8f1d60cbab1f64dc65f900dc623b2e" title="msfps() computes the map scale factor for a polar stereographic grid at a give latitude. ">msfps()</a> computes the map scale factor for a polar stereographic grid at a give latitude. </p>
<p>This subroutine computes the map scale factor for a polar stereographic grid at a give latitude.</p>
<dl class="params"><dt>Parameters</dt><dd>
<table class="params">
<tr><td class="paramdir">[in]</td><td class="paramname">LAT</td><td>Latitude at which map factor is valid. </td></tr>
<tr><td class="paramdir">[in]</td><td class="paramname">TRUELAT1</td><td>TRUELAT 1. </td></tr>
<tr><td class="paramdir">[out]</td><td class="paramname">MSF</td><td>Map scale factor. </td></tr>
</table>
</dd>
</dl>

<p>Definition at line <a class="el" href="MSFPS_8f_source.html#l00026">26</a> of file <a class="el" href="MSFPS_8f_source.html">MSFPS.f</a>.</p>

<p>Referenced by <a class="el" href="INITPOST_8F_source.html#l00025">initpost()</a>, <a class="el" href="INITPOST__GFS__NEMS__MPIIO_8f_source.html#l00032">initpost_gfs_nems_mpiio()</a>, and <a class="el" href="INITPOST__NETCDF_8f_source.html#l00038">initpost_netcdf()</a>.</p>

</div>
</div>
</div><!-- contents -->
</div><!-- doc-content -->
<!-- start footer part -->
<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
<ul>
<li class="navelem"><a class="el" href="dir_d8b772108138bf796aaa3f7fe4e09294.html">sorc</a></li><li class="navelem"><a class="el" href="dir_29f0049402def9fd0d109199f2d306c2.html">ncep_post.fd</a></li><li class="navelem"><a class="el" href="MSFPS_8f.html">MSFPS.f</a></li>
<li class="footer">Generated by
<a href="http://www.doxygen.org/index.html">
<img class="footer" src="doxygen.png" alt="doxygen"/></a> 1.8.6 </li>
<img class="footer" src="doxygen.png" alt="doxygen"/></a> 1.8.5 </li>
</ul>
</div>
</body>
Expand Down
2 changes: 1 addition & 1 deletion MSFPS_8f.js
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
var MSFPS_8f =
[
[ "MSFPS", "MSFPS_8f.html#a61f85c739a82a005bcba00dd4b7443ee", null ]
[ "msfps", "MSFPS_8f.html#a6c8f1d60cbab1f64dc65f900dc623b2e", null ]
];
74 changes: 39 additions & 35 deletions MSFPS_8f_source.html
View file
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<meta http-equiv="X-UA-Compatible" content="IE=9"/>
<meta name="generator" content="Doxygen 1.8.6"/>
<meta name="generator" content="Doxygen 1.8.5"/>
<title>UPP: MSFPS.f Source File</title>
<link href="tabs.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="jquery.js"></script>
Expand All @@ -30,15 +30,15 @@
<tr style="height: 56px;">
<td style="padding-left: 0.5em;">
<div id="projectname">UPP
&#160;<span id="projectnumber">V11.0.0</span>
&#160;<span id="projectnumber">11.0.0</span>
</div>
</td>
</tr>
</tbody>
</table>
</div>
<!-- end header part -->
<!-- Generated by Doxygen 1.8.6 -->
<!-- Generated by Doxygen 1.8.5 -->
<script type="text/javascript">
var searchBox = new SearchBox("searchBox", "search",false,'Search');
</script>
Expand Down Expand Up @@ -107,39 +107,43 @@
</div><!--header-->
<div class="contents">
<a href="MSFPS_8f.html">Go to the documentation of this file.</a><div class="fragment"><div class="line"><a name="l00001"></a><span class="lineno"> 1</span>&#160;</div>
<div class="line"><a name="l00016"></a><span class="lineno"> 16</span>&#160;<span class="keyword"> SUBROUTINE </span>msfps(LAT,TRUELAT1,MSF)</div>
<div class="line"><a name="l00017"></a><span class="lineno"> 17</span>&#160;</div>
<div class="line"><a name="l00018"></a><span class="lineno"> 18</span>&#160;</div>
<div class="line"><a name="l00019"></a><span class="lineno"> 19</span>&#160;<span class="comment">! Computes the map scale factor for a Polar Stereographic grid at a given</span></div>
<div class="line"><a name="l00020"></a><span class="lineno"> 20</span>&#160;<span class="comment">! latitude.</span></div>
<div class="line"><a name="l00021"></a><span class="lineno"> 21</span>&#160;</div>
<div class="line"><a name="l00022"></a><span class="lineno"> 22</span>&#160; <span class="keywordtype">IMPLICIT NONE</span></div>
<div class="line"><a name="l00023"></a><span class="lineno"> 23</span>&#160;</div>
<div class="line"><a name="l00024"></a><span class="lineno"> 24</span>&#160;<span class="comment">! Define some private constants</span></div>
<div class="line"><a name="l00025"></a><span class="lineno"> 25</span>&#160;<span class="comment">!</span></div>
<div class="line"><a name="l00026"></a><span class="lineno"> 26</span>&#160; <span class="keywordtype">REAL</span>, <span class="keywordtype">PARAMETER</span> :: pi = 3.1415927</div>
<div class="line"><a name="l00027"></a><span class="lineno"> 27</span>&#160; <span class="keywordtype">REAL</span>, <span class="keywordtype">PARAMETER</span> :: rad_per_deg = pi / 180.</div>
<div class="line"><a name="l00016"></a><span class="lineno"> 16</span>&#160;</div>
<div class="line"><a name="l00017"></a><span class="lineno"> 17</span>&#160;<span class="comment">! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -</span></div>
<div class="line"><a name="l00025"></a><span class="lineno"> 25</span>&#160;</div>
<div class="line"><a name="l00026"></a><span class="lineno"><a class="line" href="MSFPS_8f.html#a6c8f1d60cbab1f64dc65f900dc623b2e"> 26</a></span>&#160;<span class="keyword"> SUBROUTINE </span><a class="code" href="MSFPS_8f.html#a6c8f1d60cbab1f64dc65f900dc623b2e">msfps</a>(LAT,TRUELAT1,MSF)</div>
<div class="line"><a name="l00027"></a><span class="lineno"> 27</span>&#160;</div>
<div class="line"><a name="l00028"></a><span class="lineno"> 28</span>&#160;</div>
<div class="line"><a name="l00029"></a><span class="lineno"> 29</span>&#160; <span class="keywordtype">REAL</span>, <span class="keywordtype">INTENT(IN)</span> :: lat <span class="comment">! latitude where msf is requested</span></div>
<div class="line"><a name="l00030"></a><span class="lineno"> 30</span>&#160; <span class="keywordtype">REAL</span>, <span class="keywordtype">INTENT(IN)</span> :: truelat1</div>
<div class="line"><a name="l00031"></a><span class="lineno"> 31</span>&#160; <span class="keywordtype">REAL</span>, <span class="keywordtype">INTENT(OUT)</span> :: msf</div>
<div class="line"><a name="l00032"></a><span class="lineno"> 32</span>&#160;</div>
<div class="line"><a name="l00033"></a><span class="lineno"> 33</span>&#160; <span class="keywordtype">REAL</span> :: psi1, psix, pole</div>
<div class="line"><a name="l00034"></a><span class="lineno"> 34</span>&#160;</div>
<div class="line"><a name="l00035"></a><span class="lineno"> 35</span>&#160; <span class="keywordflow">IF</span> (truelat1 &gt;= 0.) <span class="keywordflow">THEN</span></div>
<div class="line"><a name="l00036"></a><span class="lineno"> 36</span>&#160; psi1 = (90. - truelat1) * rad_per_deg</div>
<div class="line"><a name="l00037"></a><span class="lineno"> 37</span>&#160; pole =90.</div>
<div class="line"><a name="l00038"></a><span class="lineno"> 38</span>&#160; <span class="keywordflow">ELSE</span></div>
<div class="line"><a name="l00039"></a><span class="lineno"> 39</span>&#160; psi1 = (90. + truelat1) * rad_per_deg</div>
<div class="line"><a name="l00040"></a><span class="lineno"> 40</span>&#160; pole = -90.</div>
<div class="line"><a name="l00041"></a><span class="lineno"> 41</span>&#160; <span class="keywordflow">ENDIF</span></div>
<div class="line"><a name="l00029"></a><span class="lineno"> 29</span>&#160;<span class="comment">! Computes the map scale factor for a Polar Stereographic grid at a given</span></div>
<div class="line"><a name="l00030"></a><span class="lineno"> 30</span>&#160;<span class="comment">! latitude.</span></div>
<div class="line"><a name="l00031"></a><span class="lineno"> 31</span>&#160;</div>
<div class="line"><a name="l00032"></a><span class="lineno"> 32</span>&#160; <span class="keywordtype">IMPLICIT NONE</span></div>
<div class="line"><a name="l00033"></a><span class="lineno"> 33</span>&#160;</div>
<div class="line"><a name="l00034"></a><span class="lineno"> 34</span>&#160;<span class="comment">! Define some private constants</span></div>
<div class="line"><a name="l00035"></a><span class="lineno"> 35</span>&#160;<span class="comment">!</span></div>
<div class="line"><a name="l00036"></a><span class="lineno"> 36</span>&#160; <span class="keywordtype">REAL</span>, <span class="keywordtype">PARAMETER</span> :: pi = 3.1415927</div>
<div class="line"><a name="l00037"></a><span class="lineno"> 37</span>&#160; <span class="keywordtype">REAL</span>, <span class="keywordtype">PARAMETER</span> :: rad_per_deg = pi / 180.</div>
<div class="line"><a name="l00038"></a><span class="lineno"> 38</span>&#160;</div>
<div class="line"><a name="l00039"></a><span class="lineno"> 39</span>&#160; <span class="keywordtype">REAL</span>, <span class="keywordtype">INTENT(IN)</span> :: lat <span class="comment">! latitude where msf is requested</span></div>
<div class="line"><a name="l00040"></a><span class="lineno"> 40</span>&#160; <span class="keywordtype">REAL</span>, <span class="keywordtype">INTENT(IN)</span> :: truelat1</div>
<div class="line"><a name="l00041"></a><span class="lineno"> 41</span>&#160; <span class="keywordtype">REAL</span>, <span class="keywordtype">INTENT(OUT)</span> :: msf</div>
<div class="line"><a name="l00042"></a><span class="lineno"> 42</span>&#160;</div>
<div class="line"><a name="l00043"></a><span class="lineno"> 43</span>&#160; psix = (pole - lat)*rad_per_deg</div>
<div class="line"><a name="l00044"></a><span class="lineno"> 44</span>&#160; msf = ((1.+cos(psi1))/(1.0 + cos(psix)))</div>
<div class="line"><a name="l00045"></a><span class="lineno"> 45</span>&#160; <span class="keywordflow">RETURN</span></div>
<div class="line"><a name="l00046"></a><span class="lineno"> 46</span>&#160;</div>
<div class="line"><a name="l00047"></a><span class="lineno"> 47</span>&#160;<span class="keyword"> END SUBROUTINE </span>msfps</div>
<div class="line"><a name="l00048"></a><span class="lineno"> 48</span>&#160;</div>
<div class="line"><a name="l00043"></a><span class="lineno"> 43</span>&#160; <span class="keywordtype">REAL</span> :: psi1, psix, pole</div>
<div class="line"><a name="l00044"></a><span class="lineno"> 44</span>&#160;</div>
<div class="line"><a name="l00045"></a><span class="lineno"> 45</span>&#160; <span class="keywordflow">IF</span> (truelat1 &gt;= 0.) <span class="keywordflow">THEN</span></div>
<div class="line"><a name="l00046"></a><span class="lineno"> 46</span>&#160; psi1 = (90. - truelat1) * rad_per_deg</div>
<div class="line"><a name="l00047"></a><span class="lineno"> 47</span>&#160; pole =90.</div>
<div class="line"><a name="l00048"></a><span class="lineno"> 48</span>&#160; <span class="keywordflow">ELSE</span></div>
<div class="line"><a name="l00049"></a><span class="lineno"> 49</span>&#160; psi1 = (90. + truelat1) * rad_per_deg</div>
<div class="line"><a name="l00050"></a><span class="lineno"> 50</span>&#160; pole = -90.</div>
<div class="line"><a name="l00051"></a><span class="lineno"> 51</span>&#160; <span class="keywordflow">ENDIF</span></div>
<div class="line"><a name="l00052"></a><span class="lineno"> 52</span>&#160;</div>
<div class="line"><a name="l00053"></a><span class="lineno"> 53</span>&#160; psix = (pole - lat)*rad_per_deg</div>
<div class="line"><a name="l00054"></a><span class="lineno"> 54</span>&#160; msf = ((1.+cos(psi1))/(1.0 + cos(psix)))</div>
<div class="line"><a name="l00055"></a><span class="lineno"> 55</span>&#160; <span class="keywordflow">RETURN</span></div>
<div class="line"><a name="l00056"></a><span class="lineno"> 56</span>&#160;</div>
<div class="line"><a name="l00057"></a><span class="lineno"> 57</span>&#160;<span class="keyword"> END SUBROUTINE </span><a class="code" href="MSFPS_8f.html#a6c8f1d60cbab1f64dc65f900dc623b2e">msfps</a></div>
<div class="line"><a name="l00058"></a><span class="lineno"> 58</span>&#160;</div>
<div class="ttc" id="MSFPS_8f_html_a6c8f1d60cbab1f64dc65f900dc623b2e"><div class="ttname"><a href="MSFPS_8f.html#a6c8f1d60cbab1f64dc65f900dc623b2e">msfps</a></div><div class="ttdeci">subroutine msfps(LAT, TRUELAT1, MSF)</div><div class="ttdoc">msfps() computes the map scale factor for a polar stereographic grid at a give latitude. </div><div class="ttdef"><b>Definition:</b> <a href="MSFPS_8f_source.html#l00026">MSFPS.f:26</a></div></div>
</div><!-- fragment --></div><!-- contents -->
</div><!-- doc-content -->
<!-- start footer part -->
Expand All @@ -148,7 +152,7 @@
<li class="navelem"><a class="el" href="dir_d8b772108138bf796aaa3f7fe4e09294.html">sorc</a></li><li class="navelem"><a class="el" href="dir_29f0049402def9fd0d109199f2d306c2.html">ncep_post.fd</a></li><li class="navelem"><a class="el" href="MSFPS_8f.html">MSFPS.f</a></li>
<li class="footer">Generated by
<a href="http://www.doxygen.org/index.html">
<img class="footer" src="doxygen.png" alt="doxygen"/></a> 1.8.6 </li>
<img class="footer" src="doxygen.png" alt="doxygen"/></a> 1.8.5 </li>
</ul>
</div>
</body>
Expand Down
Loading

0 comments on commit 95fd94f

Please sign in to comment.