source: CPL/oasis3-mct/branches/OASIS3-MCT_5.0_branch/doc/doxygen/html/mod__oasis__part_8_f90_source.html @ 6331

Last change on this file since 6331 was 6331, checked in by aclsce, 17 months ago

Moved oasis-mct_5.0 in oasis3-mct/branches directory.
File size: 149.2 KB
Line 
1<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
2<html xmlns="http://www.w3.org/1999/xhtml">
3<head>
4<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
5<meta http-equiv="X-UA-Compatible" content="IE=9"/>
6<meta name="generator" content="Doxygen 1.8.13"/>
7<meta name="viewport" content="width=device-width, initial-scale=1"/>
8<title>Oasis3-MCT: /home/globc2/tcraig/oasis3-mct.trunk/lib/psmile/src/mod_oasis_part.F90 Source File</title>
9<link href="tabs.css" rel="stylesheet" type="text/css"/>
10<script type="text/javascript" src="jquery.js"></script>
11<script type="text/javascript" src="dynsections.js"></script>
12<link href="search/search.css" rel="stylesheet" type="text/css"/>
13<script type="text/javascript" src="search/searchdata.js"></script>
14<script type="text/javascript" src="search/search.js"></script>
15<link href="doxygen.css" rel="stylesheet" type="text/css" />
16</head>
17<body>
18<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
19<div id="titlearea">
20<table cellspacing="0" cellpadding="0">
21 <tbody>
22 <tr style="height: 56px;">
23  <td id="projectalign" style="padding-left: 0.5em;">
24   <div id="projectname">Oasis3-MCT
25   </div>
26  </td>
27 </tr>
28 </tbody>
29</table>
30</div>
31<!-- end header part -->
32<!-- Generated by Doxygen 1.8.13 -->
33<script type="text/javascript">
34var searchBox = new SearchBox("searchBox", "search",false,'Search');
35</script>
36<script type="text/javascript" src="menudata.js"></script>
37<script type="text/javascript" src="menu.js"></script>
38<script type="text/javascript">
39$(function() {
40  initMenu('',true,false,'search.php','Search');
41  $(document).ready(function() { init_search(); });
42});
43</script>
44<div id="main-nav"></div>
45<!-- window showing the filter options -->
46<div id="MSearchSelectWindow"
47     onmouseover="return searchBox.OnSearchSelectShow()"
48     onmouseout="return searchBox.OnSearchSelectHide()"
49     onkeydown="return searchBox.OnSearchSelectKey(event)">
50</div>
51
52<!-- iframe showing the search results (closed by default) -->
53<div id="MSearchResultsWindow">
54<iframe src="javascript:void(0)" frameborder="0" 
55        name="MSearchResults" id="MSearchResults">
56</iframe>
57</div>
58
59<div id="nav-path" class="navpath">
60  <ul>
61<li class="navelem"><a class="el" href="dir_97aefd0d527b934f1d99a682da8fe6a9.html">lib</a></li><li class="navelem"><a class="el" href="dir_6f83a59929ac69cee82ded507f083b9f.html">psmile</a></li><li class="navelem"><a class="el" href="dir_dcfc5ad42d3b5a64023b870fcbdcd859.html">src</a></li>  </ul>
62</div>
63</div><!-- top -->
64<div class="header">
65  <div class="headertitle">
66<div class="title">mod_oasis_part.F90</div>  </div>
67</div><!--header-->
68<div class="contents">
69<a href="mod__oasis__part_8_f90.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;<span class="comment"></span></div><div class="line"><a name="l00002"></a><span class="lineno">    2</span>&#160;<span class="comment">!&gt; OASIS partition data and methods</span></div><div class="line"><a name="l00003"></a><span class="lineno">    3</span>&#160;</div><div class="line"><a name="l00004"></a><span class="lineno"><a class="line" href="namespacemod__oasis__part.html">    4</a></span>&#160;<span class="keyword">MODULE</span> <a class="code" href="namespacemod__oasis__part.html">mod_oasis_part</a></div><div class="line"><a name="l00005"></a><span class="lineno">    5</span>&#160;</div><div class="line"><a name="l00006"></a><span class="lineno">    6</span>&#160;   <span class="keywordtype">USE </span><a class="code" href="namespacemod__oasis__kinds.html">mod_oasis_kinds</a></div><div class="line"><a name="l00007"></a><span class="lineno">    7</span>&#160;   <span class="keywordtype">USE </span><a class="code" href="namespacemod__oasis__data.html">mod_oasis_data</a></div><div class="line"><a name="l00008"></a><span class="lineno">    8</span>&#160;   <span class="keywordtype">USE </span><a class="code" href="namespacemod__oasis__parameters.html">mod_oasis_parameters</a></div><div class="line"><a name="l00009"></a><span class="lineno">    9</span>&#160;   <span class="keywordtype">USE </span><a class="code" href="namespacemod__oasis__sys.html">mod_oasis_sys</a></div><div class="line"><a name="l00010"></a><span class="lineno">   10</span>&#160;   <span class="keywordtype">USE </span><a class="code" href="namespacemod__oasis__mpi.html">mod_oasis_mpi</a></div><div class="line"><a name="l00011"></a><span class="lineno">   11</span>&#160;   <span class="keywordtype">USE </span><a class="code" href="namespacemod__oasis__timer.html">mod_oasis_timer</a></div><div class="line"><a name="l00012"></a><span class="lineno">   12</span>&#160;   <span class="keywordtype">USE </span>mct_mod</div><div class="line"><a name="l00013"></a><span class="lineno">   13</span>&#160;</div><div class="line"><a name="l00014"></a><span class="lineno">   14</span>&#160;   <span class="keywordtype">implicit none</span></div><div class="line"><a name="l00015"></a><span class="lineno">   15</span>&#160;</div><div class="line"><a name="l00016"></a><span class="lineno">   16</span>&#160;   <span class="keywordtype">private</span></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;   <span class="comment">!--- interfaces ---</span></div><div class="line"><a name="l00019"></a><span class="lineno">   19</span>&#160;   <span class="keywordtype">public</span> :: <a class="code" href="namespacemod__oasis__part.html#af070605328f2b705735d7fbf8b838ff4">oasis_def_partition</a></div><div class="line"><a name="l00020"></a><span class="lineno">   20</span>&#160;   <span class="keywordtype">public</span> :: <a class="code" href="namespacemod__oasis__part.html#a80f66cc0ce5857aa53d070861f05b521">oasis_part_setup</a></div><div class="line"><a name="l00021"></a><span class="lineno">   21</span>&#160;   <span class="keywordtype">public</span> :: <a class="code" href="namespacemod__oasis__part.html#aacc20c24f42edbef4ec2610bf98aadfc">oasis_part_create</a></div><div class="line"><a name="l00022"></a><span class="lineno">   22</span>&#160;</div><div class="line"><a name="l00023"></a><span class="lineno">   23</span>&#160;   <span class="comment">!--- datatypes ---</span></div><div class="line"><a name="l00024"></a><span class="lineno">   24</span>&#160;   <span class="keywordtype">public</span> :: <a class="code" href="structmod__oasis__part_1_1prism__part__type.html">prism_part_type</a></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="namespacemod__oasis__part.html#ab68d087792db0351181c9a97025d793b">   26</a></span>&#160;   <span class="keywordtype">integer(kind=ip_intwp_p)</span>,<span class="keywordtype">parameter</span> :: <a class="code" href="namespacemod__oasis__part.html#ab68d087792db0351181c9a97025d793b">mpart</a> = 100<span class="comment">  !&lt; maximum number of partitions allowed</span></div><div class="line"><a name="l00027"></a><span class="lineno">   27</span>&#160;<span class="comment"></span></div><div class="line"><a name="l00028"></a><span class="lineno">   28</span>&#160;<span class="comment">   !&gt; Partition (decomposition) data for variables</span></div><div class="line"><a name="l00029"></a><span class="lineno"><a class="line" href="structmod__oasis__part_1_1prism__part__type.html">   29</a></span>&#160;   <span class="keyword">type</span> <a class="code" href="structmod__oasis__part_1_1prism__part__type.html">prism_part_type</a></div><div class="line"><a name="l00030"></a><span class="lineno"><a class="line" href="structmod__oasis__part_1_1prism__part__type.html#ae53180c23d73bf1f4930e24171dba0a2">   30</a></span>&#160;      <span class="keywordtype">character(len=ic_lvar2)</span>:: partname<span class="comment"> !&lt; partition name</span></div><div class="line"><a name="l00031"></a><span class="lineno"><a class="line" href="structmod__oasis__part_1_1prism__part__type.html#a3d605216cf9bdf556416419ee8ec5993">   31</a></span>&#160;      <span class="keywordtype">type</span>(mct_gsmap)        :: gsmap<span class="comment">    !&lt; gsmap on mpi_comm_local</span></div><div class="line"><a name="l00032"></a><span class="lineno"><a class="line" href="structmod__oasis__part_1_1prism__part__type.html#aaa2c19e53815eaf5df431612eadabfa4">   32</a></span>&#160;      <span class="keywordtype">integer(kind=ip_i4_p)</span>  :: gsize<span class="comment">    !&lt; global size of grid</span></div><div class="line"><a name="l00033"></a><span class="lineno"><a class="line" href="structmod__oasis__part_1_1prism__part__type.html#a7d857ca94b6eef3642bb6fd1ffeff551">   33</a></span>&#160;      <span class="keywordtype">integer(kind=ip_i4_p)</span>  :: lsize<span class="comment">    !&lt; local size of grid</span></div><div class="line"><a name="l00034"></a><span class="lineno"><a class="line" href="structmod__oasis__part_1_1prism__part__type.html#a7640ce8e1943f2fc70c8b072795502b2">   34</a></span>&#160;      <span class="keywordtype">integer(kind=ip_i4_p)</span>  :: nx<span class="comment">       !&lt; global nx size</span></div><div class="line"><a name="l00035"></a><span class="lineno"><a class="line" href="structmod__oasis__part_1_1prism__part__type.html#a4169783dee96aa9c60d43826daf6000c">   35</a></span>&#160;      <span class="keywordtype">integer(kind=ip_i4_p)</span>  :: ny<span class="comment">       !&lt; global ny size</span></div><div class="line"><a name="l00036"></a><span class="lineno"><a class="line" href="structmod__oasis__part_1_1prism__part__type.html#a4507d4efc53b93149a44bf44d12c9e56">   36</a></span>&#160;      <span class="keywordtype">character(len=ic_lvar)</span> :: gridname<span class="comment"> !&lt; grid name</span></div><div class="line"><a name="l00037"></a><span class="lineno"><a class="line" href="structmod__oasis__part_1_1prism__part__type.html#a5aaf8efdc7391d2a64f269dd97055612">   37</a></span>&#160;      <span class="keywordtype">integer(kind=ip_i4_p)</span>  :: mpicom<span class="comment">   !&lt; mpicom for partition tasks only</span></div><div class="line"><a name="l00038"></a><span class="lineno"><a class="line" href="structmod__oasis__part_1_1prism__part__type.html#a3f129d8d5ee4ccf7b071febc1c3f37c3">   38</a></span>&#160;      <span class="keywordtype">integer(kind=ip_i4_p)</span>  :: npes<span class="comment">     !&lt; tasks count associated with partition</span></div><div class="line"><a name="l00039"></a><span class="lineno"><a class="line" href="structmod__oasis__part_1_1prism__part__type.html#a1bf56b7dcc55c07cab5d1be13d33cfdd">   39</a></span>&#160;      <span class="keywordtype">integer(kind=ip_i4_p)</span>  :: rank<span class="comment">     !&lt; rank of each task</span></div><div class="line"><a name="l00040"></a><span class="lineno"><a class="line" href="structmod__oasis__part_1_1prism__part__type.html#ace66d3bf592452e56ffe202df3a09310">   40</a></span>&#160;      <span class="keywordtype">type</span>(mct_gsmap)        :: pgsmap<span class="comment">   !&lt; same gsmap but on partition mpicom</span></div><div class="line"><a name="l00041"></a><span class="lineno">   41</span>&#160;      <span class="comment">!--- temporary storage from def_part inputs ---</span></div><div class="line"><a name="l00042"></a><span class="lineno"><a class="line" href="structmod__oasis__part_1_1prism__part__type.html#a68188f6203fd3a54b307f3074cd01957">   42</a></span>&#160;      <span class="keywordtype">integer(kind=ip_i4_p)</span>  :: ig_size<span class="comment">  !&lt; def_part setting</span></div><div class="line"><a name="l00043"></a><span class="lineno"><a class="line" href="structmod__oasis__part_1_1prism__part__type.html#a32de1a0439c69db4f6b4d42839ad4202">   43</a></span>&#160;      <span class="keywordtype">integer(kind=ip_i4_p)</span>,<span class="keywordtype">pointer</span>  :: kparal(:)<span class="comment">  !&lt; def_part setting</span></div><div class="line"><a name="l00044"></a><span class="lineno">   44</span>&#160;<span class="keyword">   end type </span><a class="code" href="structmod__oasis__part_1_1prism__part__type.html">prism_part_type</a></div><div class="line"><a name="l00045"></a><span class="lineno">   45</span>&#160;</div><div class="line"><a name="l00046"></a><span class="lineno"><a class="line" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">   46</a></span>&#160;   <span class="keywordtype">integer(kind=ip_intwp_p)</span>,<span class="keywordtype">public</span> :: <a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a> = 0<span class="comment">  !&lt; number of partitions defined</span></div><div class="line"><a name="l00047"></a><span class="lineno"><a class="line" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">   47</a></span>&#160;   <span class="keywordtype">type</span>(<a class="code" href="structmod__oasis__part_1_1prism__part__type.html">prism_part_type</a>)   ,<span class="keywordtype">public</span> :: <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ab68d087792db0351181c9a97025d793b">mpart</a>)<span class="comment">  !&lt; list of defined partitions</span></div><div class="line"><a name="l00048"></a><span class="lineno">   48</span>&#160;</div><div class="line"><a name="l00049"></a><span class="lineno">   49</span>&#160;   <span class="comment">!--- for automatic naming of partname</span></div><div class="line"><a name="l00050"></a><span class="lineno">   50</span>&#160;   <span class="comment">!--- better than prism_npart, counts only unnamed parts</span></div><div class="line"><a name="l00051"></a><span class="lineno"><a class="line" href="namespacemod__oasis__part.html#a8cee930f023feb7bcad4a0cab0b490a1">   51</a></span>&#160;   <span class="keywordtype">integer(kind=ip_intwp_p)</span>        :: <a class="code" href="namespacemod__oasis__part.html#a8cee930f023feb7bcad4a0cab0b490a1">part_name_cnt</a> = 0<span class="comment">  !&lt; used to define partition names internally</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;<span class="keyword">CONTAINS</span></div><div class="line"><a name="l00054"></a><span class="lineno">   54</span>&#160;</div><div class="line"><a name="l00055"></a><span class="lineno">   55</span>&#160;<span class="comment">!--------------------------------------------------------------------</span></div><div class="line"><a name="l00056"></a><span class="lineno">   56</span>&#160;<span class="comment"></span></div><div class="line"><a name="l00057"></a><span class="lineno">   57</span>&#160;<span class="comment">!&gt; The OASIS user interface to define partitions</span></div><div class="line"><a name="l00058"></a><span class="lineno">   58</span>&#160;</div><div class="line"><a name="l00059"></a><span class="lineno">   59</span>&#160;<span class="keyword">  SUBROUTINE </span><a class="code" href="namespacemod__oasis__part.html#af070605328f2b705735d7fbf8b838ff4">oasis_def_partition</a> (id_part, kparal, kinfo, ig_size, name)</div><div class="line"><a name="l00060"></a><span class="lineno"><a class="line" href="namespacemod__oasis__part.html#af070605328f2b705735d7fbf8b838ff4">   60</a></span>&#160;</div><div class="line"><a name="l00061"></a><span class="lineno">   61</span>&#160;<span class="comment">!*    *** Def_partition ***   PRISM 1.0</span></div><div class="line"><a name="l00062"></a><span class="lineno">   62</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l00063"></a><span class="lineno">   63</span>&#160;<span class="comment">!     purpose:</span></div><div class="line"><a name="l00064"></a><span class="lineno">   64</span>&#160;<span class="comment">!     --------</span></div><div class="line"><a name="l00065"></a><span class="lineno">   65</span>&#160;<span class="comment">!        define a decomposition</span></div><div class="line"><a name="l00066"></a><span class="lineno">   66</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l00067"></a><span class="lineno">   67</span>&#160;<span class="comment">!     interface:</span></div><div class="line"><a name="l00068"></a><span class="lineno">   68</span>&#160;<span class="comment">!     ----------</span></div><div class="line"><a name="l00069"></a><span class="lineno">   69</span>&#160;<span class="comment">!        id_part : field decomposition id</span></div><div class="line"><a name="l00070"></a><span class="lineno">   70</span>&#160;<span class="comment">!        kparal : type of parallel decomposition</span></div><div class="line"><a name="l00071"></a><span class="lineno">   71</span>&#160;<span class="comment">!    kinfo  : output status</span></div><div class="line"><a name="l00072"></a><span class="lineno">   72</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l00073"></a><span class="lineno">   73</span>&#160;<span class="comment">!     author:</span></div><div class="line"><a name="l00074"></a><span class="lineno">   74</span>&#160;<span class="comment">!     -------</span></div><div class="line"><a name="l00075"></a><span class="lineno">   75</span>&#160;<span class="comment">!        Arnaud Caubel - FECIT</span></div><div class="line"><a name="l00076"></a><span class="lineno">   76</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l00077"></a><span class="lineno">   77</span>&#160;<span class="comment">!  ----------------------------------------------------------------</span></div><div class="line"><a name="l00078"></a><span class="lineno">   78</span>&#160;   <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span>              ,<span class="keywordtype">intent(out)</span> :: id_part<span class="comment">  !&lt; partition id</span></div><div class="line"><a name="l00079"></a><span class="lineno">   79</span>&#160;   <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">intent(in)</span>  :: kparal<span class="comment">   !&lt; decomposition information</span></div><div class="line"><a name="l00080"></a><span class="lineno">   80</span>&#160;   <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span>, <span class="keywordtype">optional</span>    ,<span class="keywordtype">intent(out)</span> :: kinfo<span class="comment">    !&lt; return code</span></div><div class="line"><a name="l00081"></a><span class="lineno">   81</span>&#160;   <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span>, <span class="keywordtype">optional</span>    ,<span class="keywordtype">intent(in)</span>  :: ig_size<span class="comment">  !&lt; total size of partition</span></div><div class="line"><a name="l00082"></a><span class="lineno">   82</span>&#160;   <span class="keywordtype">character(len=*)</span>        , <span class="keywordtype">optional</span>    ,<span class="keywordtype">intent(in)</span>  :: name<span class="comment">     !&lt; name of partition</span></div><div class="line"><a name="l00083"></a><span class="lineno">   83</span>&#160;<span class="comment">!  ----------------------------------------------------------------</span></div><div class="line"><a name="l00084"></a><span class="lineno">   84</span>&#160;   <span class="keywordtype">integer(kind=ip_intwp_p)</span> :: n</div><div class="line"><a name="l00085"></a><span class="lineno">   85</span>&#160;   <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_def_partition)&#39;</span></div><div class="line"><a name="l00086"></a><span class="lineno">   86</span>&#160;<span class="comment">!  ----------------------------------------------------------------</span></div><div class="line"><a name="l00087"></a><span class="lineno">   87</span>&#160;</div><div class="line"><a name="l00088"></a><span class="lineno">   88</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#ab963e928a34a1521ec2c1921cc956cc5">oasis_debug_enter</a>(subname)</div><div class="line"><a name="l00089"></a><span class="lineno">   89</span>&#160;</div><div class="line"><a name="l00090"></a><span class="lineno">   90</span>&#160;   <span class="keywordflow">if</span> (.not. <a class="code" href="namespacemod__oasis__data.html#a5056590b195dc981725173c79e52de3b">oasis_coupled</a>) <span class="keywordflow">then</span></div><div class="line"><a name="l00091"></a><span class="lineno">   91</span>&#160;     <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#a349f71cba2df935179d78f3858992c83">oasis_debug_exit</a>(subname)</div><div class="line"><a name="l00092"></a><span class="lineno">   92</span>&#160;     <span class="keywordflow">return</span></div><div class="line"><a name="l00093"></a><span class="lineno">   93</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00094"></a><span class="lineno">   94</span>&#160;</div><div class="line"><a name="l00095"></a><span class="lineno">   95</span>&#160;   kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l00096"></a><span class="lineno">   96</span>&#160;</div><div class="line"><a name="l00097"></a><span class="lineno">   97</span>&#160;   <span class="comment">!-----------------------------------------------</span><span class="comment"></span></div><div class="line"><a name="l00098"></a><span class="lineno">   98</span>&#160;<span class="comment">   !&gt; * Increment partition number and store user values</span></div><div class="line"><a name="l00099"></a><span class="lineno">   99</span>&#160;   <span class="comment">!-----------------------------------------------</span></div><div class="line"><a name="l00100"></a><span class="lineno">  100</span>&#160;</div><div class="line"><a name="l00101"></a><span class="lineno">  101</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;part_definition&#39;</span>)</div><div class="line"><a name="l00102"></a><span class="lineno">  102</span>&#160;</div><div class="line"><a name="l00103"></a><span class="lineno">  103</span>&#160;   <a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a> = <a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a> + 1</div><div class="line"><a name="l00104"></a><span class="lineno">  104</span>&#160;   <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a> &gt; <a class="code" href="namespacemod__oasis__part.html#ab68d087792db0351181c9a97025d793b">mpart</a>) <span class="keywordflow">then</span></div><div class="line"><a name="l00105"></a><span class="lineno">  105</span>&#160;      <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;prism_npart too large = &#39;</span>,<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>,<a class="code" href="namespacemod__oasis__part.html#ab68d087792db0351181c9a97025d793b">mpart</a></div><div class="line"><a name="l00106"></a><span class="lineno">  106</span>&#160;      <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;increase mpart in mod_oasis_part.F90&#39;</span></div><div class="line"><a name="l00107"></a><span class="lineno">  107</span>&#160;      <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#af1943a0ce0c5765ba8a714379065464f">oasis_abort</a>(file=__file__,line=__line__)</div><div class="line"><a name="l00108"></a><span class="lineno">  108</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00109"></a><span class="lineno">  109</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__part.html#a17c747bc29d25b558df42524bd63ac90">oasis_part_zero</a>(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>))</div><div class="line"><a name="l00110"></a><span class="lineno">  110</span>&#160;   id_part = <a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a></div><div class="line"><a name="l00111"></a><span class="lineno">  111</span>&#160;</div><div class="line"><a name="l00112"></a><span class="lineno">  112</span>&#160;   <span class="keywordflow">if</span> (<span class="keyword">present</span>(name)) <span class="keywordflow">then</span></div><div class="line"><a name="l00113"></a><span class="lineno">  113</span>&#160;      <span class="keywordflow">if</span> (len_trim(name) &gt; len(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%partname)) <span class="keywordflow">then</span></div><div class="line"><a name="l00114"></a><span class="lineno">  114</span>&#160;         <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;part name too long = &#39;</span>,trim(name)</div><div class="line"><a name="l00115"></a><span class="lineno">  115</span>&#160;         <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;part name max length = &#39;</span>,len(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%partname)</div><div class="line"><a name="l00116"></a><span class="lineno">  116</span>&#160;         <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#af1943a0ce0c5765ba8a714379065464f">oasis_abort</a>(file=__file__,line=__line__)</div><div class="line"><a name="l00117"></a><span class="lineno">  117</span>&#160;<span class="keywordflow">      endif</span></div><div class="line"><a name="l00118"></a><span class="lineno">  118</span>&#160;      <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%partname = trim(name)</div><div class="line"><a name="l00119"></a><span class="lineno">  119</span>&#160;   <span class="keywordflow">else</span></div><div class="line"><a name="l00120"></a><span class="lineno">  120</span>&#160;      <a class="code" href="namespacemod__oasis__part.html#a8cee930f023feb7bcad4a0cab0b490a1">part_name_cnt</a> = <a class="code" href="namespacemod__oasis__part.html#a8cee930f023feb7bcad4a0cab0b490a1">part_name_cnt</a> + 1</div><div class="line"><a name="l00121"></a><span class="lineno">  121</span>&#160;      <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%partname,<span class="stringliteral">&#39;(a,i6.6)&#39;</span>) trim(<a class="code" href="namespacemod__oasis__data.html#a8379835615758ccf7a4287dde5785681">compnm</a>)//<span class="stringliteral">&#39;_part&#39;</span>,<a class="code" href="namespacemod__oasis__part.html#a8cee930f023feb7bcad4a0cab0b490a1">part_name_cnt</a></div><div class="line"><a name="l00122"></a><span class="lineno">  122</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00123"></a><span class="lineno">  123</span>&#160;</div><div class="line"><a name="l00124"></a><span class="lineno">  124</span>&#160;   <span class="keywordflow">if</span> (<span class="keyword">present</span>(ig_size)) <span class="keywordflow">then</span></div><div class="line"><a name="l00125"></a><span class="lineno">  125</span>&#160;      <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%ig_size = ig_size</div><div class="line"><a name="l00126"></a><span class="lineno">  126</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00127"></a><span class="lineno">  127</span>&#160;</div><div class="line"><a name="l00128"></a><span class="lineno">  128</span>&#160;   <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%kparal(<span class="keyword">size</span>(kparal)))</div><div class="line"><a name="l00129"></a><span class="lineno">  129</span>&#160;   <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%kparal = kparal</div><div class="line"><a name="l00130"></a><span class="lineno">  130</span>&#160;</div><div class="line"><a name="l00131"></a><span class="lineno">  131</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;part_definition&#39;</span>)</div><div class="line"><a name="l00132"></a><span class="lineno">  132</span>&#160;</div><div class="line"><a name="l00133"></a><span class="lineno">  133</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#a349f71cba2df935179d78f3858992c83">oasis_debug_exit</a>(subname)</div><div class="line"><a name="l00134"></a><span class="lineno">  134</span>&#160;</div><div class="line"><a name="l00135"></a><span class="lineno">  135</span>&#160;<span class="keyword"> END SUBROUTINE </span><a class="code" href="namespacemod__oasis__part.html#af070605328f2b705735d7fbf8b838ff4">oasis_def_partition</a></div><div class="line"><a name="l00136"></a><span class="lineno">  136</span>&#160;</div><div class="line"><a name="l00137"></a><span class="lineno">  137</span>&#160;<span class="comment">!------------------------------------------------------------</span></div><div class="line"><a name="l00138"></a><span class="lineno">  138</span>&#160;<span class="comment"></span></div><div class="line"><a name="l00139"></a><span class="lineno">  139</span>&#160;<span class="comment">!&gt; Synchronize partitions across all tasks, called at oasis enddef.</span></div><div class="line"><a name="l00140"></a><span class="lineno">  140</span>&#160;</div><div class="line"><a name="l00141"></a><span class="lineno">  141</span>&#160;<span class="keyword">  SUBROUTINE </span><a class="code" href="namespacemod__oasis__part.html#a80f66cc0ce5857aa53d070861f05b521">oasis_part_setup</a>()</div><div class="line"><a name="l00142"></a><span class="lineno"><a class="line" href="namespacemod__oasis__part.html#a80f66cc0ce5857aa53d070861f05b521">  142</a></span>&#160;   <span class="keywordtype">IMPLICIT NONE</span></div><div class="line"><a name="l00143"></a><span class="lineno">  143</span>&#160;</div><div class="line"><a name="l00144"></a><span class="lineno">  144</span>&#160;   <span class="comment">!--------------------------------------------------------</span></div><div class="line"><a name="l00145"></a><span class="lineno">  145</span>&#160;   <span class="keywordtype">integer(kind=ip_intwp_p)</span> :: m,n,k,p,nsegs,numel,taskid</div><div class="line"><a name="l00146"></a><span class="lineno">  146</span>&#160;   <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span> :: icpl,ierr,ilen</div><div class="line"><a name="l00147"></a><span class="lineno">  147</span>&#160;   <span class="keywordtype">integer(kind=ip_intwp_p)</span>,<span class="keywordtype">pointer</span> :: start(:),length(:)</div><div class="line"><a name="l00148"></a><span class="lineno">  148</span>&#160;   <span class="keywordtype">integer(kind=ip_intwp_p)</span>,<span class="keywordtype">pointer</span> :: kparal(:)</div><div class="line"><a name="l00149"></a><span class="lineno">  149</span>&#160;   <span class="keywordtype">integer(kind=ip_intwp_p)</span> :: ig_size</div><div class="line"><a name="l00150"></a><span class="lineno">  150</span>&#160;   <span class="keywordtype">integer(kind=ip_intwp_p)</span> :: pcnt</div><div class="line"><a name="l00151"></a><span class="lineno">  151</span>&#160;   <span class="keywordtype">logical</span>                  :: found</div><div class="line"><a name="l00152"></a><span class="lineno">  152</span>&#160;   <span class="keywordtype">character(len=ic_lvar2)</span>, <span class="keywordtype">pointer</span> :: pname0(:),pname(:)</div><div class="line"><a name="l00153"></a><span class="lineno">  153</span>&#160;   <span class="keywordtype">logical</span>, <span class="keywordtype">parameter</span> :: local_timers_on = .false.</div><div class="line"><a name="l00154"></a><span class="lineno">  154</span>&#160;   <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_part_setup)&#39;</span></div><div class="line"><a name="l00155"></a><span class="lineno">  155</span>&#160;   <span class="comment">!--------------------------------------------------------</span></div><div class="line"><a name="l00156"></a><span class="lineno">  156</span>&#160;</div><div class="line"><a name="l00157"></a><span class="lineno">  157</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#ab963e928a34a1521ec2c1921cc956cc5">oasis_debug_enter</a>(subname)</div><div class="line"><a name="l00158"></a><span class="lineno">  158</span>&#160;</div><div class="line"><a name="l00159"></a><span class="lineno">  159</span>&#160;   <span class="keywordflow">if</span> (local_timers_on) <span class="keywordflow">then</span></div><div class="line"><a name="l00160"></a><span class="lineno">  160</span>&#160;      <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;part_setup_barrier&#39;</span>)</div><div class="line"><a name="l00161"></a><span class="lineno">  161</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a> /= mpi_comm_null) &amp;</div><div class="line"><a name="l00162"></a><span class="lineno">  162</span>&#160;               <span class="keyword">call </span>mpi_barrier(<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a>, ierr)</div><div class="line"><a name="l00163"></a><span class="lineno">  163</span>&#160;      <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;part_setup_barrier&#39;</span>)</div><div class="line"><a name="l00164"></a><span class="lineno">  164</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00165"></a><span class="lineno">  165</span>&#160;   <span class="keywordflow">if</span> (local_timers_on) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;part_setup&#39;</span>)</div><div class="line"><a name="l00166"></a><span class="lineno">  166</span>&#160;</div><div class="line"><a name="l00167"></a><span class="lineno">  167</span>&#160;   <span class="comment">!-----------------------------------------------</span><span class="comment"></span></div><div class="line"><a name="l00168"></a><span class="lineno">  168</span>&#160;<span class="comment">   !&gt; * Generate reduced partname list</span></div><div class="line"><a name="l00169"></a><span class="lineno">  169</span>&#160;   <span class="comment">!-----------------------------------------------</span></div><div class="line"><a name="l00170"></a><span class="lineno">  170</span>&#160;   <span class="keywordflow">IF</span> (local_timers_on) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;part_setup_reducelists&#39;</span>)</div><div class="line"><a name="l00171"></a><span class="lineno">  171</span>&#160;   <span class="keyword">allocate</span>(pname0(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>))</div><div class="line"><a name="l00172"></a><span class="lineno">  172</span>&#160;   <span class="keywordflow">do</span> n = 1,<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a></div><div class="line"><a name="l00173"></a><span class="lineno">  173</span>&#160;      pname0(n) = <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(n)%partname</div><div class="line"><a name="l00174"></a><span class="lineno">  174</span>&#160;<span class="keywordflow">   enddo</span></div><div class="line"><a name="l00175"></a><span class="lineno">  175</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__mpi.html#a95f6540150f7ab4e64697d2eabc2bf79">oasis_mpi_reducelists</a>(pname0,<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a>,pcnt,pname,<span class="stringliteral">&#39;part_setup&#39;</span>,fastcheck=.true.)</div><div class="line"><a name="l00176"></a><span class="lineno">  176</span>&#160;   <span class="keyword">deallocate</span>(pname0)</div><div class="line"><a name="l00177"></a><span class="lineno">  177</span>&#160;   <span class="keywordflow">IF</span> (local_timers_on) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;part_setup_reducelists&#39;</span>)</div><div class="line"><a name="l00178"></a><span class="lineno">  178</span>&#160;</div><div class="line"><a name="l00179"></a><span class="lineno">  179</span>&#160;   <span class="comment">!-------------------------------------------------     </span><span class="comment"></span></div><div class="line"><a name="l00180"></a><span class="lineno">  180</span>&#160;<span class="comment">   !&gt; * Define all partitions on all tasks</span></div><div class="line"><a name="l00181"></a><span class="lineno">  181</span>&#160;   <span class="comment">!-------------------------------------------------     </span></div><div class="line"><a name="l00182"></a><span class="lineno">  182</span>&#160;</div><div class="line"><a name="l00183"></a><span class="lineno">  183</span>&#160;   <span class="keywordflow">if</span> (local_timers_on) <span class="keywordflow">then</span></div><div class="line"><a name="l00184"></a><span class="lineno">  184</span>&#160;      <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;part_setup_initgsm_barrier&#39;</span>)</div><div class="line"><a name="l00185"></a><span class="lineno">  185</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a> /= mpi_comm_null) &amp;</div><div class="line"><a name="l00186"></a><span class="lineno">  186</span>&#160;               <span class="keyword">call </span>mpi_barrier(<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a>, ierr)</div><div class="line"><a name="l00187"></a><span class="lineno">  187</span>&#160;      <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;part_setup_initgsm_barrier&#39;</span>)</div><div class="line"><a name="l00188"></a><span class="lineno">  188</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00189"></a><span class="lineno">  189</span>&#160;   <span class="keywordflow">IF</span> (local_timers_on) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;part_setup_initgsm&#39;</span>)</div><div class="line"><a name="l00190"></a><span class="lineno">  190</span>&#160;   <span class="keywordflow">do</span> p = 1,pcnt</div><div class="line"><a name="l00191"></a><span class="lineno">  191</span>&#160;</div><div class="line"><a name="l00192"></a><span class="lineno">  192</span>&#160;      <span class="keywordflow">if</span> (local_timers_on) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;part_setup_initgsm_A&#39;</span>)</div><div class="line"><a name="l00193"></a><span class="lineno">  193</span>&#160;      <span class="comment">!--- set m, either a prism_part that already exists</span></div><div class="line"><a name="l00194"></a><span class="lineno">  194</span>&#160;      found = .false.</div><div class="line"><a name="l00195"></a><span class="lineno">  195</span>&#160;      n = 0</div><div class="line"><a name="l00196"></a><span class="lineno">  196</span>&#160;      <span class="keywordflow">do</span> <span class="keywordflow">while</span> (n &lt; <a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a> .and. .not.found)</div><div class="line"><a name="l00197"></a><span class="lineno">  197</span>&#160;         n = n + 1</div><div class="line"><a name="l00198"></a><span class="lineno">  198</span>&#160;         <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(n)%partname == pname(p)) <span class="keywordflow">then</span></div><div class="line"><a name="l00199"></a><span class="lineno">  199</span>&#160;            m = n</div><div class="line"><a name="l00200"></a><span class="lineno">  200</span>&#160;            found = .true.</div><div class="line"><a name="l00201"></a><span class="lineno">  201</span>&#160;<span class="keywordflow">         endif</span></div><div class="line"><a name="l00202"></a><span class="lineno">  202</span>&#160;<span class="keywordflow">      enddo</span></div><div class="line"><a name="l00203"></a><span class="lineno">  203</span>&#160;      <span class="keywordflow">if</span> (local_timers_on) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;part_setup_initgsm_A&#39;</span>)</div><div class="line"><a name="l00204"></a><span class="lineno">  204</span>&#160;</div><div class="line"><a name="l00205"></a><span class="lineno">  205</span>&#160;      <span class="keywordflow">if</span> (local_timers_on) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;part_setup_initgsm_B&#39;</span>)</div><div class="line"><a name="l00206"></a><span class="lineno">  206</span>&#160;      <span class="comment">!--- or m is a new prism_part that must be instantiated</span></div><div class="line"><a name="l00207"></a><span class="lineno">  207</span>&#160;      <span class="comment">!--- and set to have no data</span></div><div class="line"><a name="l00208"></a><span class="lineno">  208</span>&#160;      <span class="keywordflow">if</span> (.not.found) <span class="keywordflow">then</span></div><div class="line"><a name="l00209"></a><span class="lineno">  209</span>&#160;         <a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a> = <a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a> + 1</div><div class="line"><a name="l00210"></a><span class="lineno">  210</span>&#160;         m = <a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a></div><div class="line"><a name="l00211"></a><span class="lineno">  211</span>&#160;         <span class="keyword">call </span><a class="code" href="namespacemod__oasis__part.html#a17c747bc29d25b558df42524bd63ac90">oasis_part_zero</a>(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>))</div><div class="line"><a name="l00212"></a><span class="lineno">  212</span>&#160;         <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%partname = pname(p)</div><div class="line"><a name="l00213"></a><span class="lineno">  213</span>&#160;         <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%kparal(3))</div><div class="line"><a name="l00214"></a><span class="lineno">  214</span>&#160;         <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%kparal = 0</div><div class="line"><a name="l00215"></a><span class="lineno">  215</span>&#160;<span class="keywordflow">      endif</span></div><div class="line"><a name="l00216"></a><span class="lineno">  216</span>&#160;      <span class="keywordflow">if</span> (local_timers_on) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;part_setup_initgsm_B&#39;</span>)</div><div class="line"><a name="l00217"></a><span class="lineno">  217</span>&#160;</div><div class="line"><a name="l00218"></a><span class="lineno">  218</span>&#160;      <span class="comment">!-------------------------------------------------     </span><span class="comment"></span></div><div class="line"><a name="l00219"></a><span class="lineno">  219</span>&#160;<span class="comment">      !&gt; * Convert kparal information to data for the gsmap</span></div><div class="line"><a name="l00220"></a><span class="lineno">  220</span>&#160;      <span class="comment">!-------------------------------------------------     </span></div><div class="line"><a name="l00221"></a><span class="lineno">  221</span>&#160;</div><div class="line"><a name="l00222"></a><span class="lineno">  222</span>&#160;      <span class="keywordflow">if</span> (local_timers_on) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;part_setup_initgsm_C&#39;</span>)</div><div class="line"><a name="l00223"></a><span class="lineno">  223</span>&#160;      <span class="keyword">allocate</span>(kparal(<span class="keyword">size</span>(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m)%kparal)))</div><div class="line"><a name="l00224"></a><span class="lineno">  224</span>&#160;      kparal = <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m)%kparal</div><div class="line"><a name="l00225"></a><span class="lineno">  225</span>&#160;      ig_size = <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m)%ig_size</div><div class="line"><a name="l00226"></a><span class="lineno">  226</span>&#160;</div><div class="line"><a name="l00227"></a><span class="lineno">  227</span>&#160;      <span class="keywordflow">if</span> (kparal(<a class="code" href="namespacemod__oasis__parameters.html#a611cae6f3c65a75f26e76b2f88f34037">clim_strategy</a>) == <a class="code" href="namespacemod__oasis__parameters.html#a5c410369e763f9156d0ce1c82e866265">clim_serial</a>) <span class="keywordflow">then</span></div><div class="line"><a name="l00228"></a><span class="lineno">  228</span>&#160;         nsegs = 1</div><div class="line"><a name="l00229"></a><span class="lineno">  229</span>&#160;         <span class="keyword">allocate</span>(start(nsegs),length(nsegs))</div><div class="line"><a name="l00230"></a><span class="lineno">  230</span>&#160;         start(1) = 1</div><div class="line"><a name="l00231"></a><span class="lineno">  231</span>&#160;         length(1) = kparal(<a class="code" href="namespacemod__oasis__parameters.html#a984896e821cbbb8c4a91e86ff19d54de">clim_length</a>)</div><div class="line"><a name="l00232"></a><span class="lineno">  232</span>&#160;         numel = nsegs</div><div class="line"><a name="l00233"></a><span class="lineno">  233</span>&#160;         <span class="keywordflow">if</span> (length(1) == 0) numel = 0</div><div class="line"><a name="l00234"></a><span class="lineno">  234</span>&#160;      <span class="keywordflow">elseif</span> (kparal(<a class="code" href="namespacemod__oasis__parameters.html#a611cae6f3c65a75f26e76b2f88f34037">clim_strategy</a>) == <a class="code" href="namespacemod__oasis__parameters.html#a3cfd98fdd1c2fac653b182454c87f4aa">clim_apple</a>) <span class="keywordflow">then</span></div><div class="line"><a name="l00235"></a><span class="lineno">  235</span>&#160;         nsegs = 1</div><div class="line"><a name="l00236"></a><span class="lineno">  236</span>&#160;         <span class="keyword">allocate</span>(start(nsegs),length(nsegs))</div><div class="line"><a name="l00237"></a><span class="lineno">  237</span>&#160;         start(1) = kparal(<a class="code" href="namespacemod__oasis__parameters.html#a4cd07733eaf5d8c8148986c0c4217772">clim_offset</a>) + 1</div><div class="line"><a name="l00238"></a><span class="lineno">  238</span>&#160;         length(1) = kparal(<a class="code" href="namespacemod__oasis__parameters.html#a984896e821cbbb8c4a91e86ff19d54de">clim_length</a>)</div><div class="line"><a name="l00239"></a><span class="lineno">  239</span>&#160;         numel = nsegs</div><div class="line"><a name="l00240"></a><span class="lineno">  240</span>&#160;         <span class="keywordflow">if</span> (length(1) == 0) numel = 0</div><div class="line"><a name="l00241"></a><span class="lineno">  241</span>&#160;      <span class="keywordflow">elseif</span> (kparal(<a class="code" href="namespacemod__oasis__parameters.html#a611cae6f3c65a75f26e76b2f88f34037">clim_strategy</a>) == <a class="code" href="namespacemod__oasis__parameters.html#a9a8b38629274e3a38a37f329ce9d2aa2">clim_box</a>) <span class="keywordflow">then</span></div><div class="line"><a name="l00242"></a><span class="lineno">  242</span>&#160;         nsegs = kparal(<a class="code" href="namespacemod__oasis__parameters.html#a206910560c246db3404224a04cfd4319">clim_sizey</a>)</div><div class="line"><a name="l00243"></a><span class="lineno">  243</span>&#160;         <span class="keyword">allocate</span>(start(nsegs),length(nsegs))</div><div class="line"><a name="l00244"></a><span class="lineno">  244</span>&#160;         <span class="keywordflow">do</span> n = 1,nsegs</div><div class="line"><a name="l00245"></a><span class="lineno">  245</span>&#160;            start(n) = kparal(<a class="code" href="namespacemod__oasis__parameters.html#a4cd07733eaf5d8c8148986c0c4217772">clim_offset</a>) + (n-1)*kparal(<a class="code" href="namespacemod__oasis__parameters.html#a3407c11054d24782182c649307808e47">clim_ldx</a>) + 1</div><div class="line"><a name="l00246"></a><span class="lineno">  246</span>&#160;            length(n) = kparal(<a class="code" href="namespacemod__oasis__parameters.html#a4fb35a666ab4cec927a2ae9244535cb0">clim_sizex</a>)</div><div class="line"><a name="l00247"></a><span class="lineno">  247</span>&#160;<span class="keywordflow">         enddo</span></div><div class="line"><a name="l00248"></a><span class="lineno">  248</span>&#160;         numel = nsegs</div><div class="line"><a name="l00249"></a><span class="lineno">  249</span>&#160;         <span class="keywordflow">if</span> (kparal(<a class="code" href="namespacemod__oasis__parameters.html#a206910560c246db3404224a04cfd4319">clim_sizey</a>)*kparal(<a class="code" href="namespacemod__oasis__parameters.html#a4fb35a666ab4cec927a2ae9244535cb0">clim_sizex</a>) == 0) numel = 0</div><div class="line"><a name="l00250"></a><span class="lineno">  250</span>&#160;      <span class="keywordflow">elseif</span> (kparal(<a class="code" href="namespacemod__oasis__parameters.html#a611cae6f3c65a75f26e76b2f88f34037">clim_strategy</a>) == <a class="code" href="namespacemod__oasis__parameters.html#a17c74cc8141b595e448588b1add0f6bf">clim_orange</a>) <span class="keywordflow">then</span></div><div class="line"><a name="l00251"></a><span class="lineno">  251</span>&#160;         nsegs = kparal(<a class="code" href="namespacemod__oasis__parameters.html#a7427036a6530871a0f49c0fb75f2b3ef">clim_segments</a>)</div><div class="line"><a name="l00252"></a><span class="lineno">  252</span>&#160;         <span class="keyword">allocate</span>(start(nsegs),length(nsegs))</div><div class="line"><a name="l00253"></a><span class="lineno">  253</span>&#160;         numel = 0</div><div class="line"><a name="l00254"></a><span class="lineno">  254</span>&#160;         <span class="keywordflow">DO</span> n = 1,nsegs</div><div class="line"><a name="l00255"></a><span class="lineno">  255</span>&#160;           ilen = kparal((n-1)*2 + 4)</div><div class="line"><a name="l00256"></a><span class="lineno">  256</span>&#160;           <span class="keywordflow">IF</span> (ilen &gt; 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00257"></a><span class="lineno">  257</span>&#160;               numel = numel + 1</div><div class="line"><a name="l00258"></a><span class="lineno">  258</span>&#160;               start(numel)  = kparal((n-1)*2 + 3) + 1</div><div class="line"><a name="l00259"></a><span class="lineno">  259</span>&#160;               length(numel) = ilen</div><div class="line"><a name="l00260"></a><span class="lineno">  260</span>&#160;<span class="keywordflow">           ENDIF</span></div><div class="line"><a name="l00261"></a><span class="lineno">  261</span>&#160;<span class="keywordflow">         ENDDO</span> </div><div class="line"><a name="l00262"></a><span class="lineno">  262</span>&#160;      <span class="keywordflow">elseif</span> (kparal(<a class="code" href="namespacemod__oasis__parameters.html#a611cae6f3c65a75f26e76b2f88f34037">clim_strategy</a>) == <a class="code" href="namespacemod__oasis__parameters.html#aa9d90a3d7d5b21d2081a578dfea42fd4">clim_points</a>) <span class="keywordflow">then</span></div><div class="line"><a name="l00263"></a><span class="lineno">  263</span>&#160;         nsegs = kparal(<a class="code" href="namespacemod__oasis__parameters.html#a7427036a6530871a0f49c0fb75f2b3ef">clim_segments</a>)</div><div class="line"><a name="l00264"></a><span class="lineno">  264</span>&#160;         <span class="keyword">allocate</span>(start(nsegs),length(nsegs))</div><div class="line"><a name="l00265"></a><span class="lineno">  265</span>&#160;         <span class="comment">!--- initialize first segment, nsegs=1,n=1,k=3</span></div><div class="line"><a name="l00266"></a><span class="lineno">  266</span>&#160;         nsegs = 1</div><div class="line"><a name="l00267"></a><span class="lineno">  267</span>&#160;         n = 1</div><div class="line"><a name="l00268"></a><span class="lineno">  268</span>&#160;         k = n+2</div><div class="line"><a name="l00269"></a><span class="lineno">  269</span>&#160;         start(nsegs)  = kparal(k)</div><div class="line"><a name="l00270"></a><span class="lineno">  270</span>&#160;         length(nsegs) = 1</div><div class="line"><a name="l00271"></a><span class="lineno">  271</span>&#160;         <span class="comment">!--- compute rest of segments from n=2,k=4</span></div><div class="line"><a name="l00272"></a><span class="lineno">  272</span>&#160;         <span class="keywordflow">do</span> n = 2,kparal(<a class="code" href="namespacemod__oasis__parameters.html#a7427036a6530871a0f49c0fb75f2b3ef">clim_segments</a>)</div><div class="line"><a name="l00273"></a><span class="lineno">  273</span>&#160;            k = n+2</div><div class="line"><a name="l00274"></a><span class="lineno">  274</span>&#160;            <span class="keywordflow">if</span> (kparal(k)-kparal(k-1) == 1) <span class="keywordflow">then</span></div><div class="line"><a name="l00275"></a><span class="lineno">  275</span>&#160;               length(nsegs) = length(nsegs) + 1</div><div class="line"><a name="l00276"></a><span class="lineno">  276</span>&#160;            <span class="keywordflow">else</span></div><div class="line"><a name="l00277"></a><span class="lineno">  277</span>&#160;               nsegs = nsegs + 1</div><div class="line"><a name="l00278"></a><span class="lineno">  278</span>&#160;               start(nsegs)  = kparal(k)</div><div class="line"><a name="l00279"></a><span class="lineno">  279</span>&#160;               length(nsegs) = 1</div><div class="line"><a name="l00280"></a><span class="lineno">  280</span>&#160;<span class="keywordflow">            endif</span></div><div class="line"><a name="l00281"></a><span class="lineno">  281</span>&#160;<span class="keywordflow">         enddo</span></div><div class="line"><a name="l00282"></a><span class="lineno">  282</span>&#160;         numel = nsegs</div><div class="line"><a name="l00283"></a><span class="lineno">  283</span>&#160;      <span class="keywordflow">else</span></div><div class="line"><a name="l00284"></a><span class="lineno">  284</span>&#160;         <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;part strategy unknown in def_part = &#39;</span>,kparal(<a class="code" href="namespacemod__oasis__parameters.html#a611cae6f3c65a75f26e76b2f88f34037">clim_strategy</a>)</div><div class="line"><a name="l00285"></a><span class="lineno">  285</span>&#160;         <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;strategy set in kparal array index &#39;</span>,<a class="code" href="namespacemod__oasis__parameters.html#a611cae6f3c65a75f26e76b2f88f34037">clim_strategy</a></div><div class="line"><a name="l00286"></a><span class="lineno">  286</span>&#160;         <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#af1943a0ce0c5765ba8a714379065464f">oasis_abort</a>(file=__file__,line=__line__)</div><div class="line"><a name="l00287"></a><span class="lineno">  287</span>&#160;<span class="keywordflow">      endif</span></div><div class="line"><a name="l00288"></a><span class="lineno">  288</span>&#160;</div><div class="line"><a name="l00289"></a><span class="lineno">  289</span>&#160;      <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a> &gt;= 30)  <span class="keywordflow">THEN</span></div><div class="line"><a name="l00290"></a><span class="lineno">  290</span>&#160;         <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname, <span class="stringliteral">&#39; Nsegs before calling mct_gsmap_init :&#39;</span>,nsegs</div><div class="line"><a name="l00291"></a><span class="lineno">  291</span>&#160;         <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname, <span class="stringliteral">&#39; Numel before calling mct_gsmap_init :&#39;</span>,numel</div><div class="line"><a name="l00292"></a><span class="lineno">  292</span>&#160;         <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>)</div><div class="line"><a name="l00293"></a><span class="lineno">  293</span>&#160;<span class="keywordflow">      ENDIF</span></div><div class="line"><a name="l00294"></a><span class="lineno">  294</span>&#160;</div><div class="line"><a name="l00295"></a><span class="lineno">  295</span>&#160;      <span class="keywordflow">if</span> (local_timers_on) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;part_setup_initgsm_C&#39;</span>)</div><div class="line"><a name="l00296"></a><span class="lineno">  296</span>&#160;   </div><div class="line"><a name="l00297"></a><span class="lineno">  297</span>&#160;      <span class="comment">!-------------------------------------------------     </span><span class="comment"></span></div><div class="line"><a name="l00298"></a><span class="lineno">  298</span>&#160;<span class="comment">      !&gt; * Initialize the local gsmap and partition gsmap</span></div><div class="line"><a name="l00299"></a><span class="lineno">  299</span>&#160;      <span class="comment">!-------------------------------------------------     </span></div><div class="line"><a name="l00300"></a><span class="lineno">  300</span>&#160;</div><div class="line"><a name="l00301"></a><span class="lineno">  301</span>&#160;      <span class="keywordflow">if</span> (local_timers_on) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;part_setup_initgsm_D&#39;</span>)</div><div class="line"><a name="l00302"></a><span class="lineno">  302</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a> /= mpi_comm_null) <span class="keywordflow">then</span></div><div class="line"><a name="l00303"></a><span class="lineno">  303</span>&#160;         <span class="keywordflow">if</span> (ig_size &gt; 0) <span class="keywordflow">then</span></div><div class="line"><a name="l00304"></a><span class="lineno">  304</span>&#160;            <span class="keyword">call </span>mct_gsmap_init(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m)%gsmap,start,length,<a class="code" href="namespacemod__oasis__data.html#a2c468f26bc0c9b2ad5d54d68733e7047">mpi_root_local</a>,&amp;</div><div class="line"><a name="l00305"></a><span class="lineno">  305</span>&#160;                                <a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a>,<a class="code" href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">compid</a>,numel=numel,gsize=ig_size)</div><div class="line"><a name="l00306"></a><span class="lineno">  306</span>&#160;         <span class="keywordflow">else</span></div><div class="line"><a name="l00307"></a><span class="lineno">  307</span>&#160;            <span class="keyword">call </span>mct_gsmap_init(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m)%gsmap,start,length,<a class="code" href="namespacemod__oasis__data.html#a2c468f26bc0c9b2ad5d54d68733e7047">mpi_root_local</a>,&amp;</div><div class="line"><a name="l00308"></a><span class="lineno">  308</span>&#160;                                <a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a>,<a class="code" href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">compid</a>,numel=numel)</div><div class="line"><a name="l00309"></a><span class="lineno">  309</span>&#160;<span class="keywordflow">         endif</span></div><div class="line"><a name="l00310"></a><span class="lineno">  310</span>&#160;         <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m)%gsize = mct_gsmap_gsize(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m)%gsmap)</div><div class="line"><a name="l00311"></a><span class="lineno">  311</span>&#160;         <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m)%lsize = mct_gsmap_lsize(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m)%gsmap,<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a>)</div><div class="line"><a name="l00312"></a><span class="lineno">  312</span>&#160;         icpl = mpi_undefined</div><div class="line"><a name="l00313"></a><span class="lineno">  313</span>&#160;         <span class="keywordflow">if</span> (numel &gt; 0) icpl = 1</div><div class="line"><a name="l00314"></a><span class="lineno">  314</span>&#160;         <span class="keyword">CALL </span>mpi_comm_split(<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a>,icpl,1,<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m)%mpicom,ierr)</div><div class="line"><a name="l00315"></a><span class="lineno">  315</span>&#160;         <span class="keywordflow">if</span> (numel &gt; 0) <span class="keywordflow">then</span></div><div class="line"><a name="l00316"></a><span class="lineno">  316</span>&#160;            <span class="keyword">CALL </span>mpi_comm_size ( <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m)%mpicom, <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m)%npes, ierr )</div><div class="line"><a name="l00317"></a><span class="lineno">  317</span>&#160;            <span class="keyword">CALL </span>mpi_comm_rank ( <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m)%mpicom, <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m)%rank, ierr )</div><div class="line"><a name="l00318"></a><span class="lineno">  318</span>&#160;            <span class="keywordflow">if</span> (ig_size &gt; 0) <span class="keywordflow">then</span></div><div class="line"><a name="l00319"></a><span class="lineno">  319</span>&#160;               <span class="keyword">call </span>mct_gsmap_init(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m)%pgsmap,start,length,0, &amp;</div><div class="line"><a name="l00320"></a><span class="lineno">  320</span>&#160;                                   <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m)%mpicom,<a class="code" href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">compid</a>,numel=numel,gsize=ig_size)</div><div class="line"><a name="l00321"></a><span class="lineno">  321</span>&#160;            <span class="keywordflow">else</span></div><div class="line"><a name="l00322"></a><span class="lineno">  322</span>&#160;               <span class="keyword">call </span>mct_gsmap_init(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m)%pgsmap,start,length,0, &amp;</div><div class="line"><a name="l00323"></a><span class="lineno">  323</span>&#160;                                   <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m)%mpicom,<a class="code" href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">compid</a>,numel=numel)</div><div class="line"><a name="l00324"></a><span class="lineno">  324</span>&#160;<span class="keywordflow">            endif</span></div><div class="line"><a name="l00325"></a><span class="lineno">  325</span>&#160;         <span class="keywordflow">else</span></div><div class="line"><a name="l00326"></a><span class="lineno">  326</span>&#160;            <span class="comment">! override mpicom created by split with null</span></div><div class="line"><a name="l00327"></a><span class="lineno">  327</span>&#160;            <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m)%mpicom = mpi_comm_null</div><div class="line"><a name="l00328"></a><span class="lineno">  328</span>&#160;<span class="keywordflow">         endif</span></div><div class="line"><a name="l00329"></a><span class="lineno">  329</span>&#160;      <span class="comment">!else</span></div><div class="line"><a name="l00330"></a><span class="lineno">  330</span>&#160;      <span class="comment">!! set by default</span></div><div class="line"><a name="l00331"></a><span class="lineno">  331</span>&#160;      <span class="comment">!   prism_part(m)%gsize = -1</span></div><div class="line"><a name="l00332"></a><span class="lineno">  332</span>&#160;      <span class="comment">!   prism_part(m)%mpicom = MPI_COMM_NULL</span></div><div class="line"><a name="l00333"></a><span class="lineno">  333</span>&#160;<span class="keywordflow">      endif</span></div><div class="line"><a name="l00334"></a><span class="lineno">  334</span>&#160;      <span class="keywordflow">if</span> (local_timers_on) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;part_setup_initgsm_D&#39;</span>)</div><div class="line"><a name="l00335"></a><span class="lineno">  335</span>&#160;   </div><div class="line"><a name="l00336"></a><span class="lineno">  336</span>&#160;      <span class="keywordflow">if</span> (local_timers_on) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;part_setup_initgsm_E&#39;</span>)</div><div class="line"><a name="l00337"></a><span class="lineno">  337</span>&#160;      <span class="keyword">deallocate</span>(start,length)</div><div class="line"><a name="l00338"></a><span class="lineno">  338</span>&#160;      <span class="keyword">deallocate</span>(kparal)</div><div class="line"><a name="l00339"></a><span class="lineno">  339</span>&#160;      <span class="keyword">deallocate</span>(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m)%kparal)</div><div class="line"><a name="l00340"></a><span class="lineno">  340</span>&#160;   </div><div class="line"><a name="l00341"></a><span class="lineno">  341</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a> &gt;= 2) <span class="keywordflow">then</span></div><div class="line"><a name="l00342"></a><span class="lineno">  342</span>&#160;         <span class="keyword">call </span><a class="code" href="namespacemod__oasis__part.html#a12edb4b0248a3f562fe5f6e16eede06a">oasis_part_write</a>(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(m),m)</div><div class="line"><a name="l00343"></a><span class="lineno">  343</span>&#160;<span class="keywordflow">      endif</span></div><div class="line"><a name="l00344"></a><span class="lineno">  344</span>&#160;      <span class="keywordflow">if</span> (local_timers_on) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;part_setup_initgsm_E&#39;</span>)</div><div class="line"><a name="l00345"></a><span class="lineno">  345</span>&#160;</div><div class="line"><a name="l00346"></a><span class="lineno">  346</span>&#160;<span class="keywordflow">   enddo</span>   <span class="comment">! p = 1,pcnt</span></div><div class="line"><a name="l00347"></a><span class="lineno">  347</span>&#160;</div><div class="line"><a name="l00348"></a><span class="lineno">  348</span>&#160;   <span class="keyword">deallocate</span>(pname)</div><div class="line"><a name="l00349"></a><span class="lineno">  349</span>&#160;</div><div class="line"><a name="l00350"></a><span class="lineno">  350</span>&#160;   <span class="keywordflow">if</span> (local_timers_on) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a> (<span class="stringliteral">&#39;part_setup_initgsm&#39;</span>)</div><div class="line"><a name="l00351"></a><span class="lineno">  351</span>&#160;   <span class="keywordflow">if</span> (local_timers_on) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;part_setup&#39;</span>)</div><div class="line"><a name="l00352"></a><span class="lineno">  352</span>&#160;</div><div class="line"><a name="l00353"></a><span class="lineno">  353</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#a349f71cba2df935179d78f3858992c83">oasis_debug_exit</a>(subname)</div><div class="line"><a name="l00354"></a><span class="lineno">  354</span>&#160;</div><div class="line"><a name="l00355"></a><span class="lineno">  355</span>&#160;<span class="keyword"> END SUBROUTINE </span><a class="code" href="namespacemod__oasis__part.html#a80f66cc0ce5857aa53d070861f05b521">oasis_part_setup</a></div><div class="line"><a name="l00356"></a><span class="lineno">  356</span>&#160;<span class="comment">!------------------------------------------------------------</span></div><div class="line"><a name="l00357"></a><span class="lineno">  357</span>&#160;<span class="comment"></span></div><div class="line"><a name="l00358"></a><span class="lineno">  358</span>&#160;<span class="comment">!&gt; Zero partition information</span></div><div class="line"><a name="l00359"></a><span class="lineno">  359</span>&#160;</div><div class="line"><a name="l00360"></a><span class="lineno">  360</span>&#160;<span class="keyword">  SUBROUTINE </span><a class="code" href="namespacemod__oasis__part.html#a17c747bc29d25b558df42524bd63ac90">oasis_part_zero</a>(s_prism_part)</div><div class="line"><a name="l00361"></a><span class="lineno"><a class="line" href="namespacemod__oasis__part.html#a17c747bc29d25b558df42524bd63ac90">  361</a></span>&#160;</div><div class="line"><a name="l00362"></a><span class="lineno">  362</span>&#160;  <span class="keywordtype">IMPLICIT NONE</span></div><div class="line"><a name="l00363"></a><span class="lineno">  363</span>&#160;</div><div class="line"><a name="l00364"></a><span class="lineno">  364</span>&#160;  <span class="keywordtype">type</span>(<a class="code" href="structmod__oasis__part_1_1prism__part__type.html">prism_part_type</a>),<span class="keywordtype">intent(inout)</span> :: s_prism_part</div><div class="line"><a name="l00365"></a><span class="lineno">  365</span>&#160;  <span class="comment">!--------------------------------------------------------</span></div><div class="line"><a name="l00366"></a><span class="lineno">  366</span>&#160;  <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_part_zero)&#39;</span></div><div class="line"><a name="l00367"></a><span class="lineno">  367</span>&#160;  <span class="comment">!--------------------------------------------------------</span></div><div class="line"><a name="l00368"></a><span class="lineno">  368</span>&#160;</div><div class="line"><a name="l00369"></a><span class="lineno">  369</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#ab963e928a34a1521ec2c1921cc956cc5">oasis_debug_enter</a>(subname)</div><div class="line"><a name="l00370"></a><span class="lineno">  370</span>&#160;</div><div class="line"><a name="l00371"></a><span class="lineno">  371</span>&#160;   s_prism_part%partname = trim(<a class="code" href="namespacemod__oasis__data.html#acfb160b3d147e7cb667b0dc0f5bb2960">cspval</a>)</div><div class="line"><a name="l00372"></a><span class="lineno">  372</span>&#160;   s_prism_part%gsize    = -1</div><div class="line"><a name="l00373"></a><span class="lineno">  373</span>&#160;   s_prism_part%lsize    = -1</div><div class="line"><a name="l00374"></a><span class="lineno">  374</span>&#160;   s_prism_part%nx       = -1</div><div class="line"><a name="l00375"></a><span class="lineno">  375</span>&#160;   s_prism_part%ny       = -1</div><div class="line"><a name="l00376"></a><span class="lineno">  376</span>&#160;   s_prism_part%gridname = trim(<a class="code" href="namespacemod__oasis__data.html#acfb160b3d147e7cb667b0dc0f5bb2960">cspval</a>)</div><div class="line"><a name="l00377"></a><span class="lineno">  377</span>&#160;   s_prism_part%mpicom   = mpi_comm_null</div><div class="line"><a name="l00378"></a><span class="lineno">  378</span>&#160;   s_prism_part%npes     = -1</div><div class="line"><a name="l00379"></a><span class="lineno">  379</span>&#160;   s_prism_part%rank     = -1</div><div class="line"><a name="l00380"></a><span class="lineno">  380</span>&#160;   s_prism_part%ig_size  = -1</div><div class="line"><a name="l00381"></a><span class="lineno">  381</span>&#160;</div><div class="line"><a name="l00382"></a><span class="lineno">  382</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#a349f71cba2df935179d78f3858992c83">oasis_debug_exit</a>(subname)</div><div class="line"><a name="l00383"></a><span class="lineno">  383</span>&#160;</div><div class="line"><a name="l00384"></a><span class="lineno">  384</span>&#160;<span class="keyword"> END SUBROUTINE </span><a class="code" href="namespacemod__oasis__part.html#a17c747bc29d25b558df42524bd63ac90">oasis_part_zero</a></div><div class="line"><a name="l00385"></a><span class="lineno">  385</span>&#160;<span class="comment">!------------------------------------------------------------</span></div><div class="line"><a name="l00386"></a><span class="lineno">  386</span>&#160;<span class="comment"></span></div><div class="line"><a name="l00387"></a><span class="lineno">  387</span>&#160;<span class="comment">!&gt; Print parition information</span></div><div class="line"><a name="l00388"></a><span class="lineno">  388</span>&#160;</div><div class="line"><a name="l00389"></a><span class="lineno">  389</span>&#160;<span class="keyword">  SUBROUTINE </span><a class="code" href="namespacemod__oasis__part.html#a12edb4b0248a3f562fe5f6e16eede06a">oasis_part_write</a>(s_prism_part,npart)</div><div class="line"><a name="l00390"></a><span class="lineno"><a class="line" href="namespacemod__oasis__part.html#a12edb4b0248a3f562fe5f6e16eede06a">  390</a></span>&#160;</div><div class="line"><a name="l00391"></a><span class="lineno">  391</span>&#160;  <span class="keywordtype">IMPLICIT NONE</span></div><div class="line"><a name="l00392"></a><span class="lineno">  392</span>&#160;</div><div class="line"><a name="l00393"></a><span class="lineno">  393</span>&#160;  <span class="keywordtype">type</span>(<a class="code" href="structmod__oasis__part_1_1prism__part__type.html">prism_part_type</a>),<span class="keywordtype">intent(in)</span> :: s_prism_part</div><div class="line"><a name="l00394"></a><span class="lineno">  394</span>&#160;  <span class="keywordtype">integer(ip_i4_p)</span>     ,<span class="keywordtype">intent(in)</span> :: npart</div><div class="line"><a name="l00395"></a><span class="lineno">  395</span>&#160;  <span class="comment">!--------------------------------------------------------</span></div><div class="line"><a name="l00396"></a><span class="lineno">  396</span>&#160;  <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_part_write)&#39;</span></div><div class="line"><a name="l00397"></a><span class="lineno">  397</span>&#160;  <span class="comment">!--------------------------------------------------------</span></div><div class="line"><a name="l00398"></a><span class="lineno">  398</span>&#160;</div><div class="line"><a name="l00399"></a><span class="lineno">  399</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#ab963e928a34a1521ec2c1921cc956cc5">oasis_debug_enter</a>(subname)</div><div class="line"><a name="l00400"></a><span class="lineno">  400</span>&#160;</div><div class="line"><a name="l00401"></a><span class="lineno">  401</span>&#160;   <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l00402"></a><span class="lineno">  402</span>&#160;   <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; partnm = &#39;</span>,trim(s_prism_part%partname)</div><div class="line"><a name="l00403"></a><span class="lineno">  403</span>&#160;   <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; npart  = &#39;</span>,npart</div><div class="line"><a name="l00404"></a><span class="lineno">  404</span>&#160;   <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; mpicom = &#39;</span>,s_prism_part%mpicom</div><div class="line"><a name="l00405"></a><span class="lineno">  405</span>&#160;   <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; npes   = &#39;</span>,s_prism_part%npes</div><div class="line"><a name="l00406"></a><span class="lineno">  406</span>&#160;   <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; rank   = &#39;</span>,s_prism_part%rank</div><div class="line"><a name="l00407"></a><span class="lineno">  407</span>&#160;   <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; compid = &#39;</span>,s_prism_part%gsmap%comp_id</div><div class="line"><a name="l00408"></a><span class="lineno">  408</span>&#160;   <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; ngseg  = &#39;</span>,s_prism_part%gsmap%ngseg</div><div class="line"><a name="l00409"></a><span class="lineno">  409</span>&#160;   <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; gsize  = &#39;</span>,s_prism_part%gsmap%gsize</div><div class="line"><a name="l00410"></a><span class="lineno">  410</span>&#160;   <span class="keywordflow">if</span> (s_prism_part%gsmap%ngseg &gt; 10) <span class="keywordflow">then</span></div><div class="line"><a name="l00411"></a><span class="lineno">  411</span>&#160;      <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a> /= mpi_comm_null) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00412"></a><span class="lineno">  412</span>&#160;         <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; start  = &#39;</span>,s_prism_part%gsmap%start(1:10)</div><div class="line"><a name="l00413"></a><span class="lineno">  413</span>&#160;         <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; length = &#39;</span>,s_prism_part%gsmap%length(1:10)</div><div class="line"><a name="l00414"></a><span class="lineno">  414</span>&#160;         <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; pe_loc = &#39;</span>,s_prism_part%gsmap%pe_loc(1:10)</div><div class="line"><a name="l00415"></a><span class="lineno">  415</span>&#160;<span class="keywordflow">      ENDIF</span></div><div class="line"><a name="l00416"></a><span class="lineno">  416</span>&#160;      <span class="keywordflow">IF</span> (s_prism_part%mpicom /= mpi_comm_null) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00417"></a><span class="lineno">  417</span>&#160;         <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; pstart = &#39;</span>,s_prism_part%pgsmap%start(1:10)</div><div class="line"><a name="l00418"></a><span class="lineno">  418</span>&#160;         <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; plength= &#39;</span>,s_prism_part%pgsmap%length(1:10)</div><div class="line"><a name="l00419"></a><span class="lineno">  419</span>&#160;         <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; ppe_loc= &#39;</span>,s_prism_part%pgsmap%pe_loc(1:10)</div><div class="line"><a name="l00420"></a><span class="lineno">  420</span>&#160;<span class="keywordflow">      ENDIF</span></div><div class="line"><a name="l00421"></a><span class="lineno">  421</span>&#160;   <span class="keywordflow">else</span></div><div class="line"><a name="l00422"></a><span class="lineno">  422</span>&#160;      <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a> /= mpi_comm_null) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00423"></a><span class="lineno">  423</span>&#160;         <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; start  = &#39;</span>,s_prism_part%gsmap%start</div><div class="line"><a name="l00424"></a><span class="lineno">  424</span>&#160;         <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; length = &#39;</span>,s_prism_part%gsmap%length</div><div class="line"><a name="l00425"></a><span class="lineno">  425</span>&#160;         <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; pe_loc = &#39;</span>,s_prism_part%gsmap%pe_loc</div><div class="line"><a name="l00426"></a><span class="lineno">  426</span>&#160;<span class="keywordflow">      ENDIF</span></div><div class="line"><a name="l00427"></a><span class="lineno">  427</span>&#160;      <span class="keywordflow">IF</span> (s_prism_part%mpicom /= mpi_comm_null) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00428"></a><span class="lineno">  428</span>&#160;         <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; pstart = &#39;</span>,s_prism_part%pgsmap%start</div><div class="line"><a name="l00429"></a><span class="lineno">  429</span>&#160;         <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; plength= &#39;</span>,s_prism_part%pgsmap%length</div><div class="line"><a name="l00430"></a><span class="lineno">  430</span>&#160;         <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; ppe_loc= &#39;</span>,s_prism_part%pgsmap%pe_loc</div><div class="line"><a name="l00431"></a><span class="lineno">  431</span>&#160;<span class="keywordflow">      ENDIF</span></div><div class="line"><a name="l00432"></a><span class="lineno">  432</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00433"></a><span class="lineno">  433</span>&#160;   <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l00434"></a><span class="lineno">  434</span>&#160;   <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>)</div><div class="line"><a name="l00435"></a><span class="lineno">  435</span>&#160;</div><div class="line"><a name="l00436"></a><span class="lineno">  436</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#a349f71cba2df935179d78f3858992c83">oasis_debug_exit</a>(subname)</div><div class="line"><a name="l00437"></a><span class="lineno">  437</span>&#160;</div><div class="line"><a name="l00438"></a><span class="lineno">  438</span>&#160;<span class="keyword"> END SUBROUTINE </span><a class="code" href="namespacemod__oasis__part.html#a12edb4b0248a3f562fe5f6e16eede06a">oasis_part_write</a></div><div class="line"><a name="l00439"></a><span class="lineno">  439</span>&#160;<span class="comment">!------------------------------------------------------------</span></div><div class="line"><a name="l00440"></a><span class="lineno">  440</span>&#160;<span class="comment"></span></div><div class="line"><a name="l00441"></a><span class="lineno">  441</span>&#160;<span class="comment">!&gt; Create a new partition internally, needed for mapping</span></div><div class="line"><a name="l00442"></a><span class="lineno">  442</span>&#160;</div><div class="line"><a name="l00443"></a><span class="lineno">  443</span>&#160;<span class="keyword">  SUBROUTINE </span><a class="code" href="namespacemod__oasis__part.html#aacc20c24f42edbef4ec2610bf98aadfc">oasis_part_create</a>(id_part,TYPE,gsize,nx,ny,gridname,gscomm,mpicom,gridID)</div><div class="line"><a name="l00444"></a><span class="lineno"><a class="line" href="namespacemod__oasis__part.html#aacc20c24f42edbef4ec2610bf98aadfc">  444</a></span>&#160;</div><div class="line"><a name="l00445"></a><span class="lineno">  445</span>&#160;  <span class="keywordtype">IMPLICIT NONE</span></div><div class="line"><a name="l00446"></a><span class="lineno">  446</span>&#160;</div><div class="line"><a name="l00447"></a><span class="lineno">  447</span>&#160;  <span class="keywordtype">integer(ip_i4_p)</span>,<span class="keywordtype">intent(out)</span> :: id_part<span class="comment">  !&lt; partition id</span></div><div class="line"><a name="l00448"></a><span class="lineno">  448</span>&#160;  <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">intent(in)</span>  :: <span class="keywordtype">type</span><span class="comment">     !&lt; type of decomposition specified</span></div><div class="line"><a name="l00449"></a><span class="lineno">  449</span>&#160;  <span class="keywordtype">integer(ip_i4_p)</span>,<span class="keywordtype">intent(in)</span>  :: gsize<span class="comment">    !&lt; global size of grid</span></div><div class="line"><a name="l00450"></a><span class="lineno">  450</span>&#160;  <span class="keywordtype">integer(ip_i4_p)</span>,<span class="keywordtype">intent(in)</span>  :: nx<span class="comment">       !&lt; global nx size</span></div><div class="line"><a name="l00451"></a><span class="lineno">  451</span>&#160;  <span class="keywordtype">integer(ip_i4_p)</span>,<span class="keywordtype">intent(in)</span>  :: ny<span class="comment">       !&lt; global ny size</span></div><div class="line"><a name="l00452"></a><span class="lineno">  452</span>&#160;  <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">intent(in)</span>  :: gridname<span class="comment"> !&lt; grid name</span></div><div class="line"><a name="l00453"></a><span class="lineno">  453</span>&#160;  <span class="keywordtype">integer(ip_i4_p)</span>,<span class="keywordtype">intent(in)</span>  :: gscomm<span class="comment">   !&lt; global seg map communicator</span></div><div class="line"><a name="l00454"></a><span class="lineno">  454</span>&#160;  <span class="keywordtype">integer(ip_i4_p)</span>,<span class="keywordtype">intent(in)</span>  :: mpicom<span class="comment">   !&lt; local mpi comm</span></div><div class="line"><a name="l00455"></a><span class="lineno">  455</span>&#160;  <span class="keywordtype">integer(ip_i4_p)</span>, <span class="keywordtype">optional</span>   :: gridID(:)<span class="comment">!&lt; gridcell ID</span></div><div class="line"><a name="l00456"></a><span class="lineno">  456</span>&#160;  <span class="comment">!--------------------------------------------------------</span></div><div class="line"><a name="l00457"></a><span class="lineno">  457</span>&#160;  <span class="keywordtype">integer(ip_i4_p)</span> :: gsrank</div><div class="line"><a name="l00458"></a><span class="lineno">  458</span>&#160;  <span class="keywordtype">integer(ip_i4_p)</span> :: gssize</div><div class="line"><a name="l00459"></a><span class="lineno">  459</span>&#160;  <span class="keywordtype">integer(ip_i4_p)</span> :: numel</div><div class="line"><a name="l00460"></a><span class="lineno">  460</span>&#160;  <span class="keywordtype">integer(ip_i4_p)</span>,<span class="keywordtype">pointer</span> :: start(:),length(:)</div><div class="line"><a name="l00461"></a><span class="lineno">  461</span>&#160;  <span class="keywordtype">integer(ip_i4_p)</span>,<span class="keywordtype">pointer</span> :: llist(:),glist(:)</div><div class="line"><a name="l00462"></a><span class="lineno">  462</span>&#160;  <span class="keywordtype">integer(ip_i4_p)</span> :: pts</div><div class="line"><a name="l00463"></a><span class="lineno">  463</span>&#160;  <span class="keywordtype">integer(ip_i4_p)</span> :: found,foundall</div><div class="line"><a name="l00464"></a><span class="lineno">  464</span>&#160;  <span class="keywordtype">integer(ip_i4_p)</span> :: n</div><div class="line"><a name="l00465"></a><span class="lineno">  465</span>&#160;  <span class="keywordtype">integer(ip_i4_p)</span> :: ierr</div><div class="line"><a name="l00466"></a><span class="lineno">  466</span>&#160;  <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_part_create)&#39;</span></div><div class="line"><a name="l00467"></a><span class="lineno">  467</span>&#160;  <span class="comment">!--------------------------------------------------------</span></div><div class="line"><a name="l00468"></a><span class="lineno">  468</span>&#160;</div><div class="line"><a name="l00469"></a><span class="lineno">  469</span>&#160;  <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#ab963e928a34a1521ec2c1921cc956cc5">oasis_debug_enter</a>(subname)</div><div class="line"><a name="l00470"></a><span class="lineno">  470</span>&#160;</div><div class="line"><a name="l00471"></a><span class="lineno">  471</span>&#160;  <span class="keywordflow">if</span> (gscomm /= mpi_comm_null) <span class="keywordflow">then</span></div><div class="line"><a name="l00472"></a><span class="lineno">  472</span>&#160;     <span class="keyword">call </span>mpi_comm_rank(gscomm,gsrank,ierr)</div><div class="line"><a name="l00473"></a><span class="lineno">  473</span>&#160;     <span class="keyword">call </span>mpi_comm_size(gscomm,gssize,ierr)</div><div class="line"><a name="l00474"></a><span class="lineno">  474</span>&#160;  <span class="keywordflow">else</span></div><div class="line"><a name="l00475"></a><span class="lineno">  475</span>&#160;     gsrank = -1</div><div class="line"><a name="l00476"></a><span class="lineno">  476</span>&#160;     gssize = -1 </div><div class="line"><a name="l00477"></a><span class="lineno">  477</span>&#160;<span class="keywordflow">  endif</span></div><div class="line"><a name="l00478"></a><span class="lineno">  478</span>&#160;</div><div class="line"><a name="l00479"></a><span class="lineno">  479</span>&#160;  <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a> &gt;= 15) <span class="keywordflow">then</span></div><div class="line"><a name="l00480"></a><span class="lineno">  480</span>&#160;     <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; called with &#39;</span>,gsize,nx,ny,trim(gridname)</div><div class="line"><a name="l00481"></a><span class="lineno">  481</span>&#160;     <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; local &#39;</span>,gsrank,gssize</div><div class="line"><a name="l00482"></a><span class="lineno">  482</span>&#160;<span class="keywordflow">  endif</span></div><div class="line"><a name="l00483"></a><span class="lineno">  483</span>&#160;</div><div class="line"><a name="l00484"></a><span class="lineno">  484</span>&#160;  <span class="keywordflow">if</span> ((<span class="keyword">type</span> == <span class="stringliteral">&#39;decomp_wghtfile&#39;</span> .and. .not.present(gridid)) .or. &amp;</div><div class="line"><a name="l00485"></a><span class="lineno">  485</span>&#160;      (<span class="keyword">type</span> /= <span class="stringliteral">&#39;decomp_wghtfile&#39;</span> .and.      present(gridid))) <span class="keywordflow">then</span></div><div class="line"><a name="l00486"></a><span class="lineno">  486</span>&#160;     <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;decomp_wghtfile and gridID arguments inconsistent &#39;</span>,trim(type)</div><div class="line"><a name="l00487"></a><span class="lineno">  487</span>&#160;     <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#af1943a0ce0c5765ba8a714379065464f">oasis_abort</a>(file=__file__,line=__line__)</div><div class="line"><a name="l00488"></a><span class="lineno">  488</span>&#160;<span class="keywordflow">  endif</span></div><div class="line"><a name="l00489"></a><span class="lineno">  489</span>&#160;</div><div class="line"><a name="l00490"></a><span class="lineno">  490</span>&#160;  <span class="comment">!-----------------------------------------------</span><span class="comment"></span></div><div class="line"><a name="l00491"></a><span class="lineno">  491</span>&#160;<span class="comment">  !&gt; * Check if an existing gsmap can be reused</span></div><div class="line"><a name="l00492"></a><span class="lineno">  492</span>&#160;  <span class="comment">!-----------------------------------------------</span></div><div class="line"><a name="l00493"></a><span class="lineno">  493</span>&#160;</div><div class="line"><a name="l00494"></a><span class="lineno">  494</span>&#160;  id_part = -1</div><div class="line"><a name="l00495"></a><span class="lineno">  495</span>&#160;  found = 0</div><div class="line"><a name="l00496"></a><span class="lineno">  496</span>&#160;  n = 0</div><div class="line"><a name="l00497"></a><span class="lineno">  497</span>&#160;  <span class="keywordflow">do</span> <span class="keywordflow">while</span> (found == 0 .and. n &lt; <a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)</div><div class="line"><a name="l00498"></a><span class="lineno">  498</span>&#160;     n = n + 1</div><div class="line"><a name="l00499"></a><span class="lineno">  499</span>&#160;     <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(n)%gsize == gsize .and. &amp;</div><div class="line"><a name="l00500"></a><span class="lineno">  500</span>&#160;        trim(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(n)%gridname) == trim(gridname) .and. &amp;</div><div class="line"><a name="l00501"></a><span class="lineno">  501</span>&#160;        <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(n)%mpicom == gscomm .and. &amp;</div><div class="line"><a name="l00502"></a><span class="lineno">  502</span>&#160;        <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(n)%nx == nx .and. &amp;</div><div class="line"><a name="l00503"></a><span class="lineno">  503</span>&#160;        <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(n)%ny == ny) <span class="keywordflow">then</span></div><div class="line"><a name="l00504"></a><span class="lineno">  504</span>&#160;        id_part = n</div><div class="line"><a name="l00505"></a><span class="lineno">  505</span>&#160;        found = 1</div><div class="line"><a name="l00506"></a><span class="lineno">  506</span>&#160;<span class="keywordflow">     endif</span></div><div class="line"><a name="l00507"></a><span class="lineno">  507</span>&#160;<span class="keywordflow">  enddo</span></div><div class="line"><a name="l00508"></a><span class="lineno">  508</span>&#160;</div><div class="line"><a name="l00509"></a><span class="lineno">  509</span>&#160;  <span class="comment">!-----------------------------------------------</span><span class="comment"></span></div><div class="line"><a name="l00510"></a><span class="lineno">  510</span>&#160;<span class="comment">  !&gt; * Check that all tasks agree and if so, return with that partition id</span></div><div class="line"><a name="l00511"></a><span class="lineno">  511</span>&#160;  <span class="comment">!-----------------------------------------------</span></div><div class="line"><a name="l00512"></a><span class="lineno">  512</span>&#160;</div><div class="line"><a name="l00513"></a><span class="lineno">  513</span>&#160;  foundall = -1</div><div class="line"><a name="l00514"></a><span class="lineno">  514</span>&#160;  <span class="keyword">call </span><a class="code" href="interfacemod__oasis__mpi_1_1oasis__mpi__min.html">oasis_mpi_min</a>(found,foundall,mpicom,string=subname//<span class="stringliteral">&#39; found&#39;</span>,all=.true.)</div><div class="line"><a name="l00515"></a><span class="lineno">  515</span>&#160;  <span class="keywordflow">if</span> (foundall == 1) <span class="keywordflow">then</span></div><div class="line"><a name="l00516"></a><span class="lineno">  516</span>&#160;     <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a> &gt;= 2) <span class="keywordflow">then</span></div><div class="line"><a name="l00517"></a><span class="lineno">  517</span>&#160;        <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; reuse part &#39;</span>,<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>,gsize</div><div class="line"><a name="l00518"></a><span class="lineno">  518</span>&#160;<span class="keywordflow">     endif</span></div><div class="line"><a name="l00519"></a><span class="lineno">  519</span>&#160;     <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#a349f71cba2df935179d78f3858992c83">oasis_debug_exit</a>(subname)</div><div class="line"><a name="l00520"></a><span class="lineno">  520</span>&#160;     <span class="keywordflow">return</span></div><div class="line"><a name="l00521"></a><span class="lineno">  521</span>&#160;<span class="keywordflow">  endif</span></div><div class="line"><a name="l00522"></a><span class="lineno">  522</span>&#160;</div><div class="line"><a name="l00523"></a><span class="lineno">  523</span>&#160;  <span class="comment">!-----------------------------------------------</span><span class="comment"></span></div><div class="line"><a name="l00524"></a><span class="lineno">  524</span>&#160;<span class="comment">  !&gt; * Instantiate a decomposition based on gsize and type</span></div><div class="line"><a name="l00525"></a><span class="lineno">  525</span>&#160;  <span class="comment">!-----------------------------------------------</span></div><div class="line"><a name="l00526"></a><span class="lineno">  526</span>&#160;</div><div class="line"><a name="l00527"></a><span class="lineno">  527</span>&#160;  <a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a> = <a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a> + 1</div><div class="line"><a name="l00528"></a><span class="lineno">  528</span>&#160;  <span class="keyword">call </span><a class="code" href="namespacemod__oasis__part.html#a17c747bc29d25b558df42524bd63ac90">oasis_part_zero</a>(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>))</div><div class="line"><a name="l00529"></a><span class="lineno">  529</span>&#160;</div><div class="line"><a name="l00530"></a><span class="lineno">  530</span>&#160;  <span class="comment">!-----------------------------------------------</span><span class="comment"></span></div><div class="line"><a name="l00531"></a><span class="lineno">  531</span>&#160;<span class="comment">  !&gt;   * Create a new partition and set values</span></div><div class="line"><a name="l00532"></a><span class="lineno">  532</span>&#160;  <span class="comment">!-----------------------------------------------</span></div><div class="line"><a name="l00533"></a><span class="lineno">  533</span>&#160;</div><div class="line"><a name="l00534"></a><span class="lineno">  534</span>&#160;  <a class="code" href="namespacemod__oasis__part.html#a8cee930f023feb7bcad4a0cab0b490a1">part_name_cnt</a> = <a class="code" href="namespacemod__oasis__part.html#a8cee930f023feb7bcad4a0cab0b490a1">part_name_cnt</a> + 1</div><div class="line"><a name="l00535"></a><span class="lineno">  535</span>&#160;  <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%partname,<span class="stringliteral">&#39;(a,i6.6)&#39;</span>) trim(<a class="code" href="namespacemod__oasis__data.html#a8379835615758ccf7a4287dde5785681">compnm</a>)//<span class="stringliteral">&#39;_part&#39;</span>,<a class="code" href="namespacemod__oasis__part.html#a8cee930f023feb7bcad4a0cab0b490a1">part_name_cnt</a></div><div class="line"><a name="l00536"></a><span class="lineno">  536</span>&#160;  <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%gsize = gsize</div><div class="line"><a name="l00537"></a><span class="lineno">  537</span>&#160;  <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%nx = nx</div><div class="line"><a name="l00538"></a><span class="lineno">  538</span>&#160;  <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%ny = ny</div><div class="line"><a name="l00539"></a><span class="lineno">  539</span>&#160;  <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%gridname = trim(gridname)</div><div class="line"><a name="l00540"></a><span class="lineno">  540</span>&#160;  <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%mpicom = gscomm</div><div class="line"><a name="l00541"></a><span class="lineno">  541</span>&#160;  <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%npes = gssize</div><div class="line"><a name="l00542"></a><span class="lineno">  542</span>&#160;  <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%rank = gsrank</div><div class="line"><a name="l00543"></a><span class="lineno">  543</span>&#160;</div><div class="line"><a name="l00544"></a><span class="lineno">  544</span>&#160;  <span class="keyword">allocate</span>(start(1),length(1))</div><div class="line"><a name="l00545"></a><span class="lineno">  545</span>&#160;  start = 1</div><div class="line"><a name="l00546"></a><span class="lineno">  546</span>&#160;  length = 0</div><div class="line"><a name="l00547"></a><span class="lineno">  547</span>&#160;  numel = 0</div><div class="line"><a name="l00548"></a><span class="lineno">  548</span>&#160;</div><div class="line"><a name="l00549"></a><span class="lineno">  549</span>&#160;  <span class="keywordflow">if</span> (trim(type) == <span class="stringliteral">&#39;decomp_1d&#39;</span>) <span class="keywordflow">then</span></div><div class="line"><a name="l00550"></a><span class="lineno">  550</span>&#160;     pts = 0</div><div class="line"><a name="l00551"></a><span class="lineno">  551</span>&#160;     <span class="keywordflow">if</span> (gsrank &gt;= 0) <span class="keywordflow">then</span></div><div class="line"><a name="l00552"></a><span class="lineno">  552</span>&#160;        numel = 1</div><div class="line"><a name="l00553"></a><span class="lineno">  553</span>&#160;        length(1) = gsize/gssize</div><div class="line"><a name="l00554"></a><span class="lineno">  554</span>&#160;        pts = gsize - length(1)*gssize</div><div class="line"><a name="l00555"></a><span class="lineno">  555</span>&#160;        <span class="keywordflow">if</span> (gsrank &lt; pts) length(1) = length(1) + 1</div><div class="line"><a name="l00556"></a><span class="lineno">  556</span>&#160;        start(1) = gsize/gssize*(gsrank) + min(gsrank,pts) + 1</div><div class="line"><a name="l00557"></a><span class="lineno">  557</span>&#160;<span class="keywordflow">     endif</span></div><div class="line"><a name="l00558"></a><span class="lineno">  558</span>&#160;</div><div class="line"><a name="l00559"></a><span class="lineno">  559</span>&#160;     <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a> &gt;= 15) <span class="keywordflow">then</span></div><div class="line"><a name="l00560"></a><span class="lineno">  560</span>&#160;        <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,trim(type),numel,start,length,pts</div><div class="line"><a name="l00561"></a><span class="lineno">  561</span>&#160;<span class="keywordflow">     endif</span></div><div class="line"><a name="l00562"></a><span class="lineno">  562</span>&#160;</div><div class="line"><a name="l00563"></a><span class="lineno">  563</span>&#160;  <span class="keywordflow">elseif</span> (trim(type) == <span class="stringliteral">&#39;decomp_wghtfile&#39;</span>) <span class="keywordflow">then</span></div><div class="line"><a name="l00564"></a><span class="lineno">  564</span>&#160;     <span class="keyword">allocate</span>(llist(gsize),glist(gsize))</div><div class="line"><a name="l00565"></a><span class="lineno">  565</span>&#160;     llist = -1</div><div class="line"><a name="l00566"></a><span class="lineno">  566</span>&#160;     numel = 0</div><div class="line"><a name="l00567"></a><span class="lineno">  567</span>&#160;     <span class="keywordflow">if</span> (gsrank &gt;= 0) <span class="keywordflow">then</span></div><div class="line"><a name="l00568"></a><span class="lineno">  568</span>&#160;        <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a> &gt;= 15) <span class="keywordflow">then</span></div><div class="line"><a name="l00569"></a><span class="lineno">  569</span>&#160;           <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; wgts1 &#39;</span>,<span class="keyword">size</span>(gridid)</div><div class="line"><a name="l00570"></a><span class="lineno">  570</span>&#160;           <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; gridID &#39;</span>,minval(gridid),maxval(gridid)</div><div class="line"><a name="l00571"></a><span class="lineno">  571</span>&#160;<span class="keywordflow">        endif</span></div><div class="line"><a name="l00572"></a><span class="lineno">  572</span>&#160;        <span class="keywordflow">do</span> n = 1,<span class="keyword">size</span>(gridid)</div><div class="line"><a name="l00573"></a><span class="lineno">  573</span>&#160;           <span class="keywordflow">if</span> (gridid(n) &gt; 0 .and. gridid(n) &lt;= gsize) <span class="keywordflow">then</span></div><div class="line"><a name="l00574"></a><span class="lineno">  574</span>&#160;              numel = numel + 1</div><div class="line"><a name="l00575"></a><span class="lineno">  575</span>&#160;              llist(gridid(n)) = gsrank</div><div class="line"><a name="l00576"></a><span class="lineno">  576</span>&#160;<span class="comment">!           elseif (gridID(n) &gt; gsize) then</span></div><div class="line"><a name="l00577"></a><span class="lineno">  577</span>&#160;<span class="comment">! tcraig, allow &gt; gsize and ignore it, errors trapped/ignored in map read</span></div><div class="line"><a name="l00578"></a><span class="lineno">  578</span>&#160;<span class="comment">!              write(nulprt,*) subname,estr,&#39;gridID &gt; gsize&#39;,gridID(n),gsize</span></div><div class="line"><a name="l00579"></a><span class="lineno">  579</span>&#160;<span class="comment">!              call oasis_abort(file=__FILE__,line=__LINE__)</span></div><div class="line"><a name="l00580"></a><span class="lineno">  580</span>&#160;<span class="comment">!           else</span></div><div class="line"><a name="l00581"></a><span class="lineno">  581</span>&#160;<span class="comment">! tcraig, allow &lt;= 0 and ignore it, errors trapped/ignored in map read</span></div><div class="line"><a name="l00582"></a><span class="lineno">  582</span>&#160;<span class="comment">!              write(nulprt,*) subname,estr,&#39;gridID &lt;= 0&#39;,gridID(n),gsize</span></div><div class="line"><a name="l00583"></a><span class="lineno">  583</span>&#160;<span class="comment">!              call oasis_abort(file=__FILE__,line=__LINE__)</span></div><div class="line"><a name="l00584"></a><span class="lineno">  584</span>&#160;<span class="keywordflow">          endif</span></div><div class="line"><a name="l00585"></a><span class="lineno">  585</span>&#160;<span class="keywordflow">        enddo</span></div><div class="line"><a name="l00586"></a><span class="lineno">  586</span>&#160;</div><div class="line"><a name="l00587"></a><span class="lineno">  587</span>&#160;        <span class="comment">! this computes the max MPI rank that includes the gridcell</span></div><div class="line"><a name="l00588"></a><span class="lineno">  588</span>&#160;        <span class="comment">! max is arbitrary but this forces each gridcell to be associated with just one rank</span></div><div class="line"><a name="l00589"></a><span class="lineno">  589</span>&#160;        <span class="keyword">call </span><a class="code" href="interfacemod__oasis__mpi_1_1oasis__mpi__max.html">oasis_mpi_max</a>(llist,glist,gscomm,string=trim(subname)//<span class="stringliteral">&#39; glist&#39;</span>,all=.true.)</div><div class="line"><a name="l00590"></a><span class="lineno">  590</span>&#160;</div><div class="line"><a name="l00591"></a><span class="lineno">  591</span>&#160;        <span class="keyword">deallocate</span>(llist)</div><div class="line"><a name="l00592"></a><span class="lineno">  592</span>&#160;        <span class="keyword">deallocate</span>(start,length)</div><div class="line"><a name="l00593"></a><span class="lineno">  593</span>&#160;        <span class="keyword">allocate</span>(start(numel),length(numel))</div><div class="line"><a name="l00594"></a><span class="lineno">  594</span>&#160;        start = -1</div><div class="line"><a name="l00595"></a><span class="lineno">  595</span>&#160;        length = -1</div><div class="line"><a name="l00596"></a><span class="lineno">  596</span>&#160;        numel = 0</div><div class="line"><a name="l00597"></a><span class="lineno">  597</span>&#160;        <span class="keywordflow">do</span> n = 1,gsize</div><div class="line"><a name="l00598"></a><span class="lineno">  598</span>&#160;           <span class="keywordflow">if</span> (glist(n) == gsrank) <span class="keywordflow">then</span></div><div class="line"><a name="l00599"></a><span class="lineno">  599</span>&#160;              numel = numel + 1</div><div class="line"><a name="l00600"></a><span class="lineno">  600</span>&#160;              <span class="keywordflow">if</span> (numel &gt; <span class="keyword">size</span>(gridid)) <span class="keywordflow">then</span></div><div class="line"><a name="l00601"></a><span class="lineno">  601</span>&#160;                 <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;numel error &#39;</span>,numel,<span class="keyword">size</span>(gridid)</div><div class="line"><a name="l00602"></a><span class="lineno">  602</span>&#160;                 <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#af1943a0ce0c5765ba8a714379065464f">oasis_abort</a>(file=__file__,line=__line__)</div><div class="line"><a name="l00603"></a><span class="lineno">  603</span>&#160;<span class="keywordflow">              endif</span></div><div class="line"><a name="l00604"></a><span class="lineno">  604</span>&#160;              start(numel) = n</div><div class="line"><a name="l00605"></a><span class="lineno">  605</span>&#160;              length(numel) = 1</div><div class="line"><a name="l00606"></a><span class="lineno">  606</span>&#160;<span class="keywordflow">           endif</span></div><div class="line"><a name="l00607"></a><span class="lineno">  607</span>&#160;<span class="keywordflow">        enddo</span></div><div class="line"><a name="l00608"></a><span class="lineno">  608</span>&#160;        <span class="keyword">deallocate</span>(glist)</div><div class="line"><a name="l00609"></a><span class="lineno">  609</span>&#160;<span class="keywordflow">     endif</span>   <span class="comment">! gsrank &gt;= 0</span></div><div class="line"><a name="l00610"></a><span class="lineno">  610</span>&#160;</div><div class="line"><a name="l00611"></a><span class="lineno">  611</span>&#160;     <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a> &gt;= 15) <span class="keywordflow">then</span></div><div class="line"><a name="l00612"></a><span class="lineno">  612</span>&#160;        <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,trim(type),numel</div><div class="line"><a name="l00613"></a><span class="lineno">  613</span>&#160;        <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>)</div><div class="line"><a name="l00614"></a><span class="lineno">  614</span>&#160;<span class="keywordflow">     endif</span></div><div class="line"><a name="l00615"></a><span class="lineno">  615</span>&#160;</div><div class="line"><a name="l00616"></a><span class="lineno">  616</span>&#160;  <span class="keywordflow">else</span></div><div class="line"><a name="l00617"></a><span class="lineno">  617</span>&#160;     <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;type argument unknown = &#39;</span>,trim(type)</div><div class="line"><a name="l00618"></a><span class="lineno">  618</span>&#160;     <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#af1943a0ce0c5765ba8a714379065464f">oasis_abort</a>(file=__file__,line=__line__)</div><div class="line"><a name="l00619"></a><span class="lineno">  619</span>&#160;<span class="keywordflow">  endif</span></div><div class="line"><a name="l00620"></a><span class="lineno">  620</span>&#160;</div><div class="line"><a name="l00621"></a><span class="lineno">  621</span>&#160;  <span class="comment">!-----------------------------------------------</span><span class="comment"></span></div><div class="line"><a name="l00622"></a><span class="lineno">  622</span>&#160;<span class="comment">  !&gt;   * Initialize the partition gsmap and pgsmap</span></div><div class="line"><a name="l00623"></a><span class="lineno">  623</span>&#160;  <span class="comment">!-----------------------------------------------</span></div><div class="line"><a name="l00624"></a><span class="lineno">  624</span>&#160;</div><div class="line"><a name="l00625"></a><span class="lineno">  625</span>&#160;  <span class="keyword">call </span>mct_gsmap_init(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%gsmap,start,length,0,mpicom,<a class="code" href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">compid</a>,gsize=gsize,numel=numel)</div><div class="line"><a name="l00626"></a><span class="lineno">  626</span>&#160;  <span class="keywordflow">if</span> (gsrank &gt;= 0) <span class="keywordflow">then</span></div><div class="line"><a name="l00627"></a><span class="lineno">  627</span>&#160;     <span class="keyword">call </span>mct_gsmap_init(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%pgsmap,start,length,0, &amp;</div><div class="line"><a name="l00628"></a><span class="lineno">  628</span>&#160;                         <a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)%mpicom,<a class="code" href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">compid</a>,gsize=gsize,numel=numel)</div><div class="line"><a name="l00629"></a><span class="lineno">  629</span>&#160;<span class="keywordflow">  endif</span></div><div class="line"><a name="l00630"></a><span class="lineno">  630</span>&#160;  <span class="keyword">deallocate</span>(start,length)</div><div class="line"><a name="l00631"></a><span class="lineno">  631</span>&#160;  <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a> &gt;= 2) <span class="keywordflow">then</span></div><div class="line"><a name="l00632"></a><span class="lineno">  632</span>&#160;     <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; create new part &#39;</span>,<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>,gsize</div><div class="line"><a name="l00633"></a><span class="lineno">  633</span>&#160;     <span class="keyword">call </span><a class="code" href="namespacemod__oasis__part.html#a12edb4b0248a3f562fe5f6e16eede06a">oasis_part_write</a>(<a class="code" href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">prism_part</a>(<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>),<a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a>)</div><div class="line"><a name="l00634"></a><span class="lineno">  634</span>&#160;<span class="keywordflow">  endif</span></div><div class="line"><a name="l00635"></a><span class="lineno">  635</span>&#160;</div><div class="line"><a name="l00636"></a><span class="lineno">  636</span>&#160;  id_part = <a class="code" href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">prism_npart</a></div><div class="line"><a name="l00637"></a><span class="lineno">  637</span>&#160;</div><div class="line"><a name="l00638"></a><span class="lineno">  638</span>&#160;  <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#a349f71cba2df935179d78f3858992c83">oasis_debug_exit</a>(subname)</div><div class="line"><a name="l00639"></a><span class="lineno">  639</span>&#160;</div><div class="line"><a name="l00640"></a><span class="lineno">  640</span>&#160;<span class="keyword">END SUBROUTINE </span><a class="code" href="namespacemod__oasis__part.html#aacc20c24f42edbef4ec2610bf98aadfc">oasis_part_create</a></div><div class="line"><a name="l00641"></a><span class="lineno">  641</span>&#160;<span class="comment">!------------------------------------------------------------</span></div><div class="line"><a name="l00642"></a><span class="lineno">  642</span>&#160;</div><div class="line"><a name="l00643"></a><span class="lineno">  643</span>&#160;<span class="keyword">END MODULE </span><a class="code" href="namespacemod__oasis__part.html">mod_oasis_part</a></div><div class="ttc" id="namespacemod__oasis__parameters_html_a9a8b38629274e3a38a37f329ce9d2aa2"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a9a8b38629274e3a38a37f329ce9d2aa2">mod_oasis_parameters::clim_box</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter clim_box</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00105">mod_oasis_parameters.F90:105</a></div></div>
70<div class="ttc" id="namespacemod__oasis__parameters_html_a4fb35a666ab4cec927a2ae9244535cb0"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a4fb35a666ab4cec927a2ae9244535cb0">mod_oasis_parameters::clim_sizex</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter clim_sizex</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00111">mod_oasis_parameters.F90:111</a></div></div>
71<div class="ttc" id="namespacemod__oasis__sys_html"><div class="ttname"><a href="namespacemod__oasis__sys.html">mod_oasis_sys</a></div><div class="ttdoc">System type methods. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__sys_8_f90_source.html#l00004">mod_oasis_sys.F90:4</a></div></div>
72<div class="ttc" id="namespacemod__oasis__data_html"><div class="ttname"><a href="namespacemod__oasis__data.html">mod_oasis_data</a></div><div class="ttdoc">Provides a common location for several OASIS variables. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00004">mod_oasis_data.F90:4</a></div></div>
73<div class="ttc" id="namespacemod__oasis__parameters_html_a4cd07733eaf5d8c8148986c0c4217772"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a4cd07733eaf5d8c8148986c0c4217772">mod_oasis_parameters::clim_offset</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter clim_offset</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00109">mod_oasis_parameters.F90:109</a></div></div>
74<div class="ttc" id="namespacemod__oasis__parameters_html_a3ea125963822918ce37fd3cfd9658c9f"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">mod_oasis_parameters::oasis_ok</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter oasis_ok</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00021">mod_oasis_parameters.F90:21</a></div></div>
75<div class="ttc" id="namespacemod__oasis__part_html_aacc20c24f42edbef4ec2610bf98aadfc"><div class="ttname"><a href="namespacemod__oasis__part.html#aacc20c24f42edbef4ec2610bf98aadfc">mod_oasis_part::oasis_part_create</a></div><div class="ttdeci">subroutine, public oasis_part_create(id_part, TYPE, gsize, nx, ny, gridname, gscomm, mpicom, gridID)</div><div class="ttdoc">Create a new partition internally, needed for mapping. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__part_8_f90_source.html#l00444">mod_oasis_part.F90:444</a></div></div>
76<div class="ttc" id="interfacemod__oasis__mpi_1_1oasis__mpi__max_html"><div class="ttname"><a href="interfacemod__oasis__mpi_1_1oasis__mpi__max.html">mod_oasis_mpi::oasis_mpi_max</a></div><div class="ttdoc">Generic overloaded interface into MPI max reduction. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__mpi_8_f90_source.html#l00114">mod_oasis_mpi.F90:114</a></div></div>
77<div class="ttc" id="namespacemod__oasis__part_html_a326ce52f630ba7e71905af864a6cb2dc"><div class="ttname"><a href="namespacemod__oasis__part.html#a326ce52f630ba7e71905af864a6cb2dc">mod_oasis_part::prism_part</a></div><div class="ttdeci">type(prism_part_type), dimension(mpart), public prism_part</div><div class="ttdoc">list of defined partitions </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__part_8_f90_source.html#l00047">mod_oasis_part.F90:47</a></div></div>
78<div class="ttc" id="namespacemod__oasis__data_html_af0f17b70f48598dac24f2e41ca0da4b2"><div class="ttname"><a href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">mod_oasis_data::nulprt</a></div><div class="ttdeci">integer(kind=ip_intwp_p) nulprt</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00020">mod_oasis_data.F90:20</a></div></div>
79<div class="ttc" id="namespacemod__oasis__part_html_a12edb4b0248a3f562fe5f6e16eede06a"><div class="ttname"><a href="namespacemod__oasis__part.html#a12edb4b0248a3f562fe5f6e16eede06a">mod_oasis_part::oasis_part_write</a></div><div class="ttdeci">subroutine oasis_part_write(s_prism_part, npart)</div><div class="ttdoc">Print parition information. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__part_8_f90_source.html#l00390">mod_oasis_part.F90:390</a></div></div>
80<div class="ttc" id="namespacemod__oasis__sys_html_af1943a0ce0c5765ba8a714379065464f"><div class="ttname"><a href="namespacemod__oasis__sys.html#af1943a0ce0c5765ba8a714379065464f">mod_oasis_sys::oasis_abort</a></div><div class="ttdeci">subroutine, public oasis_abort(id_compid, cd_routine, cd_message, file, line, rcode)</div><div class="ttdoc">OASIS abort method, publically available to users. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__sys_8_f90_source.html#l00044">mod_oasis_sys.F90:44</a></div></div>
81<div class="ttc" id="namespacemod__oasis__part_html_af070605328f2b705735d7fbf8b838ff4"><div class="ttname"><a href="namespacemod__oasis__part.html#af070605328f2b705735d7fbf8b838ff4">mod_oasis_part::oasis_def_partition</a></div><div class="ttdeci">subroutine, public oasis_def_partition(id_part, kparal, kinfo, ig_size, name)</div><div class="ttdoc">The OASIS user interface to define partitions. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__part_8_f90_source.html#l00060">mod_oasis_part.F90:60</a></div></div>
82<div class="ttc" id="namespacemod__oasis__data_html_ab53c9f7676f84fdf1050cea5efcd3e7f"><div class="ttname"><a href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">mod_oasis_data::compid</a></div><div class="ttdeci">integer(kind=ip_i4_p) compid</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00041">mod_oasis_data.F90:41</a></div></div>
83<div class="ttc" id="namespacemod__oasis__data_html_acfb160b3d147e7cb667b0dc0f5bb2960"><div class="ttname"><a href="namespacemod__oasis__data.html#acfb160b3d147e7cb667b0dc0f5bb2960">mod_oasis_data::cspval</a></div><div class="ttdeci">character(len= *), parameter cspval</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00066">mod_oasis_data.F90:66</a></div></div>
84<div class="ttc" id="namespacemod__oasis__part_html_a8cee930f023feb7bcad4a0cab0b490a1"><div class="ttname"><a href="namespacemod__oasis__part.html#a8cee930f023feb7bcad4a0cab0b490a1">mod_oasis_part::part_name_cnt</a></div><div class="ttdeci">integer(kind=ip_intwp_p) part_name_cnt</div><div class="ttdoc">used to define partition names internally </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__part_8_f90_source.html#l00051">mod_oasis_part.F90:51</a></div></div>
85<div class="ttc" id="namespacemod__oasis__kinds_html"><div class="ttname"><a href="namespacemod__oasis__kinds.html">mod_oasis_kinds</a></div><div class="ttdoc">Defines kinds for OASIS. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__kinds_8_f90_source.html#l00007">mod_oasis_kinds.F90:7</a></div></div>
86<div class="ttc" id="namespacemod__oasis__parameters_html_a17c74cc8141b595e448588b1add0f6bf"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a17c74cc8141b595e448588b1add0f6bf">mod_oasis_parameters::clim_orange</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter clim_orange</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00106">mod_oasis_parameters.F90:106</a></div></div>
87<div class="ttc" id="namespacemod__oasis__mpi_html"><div class="ttname"><a href="namespacemod__oasis__mpi.html">mod_oasis_mpi</a></div><div class="ttdoc">Provides a generic and simpler interface into MPI calls for OASIS. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__mpi_8_f90_source.html#l00003">mod_oasis_mpi.F90:3</a></div></div>
88<div class="ttc" id="namespacemod__oasis__parameters_html_aa9d90a3d7d5b21d2081a578dfea42fd4"><div class="ttname"><a href="namespacemod__oasis__parameters.html#aa9d90a3d7d5b21d2081a578dfea42fd4">mod_oasis_parameters::clim_points</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter clim_points</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00107">mod_oasis_parameters.F90:107</a></div></div>
89<div class="ttc" id="namespacemod__oasis__part_html_ab68d087792db0351181c9a97025d793b"><div class="ttname"><a href="namespacemod__oasis__part.html#ab68d087792db0351181c9a97025d793b">mod_oasis_part::mpart</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter mpart</div><div class="ttdoc">maximum number of partitions allowed </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__part_8_f90_source.html#l00026">mod_oasis_part.F90:26</a></div></div>
90<div class="ttc" id="namespacemod__oasis__data_html_a2c468f26bc0c9b2ad5d54d68733e7047"><div class="ttname"><a href="namespacemod__oasis__data.html#a2c468f26bc0c9b2ad5d54d68733e7047">mod_oasis_data::mpi_root_local</a></div><div class="ttdeci">integer(kind=ip_i4_p) mpi_root_local</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00053">mod_oasis_data.F90:53</a></div></div>
91<div class="ttc" id="namespacemod__oasis__sys_html_ab963e928a34a1521ec2c1921cc956cc5"><div class="ttname"><a href="namespacemod__oasis__sys.html#ab963e928a34a1521ec2c1921cc956cc5">mod_oasis_sys::oasis_debug_enter</a></div><div class="ttdeci">subroutine, public oasis_debug_enter(string)</div><div class="ttdoc">Used when a subroutine is entered, write info to log file at some debug level. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__sys_8_f90_source.html#l00209">mod_oasis_sys.F90:209</a></div></div>
92<div class="ttc" id="interfacemod__oasis__mpi_1_1oasis__mpi__min_html"><div class="ttname"><a href="interfacemod__oasis__mpi_1_1oasis__mpi__min.html">mod_oasis_mpi::oasis_mpi_min</a></div><div class="ttdoc">Generic overloaded interface into MPI min reduction. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__mpi_8_f90_source.html#l00106">mod_oasis_mpi.F90:106</a></div></div>
93<div class="ttc" id="namespacemod__oasis__data_html_a5056590b195dc981725173c79e52de3b"><div class="ttname"><a href="namespacemod__oasis__data.html#a5056590b195dc981725173c79e52de3b">mod_oasis_data::oasis_coupled</a></div><div class="ttdeci">logical oasis_coupled</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00042">mod_oasis_data.F90:42</a></div></div>
94<div class="ttc" id="namespacemod__oasis__mpi_html_a95f6540150f7ab4e64697d2eabc2bf79"><div class="ttname"><a href="namespacemod__oasis__mpi.html#a95f6540150f7ab4e64697d2eabc2bf79">mod_oasis_mpi::oasis_mpi_reducelists</a></div><div class="ttdeci">subroutine, public oasis_mpi_reducelists(linp1, comm, cntout, lout1, callstr, fastcheck, fastcheckout, linp2, lout2, spval2, linp3, lout3, spval3, linp4, lout4, spval4)</div><div class="ttdoc">Custom method for reducing MPI lists across pes for OASIS. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__mpi_8_f90_source.html#l02798">mod_oasis_mpi.F90:2798</a></div></div>
95<div class="ttc" id="namespacemod__oasis__part_html"><div class="ttname"><a href="namespacemod__oasis__part.html">mod_oasis_part</a></div><div class="ttdoc">OASIS partition data and methods. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__part_8_f90_source.html#l00004">mod_oasis_part.F90:4</a></div></div>
96<div class="ttc" id="namespacemod__oasis__parameters_html_a611cae6f3c65a75f26e76b2f88f34037"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a611cae6f3c65a75f26e76b2f88f34037">mod_oasis_parameters::clim_strategy</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter clim_strategy</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00100">mod_oasis_parameters.F90:100</a></div></div>
97<div class="ttc" id="namespacemod__oasis__parameters_html"><div class="ttname"><a href="namespacemod__oasis__parameters.html">mod_oasis_parameters</a></div><div class="ttdoc">Defines parameters for OASIS. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00004">mod_oasis_parameters.F90:4</a></div></div>
98<div class="ttc" id="namespacemod__oasis__data_html_a8379835615758ccf7a4287dde5785681"><div class="ttname"><a href="namespacemod__oasis__data.html#a8379835615758ccf7a4287dde5785681">mod_oasis_data::compnm</a></div><div class="ttdeci">character(len=ic_lvar) compnm</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00040">mod_oasis_data.F90:40</a></div></div>
99<div class="ttc" id="namespacemod__oasis__timer_html_a13a16c07778911b45f3f42a542348019"><div class="ttname"><a href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">mod_oasis_timer::oasis_timer_start</a></div><div class="ttdeci">subroutine, public oasis_timer_start(timer_label, barrier)</div><div class="ttdoc">Start a timer. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__timer_8_f90_source.html#l00134">mod_oasis_timer.F90:134</a></div></div>
100<div class="ttc" id="namespacemod__oasis__data_html_a51f2f4f66476cf893f2507722cd65958"><div class="ttname"><a href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">mod_oasis_data::oasis_debug</a></div><div class="ttdeci">integer(kind=ip_i4_p) oasis_debug</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00021">mod_oasis_data.F90:21</a></div></div>
101<div class="ttc" id="namespacemod__oasis__timer_html_a01a76142a72cc6bc845736e79ad99bd3"><div class="ttname"><a href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">mod_oasis_timer::oasis_timer_stop</a></div><div class="ttdeci">subroutine, public oasis_timer_stop(timer_label)</div><div class="ttdoc">Stop a timer. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__timer_8_f90_source.html#l00178">mod_oasis_timer.F90:178</a></div></div>
102<div class="ttc" id="namespacemod__oasis__sys_html_a0f6e0376585c6f39d653f5ab05e80e8f"><div class="ttname"><a href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">mod_oasis_sys::estr</a></div><div class="ttdeci">character(len= *), parameter, public estr</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__sys_8_f90_source.html#l00012">mod_oasis_sys.F90:12</a></div></div>
103<div class="ttc" id="namespacemod__oasis__data_html_acd8801d4fab87a19c6f4f69a661d56c5"><div class="ttname"><a href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mod_oasis_data::mpi_comm_local</a></div><div class="ttdeci">integer(kind=ip_i4_p) mpi_comm_local</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00050">mod_oasis_data.F90:50</a></div></div>
104<div class="ttc" id="namespacemod__oasis__parameters_html_a3407c11054d24782182c649307808e47"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a3407c11054d24782182c649307808e47">mod_oasis_parameters::clim_ldx</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter clim_ldx</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00113">mod_oasis_parameters.F90:113</a></div></div>
105<div class="ttc" id="namespacemod__oasis__part_html_a80f66cc0ce5857aa53d070861f05b521"><div class="ttname"><a href="namespacemod__oasis__part.html#a80f66cc0ce5857aa53d070861f05b521">mod_oasis_part::oasis_part_setup</a></div><div class="ttdeci">subroutine, public oasis_part_setup()</div><div class="ttdoc">Synchronize partitions across all tasks, called at oasis enddef. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__part_8_f90_source.html#l00142">mod_oasis_part.F90:142</a></div></div>
106<div class="ttc" id="namespacemod__oasis__parameters_html_a206910560c246db3404224a04cfd4319"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a206910560c246db3404224a04cfd4319">mod_oasis_parameters::clim_sizey</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter clim_sizey</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00112">mod_oasis_parameters.F90:112</a></div></div>
107<div class="ttc" id="namespacemod__oasis__parameters_html_a7427036a6530871a0f49c0fb75f2b3ef"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a7427036a6530871a0f49c0fb75f2b3ef">mod_oasis_parameters::clim_segments</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter clim_segments</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00101">mod_oasis_parameters.F90:101</a></div></div>
108<div class="ttc" id="namespacemod__oasis__parameters_html_a5c410369e763f9156d0ce1c82e866265"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a5c410369e763f9156d0ce1c82e866265">mod_oasis_parameters::clim_serial</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter clim_serial</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00103">mod_oasis_parameters.F90:103</a></div></div>
109<div class="ttc" id="namespacemod__oasis__part_html_ac8340e63b159a9786ad8fffabd1d47f8"><div class="ttname"><a href="namespacemod__oasis__part.html#ac8340e63b159a9786ad8fffabd1d47f8">mod_oasis_part::prism_npart</a></div><div class="ttdeci">integer(kind=ip_intwp_p), public prism_npart</div><div class="ttdoc">number of partitions defined </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__part_8_f90_source.html#l00046">mod_oasis_part.F90:46</a></div></div>
110<div class="ttc" id="namespacemod__oasis__parameters_html_a3cfd98fdd1c2fac653b182454c87f4aa"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a3cfd98fdd1c2fac653b182454c87f4aa">mod_oasis_parameters::clim_apple</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter clim_apple</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00104">mod_oasis_parameters.F90:104</a></div></div>
111<div class="ttc" id="namespacemod__oasis__sys_html_ad152b6f737a7e06f8f1226af23d66361"><div class="ttname"><a href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">mod_oasis_sys::oasis_flush</a></div><div class="ttdeci">subroutine, public oasis_flush(nu)</div><div class="ttdoc">Flushes output to file. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__sys_8_f90_source.html#l00094">mod_oasis_sys.F90:94</a></div></div>
112<div class="ttc" id="namespacemod__oasis__timer_html"><div class="ttname"><a href="namespacemod__oasis__timer.html">mod_oasis_timer</a></div><div class="ttdoc">Performance timer methods. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__timer_8_f90_source.html#l00039">mod_oasis_timer.F90:39</a></div></div>
113<div class="ttc" id="namespacemod__oasis__parameters_html_a984896e821cbbb8c4a91e86ff19d54de"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a984896e821cbbb8c4a91e86ff19d54de">mod_oasis_parameters::clim_length</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter clim_length</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00110">mod_oasis_parameters.F90:110</a></div></div>
114<div class="ttc" id="namespacemod__oasis__part_html_a17c747bc29d25b558df42524bd63ac90"><div class="ttname"><a href="namespacemod__oasis__part.html#a17c747bc29d25b558df42524bd63ac90">mod_oasis_part::oasis_part_zero</a></div><div class="ttdeci">subroutine oasis_part_zero(s_prism_part)</div><div class="ttdoc">Zero partition information. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__part_8_f90_source.html#l00361">mod_oasis_part.F90:361</a></div></div>
115<div class="ttc" id="namespacemod__oasis__sys_html_a349f71cba2df935179d78f3858992c83"><div class="ttname"><a href="namespacemod__oasis__sys.html#a349f71cba2df935179d78f3858992c83">mod_oasis_sys::oasis_debug_exit</a></div><div class="ttdeci">subroutine, public oasis_debug_exit(string)</div><div class="ttdoc">Used when a subroutine is exited, write info to log file at some debug level. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__sys_8_f90_source.html#l00236">mod_oasis_sys.F90:236</a></div></div>
116<div class="ttc" id="structmod__oasis__part_1_1prism__part__type_html"><div class="ttname"><a href="structmod__oasis__part_1_1prism__part__type.html">mod_oasis_part::prism_part_type</a></div><div class="ttdoc">Partition (decomposition) data for variables. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__part_8_f90_source.html#l00029">mod_oasis_part.F90:29</a></div></div>
117</div><!-- fragment --></div><!-- contents -->
118<!-- start footer part -->
119<hr class="footer"/><address class="footer"><small>
120Generated on Fri Jun 29 2018 20:52:28 for Oasis3-MCT by &#160;<a href="http://www.doxygen.org/index.html">
121<img class="footer" src="doxygen.png" alt="doxygen"/>
122</a> 1.8.13
123</small></address>
124</body>
125</html>
Note: See TracBrowser for help on using the repository browser.