TECLIM
/
PlaSim


			
							12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409
							<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<title>PUMA: /Users/home/WC/puma/src/mpimod_multi.f90 File Reference</title>

<link href="tabs.css" rel="stylesheet" type="text/css"/>
<link href="doxygen.css" rel="stylesheet" type="text/css" />
<link href="navtree.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="jquery.js"></script>
<script type="text/javascript" src="resize.js"></script>
<script type="text/javascript" src="navtree.js"></script>
<script type="text/javascript">
  $(document).ready(initResizable);
</script>
<link href="search/search.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="search/search.js"></script>
<script type="text/javascript">
  $(document).ready(function() { searchBox.OnSelectItem(0); });
</script>

</head>
<body>
<div id="top"><!-- do not remove this div! -->


<div id="titlearea">
<table cellspacing="0" cellpadding="0">
 <tbody>
 <tr style="height: 56px;">
  
  <td id="projectlogo"><img alt="Logo" src="puma103.jpg"/></td>
  
  
  <td style="padding-left: 0.5em;">
   <div id="projectname">PUMA
   &#160;<span id="projectnumber">219</span>
   </div>
   <div id="projectbrief">Portable University Model of the Atmosphere</div>
  </td>
  
  
 </tr>
 </tbody>
</table>
</div>

<!-- Generated by Doxygen 1.7.5.1 -->
<script type="text/javascript">
var searchBox = new SearchBox("searchBox", "search",false,'Search');
</script>
  <div id="navrow1" class="tabs">
    <ul class="tablist">
      <li><a href="index.html"><span>Main&#160;Page</span></a></li>
      <li><a href="annotated.html"><span>Data&#160;Types&#160;List</span></a></li>
      <li class="current"><a href="files.html"><span>Files</span></a></li>
      <li>
        <div id="MSearchBox" class="MSearchBoxInactive">
        <span class="left">
          <img id="MSearchSelect" src="search/mag_sel.png"
               onmouseover="return searchBox.OnSearchSelectShow()"
               onmouseout="return searchBox.OnSearchSelectHide()"
               alt=""/>
          <input type="text" id="MSearchField" value="Search" accesskey="S"
               onfocus="searchBox.OnSearchFieldFocus(true)" 
               onblur="searchBox.OnSearchFieldFocus(false)" 
               onkeyup="searchBox.OnSearchFieldChange(event)"/>
          </span><span class="right">
            <a id="MSearchClose" href="javascript:searchBox.CloseResultsWindow()"><img id="MSearchCloseImg" border="0" src="search/close.png" alt=""/></a>
          </span>
        </div>
      </li>
    </ul>
  </div>
  <div id="navrow2" class="tabs2">
    <ul class="tablist">
      <li><a href="files.html"><span>File&#160;List</span></a></li>
      <li><a href="globals.html"><span>File&#160;Members</span></a></li>
    </ul>
  </div>
</div>
<div id="side-nav" class="ui-resizable side-nav-resizable">
  <div id="nav-tree">
    <div id="nav-tree-contents">
    </div>
  </div>
  <div id="splitbar" style="-moz-user-select:none;" 
       class="ui-resizable-handle">
  </div>
</div>
<script type="text/javascript">
  initNavTree('mpimod__multi_8f90.html','');
</script>
<div id="doc-content">
<div class="header">
  <div class="summary">
<a href="#nested-classes">Data Types</a> &#124;
<a href="#func-members">Functions/Subroutines</a>  </div>
  <div class="headertitle">
<div class="title">/Users/home/WC/puma/src/mpimod_multi.f90 File Reference</div>  </div>
</div>
<div class="contents">

<p><a href="mpimod__multi_8f90_source.html">Go to the source code of this file.</a></p>
<table class="memberdecls">
<tr><td colspan="2"><h2><a name="nested-classes"></a>
Data Types</h2></td></tr>
<tr><td class="memItemLeft" align="right" valign="top">module &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="classmpimod.html">mpimod</a></td></tr>
<tr><td colspan="2"><h2><a name="func-members"></a>
Functions/Subroutines</h2></td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a41bbd9334a3d0412c73399d699bbb237">mpstart</a></td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#acb4a2403b5f65a70e7e5ff01ea4577f7">mrdimensions</a></td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#ac80e83b9bc0a4b459fed5f3b79cfafa0">mpstop</a></td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a5d2bb9cfe68e5feb6de6b359f04398e3">mrsum</a> (k)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a81baf40d09fd23640c01877173e0813a">mrdiff</a> (pa, pd, kesp, klev)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a7fd328bc0c83a30f521615978d5d44b2">mrbcin</a> (k, n)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a63020ca5fd4738534a8ad6f1ce97133d">mrtrunc</a> (sphi, nthi, splo, ntlo)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a7878a87944a3261177c0321cb0d01174">mrexpand</a> (splo, ntlo, sphi, nthi)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a89982355acc98319bfc191dab28da805">mpbci</a> (k)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a85cfae5acde5c37604edf690e9c2f7cf">mpbcin</a> (k, n)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#aded092db7f8071a727e2e96887702ca7">mpbcr</a> (p)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#af2a0a009162180d4abb1daa1bad60cf2">mpbcrn</a> (p, n)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a40b910e38273e7f3c9dc4ed36d3e67a0">mpbcl</a> (k)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a8338d8609afcefbb1faa41f353c10ef9">mpscin</a> (k, n)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a1504cf64a1ffc198a8a1fe54ba00d775">mpscrn</a> (p, n)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a3d2a5d231fd9527bcbc1fde327326922">mpscdn</a> (p, n)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a0c5adf4e8c7e39cf5a1038a1d34ebf30">mpscsp</a> (pf, pp, klev)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#ac66e76c6144dfeadbc03bc5817553250">mpscgp</a> (pf, pp, klev)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#ac053a575b1230f8e4a296164dba5ab27">mpgasp</a> (pf, pp, klev)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#aaa1210298789f4fd7b7702c276eb80a9">mpgagp</a> (pf, pp, klev)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a5aef7e33503e0c46b1d8c0b984c398d1">mpgacs</a> (pcs)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a54cf45feb57177de8eaab2e6b01a7aa2">mpgallsp</a> (pf, pp, klev)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#af894efd9525c935f22415e017dcbc482">mpsum</a> (psp, klev)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a75a681a8d4b9ab5ba0d4fa97f909647b">mpsumsc</a> (psf, psp, klev)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#af2111ef6d5b772479a74e94d351440f0">mpsumr</a> (pr, kdim)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#ad703e6ecd123e9b8280322e402d57d20">mpsumbcr</a> (pr, kdim)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a4aceba15459fefd864a0ed3313b0073d">mpreadsp</a> (ktape, p, kdim, klev)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a463456bde27045e2cf286e6e6082b9aa">mpreadgp</a> (ktape, p, kdim, klev)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#aca5ad2279542f783c1d862333da96744">mpwritesp</a> (ktape, p, kdim, klev)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a3e3ab4b6cd8d7863f7bfc0e74b370488">mpwritegp</a> (ktape, p, kdim, klev)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a325e1b8f8412b422a06fb7558f212f7e">mpwritegph</a> (ktape, p, kdim, klev, ihead)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#acb4faf87d9aa8c0bfc86d75f261989c5">mpi_info</a> (nprocess, pid)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#acf82ae878fff75151cab59cdd0925ae0">mpgetsp</a> (yn, p, kdim, klev)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a58d54c2e0590e63a7459417831afe5cf">mpgetgp</a> (yn, p, kdim, klev)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a79c341b7b52bf44470898581072660b8">mpputsp</a> (yn, p, kdim, klev)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a7e675330db7b46cf0bf0cc8edd2d413c">mpputgp</a> (yn, p, kdim, klev)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#a1b6ac2b98059a43359ac0edfeb9c2ad7">mpmaxval</a> (p, kdim, klev, pmax)</td></tr>
<tr><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="mpimod__multi_8f90.html#ac1dfb34daad89cf72ff04b6a58919b2b">mpsumval</a> (p, kdim, klev, psum)</td></tr>
</table>
<hr/><h2>Function/Subroutine Documentation</h2>
<a class="anchor" id="a89982355acc98319bfc191dab28da805"></a><!-- doxytag: member="mpimod_multi.f90::mpbci" ref="a89982355acc98319bfc191dab28da805" args="(k)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpbci </td>
          <td>(</td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>k</em></td><td>)</td>
          <td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00176">176</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a85cfae5acde5c37604edf690e9c2f7cf"></a><!-- doxytag: member="mpimod_multi.f90::mpbcin" ref="a85cfae5acde5c37604edf690e9c2f7cf" args="(k, n)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpbcin </td>
          <td>(</td>
          <td class="paramtype">integer, dimension(n)&#160;</td>
          <td class="paramname"><em>k</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>n</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00180">180</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a40b910e38273e7f3c9dc4ed36d3e67a0"></a><!-- doxytag: member="mpimod_multi.f90::mpbcl" ref="a40b910e38273e7f3c9dc4ed36d3e67a0" args="(k)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpbcl </td>
          <td>(</td>
          <td class="paramtype">logical&#160;</td>
          <td class="paramname"><em>k</em></td><td>)</td>
          <td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00194">194</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="aded092db7f8071a727e2e96887702ca7"></a><!-- doxytag: member="mpimod_multi.f90::mpbcr" ref="aded092db7f8071a727e2e96887702ca7" args="(p)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpbcr </td>
          <td>(</td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>p</em></td><td>)</td>
          <td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00185">185</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="af2a0a009162180d4abb1daa1bad60cf2"></a><!-- doxytag: member="mpimod_multi.f90::mpbcrn" ref="af2a0a009162180d4abb1daa1bad60cf2" args="(p, n)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpbcrn </td>
          <td>(</td>
          <td class="paramtype">real, dimension(n)&#160;</td>
          <td class="paramname"><em>p</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>n</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00189">189</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a5aef7e33503e0c46b1d8c0b984c398d1"></a><!-- doxytag: member="mpimod_multi.f90::mpgacs" ref="a5aef7e33503e0c46b1d8c0b984c398d1" args="(pcs)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpgacs </td>
          <td>(</td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>pcs</em></td><td>)</td>
          <td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00246">246</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="aaa1210298789f4fd7b7702c276eb80a9"></a><!-- doxytag: member="mpimod_multi.f90::mpgagp" ref="aaa1210298789f4fd7b7702c276eb80a9" args="(pf, pp, klev)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpgagp </td>
          <td>(</td>
          <td class="paramtype">real, dimension(nhor,klev)&#160;</td>
          <td class="paramname"><em>pf</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">real, dimension(nhor,klev)&#160;</td>
          <td class="paramname"><em>pp</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>klev</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00238">238</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a54cf45feb57177de8eaab2e6b01a7aa2"></a><!-- doxytag: member="mpimod_multi.f90::mpgallsp" ref="a54cf45feb57177de8eaab2e6b01a7aa2" args="(pf, pp, klev)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpgallsp </td>
          <td>(</td>
          <td class="paramtype">real, dimension(nesp,klev)&#160;</td>
          <td class="paramname"><em>pf</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">real, dimension(nspp,klev)&#160;</td>
          <td class="paramname"><em>pp</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>klev</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00250">250</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="ac053a575b1230f8e4a296164dba5ab27"></a><!-- doxytag: member="mpimod_multi.f90::mpgasp" ref="ac053a575b1230f8e4a296164dba5ab27" args="(pf, pp, klev)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpgasp </td>
          <td>(</td>
          <td class="paramtype">real, dimension(nesp,klev)&#160;</td>
          <td class="paramname"><em>pf</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">real, dimension(nspp,klev)&#160;</td>
          <td class="paramname"><em>pp</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>klev</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00230">230</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a58d54c2e0590e63a7459417831afe5cf"></a><!-- doxytag: member="mpimod_multi.f90::mpgetgp" ref="a58d54c2e0590e63a7459417831afe5cf" args="(yn, p, kdim, klev)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpgetgp </td>
          <td>(</td>
          <td class="paramtype">character (len=*)&#160;</td>
          <td class="paramname"><em>yn</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">real, dimension(kdim,klev)&#160;</td>
          <td class="paramname"><em>p</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>kdim</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>klev</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00328">328</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="acf82ae878fff75151cab59cdd0925ae0"></a><!-- doxytag: member="mpimod_multi.f90::mpgetsp" ref="acf82ae878fff75151cab59cdd0925ae0" args="(yn, p, kdim, klev)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpgetsp </td>
          <td>(</td>
          <td class="paramtype">character (len=*)&#160;</td>
          <td class="paramname"><em>yn</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">real, dimension(kdim,klev)&#160;</td>
          <td class="paramname"><em>p</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>kdim</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>klev</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00320">320</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="acb4faf87d9aa8c0bfc86d75f261989c5"></a><!-- doxytag: member="mpimod_multi.f90::mpi_info" ref="acb4faf87d9aa8c0bfc86d75f261989c5" args="(nprocess, pid)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpi_info </td>
          <td>(</td>
          <td class="paramtype">integer&#160;</td>
          <td class="paramname"><em>nprocess</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">integer&#160;</td>
          <td class="paramname"><em>pid</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00312">312</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a1b6ac2b98059a43359ac0edfeb9c2ad7"></a><!-- doxytag: member="mpimod_multi.f90::mpmaxval" ref="a1b6ac2b98059a43359ac0edfeb9c2ad7" args="(p, kdim, klev, pmax)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpmaxval </td>
          <td>(</td>
          <td class="paramtype">real, dimension(kdim,klev)&#160;</td>
          <td class="paramname"><em>p</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>kdim</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>klev</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>pmax</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00376">376</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a7e675330db7b46cf0bf0cc8edd2d413c"></a><!-- doxytag: member="mpimod_multi.f90::mpputgp" ref="a7e675330db7b46cf0bf0cc8edd2d413c" args="(yn, p, kdim, klev)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpputgp </td>
          <td>(</td>
          <td class="paramtype">character (len=*)&#160;</td>
          <td class="paramname"><em>yn</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">real, dimension(kdim,klev)&#160;</td>
          <td class="paramname"><em>p</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>kdim</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>klev</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00344">344</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a79c341b7b52bf44470898581072660b8"></a><!-- doxytag: member="mpimod_multi.f90::mpputsp" ref="a79c341b7b52bf44470898581072660b8" args="(yn, p, kdim, klev)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpputsp </td>
          <td>(</td>
          <td class="paramtype">character (len=*)&#160;</td>
          <td class="paramname"><em>yn</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">real, dimension(kdim,klev)&#160;</td>
          <td class="paramname"><em>p</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>kdim</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>klev</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00336">336</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a463456bde27045e2cf286e6e6082b9aa"></a><!-- doxytag: member="mpimod_multi.f90::mpreadgp" ref="a463456bde27045e2cf286e6e6082b9aa" args="(ktape, p, kdim, klev)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpreadgp </td>
          <td>(</td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>ktape</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">real, dimension(kdim,klev)&#160;</td>
          <td class="paramname"><em>p</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>kdim</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>klev</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00284">284</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a4aceba15459fefd864a0ed3313b0073d"></a><!-- doxytag: member="mpimod_multi.f90::mpreadsp" ref="a4aceba15459fefd864a0ed3313b0073d" args="(ktape, p, kdim, klev)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpreadsp </td>
          <td>(</td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>ktape</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">real, dimension(kdim,klev)&#160;</td>
          <td class="paramname"><em>p</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>kdim</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>klev</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00278">278</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a3d2a5d231fd9527bcbc1fde327326922"></a><!-- doxytag: member="mpimod_multi.f90::mpscdn" ref="a3d2a5d231fd9527bcbc1fde327326922" args="(p, n)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpscdn </td>
          <td>(</td>
          <td class="paramtype">real (kind=8), dimension(n)&#160;</td>
          <td class="paramname"><em>p</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>n</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00209">209</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="ac66e76c6144dfeadbc03bc5817553250"></a><!-- doxytag: member="mpimod_multi.f90::mpscgp" ref="ac66e76c6144dfeadbc03bc5817553250" args="(pf, pp, klev)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpscgp </td>
          <td>(</td>
          <td class="paramtype">real, dimension(nlon*nlat,klev)&#160;</td>
          <td class="paramname"><em>pf</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">real, dimension(nhor,klev)&#160;</td>
          <td class="paramname"><em>pp</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>klev</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00222">222</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a8338d8609afcefbb1faa41f353c10ef9"></a><!-- doxytag: member="mpimod_multi.f90::mpscin" ref="a8338d8609afcefbb1faa41f353c10ef9" args="(k, n)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpscin </td>
          <td>(</td>
          <td class="paramtype">integer, dimension(n)&#160;</td>
          <td class="paramname"><em>k</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>n</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00199">199</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a1504cf64a1ffc198a8a1fe54ba00d775"></a><!-- doxytag: member="mpimod_multi.f90::mpscrn" ref="a1504cf64a1ffc198a8a1fe54ba00d775" args="(p, n)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpscrn </td>
          <td>(</td>
          <td class="paramtype">real, dimension(n)&#160;</td>
          <td class="paramname"><em>p</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>n</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00204">204</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a0c5adf4e8c7e39cf5a1038a1d34ebf30"></a><!-- doxytag: member="mpimod_multi.f90::mpscsp" ref="a0c5adf4e8c7e39cf5a1038a1d34ebf30" args="(pf, pp, klev)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpscsp </td>
          <td>(</td>
          <td class="paramtype">real, dimension(nesp,klev)&#160;</td>
          <td class="paramname"><em>pf</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">real, dimension(nspp,klev)&#160;</td>
          <td class="paramname"><em>pp</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>klev</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00214">214</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a41bbd9334a3d0412c73399d699bbb237"></a><!-- doxytag: member="mpimod_multi.f90::mpstart" ref="a41bbd9334a3d0412c73399d699bbb237" args="" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpstart </td>
          <td>(</td>
          <td class="paramname"></td><td>)</td>
          <td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00016">16</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="ac80e83b9bc0a4b459fed5f3b79cfafa0"></a><!-- doxytag: member="mpimod_multi.f90::mpstop" ref="ac80e83b9bc0a4b459fed5f3b79cfafa0" args="" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpstop </td>
          <td>(</td>
          <td class="paramname"></td><td>)</td>
          <td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00062">62</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="af894efd9525c935f22415e017dcbc482"></a><!-- doxytag: member="mpimod_multi.f90::mpsum" ref="af894efd9525c935f22415e017dcbc482" args="(psp, klev)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpsum </td>
          <td>(</td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>psp</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>klev</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00258">258</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="ad703e6ecd123e9b8280322e402d57d20"></a><!-- doxytag: member="mpimod_multi.f90::mpsumbcr" ref="ad703e6ecd123e9b8280322e402d57d20" args="(pr, kdim)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpsumbcr </td>
          <td>(</td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>pr</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>kdim</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00274">274</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="af2111ef6d5b772479a74e94d351440f0"></a><!-- doxytag: member="mpimod_multi.f90::mpsumr" ref="af2111ef6d5b772479a74e94d351440f0" args="(pr, kdim)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpsumr </td>
          <td>(</td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>pr</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>kdim</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00270">270</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a75a681a8d4b9ab5ba0d4fa97f909647b"></a><!-- doxytag: member="mpimod_multi.f90::mpsumsc" ref="a75a681a8d4b9ab5ba0d4fa97f909647b" args="(psf, psp, klev)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpsumsc </td>
          <td>(</td>
          <td class="paramtype">real, dimension(nesp,klev)&#160;</td>
          <td class="paramname"><em>psf</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">real, dimension(nspp,klev)&#160;</td>
          <td class="paramname"><em>psp</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>klev</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00262">262</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="ac1dfb34daad89cf72ff04b6a58919b2b"></a><!-- doxytag: member="mpimod_multi.f90::mpsumval" ref="ac1dfb34daad89cf72ff04b6a58919b2b" args="(p, kdim, klev, psum)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpsumval </td>
          <td>(</td>
          <td class="paramtype">real, dimension(kdim,klev)&#160;</td>
          <td class="paramname"><em>p</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>kdim</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>klev</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>psum</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00383">383</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a3e3ab4b6cd8d7863f7bfc0e74b370488"></a><!-- doxytag: member="mpimod_multi.f90::mpwritegp" ref="a3e3ab4b6cd8d7863f7bfc0e74b370488" args="(ktape, p, kdim, klev)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpwritegp </td>
          <td>(</td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>ktape</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">real, dimension(kdim,klev)&#160;</td>
          <td class="paramname"><em>p</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>kdim</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>klev</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00296">296</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a325e1b8f8412b422a06fb7558f212f7e"></a><!-- doxytag: member="mpimod_multi.f90::mpwritegph" ref="a325e1b8f8412b422a06fb7558f212f7e" args="(ktape, p, kdim, klev, ihead)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpwritegph </td>
          <td>(</td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>ktape</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">real, dimension(kdim,klev)&#160;</td>
          <td class="paramname"><em>p</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>kdim</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>klev</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">integer, dimension(8)&#160;</td>
          <td class="paramname"><em>ihead</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00302">302</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="aca5ad2279542f783c1d862333da96744"></a><!-- doxytag: member="mpimod_multi.f90::mpwritesp" ref="aca5ad2279542f783c1d862333da96744" args="(ktape, p, kdim, klev)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mpwritesp </td>
          <td>(</td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>ktape</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">real, dimension(kdim,klev)&#160;</td>
          <td class="paramname"><em>p</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>kdim</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>klev</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00290">290</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a7fd328bc0c83a30f521615978d5d44b2"></a><!-- doxytag: member="mpimod_multi.f90::mrbcin" ref="a7fd328bc0c83a30f521615978d5d44b2" args="(k, n)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mrbcin </td>
          <td>(</td>
          <td class="paramtype">integer, dimension(n)&#160;</td>
          <td class="paramname"><em>k</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>n</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00121">121</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a81baf40d09fd23640c01877173e0813a"></a><!-- doxytag: member="mpimod_multi.f90::mrdiff" ref="a81baf40d09fd23640c01877173e0813a" args="(pa, pd, kesp, klev)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mrdiff </td>
          <td>(</td>
          <td class="paramtype">real, dimension(kesp,klev)&#160;</td>
          <td class="paramname"><em>pa</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">real, dimension(kesp,klev)&#160;</td>
          <td class="paramname"><em>pd</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>kesp</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>klev</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00091">91</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="acb4a2403b5f65a70e7e5ff01ea4577f7"></a><!-- doxytag: member="mpimod_multi.f90::mrdimensions" ref="acb4a2403b5f65a70e7e5ff01ea4577f7" args="" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mrdimensions </td>
          <td>(</td>
          <td class="paramname"></td><td>)</td>
          <td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00043">43</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a7878a87944a3261177c0321cb0d01174"></a><!-- doxytag: member="mpimod_multi.f90::mrexpand" ref="a7878a87944a3261177c0321cb0d01174" args="(splo, ntlo, sphi, nthi)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mrexpand </td>
          <td>(</td>
          <td class="paramtype">complex, dimension(*)&#160;</td>
          <td class="paramname"><em>splo</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>ntlo</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">complex, dimension(*)&#160;</td>
          <td class="paramname"><em>sphi</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>nthi</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00159">159</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a5d2bb9cfe68e5feb6de6b359f04398e3"></a><!-- doxytag: member="mpimod_multi.f90::mrsum" ref="a5d2bb9cfe68e5feb6de6b359f04398e3" args="(k)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mrsum </td>
          <td>(</td>
          <td class="paramtype">integer&#160;</td>
          <td class="paramname"><em>k</em></td><td>)</td>
          <td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00076">76</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
<a class="anchor" id="a63020ca5fd4738534a8ad6f1ce97133d"></a><!-- doxytag: member="mpimod_multi.f90::mrtrunc" ref="a63020ca5fd4738534a8ad6f1ce97133d" args="(sphi, nthi, splo, ntlo)" -->
<div class="memitem">
<div class="memproto">
      <table class="memname">
        <tr>
          <td class="memname">subroutine mrtrunc </td>
          <td>(</td>
          <td class="paramtype">complex, dimension(*)&#160;</td>
          <td class="paramname"><em>sphi</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>nthi</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">complex, dimension(*)&#160;</td>
          <td class="paramname"><em>splo</em>, </td>
        </tr>
        <tr>
          <td class="paramkey"></td>
          <td></td>
          <td class="paramtype">&#160;</td>
          <td class="paramname"><em>ntlo</em>&#160;</td>
        </tr>
        <tr>
          <td></td>
          <td>)</td>
          <td></td><td></td>
        </tr>
      </table>
</div>
<div class="memdoc">

<p>Definition at line <a class="el" href="mpimod__multi_8f90_source.html#l00137">137</a> of file <a class="el" href="mpimod__multi_8f90_source.html">mpimod_multi.f90</a>.</p>

</div>
</div>
</div>
</div>
  <div id="nav-path" class="navpath">
    <ul>
      <li class="navelem"><a class="el" href="mpimod__multi_8f90.html">mpimod_multi.f90</a>      </li>
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
     onmouseover="return searchBox.OnSearchSelectShow()"
     onmouseout="return searchBox.OnSearchSelectHide()"
     onkeydown="return searchBox.OnSearchSelectKey(event)">
<a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(0)"><span class="SelectionMark">&#160;</span>All</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(1)"><span class="SelectionMark">&#160;</span>Classes</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(2)"><span class="SelectionMark">&#160;</span>Files</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(3)"><span class="SelectionMark">&#160;</span>Functions</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(4)"><span class="SelectionMark">&#160;</span>Variables</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(5)"><span class="SelectionMark">&#160;</span>Defines</a></div>

<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<iframe src="javascript:void(0)" frameborder="0" 
        name="MSearchResults" id="MSearchResults">
</iframe>
</div>


    <li class="footer">Generated on Wed Sep 21 2011 12:35:46 for PUMA by
    <a href="http://www.doxygen.org/index.html">
    <img class="footer" src="doxygen.png" alt="doxygen"/></a> 1.7.5.1 </li>
   </ul>
 </div>


</body>
</html>