source: CPL/oasis3-mct/branches/OASIS3-MCT_5.0_branch/doc/doxygen/html/mod__oasis__method_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: 239.3 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_method.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_method.F90</div>  </div>
67</div><!--header-->
68<div class="contents">
69<a href="mod__oasis__method_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; High level OASIS user interfaces</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__method.html">    4</a></span>&#160;<span class="keyword">MODULE</span> <a class="code" href="namespacemod__oasis__method.html">mod_oasis_method</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__mem.html">mod_oasis_mem</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__sys.html">mod_oasis_sys</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__data.html">mod_oasis_data</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__parameters.html">mod_oasis_parameters</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__namcouple.html">mod_oasis_namcouple</a></div><div class="line"><a name="l00012"></a><span class="lineno">   12</span>&#160;   <span class="keywordtype">USE </span><a class="code" href="namespacemod__oasis__part.html">mod_oasis_part</a></div><div class="line"><a name="l00013"></a><span class="lineno">   13</span>&#160;   <span class="keywordtype">USE </span><a class="code" href="namespacemod__oasis__var.html">mod_oasis_var</a></div><div class="line"><a name="l00014"></a><span class="lineno">   14</span>&#160;   <span class="keywordtype">USE </span><a class="code" href="namespacemod__oasis__coupler.html">mod_oasis_coupler</a></div><div class="line"><a name="l00015"></a><span class="lineno">   15</span>&#160;   <span class="keywordtype">USE </span><a class="code" href="namespacemod__oasis__advance.html">mod_oasis_advance</a></div><div class="line"><a name="l00016"></a><span class="lineno">   16</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="l00017"></a><span class="lineno">   17</span>&#160;   <span class="keywordtype">USE </span><a class="code" href="namespacemod__oasis__ioshr.html">mod_oasis_ioshr</a></div><div class="line"><a name="l00018"></a><span class="lineno">   18</span>&#160;   <span class="keywordtype">USE </span><a class="code" href="namespacemod__oasis__grid.html">mod_oasis_grid</a></div><div class="line"><a name="l00019"></a><span class="lineno">   19</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="l00020"></a><span class="lineno">   20</span>&#160;   <span class="keywordtype">USE </span><a class="code" href="namespacemod__oasis__string.html">mod_oasis_string</a></div><div class="line"><a name="l00021"></a><span class="lineno">   21</span>&#160;   <span class="keywordtype">USE </span>mct_mod</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="keywordtype">IMPLICIT NONE</span></div><div class="line"><a name="l00024"></a><span class="lineno">   24</span>&#160;</div><div class="line"><a name="l00025"></a><span class="lineno">   25</span>&#160;   <span class="keywordtype">private</span></div><div class="line"><a name="l00026"></a><span class="lineno">   26</span>&#160;</div><div class="line"><a name="l00027"></a><span class="lineno">   27</span>&#160;   <span class="keywordtype">public</span> <a class="code" href="namespacemod__oasis__method.html#ad266b77f6e75f2d150c80374a841a43c">oasis_init_comp</a></div><div class="line"><a name="l00028"></a><span class="lineno">   28</span>&#160;   <span class="keywordtype">public</span> <a class="code" href="namespacemod__oasis__method.html#a4fb881336906c9452b6a9f250af9c3d7">oasis_terminate</a></div><div class="line"><a name="l00029"></a><span class="lineno">   29</span>&#160;   <span class="keywordtype">public</span> <a class="code" href="namespacemod__oasis__method.html#a093552f9f9895ac79a5fefa043fc5881">oasis_enddef</a></div><div class="line"><a name="l00030"></a><span class="lineno">   30</span>&#160;</div><div class="line"><a name="l00031"></a><span class="lineno">   31</span>&#160;<span class="preprocessor">#ifdef __VERBOSE</span></div><div class="line"><a name="l00032"></a><span class="lineno">   32</span>&#160;<span class="preprocessor"></span>   <span class="keywordtype">integer(kind=ip_intwp_p)</span>,<span class="keywordtype">parameter</span> :: <a class="code" href="namespacemod__oasis__method.html#a390290b92b6af57b2732cb7521532f1c">debug</a>=2</div><div class="line"><a name="l00033"></a><span class="lineno">   33</span>&#160;<span class="preprocessor">#else</span></div><div class="line"><a name="l00034"></a><span class="lineno"><a class="line" href="namespacemod__oasis__method.html#a390290b92b6af57b2732cb7521532f1c">   34</a></span>&#160;<span class="preprocessor"></span>   <span class="keywordtype">integer(kind=ip_intwp_p)</span>,<span class="keywordtype">parameter</span> :: <a class="code" href="namespacemod__oasis__method.html#a390290b92b6af57b2732cb7521532f1c">debug</a>=1</div><div class="line"><a name="l00035"></a><span class="lineno">   35</span>&#160;<span class="preprocessor">#endif</span></div><div class="line"><a name="l00036"></a><span class="lineno"><a class="line" href="namespacemod__oasis__method.html#a405af91a0535e4ce70d55513bb4c3867">   36</a></span>&#160;<span class="preprocessor"></span>   <span class="keywordtype">logical</span> :: <a class="code" href="namespacemod__oasis__method.html#a405af91a0535e4ce70d55513bb4c3867">lg_mpiflag</a></div><div class="line"><a name="l00037"></a><span class="lineno"><a class="line" href="namespacemod__oasis__method.html#aff65fa61d2762374419fe4c44c0f9282">   37</a></span>&#160;   <span class="keywordtype">integer(kind=ip_intwp_p)</span> :: <a class="code" href="namespacemod__oasis__method.html#aff65fa61d2762374419fe4c44c0f9282">mpi_comm_global_world</a></div><div class="line"><a name="l00038"></a><span class="lineno">   38</span>&#160;</div><div class="line"><a name="l00039"></a><span class="lineno">   39</span>&#160;<span class="keyword">CONTAINS</span></div><div class="line"><a name="l00040"></a><span class="lineno">   40</span>&#160;</div><div class="line"><a name="l00041"></a><span class="lineno">   41</span>&#160;<span class="comment">!----------------------------------------------------------------------</span></div><div class="line"><a name="l00042"></a><span class="lineno">   42</span>&#160;<span class="comment"></span></div><div class="line"><a name="l00043"></a><span class="lineno">   43</span>&#160;<span class="comment">!&gt; OASIS user init method</span></div><div class="line"><a name="l00044"></a><span class="lineno">   44</span>&#160;</div><div class="line"><a name="l00045"></a><span class="lineno">   45</span>&#160;<span class="keyword">   SUBROUTINE </span><a class="code" href="namespacemod__oasis__method.html#ad266b77f6e75f2d150c80374a841a43c">oasis_init_comp</a>(mynummod,cdnam,kinfo,coupled,commworld)</div><div class="line"><a name="l00046"></a><span class="lineno"><a class="line" href="namespacemod__oasis__method.html#ad266b77f6e75f2d150c80374a841a43c">   46</a></span>&#160;<span class="comment"></span></div><div class="line"><a name="l00047"></a><span class="lineno">   47</span>&#160;<span class="comment">   !&gt; * This is COLLECTIVE, all pes must call</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="keywordtype">IMPLICIT NONE</span></div><div class="line"><a name="l00050"></a><span class="lineno">   50</span>&#160;</div><div class="line"><a name="l00051"></a><span class="lineno">   51</span>&#160;   <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">intent(out)</span>   :: mynummod<span class="comment">     !&lt; component model ID</span></div><div class="line"><a name="l00052"></a><span class="lineno">   52</span>&#160;   <span class="keywordtype">CHARACTER(len=*)</span>         ,<span class="keywordtype">intent(in)</span>    :: cdnam<span class="comment">        !&lt; model name</span></div><div class="line"><a name="l00053"></a><span class="lineno">   53</span>&#160;   <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">intent(inout)</span>,<span class="keywordtype">optional</span> :: kinfo<span class="comment">  !&lt; return code</span></div><div class="line"><a name="l00054"></a><span class="lineno">   54</span>&#160;   <span class="keywordtype">logical</span>                  ,<span class="keywordtype">intent(in)</span>   ,<span class="keywordtype">optional</span> :: coupled<span class="comment">  !&lt; flag to specify whether this component is coupled in oasis</span></div><div class="line"><a name="l00055"></a><span class="lineno">   55</span>&#160;   <span class="keywordtype">integer (kind=ip_intwp_p)</span>,<span class="keywordtype">intent(in)</span>   ,<span class="keywordtype">optional</span> :: commworld<span class="comment">  !&lt; user defined mpi_comm_world to use in oasis</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="keywordtype">integer(kind=ip_intwp_p)</span> :: ierr</div><div class="line"><a name="l00058"></a><span class="lineno">   58</span>&#160;   <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span> :: n,nns,iu</div><div class="line"><a name="l00059"></a><span class="lineno">   59</span>&#160;   <span class="keywordtype">integer(kind=ip_intwp_p)</span> :: icolor,ikey</div><div class="line"><a name="l00060"></a><span class="lineno">   60</span>&#160;   <span class="keywordtype">CHARACTER(len=ic_med)</span>    :: filename,filename2</div><div class="line"><a name="l00061"></a><span class="lineno">   61</span>&#160;   <span class="keywordtype">character(len=ic_med)</span>    :: pio_type</div><div class="line"><a name="l00062"></a><span class="lineno">   62</span>&#160;   <span class="keywordtype">integer(kind=ip_intwp_p)</span> :: pio_stride</div><div class="line"><a name="l00063"></a><span class="lineno">   63</span>&#160;   <span class="keywordtype">integer(kind=ip_intwp_p)</span> :: pio_root</div><div class="line"><a name="l00064"></a><span class="lineno">   64</span>&#160;   <span class="keywordtype">integer(kind=ip_intwp_p)</span> :: pio_numtasks</div><div class="line"><a name="l00065"></a><span class="lineno">   65</span>&#160;   <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span>,<span class="keywordtype">ALLOCATABLE</span> :: tmparr(:)</div><div class="line"><a name="l00066"></a><span class="lineno">   66</span>&#160;   <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span> :: k,i,m,k1,k2</div><div class="line"><a name="l00067"></a><span class="lineno">   67</span>&#160;   <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span> :: nt</div><div class="line"><a name="l00068"></a><span class="lineno">   68</span>&#160;   <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span> :: nvar</div><div class="line"><a name="l00069"></a><span class="lineno">   69</span>&#160;   <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span> :: mpi_size_world</div><div class="line"><a name="l00070"></a><span class="lineno">   70</span>&#160;   <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span> :: mpi_rank_world</div><div class="line"><a name="l00071"></a><span class="lineno">   71</span>&#160;   <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span> :: mall</div><div class="line"><a name="l00072"></a><span class="lineno">   72</span>&#160;   <span class="keywordtype">logical</span>                  :: found</div><div class="line"><a name="l00073"></a><span class="lineno">   73</span>&#160;   <span class="keywordtype">character(len=ic_lvar)</span>,<span class="keywordtype">pointer</span> :: compnmlist(:)</div><div class="line"><a name="l00074"></a><span class="lineno">   74</span>&#160;   <span class="keywordtype">logical</span>,<span class="keywordtype">pointer</span>          :: coupledlist(:)</div><div class="line"><a name="l00075"></a><span class="lineno">   75</span>&#160;   <span class="keywordtype">character(len=ic_lvar)</span>   :: tmp_modnam</div><div class="line"><a name="l00076"></a><span class="lineno">   76</span>&#160;   <span class="keywordtype">logical</span>                  :: tmp_modcpl</div><div class="line"><a name="l00077"></a><span class="lineno">   77</span>&#160;   <span class="keywordtype">character(len=ic_lvar)</span>   :: i_name</div><div class="line"><a name="l00078"></a><span class="lineno">   78</span>&#160;   <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_init_comp)&#39;</span></div><div class="line"><a name="l00079"></a><span class="lineno">   79</span>&#160;</div><div class="line"><a name="l00080"></a><span class="lineno">   80</span>&#160;   <span class="keywordtype">character(len=MPI_MAX_PROCESSOR_NAME)</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">allocatable</span> :: cla_nodes</div><div class="line"><a name="l00081"></a><span class="lineno">   81</span>&#160;   <span class="keywordtype">character(len=MPI_MAX_PROCESSOR_NAME)</span> :: cl_node</div><div class="line"><a name="l00082"></a><span class="lineno">   82</span>&#160;   <span class="keywordtype">integer</span> :: il_nodelen</div><div class="line"><a name="l00083"></a><span class="lineno">   83</span>&#160;   <span class="keywordtype">integer</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">allocatable</span> :: ila_colors</div><div class="line"><a name="l00084"></a><span class="lineno">   84</span>&#160;<span class="comment">!  ---------------------------------------------------------</span></div><div class="line"><a name="l00085"></a><span class="lineno">   85</span>&#160;</div><div class="line"><a name="l00086"></a><span class="lineno">   86</span>&#160;   <span class="keywordflow">if</span> (<span class="keyword">present</span>(kinfo)) <span class="keywordflow">then</span></div><div class="line"><a name="l00087"></a><span class="lineno">   87</span>&#160;      kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l00088"></a><span class="lineno">   88</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00089"></a><span class="lineno">   89</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__data.html#a7a3b7c8004b8d8869bbfa1fd4723da3e">oasis_data_zero</a>()</div><div class="line"><a name="l00090"></a><span class="lineno">   90</span>&#160;</div><div class="line"><a name="l00091"></a><span class="lineno">   91</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#a5056590b195dc981725173c79e52de3b">oasis_coupled</a> = .true.</div><div class="line"><a name="l00092"></a><span class="lineno">   92</span>&#160;   <span class="keywordflow">if</span> (<span class="keyword">present</span>(coupled)) <span class="keywordflow">then</span></div><div class="line"><a name="l00093"></a><span class="lineno">   93</span>&#160;      <a class="code" href="namespacemod__oasis__data.html#a5056590b195dc981725173c79e52de3b">oasis_coupled</a> = coupled</div><div class="line"><a name="l00094"></a><span class="lineno">   94</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00095"></a><span class="lineno">   95</span>&#160;</div><div class="line"><a name="l00096"></a><span class="lineno">   96</span>&#160;   <a class="code" href="namespacemod__oasis__method.html#aff65fa61d2762374419fe4c44c0f9282">mpi_comm_global_world</a> = mpi_comm_world</div><div class="line"><a name="l00097"></a><span class="lineno">   97</span>&#160;   <span class="keywordflow">if</span> (<span class="keyword">present</span>(commworld)) <span class="keywordflow">then</span></div><div class="line"><a name="l00098"></a><span class="lineno">   98</span>&#160;     <a class="code" href="namespacemod__oasis__method.html#aff65fa61d2762374419fe4c44c0f9282">mpi_comm_global_world</a> = commworld</div><div class="line"><a name="l00099"></a><span class="lineno">   99</span>&#160;<span class="keywordflow">   endif</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="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00102"></a><span class="lineno">  102</span>&#160;<span class="comment">   !&gt; * Initialize MPI</span></div><div class="line"><a name="l00103"></a><span class="lineno">  103</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00104"></a><span class="lineno">  104</span>&#160;</div><div class="line"><a name="l00105"></a><span class="lineno">  105</span>&#160;   <a class="code" href="namespacemod__oasis__method.html#a405af91a0535e4ce70d55513bb4c3867">lg_mpiflag</a> = .false.</div><div class="line"><a name="l00106"></a><span class="lineno">  106</span>&#160;   <span class="keyword">CALL </span>mpi_initialized ( <a class="code" href="namespacemod__oasis__method.html#a405af91a0535e4ce70d55513bb4c3867">lg_mpiflag</a>, ierr )</div><div class="line"><a name="l00107"></a><span class="lineno">  107</span>&#160;   <span class="keywordflow">IF</span> ( .NOT. <a class="code" href="namespacemod__oasis__method.html#a405af91a0535e4ce70d55513bb4c3867">lg_mpiflag</a> ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00108"></a><span class="lineno">  108</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a> &gt;= 10) <span class="keyword">WRITE</span> (0,fmt=<span class="stringliteral">&#39;(A)&#39;</span>) subname//<span class="stringliteral">&#39;: Calling MPI_Init&#39;</span></div><div class="line"><a name="l00109"></a><span class="lineno">  109</span>&#160;      <span class="keyword">CALL </span>mpi_init ( ierr )</div><div class="line"><a name="l00110"></a><span class="lineno">  110</span>&#160;   <span class="keywordflow">else</span></div><div class="line"><a name="l00111"></a><span class="lineno">  111</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a> &gt;= 10) <span class="keyword">WRITE</span> (0,fmt=<span class="stringliteral">&#39;(A)&#39;</span>) subname//<span class="stringliteral">&#39;: Not Calling MPI_Init&#39;</span></div><div class="line"><a name="l00112"></a><span class="lineno">  112</span>&#160;<span class="keywordflow">   ENDIF</span></div><div class="line"><a name="l00113"></a><span class="lineno">  113</span>&#160;</div><div class="line"><a name="l00114"></a><span class="lineno">  114</span>&#160;<span class="comment">! Initial default for early part of init</span></div><div class="line"><a name="l00115"></a><span class="lineno">  115</span>&#160;<span class="preprocessor">#ifdef use_comm_MPI1</span></div><div class="line"><a name="l00116"></a><span class="lineno">  116</span>&#160;<span class="preprocessor"></span>   <a class="code" href="namespacemod__oasis__data.html#a4bbff51054fd1746849de9defb3d5252">mpi_comm_global</a> = <a class="code" href="namespacemod__oasis__method.html#aff65fa61d2762374419fe4c44c0f9282">mpi_comm_global_world</a></div><div class="line"><a name="l00117"></a><span class="lineno">  117</span>&#160;<span class="preprocessor">#elif defined use_comm_MPI2</span></div><div class="line"><a name="l00118"></a><span class="lineno">  118</span>&#160;<span class="preprocessor"></span>   <a class="code" href="namespacemod__oasis__data.html#a4bbff51054fd1746849de9defb3d5252">mpi_comm_global</a> = ??</div><div class="line"><a name="l00119"></a><span class="lineno">  119</span>&#160;<span class="preprocessor">#endif</span></div><div class="line"><a name="l00120"></a><span class="lineno">  120</span>&#160;<span class="preprocessor"></span></div><div class="line"><a name="l00121"></a><span class="lineno">  121</span>&#160;   <span class="keyword">CALL </span>mpi_comm_size(<a class="code" href="namespacemod__oasis__method.html#aff65fa61d2762374419fe4c44c0f9282">mpi_comm_global_world</a>,mpi_size_world,ierr)</div><div class="line"><a name="l00122"></a><span class="lineno">  122</span>&#160;   <span class="keyword">CALL </span>mpi_comm_rank(<a class="code" href="namespacemod__oasis__method.html#aff65fa61d2762374419fe4c44c0f9282">mpi_comm_global_world</a>,mpi_rank_world,ierr)</div><div class="line"><a name="l00123"></a><span class="lineno">  123</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> = mpi_rank_world</div><div class="line"><a name="l00124"></a><span class="lineno">  124</span>&#160;</div><div class="line"><a name="l00125"></a><span class="lineno">  125</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00126"></a><span class="lineno">  126</span>&#160;<span class="comment">   !&gt; * Set initial output file, need mpi_rank_world</span></div><div class="line"><a name="l00127"></a><span class="lineno">  127</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00128"></a><span class="lineno">  128</span>&#160;</div><div class="line"><a name="l00129"></a><span class="lineno">  129</span>&#160;   iu=-1</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__sys.html#a063a41b73546564afd294fd5708b6667">oasis_unitsetmin</a>(1024)</div><div class="line"><a name="l00132"></a><span class="lineno">  132</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#a6e0a46b41f1b9f0a1dc99b17665f49dc">oasis_unitsetmax</a>(9999)</div><div class="line"><a name="l00133"></a><span class="lineno">  133</span>&#160;   <span class="keywordflow">IF</span> (mpi_rank_world == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00134"></a><span class="lineno">  134</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#abce4c06d8a999919a2a185c71ab15edd">oasis_unitget</a>(iu)</div><div class="line"><a name="l00135"></a><span class="lineno">  135</span>&#160;       <a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a> = iu</div><div class="line"><a name="l00136"></a><span class="lineno">  136</span>&#160;       <span class="keyword">WRITE</span>(filename,<span class="stringliteral">&#39;(a,i6.6)&#39;</span>) <span class="stringliteral">&#39;nout.&#39;</span>,mpi_rank_world</div><div class="line"><a name="l00137"></a><span class="lineno">  137</span>&#160;       <span class="keyword">OPEN</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,file=filename)</div><div class="line"><a name="l00138"></a><span class="lineno">  138</span>&#160;<span class="keywordflow">   ENDIF</span></div><div class="line"><a name="l00139"></a><span class="lineno">  139</span>&#160;</div><div class="line"><a name="l00140"></a><span class="lineno">  140</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00141"></a><span class="lineno">  141</span>&#160;<span class="comment">   !&gt; * Initialize namcouple.</span></div><div class="line"><a name="l00142"></a><span class="lineno">  142</span>&#160;<span class="comment">   !&gt;   First on rank 0 to write error messages</span></div><div class="line"><a name="l00143"></a><span class="lineno">  143</span>&#160;<span class="comment">   !&gt;   then on all other ranks.  All tasks will</span></div><div class="line"><a name="l00144"></a><span class="lineno">  144</span>&#160;<span class="comment">   !&gt;   read the namcouple file independently.</span></div><div class="line"><a name="l00145"></a><span class="lineno">  145</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00146"></a><span class="lineno">  146</span>&#160;</div><div class="line"><a name="l00147"></a><span class="lineno">  147</span>&#160;   <span class="keywordflow">IF</span> (mpi_rank_world == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00148"></a><span class="lineno">  148</span>&#160;      <span class="keyword">call </span><a class="code" href="namespacemod__oasis__namcouple.html#ab57c69ae534734f92a85e24a3389e972">oasis_namcouple_init</a>()</div><div class="line"><a name="l00149"></a><span class="lineno">  149</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00150"></a><span class="lineno">  150</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__mpi.html#aaf477847380fbbbc1341520b0b3e66da">oasis_mpi_barrier</a>(<a class="code" href="namespacemod__oasis__method.html#aff65fa61d2762374419fe4c44c0f9282">mpi_comm_global_world</a>)</div><div class="line"><a name="l00151"></a><span class="lineno">  151</span>&#160;   <span class="keywordflow">IF</span> (mpi_rank_world /= 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00152"></a><span class="lineno">  152</span>&#160;      <span class="keyword">call </span><a class="code" href="namespacemod__oasis__namcouple.html#ab57c69ae534734f92a85e24a3389e972">oasis_namcouple_init</a>()</div><div class="line"><a name="l00153"></a><span class="lineno">  153</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00154"></a><span class="lineno">  154</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a> = <a class="code" href="namespacemod__oasis__namcouple.html#a46affda5336f60a1eeb1badaaccd3cfd">namlogprt</a></div><div class="line"><a name="l00155"></a><span class="lineno">  155</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#a320a34357de5c3049ccf102df7b97f5e">timer_debug</a> = <a class="code" href="namespacemod__oasis__namcouple.html#a45fbbd2941f5d71991d409f63e31cf02">namtlogprt</a></div><div class="line"><a name="l00156"></a><span class="lineno">  156</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#a063a41b73546564afd294fd5708b6667">oasis_unitsetmin</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a1b8c7ce28c62fa0b15076b7169d8b454">namuntmin</a>)</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#a6e0a46b41f1b9f0a1dc99b17665f49dc">oasis_unitsetmax</a>(<a class="code" href="namespacemod__oasis__namcouple.html#ae750107f9401fd3c7348088ad3095b45">namuntmax</a>)</div><div class="line"><a name="l00158"></a><span class="lineno">  158</span>&#160;   <a class="code" href="namespacemod__oasis__coupler.html#ab494fbbb8065f3a006892828f288e44a">allow_no_restart</a> = <a class="code" href="namespacemod__oasis__namcouple.html#ad1bd3ea485ad5f5114eb4b7f8c831ccb">namnorest</a></div><div class="line"><a name="l00159"></a><span class="lineno">  159</span>&#160;</div><div class="line"><a name="l00160"></a><span class="lineno">  160</span>&#160;   <span class="comment">! If TIMER_debug &lt; 0 activate LUCIA load balancing analysis</span></div><div class="line"><a name="l00161"></a><span class="lineno">  161</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#a7c427f27ff231565a1ecc0caeb30c67c">lucia_debug</a> = abs(min(<a class="code" href="namespacemod__oasis__namcouple.html#a45fbbd2941f5d71991d409f63e31cf02">namtlogprt</a>,0))</div><div class="line"><a name="l00162"></a><span class="lineno">  162</span>&#160;</div><div class="line"><a name="l00163"></a><span class="lineno">  163</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00164"></a><span class="lineno">  164</span>&#160;<span class="comment">   !&gt; * Check if NFIELDS=0, there is no coupling.</span></div><div class="line"><a name="l00165"></a><span class="lineno">  165</span>&#160;   <span class="comment">! No information must be written in the debug files as</span></div><div class="line"><a name="l00166"></a><span class="lineno">  166</span>&#160;   <span class="comment">! the different structures are not allocated</span></div><div class="line"><a name="l00167"></a><span class="lineno">  167</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00168"></a><span class="lineno">  168</span>&#160;</div><div class="line"><a name="l00169"></a><span class="lineno">  169</span>&#160;   <span class="keywordflow">IF</span> ( <a class="code" href="namespacemod__oasis__namcouple.html#a5ca7cd6a5b9f939b68492200aa92bab4">nnamcpl</a> == 0 ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00170"></a><span class="lineno">  170</span>&#160;       <span class="keywordflow">IF</span> (mpi_rank_world == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00171"></a><span class="lineno">  171</span>&#160;           <span class="keyword">WRITE</span> (unit = <a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,fmt = *) subname,<a class="code" href="namespacemod__oasis__sys.html#a4e16ba69c68a3a39c8b8aa3b92234ce1">wstr</a>, &amp;</div><div class="line"><a name="l00172"></a><span class="lineno">  172</span>&#160;              <span class="stringliteral">&#39;The models are not exchanging any field ($NFIELDS = 0) &#39;</span></div><div class="line"><a name="l00173"></a><span class="lineno">  173</span>&#160;           <span class="keyword">WRITE</span> (unit = <a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,fmt = *)  &amp;</div><div class="line"><a name="l00174"></a><span class="lineno">  174</span>&#160;              <span class="stringliteral">&#39;so we force OASIS_debug = 0 for all processors &#39;</span></div><div class="line"><a name="l00175"></a><span class="lineno">  175</span>&#160;           <a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a> = 0</div><div class="line"><a name="l00176"></a><span class="lineno">  176</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#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00177"></a><span class="lineno">  177</span>&#160;<span class="keywordflow">       ENDIF</span></div><div class="line"><a name="l00178"></a><span class="lineno">  178</span>&#160;<span class="keywordflow">   ENDIF</span></div><div class="line"><a name="l00179"></a><span class="lineno">  179</span>&#160;</div><div class="line"><a name="l00180"></a><span class="lineno">  180</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00181"></a><span class="lineno">  181</span>&#160;<span class="comment">   !&gt; * Determine the total number of coupling fields from namcouple.</span></div><div class="line"><a name="l00182"></a><span class="lineno">  182</span>&#160;<span class="comment">   !&gt;   Set maxvar parameter and allocate prism_var.</span></div><div class="line"><a name="l00183"></a><span class="lineno">  183</span>&#160;   <span class="comment">! to avoid a parameter in oasis_def_var and mod_oasis_coupler</span></div><div class="line"><a name="l00184"></a><span class="lineno">  184</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00185"></a><span class="lineno">  185</span>&#160;</div><div class="line"><a name="l00186"></a><span class="lineno">  186</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#aa8588b3be582de7f61aa318d45854483">size_namfld</a>=0</div><div class="line"><a name="l00187"></a><span class="lineno">  187</span>&#160;   <span class="keywordflow">DO</span> n = 1,<a class="code" href="namespacemod__oasis__namcouple.html#a5ca7cd6a5b9f939b68492200aa92bab4">nnamcpl</a></div><div class="line"><a name="l00188"></a><span class="lineno">  188</span>&#160;     <a class="code" href="namespacemod__oasis__data.html#aa8588b3be582de7f61aa318d45854483">size_namfld</a> = <a class="code" href="namespacemod__oasis__data.html#aa8588b3be582de7f61aa318d45854483">size_namfld</a> + <a class="code" href="namespacemod__oasis__string.html#a15a49e6a71df520424402a753be10bb1">oasis_string_listgetnum</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a5fcb5a4f2a49f414fafe38b03c5c089d">namsrcfld</a>(n))</div><div class="line"><a name="l00189"></a><span class="lineno">  189</span>&#160;<span class="keywordflow">   ENDDO</span></div><div class="line"><a name="l00190"></a><span class="lineno">  190</span>&#160;   <a class="code" href="namespacemod__oasis__var.html#a151c4be67882fc8d02f66e4a1822b692">maxvar</a> = <a class="code" href="namespacemod__oasis__data.html#aa8588b3be582de7f61aa318d45854483">size_namfld</a> * 2    <span class="comment">! multiply by 2 to allow sending to self</span></div><div class="line"><a name="l00191"></a><span class="lineno">  191</span>&#160;   <span class="keywordflow">IF</span> (mpi_rank_world == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00192"></a><span class="lineno">  192</span>&#160;       <span class="keyword">WRITE</span> (unit = <a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,fmt = *) <span class="stringliteral">&#39;Total number of coupling fields :&#39;</span>,<a class="code" href="namespacemod__oasis__var.html#a151c4be67882fc8d02f66e4a1822b692">maxvar</a></div><div class="line"><a name="l00193"></a><span class="lineno">  193</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#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00194"></a><span class="lineno">  194</span>&#160;<span class="keywordflow">   ENDIF</span></div><div class="line"><a name="l00195"></a><span class="lineno">  195</span>&#160;</div><div class="line"><a name="l00196"></a><span class="lineno">  196</span>&#160;   <span class="keyword">ALLOCATE</span>(<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(<a class="code" href="namespacemod__oasis__var.html#a151c4be67882fc8d02f66e4a1822b692">maxvar</a>))</div><div class="line"><a name="l00197"></a><span class="lineno">  197</span>&#160;</div><div class="line"><a name="l00198"></a><span class="lineno">  198</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00199"></a><span class="lineno">  199</span>&#160;<span class="comment">   !&gt; * Store all the names of the fields exchanged in the namcouple</span></div><div class="line"><a name="l00200"></a><span class="lineno">  200</span>&#160;   <span class="comment">! which can be different of namsrcfld(:) and namdstfld(:) if multiple </span></div><div class="line"><a name="l00201"></a><span class="lineno">  201</span>&#160;   <span class="comment">! fields are exchanged together</span></div><div class="line"><a name="l00202"></a><span class="lineno">  202</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00203"></a><span class="lineno">  203</span>&#160;</div><div class="line"><a name="l00204"></a><span class="lineno">  204</span>&#160;   <span class="keyword">ALLOCATE</span>(<a class="code" href="namespacemod__oasis__data.html#a58b5a440f274f5dfb942d7e18f12674c">total_namsrcfld</a>(<a class="code" href="namespacemod__oasis__data.html#aa8588b3be582de7f61aa318d45854483">size_namfld</a>))</div><div class="line"><a name="l00205"></a><span class="lineno">  205</span>&#160;   <span class="keyword">ALLOCATE</span>(<a class="code" href="namespacemod__oasis__data.html#a81466361b20004007f221dd6a32041f9">total_namdstfld</a>(<a class="code" href="namespacemod__oasis__data.html#aa8588b3be582de7f61aa318d45854483">size_namfld</a>))</div><div class="line"><a name="l00206"></a><span class="lineno">  206</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#a58b5a440f274f5dfb942d7e18f12674c">total_namsrcfld</a> = <span class="stringliteral">&#39;&#39;</span></div><div class="line"><a name="l00207"></a><span class="lineno">  207</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#a81466361b20004007f221dd6a32041f9">total_namdstfld</a> = <span class="stringliteral">&#39;&#39;</span></div><div class="line"><a name="l00208"></a><span class="lineno">  208</span>&#160;</div><div class="line"><a name="l00209"></a><span class="lineno">  209</span>&#160;   m=0</div><div class="line"><a name="l00210"></a><span class="lineno">  210</span>&#160;   <span class="keywordflow">DO</span> nns = 1,<a class="code" href="namespacemod__oasis__namcouple.html#a5ca7cd6a5b9f939b68492200aa92bab4">nnamcpl</a></div><div class="line"><a name="l00211"></a><span class="lineno">  211</span>&#160;     n = <a class="code" href="namespacemod__oasis__namcouple.html#a4555b14f38928b7f0fb7f77b9c42d0a0">namsort2nn</a>(nns)</div><div class="line"><a name="l00212"></a><span class="lineno">  212</span>&#160;     k1=<a class="code" href="namespacemod__oasis__string.html#a15a49e6a71df520424402a753be10bb1">oasis_string_listgetnum</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a5fcb5a4f2a49f414fafe38b03c5c089d">namsrcfld</a>(n))</div><div class="line"><a name="l00213"></a><span class="lineno">  213</span>&#160;     k2=<a class="code" href="namespacemod__oasis__string.html#a15a49e6a71df520424402a753be10bb1">oasis_string_listgetnum</a>(<a class="code" href="namespacemod__oasis__namcouple.html#ac4cfec209e4169b6098f9a8b9be1ffb1">namdstfld</a>(n))</div><div class="line"><a name="l00214"></a><span class="lineno">  214</span>&#160;     <span class="keywordflow">if</span> (k1 /= k2) <span class="keywordflow">then</span></div><div class="line"><a name="l00215"></a><span class="lineno">  215</span>&#160;       <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;namcouple fields do not agree in number&#39;</span></div><div class="line"><a name="l00216"></a><span class="lineno">  216</span>&#160;       <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;namsrcfld = &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#a5fcb5a4f2a49f414fafe38b03c5c089d">namsrcfld</a>(n))</div><div class="line"><a name="l00217"></a><span class="lineno">  217</span>&#160;       <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;namdstfld = &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#ac4cfec209e4169b6098f9a8b9be1ffb1">namdstfld</a>(n))</div><div class="line"><a name="l00218"></a><span class="lineno">  218</span>&#160;       <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;check your namcouple file &#39;</span></div><div class="line"><a name="l00219"></a><span class="lineno">  219</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="l00220"></a><span class="lineno">  220</span>&#160;<span class="keywordflow">     endif</span></div><div class="line"><a name="l00221"></a><span class="lineno">  221</span>&#160;     <span class="keywordflow">DO</span> i=1,k1</div><div class="line"><a name="l00222"></a><span class="lineno">  222</span>&#160;       m=m+1</div><div class="line"><a name="l00223"></a><span class="lineno">  223</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__string.html#a4d3a28944ce786f4d8d8a9555c63f8cd">oasis_string_listgetname</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a5fcb5a4f2a49f414fafe38b03c5c089d">namsrcfld</a>(n),i,i_name)</div><div class="line"><a name="l00224"></a><span class="lineno">  224</span>&#160;       <a class="code" href="namespacemod__oasis__data.html#a58b5a440f274f5dfb942d7e18f12674c">total_namsrcfld</a>(m)=trim(i_name)</div><div class="line"><a name="l00225"></a><span class="lineno">  225</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__string.html#a4d3a28944ce786f4d8d8a9555c63f8cd">oasis_string_listgetname</a>(<a class="code" href="namespacemod__oasis__namcouple.html#ac4cfec209e4169b6098f9a8b9be1ffb1">namdstfld</a>(n),i,i_name)</div><div class="line"><a name="l00226"></a><span class="lineno">  226</span>&#160;       <a class="code" href="namespacemod__oasis__data.html#a81466361b20004007f221dd6a32041f9">total_namdstfld</a>(m)=trim(i_name)</div><div class="line"><a name="l00227"></a><span class="lineno">  227</span>&#160;<span class="keywordflow">     ENDDO</span></div><div class="line"><a name="l00228"></a><span class="lineno">  228</span>&#160;<span class="keywordflow">   ENDDO</span></div><div class="line"><a name="l00229"></a><span class="lineno">  229</span>&#160;   nvar = m</div><div class="line"><a name="l00230"></a><span class="lineno">  230</span>&#160;</div><div class="line"><a name="l00231"></a><span class="lineno">  231</span>&#160;   <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a> &gt;= 15 .and. mpi_rank_world == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00232"></a><span class="lineno">  232</span>&#160;      <span class="keywordflow">DO</span> m=1,nvar</div><div class="line"><a name="l00233"></a><span class="lineno">  233</span>&#160;         <span class="keyword">WRITE</span> (unit = <a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,fmt = *) subname,<span class="stringliteral">&#39;Coupling fields  namsrcfld:&#39;</span>,&amp;</div><div class="line"><a name="l00234"></a><span class="lineno">  234</span>&#160;                                     trim(<a class="code" href="namespacemod__oasis__data.html#a58b5a440f274f5dfb942d7e18f12674c">total_namsrcfld</a>(m))</div><div class="line"><a name="l00235"></a><span class="lineno">  235</span>&#160;         <span class="keyword">WRITE</span> (unit = <a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,fmt = *) subname,<span class="stringliteral">&#39;Coupling fields namdstfld:&#39;</span>,&amp;</div><div class="line"><a name="l00236"></a><span class="lineno">  236</span>&#160;                                     trim(<a class="code" href="namespacemod__oasis__data.html#a81466361b20004007f221dd6a32041f9">total_namdstfld</a>(m))</div><div class="line"><a name="l00237"></a><span class="lineno">  237</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#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00238"></a><span class="lineno">  238</span>&#160;<span class="keywordflow">      ENDDO</span></div><div class="line"><a name="l00239"></a><span class="lineno">  239</span>&#160;<span class="keywordflow">   ENDIF</span></div><div class="line"><a name="l00240"></a><span class="lineno">  240</span>&#160;</div><div class="line"><a name="l00241"></a><span class="lineno">  241</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00242"></a><span class="lineno">  242</span>&#160;   <span class="comment">! check (not needed anymore)</span></div><div class="line"><a name="l00243"></a><span class="lineno">  243</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00244"></a><span class="lineno">  244</span>&#160;</div><div class="line"><a name="l00245"></a><span class="lineno">  245</span>&#160;   <span class="keywordflow">if</span> (len_trim(cdnam) &gt; <a class="code" href="namespacemod__oasis__kinds.html#a5c0c2841fb9b4f7cbeb6de3f5731371a">ic_lvar</a>) <span class="keywordflow">then</span></div><div class="line"><a name="l00246"></a><span class="lineno">  246</span>&#160;      <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;model name too long = &#39;</span>,trim(cdnam)</div><div class="line"><a name="l00247"></a><span class="lineno">  247</span>&#160;      <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;max model name length = &#39;</span>,<a class="code" href="namespacemod__oasis__kinds.html#a5c0c2841fb9b4f7cbeb6de3f5731371a">ic_lvar</a></div><div class="line"><a name="l00248"></a><span class="lineno">  248</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="l00249"></a><span class="lineno">  249</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00250"></a><span class="lineno">  250</span>&#160;</div><div class="line"><a name="l00251"></a><span class="lineno">  251</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00252"></a><span class="lineno">  252</span>&#160;<span class="comment">   !&gt; * Gather model names from all tasks to generate active model list on all tasks.</span></div><div class="line"><a name="l00253"></a><span class="lineno">  253</span>&#160;   <span class="comment">!--- Check that the coupled flag from all tasks is consistent for a given model or abort</span></div><div class="line"><a name="l00254"></a><span class="lineno">  254</span>&#160;   <span class="comment">!--- Size of compnm is ic_lvar</span></div><div class="line"><a name="l00255"></a><span class="lineno">  255</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00256"></a><span class="lineno">  256</span>&#160;</div><div class="line"><a name="l00257"></a><span class="lineno">  257</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#a8379835615758ccf7a4287dde5785681">compnm</a> = trim(cdnam)</div><div class="line"><a name="l00258"></a><span class="lineno">  258</span>&#160;   <span class="keyword">allocate</span>(compnmlist(mpi_size_world))</div><div class="line"><a name="l00259"></a><span class="lineno">  259</span>&#160;   <span class="keyword">allocate</span>(coupledlist(mpi_size_world))</div><div class="line"><a name="l00260"></a><span class="lineno">  260</span>&#160;   <span class="keyword">call </span>mpi_gather(<a class="code" href="namespacemod__oasis__data.html#a8379835615758ccf7a4287dde5785681">compnm</a>, <a class="code" href="namespacemod__oasis__kinds.html#a5c0c2841fb9b4f7cbeb6de3f5731371a">ic_lvar</a>, mpi_character, compnmlist, <a class="code" href="namespacemod__oasis__kinds.html#a5c0c2841fb9b4f7cbeb6de3f5731371a">ic_lvar</a>, mpi_character, 0, <a class="code" href="namespacemod__oasis__method.html#aff65fa61d2762374419fe4c44c0f9282">mpi_comm_global_world</a>, ierr)</div><div class="line"><a name="l00261"></a><span class="lineno">  261</span>&#160;   <span class="keyword">call </span>mpi_gather(<a class="code" href="namespacemod__oasis__data.html#a5056590b195dc981725173c79e52de3b">oasis_coupled</a>, 1, mpi_logical, coupledlist, 1, mpi_logical, 0, <a class="code" href="namespacemod__oasis__method.html#aff65fa61d2762374419fe4c44c0f9282">mpi_comm_global_world</a>, ierr)</div><div class="line"><a name="l00262"></a><span class="lineno">  262</span>&#160;</div><div class="line"><a name="l00263"></a><span class="lineno">  263</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#a5915b02f461626d5a6cffbf037daa75e">prism_nmodels</a> = 0</div><div class="line"><a name="l00264"></a><span class="lineno">  264</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#abd4b98e9f321bc073d5a8e0292ba7131">prism_modnam</a>(:) = <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l00265"></a><span class="lineno">  265</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#ad5282716e60cbe5e8c1ced7758fc9ae1">prism_modcpl</a>(:) = .false.</div><div class="line"><a name="l00266"></a><span class="lineno">  266</span>&#160;   <span class="keywordflow">if</span> (mpi_rank_world == 0) <span class="keywordflow">then</span></div><div class="line"><a name="l00267"></a><span class="lineno">  267</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="l00268"></a><span class="lineno">  268</span>&#160;         <span class="keywordflow">do</span> n = 1,mpi_size_world</div><div class="line"><a name="l00269"></a><span class="lineno">  269</span>&#160;            <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39; compnm gather &#39;</span>,n,trim(compnmlist(n)),coupledlist(n)</div><div class="line"><a name="l00270"></a><span class="lineno">  270</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#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00271"></a><span class="lineno">  271</span>&#160;<span class="keywordflow">         enddo</span></div><div class="line"><a name="l00272"></a><span class="lineno">  272</span>&#160;<span class="keywordflow">      endif</span></div><div class="line"><a name="l00273"></a><span class="lineno">  273</span>&#160;</div><div class="line"><a name="l00274"></a><span class="lineno">  274</span>&#160;      <span class="comment">!--- generate unique list of models and coupling status</span></div><div class="line"><a name="l00275"></a><span class="lineno">  275</span>&#160;      <span class="comment">!--- check for coupled flag consistency</span></div><div class="line"><a name="l00276"></a><span class="lineno">  276</span>&#160;      <span class="keywordflow">do</span> n = 1,mpi_size_world</div><div class="line"><a name="l00277"></a><span class="lineno">  277</span>&#160;         found = .false.</div><div class="line"><a name="l00278"></a><span class="lineno">  278</span>&#160;         m = 0</div><div class="line"><a name="l00279"></a><span class="lineno">  279</span>&#160;         <span class="keywordflow">do</span> <span class="keywordflow">while</span> (.not.found .and. m &lt; <a class="code" href="namespacemod__oasis__data.html#a5915b02f461626d5a6cffbf037daa75e">prism_nmodels</a>)</div><div class="line"><a name="l00280"></a><span class="lineno">  280</span>&#160;            m = m + 1</div><div class="line"><a name="l00281"></a><span class="lineno">  281</span>&#160;            <span class="keywordflow">if</span> (compnmlist(n) == <a class="code" href="namespacemod__oasis__data.html#abd4b98e9f321bc073d5a8e0292ba7131">prism_modnam</a>(m)) <span class="keywordflow">then</span></div><div class="line"><a name="l00282"></a><span class="lineno">  282</span>&#160;               found = .true.</div><div class="line"><a name="l00283"></a><span class="lineno">  283</span>&#160;               <span class="keywordflow">if</span> (coupledlist(n) .neqv. <a class="code" href="namespacemod__oasis__data.html#ad5282716e60cbe5e8c1ced7758fc9ae1">prism_modcpl</a>(m)) <span class="keywordflow">then</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#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;inconsistent coupled flag&#39;</span></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#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;the optional argument, coupled&#39;</span></div><div class="line"><a name="l00286"></a><span class="lineno">  286</span>&#160;                  <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;must be identical on all tasks of a component.&#39;</span></div><div class="line"><a name="l00287"></a><span class="lineno">  287</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="l00288"></a><span class="lineno">  288</span>&#160;<span class="keywordflow">               endif</span></div><div class="line"><a name="l00289"></a><span class="lineno">  289</span>&#160;<span class="keywordflow">            endif</span></div><div class="line"><a name="l00290"></a><span class="lineno">  290</span>&#160;<span class="keywordflow">         enddo</span></div><div class="line"><a name="l00291"></a><span class="lineno">  291</span>&#160;         <span class="keywordflow">if</span> (.not.found) <span class="keywordflow">then</span></div><div class="line"><a name="l00292"></a><span class="lineno">  292</span>&#160;            <a class="code" href="namespacemod__oasis__data.html#a5915b02f461626d5a6cffbf037daa75e">prism_nmodels</a> = <a class="code" href="namespacemod__oasis__data.html#a5915b02f461626d5a6cffbf037daa75e">prism_nmodels</a> + 1</div><div class="line"><a name="l00293"></a><span class="lineno">  293</span>&#160;            <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#a5915b02f461626d5a6cffbf037daa75e">prism_nmodels</a> &gt; <a class="code" href="namespacemod__oasis__data.html#a11c61975c048981f7e508f1b6caf16b6">prism_mmodels</a>) <span class="keywordflow">then</span></div><div class="line"><a name="l00294"></a><span class="lineno">  294</span>&#160;               <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;prism_nmodels too large, increase prism_mmodels in mod_oasis_data&#39;</span></div><div class="line"><a name="l00295"></a><span class="lineno">  295</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="l00296"></a><span class="lineno">  296</span>&#160;<span class="keywordflow">            endif</span></div><div class="line"><a name="l00297"></a><span class="lineno">  297</span>&#160;            <a class="code" href="namespacemod__oasis__data.html#abd4b98e9f321bc073d5a8e0292ba7131">prism_modnam</a>(<a class="code" href="namespacemod__oasis__data.html#a5915b02f461626d5a6cffbf037daa75e">prism_nmodels</a>) = trim(compnmlist(n))</div><div class="line"><a name="l00298"></a><span class="lineno">  298</span>&#160;            <a class="code" href="namespacemod__oasis__data.html#ad5282716e60cbe5e8c1ced7758fc9ae1">prism_modcpl</a>(<a class="code" href="namespacemod__oasis__data.html#a5915b02f461626d5a6cffbf037daa75e">prism_nmodels</a>) = coupledlist(n)</div><div class="line"><a name="l00299"></a><span class="lineno">  299</span>&#160;<span class="keywordflow">         endif</span></div><div class="line"><a name="l00300"></a><span class="lineno">  300</span>&#160;<span class="keywordflow">      enddo</span></div><div class="line"><a name="l00301"></a><span class="lineno">  301</span>&#160;</div><div class="line"><a name="l00302"></a><span class="lineno">  302</span>&#160;      <span class="comment">!--- sort so coupled are first, uncoupled are last</span></div><div class="line"><a name="l00303"></a><span class="lineno">  303</span>&#160;      <span class="comment">!--- makes using only active models via &quot;prism_amodels&quot; easier</span></div><div class="line"><a name="l00304"></a><span class="lineno">  304</span>&#160;      <a class="code" href="namespacemod__oasis__data.html#ac73f95bc17215d09b67c6c4d3adc07b7">prism_amodels</a> = <a class="code" href="namespacemod__oasis__data.html#a5915b02f461626d5a6cffbf037daa75e">prism_nmodels</a></div><div class="line"><a name="l00305"></a><span class="lineno">  305</span>&#160;      <span class="keywordflow">do</span> n = <a class="code" href="namespacemod__oasis__data.html#a5915b02f461626d5a6cffbf037daa75e">prism_nmodels</a>,1,-1</div><div class="line"><a name="l00306"></a><span class="lineno">  306</span>&#160;         <span class="keywordflow">if</span> (.not.<a class="code" href="namespacemod__oasis__data.html#ad5282716e60cbe5e8c1ced7758fc9ae1">prism_modcpl</a>(n)) <span class="keywordflow">then</span></div><div class="line"><a name="l00307"></a><span class="lineno">  307</span>&#160;            tmp_modnam = <a class="code" href="namespacemod__oasis__data.html#abd4b98e9f321bc073d5a8e0292ba7131">prism_modnam</a>(n)</div><div class="line"><a name="l00308"></a><span class="lineno">  308</span>&#160;            tmp_modcpl = <a class="code" href="namespacemod__oasis__data.html#ad5282716e60cbe5e8c1ced7758fc9ae1">prism_modcpl</a>(n)</div><div class="line"><a name="l00309"></a><span class="lineno">  309</span>&#160;            <span class="keywordflow">do</span> m = n,<a class="code" href="namespacemod__oasis__data.html#a5915b02f461626d5a6cffbf037daa75e">prism_nmodels</a>-1</div><div class="line"><a name="l00310"></a><span class="lineno">  310</span>&#160;               <a class="code" href="namespacemod__oasis__data.html#abd4b98e9f321bc073d5a8e0292ba7131">prism_modnam</a>(m) = <a class="code" href="namespacemod__oasis__data.html#abd4b98e9f321bc073d5a8e0292ba7131">prism_modnam</a>(m+1)</div><div class="line"><a name="l00311"></a><span class="lineno">  311</span>&#160;               <a class="code" href="namespacemod__oasis__data.html#ad5282716e60cbe5e8c1ced7758fc9ae1">prism_modcpl</a>(m) = <a class="code" href="namespacemod__oasis__data.html#ad5282716e60cbe5e8c1ced7758fc9ae1">prism_modcpl</a>(m+1)</div><div class="line"><a name="l00312"></a><span class="lineno">  312</span>&#160;<span class="keywordflow">            enddo</span></div><div class="line"><a name="l00313"></a><span class="lineno">  313</span>&#160;            <a class="code" href="namespacemod__oasis__data.html#abd4b98e9f321bc073d5a8e0292ba7131">prism_modnam</a>(<a class="code" href="namespacemod__oasis__data.html#a5915b02f461626d5a6cffbf037daa75e">prism_nmodels</a>) = tmp_modnam</div><div class="line"><a name="l00314"></a><span class="lineno">  314</span>&#160;            <a class="code" href="namespacemod__oasis__data.html#ad5282716e60cbe5e8c1ced7758fc9ae1">prism_modcpl</a>(<a class="code" href="namespacemod__oasis__data.html#a5915b02f461626d5a6cffbf037daa75e">prism_nmodels</a>) = tmp_modcpl</div><div class="line"><a name="l00315"></a><span class="lineno">  315</span>&#160;            <a class="code" href="namespacemod__oasis__data.html#ac73f95bc17215d09b67c6c4d3adc07b7">prism_amodels</a> = <a class="code" href="namespacemod__oasis__data.html#ac73f95bc17215d09b67c6c4d3adc07b7">prism_amodels</a> - 1</div><div class="line"><a name="l00316"></a><span class="lineno">  316</span>&#160;<span class="keywordflow">         endif</span></div><div class="line"><a name="l00317"></a><span class="lineno">  317</span>&#160;<span class="keywordflow">      enddo</span></div><div class="line"><a name="l00318"></a><span class="lineno">  318</span>&#160;</div><div class="line"><a name="l00319"></a><span class="lineno">  319</span>&#160;      <span class="comment">!--- document and check list</span></div><div class="line"><a name="l00320"></a><span class="lineno">  320</span>&#160;      <span class="keywordflow">do</span> n = 1,<a class="code" href="namespacemod__oasis__data.html#ac73f95bc17215d09b67c6c4d3adc07b7">prism_amodels</a></div><div class="line"><a name="l00321"></a><span class="lineno">  321</span>&#160;         <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39;   COUPLED models &#39;</span>,n,trim(<a class="code" href="namespacemod__oasis__data.html#abd4b98e9f321bc073d5a8e0292ba7131">prism_modnam</a>(n)),<a class="code" href="namespacemod__oasis__data.html#ad5282716e60cbe5e8c1ced7758fc9ae1">prism_modcpl</a>(n)</div><div class="line"><a name="l00322"></a><span class="lineno">  322</span>&#160;         <span class="keywordflow">if</span> (.not.<a class="code" href="namespacemod__oasis__data.html#ad5282716e60cbe5e8c1ced7758fc9ae1">prism_modcpl</a>(n)) <span class="keywordflow">then</span></div><div class="line"><a name="l00323"></a><span class="lineno">  323</span>&#160;            <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;model expected to be coupled but is not = &#39;</span>,trim(<a class="code" href="namespacemod__oasis__data.html#abd4b98e9f321bc073d5a8e0292ba7131">prism_modnam</a>(n))</div><div class="line"><a name="l00324"></a><span class="lineno">  324</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="l00325"></a><span class="lineno">  325</span>&#160;<span class="keywordflow">         endif</span></div><div class="line"><a name="l00326"></a><span class="lineno">  326</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#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00327"></a><span class="lineno">  327</span>&#160;<span class="keywordflow">      enddo</span></div><div class="line"><a name="l00328"></a><span class="lineno">  328</span>&#160;      <span class="keywordflow">do</span> n = <a class="code" href="namespacemod__oasis__data.html#ac73f95bc17215d09b67c6c4d3adc07b7">prism_amodels</a>+1,<a class="code" href="namespacemod__oasis__data.html#a5915b02f461626d5a6cffbf037daa75e">prism_nmodels</a></div><div class="line"><a name="l00329"></a><span class="lineno">  329</span>&#160;         <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39; UNCOUPLED models &#39;</span>,n,trim(<a class="code" href="namespacemod__oasis__data.html#abd4b98e9f321bc073d5a8e0292ba7131">prism_modnam</a>(n)),<a class="code" href="namespacemod__oasis__data.html#ad5282716e60cbe5e8c1ced7758fc9ae1">prism_modcpl</a>(n)</div><div class="line"><a name="l00330"></a><span class="lineno">  330</span>&#160;         <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#ad5282716e60cbe5e8c1ced7758fc9ae1">prism_modcpl</a>(n)) <span class="keywordflow">then</span></div><div class="line"><a name="l00331"></a><span class="lineno">  331</span>&#160;            <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;model expected to be uncoupled but is not = &#39;</span>,trim(<a class="code" href="namespacemod__oasis__data.html#abd4b98e9f321bc073d5a8e0292ba7131">prism_modnam</a>(n))</div><div class="line"><a name="l00332"></a><span class="lineno">  332</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="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="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00335"></a><span class="lineno">  335</span>&#160;<span class="keywordflow">      enddo</span></div><div class="line"><a name="l00336"></a><span class="lineno">  336</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00337"></a><span class="lineno">  337</span>&#160;</div><div class="line"><a name="l00338"></a><span class="lineno">  338</span>&#160;   <span class="keyword">deallocate</span>(compnmlist)</div><div class="line"><a name="l00339"></a><span class="lineno">  339</span>&#160;   <span class="keyword">deallocate</span>(coupledlist)</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="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00342"></a><span class="lineno">  342</span>&#160;<span class="comment">   !&gt; * Broadcast the model list to all MPI tasks</span></div><div class="line"><a name="l00343"></a><span class="lineno">  343</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00344"></a><span class="lineno">  344</span>&#160;   <span class="keyword">call </span><a class="code" href="interfacemod__oasis__mpi_1_1oasis__mpi__bcast.html">oasis_mpi_bcast</a>(<a class="code" href="namespacemod__oasis__data.html#a5915b02f461626d5a6cffbf037daa75e">prism_nmodels</a>,<a class="code" href="namespacemod__oasis__method.html#aff65fa61d2762374419fe4c44c0f9282">mpi_comm_global_world</a>,subname//<span class="stringliteral">&#39; prism_nmodels&#39;</span>)</div><div class="line"><a name="l00345"></a><span class="lineno">  345</span>&#160;   <span class="keyword">call </span><a class="code" href="interfacemod__oasis__mpi_1_1oasis__mpi__bcast.html">oasis_mpi_bcast</a>(<a class="code" href="namespacemod__oasis__data.html#ac73f95bc17215d09b67c6c4d3adc07b7">prism_amodels</a>,<a class="code" href="namespacemod__oasis__method.html#aff65fa61d2762374419fe4c44c0f9282">mpi_comm_global_world</a>,subname//<span class="stringliteral">&#39; prism_amodels&#39;</span>)</div><div class="line"><a name="l00346"></a><span class="lineno">  346</span>&#160;   <span class="keyword">call </span><a class="code" href="interfacemod__oasis__mpi_1_1oasis__mpi__bcast.html">oasis_mpi_bcast</a>(<a class="code" href="namespacemod__oasis__data.html#abd4b98e9f321bc073d5a8e0292ba7131">prism_modnam</a> ,<a class="code" href="namespacemod__oasis__method.html#aff65fa61d2762374419fe4c44c0f9282">mpi_comm_global_world</a>,subname//<span class="stringliteral">&#39; prism_modnam&#39;</span>)</div><div class="line"><a name="l00347"></a><span class="lineno">  347</span>&#160;   <span class="keyword">call </span><a class="code" href="interfacemod__oasis__mpi_1_1oasis__mpi__bcast.html">oasis_mpi_bcast</a>(<a class="code" href="namespacemod__oasis__data.html#ad5282716e60cbe5e8c1ced7758fc9ae1">prism_modcpl</a> ,<a class="code" href="namespacemod__oasis__method.html#aff65fa61d2762374419fe4c44c0f9282">mpi_comm_global_world</a>,subname//<span class="stringliteral">&#39; prism_modcpl&#39;</span>)</div><div class="line"><a name="l00348"></a><span class="lineno">  348</span>&#160;</div><div class="line"><a name="l00349"></a><span class="lineno">  349</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00350"></a><span class="lineno">  350</span>&#160;<span class="comment">   !&gt; * Compute compid</span></div><div class="line"><a name="l00351"></a><span class="lineno">  351</span>&#160;   <span class="comment">!------------------------</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;   <a class="code" href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">compid</a> = -1</div><div class="line"><a name="l00354"></a><span class="lineno">  354</span>&#160;   <span class="keywordflow">do</span> n = 1,<a class="code" href="namespacemod__oasis__data.html#a5915b02f461626d5a6cffbf037daa75e">prism_nmodels</a></div><div class="line"><a name="l00355"></a><span class="lineno">  355</span>&#160;      <span class="keywordflow">if</span> (trim(cdnam) == trim(<a class="code" href="namespacemod__oasis__data.html#abd4b98e9f321bc073d5a8e0292ba7131">prism_modnam</a>(n))) <a class="code" href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">compid</a> = n</div><div class="line"><a name="l00356"></a><span class="lineno">  356</span>&#160;<span class="keywordflow">   enddo</span></div><div class="line"><a name="l00357"></a><span class="lineno">  357</span>&#160;   mynummod = <a class="code" href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">compid</a></div><div class="line"><a name="l00358"></a><span class="lineno">  358</span>&#160;   <span class="keywordflow">IF</span> (mpi_rank_world == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00359"></a><span class="lineno">  359</span>&#160;      <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname, <span class="stringliteral">&#39;cdnam :&#39;</span>,trim(cdnam),<span class="stringliteral">&#39; mynummod :&#39;</span>,mynummod</div><div class="line"><a name="l00360"></a><span class="lineno">  360</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#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00361"></a><span class="lineno">  361</span>&#160;<span class="keywordflow">   ENDIF</span></div><div class="line"><a name="l00362"></a><span class="lineno">  362</span>&#160;</div><div class="line"><a name="l00363"></a><span class="lineno">  363</span>&#160;<span class="comment">! tcraig, this should never happen based on logic above</span></div><div class="line"><a name="l00364"></a><span class="lineno">  364</span>&#160;   <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">compid</a> &lt; 0) <span class="keywordflow">then</span></div><div class="line"><a name="l00365"></a><span class="lineno">  365</span>&#160;      <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;prism_modnam internal inconsistency = &#39;</span>,trim(cdnam)</div><div class="line"><a name="l00366"></a><span class="lineno">  366</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="l00367"></a><span class="lineno">  367</span>&#160;<span class="keywordflow">   endif</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="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00370"></a><span class="lineno">  370</span>&#160;<span class="comment">   !&gt; * Re-Set MPI info based on active model tasks</span></div><div class="line"><a name="l00371"></a><span class="lineno">  371</span>&#160;   <span class="comment">!  (need compid for MPI1 COMM_SPLIT)</span></div><div class="line"><a name="l00372"></a><span class="lineno">  372</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00373"></a><span class="lineno">  373</span>&#160;</div><div class="line"><a name="l00374"></a><span class="lineno">  374</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> = -1</div><div class="line"><a name="l00375"></a><span class="lineno">  375</span>&#160;<span class="preprocessor">#ifdef use_comm_MPI1</span></div><div class="line"><a name="l00376"></a><span class="lineno">  376</span>&#160;<span class="preprocessor"></span></div><div class="line"><a name="l00377"></a><span class="lineno">  377</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00378"></a><span class="lineno">  378</span>&#160;<span class="comment">   !&gt;   * Set mpi_comm_local based on compid</span></div><div class="line"><a name="l00379"></a><span class="lineno">  379</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00380"></a><span class="lineno">  380</span>&#160;</div><div class="line"><a name="l00381"></a><span class="lineno">  381</span>&#160;   ikey = 0</div><div class="line"><a name="l00382"></a><span class="lineno">  382</span>&#160;   icolor = <a class="code" href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">compid</a></div><div class="line"><a name="l00383"></a><span class="lineno">  383</span>&#160;   <span class="keyword">call </span>mpi_comm_split(<a class="code" href="namespacemod__oasis__method.html#aff65fa61d2762374419fe4c44c0f9282">mpi_comm_global_world</a>,icolor,ikey,<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a>,ierr)</div><div class="line"><a name="l00384"></a><span class="lineno">  384</span>&#160;</div><div class="line"><a name="l00385"></a><span class="lineno">  385</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00386"></a><span class="lineno">  386</span>&#160;<span class="comment">   !&gt;   * Set mpi_comm_global based on oasis_coupled flag</span></div><div class="line"><a name="l00387"></a><span class="lineno">  387</span>&#160;   <span class="comment">!------------------------</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;   ikey = 0</div><div class="line"><a name="l00390"></a><span class="lineno">  390</span>&#160;   icolor = 1</div><div class="line"><a name="l00391"></a><span class="lineno">  391</span>&#160;   <span class="keywordflow">if</span> (.not.<a class="code" href="namespacemod__oasis__data.html#a5056590b195dc981725173c79e52de3b">oasis_coupled</a>) icolor = 0</div><div class="line"><a name="l00392"></a><span class="lineno">  392</span>&#160;   <span class="keyword">call </span>mpi_comm_split(<a class="code" href="namespacemod__oasis__method.html#aff65fa61d2762374419fe4c44c0f9282">mpi_comm_global_world</a>,icolor,ikey,<a class="code" href="namespacemod__oasis__data.html#a4bbff51054fd1746849de9defb3d5252">mpi_comm_global</a>,ierr)</div><div class="line"><a name="l00393"></a><span class="lineno">  393</span>&#160;<span class="comment">!tcx   if (.not.oasis_coupled) mpi_comm_global = MPI_COMM_NULL</span></div><div class="line"><a name="l00394"></a><span class="lineno">  394</span>&#160;</div><div class="line"><a name="l00395"></a><span class="lineno">  395</span>&#160;<span class="preprocessor">#elif defined use_comm_MPI2</span></div><div class="line"><a name="l00396"></a><span class="lineno">  396</span>&#160;<span class="preprocessor"></span></div><div class="line"><a name="l00397"></a><span class="lineno">  397</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#a4bbff51054fd1746849de9defb3d5252">mpi_comm_global</a> = ??</div><div class="line"><a name="l00398"></a><span class="lineno">  398</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a> = <a class="code" href="namespacemod__oasis__method.html#aff65fa61d2762374419fe4c44c0f9282">mpi_comm_global_world</a></div><div class="line"><a name="l00399"></a><span class="lineno">  399</span>&#160;</div><div class="line"><a name="l00400"></a><span class="lineno">  400</span>&#160;<span class="preprocessor">#endif</span></div><div class="line"><a name="l00401"></a><span class="lineno">  401</span>&#160;<span class="preprocessor"></span></div><div class="line"><a name="l00402"></a><span class="lineno">  402</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00403"></a><span class="lineno">  403</span>&#160;<span class="comment">   !&gt; * Reset debug levels</span></div><div class="line"><a name="l00404"></a><span class="lineno">  404</span>&#160;   <span class="comment">!  verbose level disabled if load balance analysis</span></div><div class="line"><a name="l00405"></a><span class="lineno">  405</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00406"></a><span class="lineno">  406</span>&#160;</div><div class="line"><a name="l00407"></a><span class="lineno">  407</span>&#160;   <span class="keywordflow">IF</span> ( <a class="code" href="namespacemod__oasis__data.html#a7c427f27ff231565a1ecc0caeb30c67c">lucia_debug</a> &gt; 0 .AND. <a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a> &gt; 0 ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00408"></a><span class="lineno">  408</span>&#160;      <span class="keyword">WRITE</span> (unit = <a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,fmt = *) subname,<a class="code" href="namespacemod__oasis__sys.html#a4e16ba69c68a3a39c8b8aa3b92234ce1">wstr</a>, &amp;</div><div class="line"><a name="l00409"></a><span class="lineno">  409</span>&#160;       <span class="stringliteral">&#39; With LUCIA load balance analysis &#39;</span></div><div class="line"><a name="l00410"></a><span class="lineno">  410</span>&#160;      <span class="keyword">WRITE</span> (unit = <a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,fmt = *)  &amp;</div><div class="line"><a name="l00411"></a><span class="lineno">  411</span>&#160;       <span class="stringliteral">&#39; we set OASIS_debug = 0 &#39;</span></div><div class="line"><a name="l00412"></a><span class="lineno">  412</span>&#160;      <a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a> = 0</div><div class="line"><a name="l00413"></a><span class="lineno">  413</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#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00414"></a><span class="lineno">  414</span>&#160;<span class="keywordflow">   ENDIF</span></div><div class="line"><a name="l00415"></a><span class="lineno">  415</span>&#160;</div><div class="line"><a name="l00416"></a><span class="lineno">  416</span>&#160;   <span class="keywordflow">IF</span> (mpi_rank_world == 0) <span class="keyword">CLOSE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00417"></a><span class="lineno">  417</span>&#160;</div><div class="line"><a name="l00418"></a><span class="lineno">  418</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="l00419"></a><span class="lineno">  419</span>&#160;      <span class="keywordflow">return</span></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;</div><div class="line"><a name="l00422"></a><span class="lineno">  422</span>&#160;   <span class="keyword">CALL </span>mpi_comm_size(<a class="code" href="namespacemod__oasis__data.html#a4bbff51054fd1746849de9defb3d5252">mpi_comm_global</a>,<a class="code" href="namespacemod__oasis__data.html#a83a9d498c6829e2058675a07446ce5be">mpi_size_global</a>,ierr)</div><div class="line"><a name="l00423"></a><span class="lineno">  423</span>&#160;   <span class="keyword">CALL </span>mpi_comm_rank(<a class="code" href="namespacemod__oasis__data.html#a4bbff51054fd1746849de9defb3d5252">mpi_comm_global</a>,<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a>,ierr)</div><div class="line"><a name="l00424"></a><span class="lineno">  424</span>&#160;</div><div class="line"><a name="l00425"></a><span class="lineno">  425</span>&#160;   <span class="keyword">CALL </span>mpi_comm_size(<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a>,<a class="code" href="namespacemod__oasis__data.html#a617f69fb4d4bb96a94f83a124b4d0030">mpi_size_local</a>,ierr)</div><div class="line"><a name="l00426"></a><span class="lineno">  426</span>&#160;   <span class="keyword">CALL </span>mpi_comm_rank(<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a>,<a class="code" href="namespacemod__oasis__data.html#a811747a1592795f860854f09f19d4c25">mpi_rank_local</a>,ierr)</div><div class="line"><a name="l00427"></a><span class="lineno">  427</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#a2c468f26bc0c9b2ad5d54d68733e7047">mpi_root_local</a> = 0</div><div class="line"><a name="l00428"></a><span class="lineno">  428</span>&#160;</div><div class="line"><a name="l00429"></a><span class="lineno">  429</span>&#160;<span class="preprocessor">#ifdef use_comm_MPI1</span></div><div class="line"><a name="l00430"></a><span class="lineno">  430</span>&#160;<span class="preprocessor"></span></div><div class="line"><a name="l00431"></a><span class="lineno">  431</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00432"></a><span class="lineno">  432</span>&#160;<span class="comment">   !&gt;   * Set mpi_comm_map based on node association</span></div><div class="line"><a name="l00433"></a><span class="lineno">  433</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00434"></a><span class="lineno">  434</span>&#160;</div><div class="line"><a name="l00435"></a><span class="lineno">  435</span>&#160;   <span class="keyword">CALL </span>mpi_get_processor_name(<a class="code" href="namespacemod__oasis__data.html#ad186b77d375be587e4f198ca45026d2e">mpi_node_name</a>, il_nodelen, ierr)</div><div class="line"><a name="l00436"></a><span class="lineno">  436</span>&#160;</div><div class="line"><a name="l00437"></a><span class="lineno">  437</span>&#160;   <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#a811747a1592795f860854f09f19d4c25">mpi_rank_local</a> == <a class="code" href="namespacemod__oasis__data.html#a2c468f26bc0c9b2ad5d54d68733e7047">mpi_root_local</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00438"></a><span class="lineno">  438</span>&#160;</div><div class="line"><a name="l00439"></a><span class="lineno">  439</span>&#160;      <span class="comment">! Prepare working memory on local root</span></div><div class="line"><a name="l00440"></a><span class="lineno">  440</span>&#160;</div><div class="line"><a name="l00441"></a><span class="lineno">  441</span>&#160;      <span class="keyword">ALLOCATE</span>(cla_nodes(<a class="code" href="namespacemod__oasis__data.html#a617f69fb4d4bb96a94f83a124b4d0030">mpi_size_local</a>))</div><div class="line"><a name="l00442"></a><span class="lineno">  442</span>&#160;      <span class="keyword">ALLOCATE</span>(ila_colors(<a class="code" href="namespacemod__oasis__data.html#a617f69fb4d4bb96a94f83a124b4d0030">mpi_size_local</a>))</div><div class="line"><a name="l00443"></a><span class="lineno">  443</span>&#160;      cla_nodes(:) = <span class="stringliteral">&#39;&#39;</span></div><div class="line"><a name="l00444"></a><span class="lineno">  444</span>&#160;      ila_colors(:) = -1</div><div class="line"><a name="l00445"></a><span class="lineno">  445</span>&#160;   <span class="keywordflow">ELSE</span></div><div class="line"><a name="l00446"></a><span class="lineno">  446</span>&#160;      <span class="keyword">ALLOCATE</span>(cla_nodes(1))</div><div class="line"><a name="l00447"></a><span class="lineno">  447</span>&#160;      <span class="keyword">ALLOCATE</span>(ila_colors(1))</div><div class="line"><a name="l00448"></a><span class="lineno">  448</span>&#160;<span class="keywordflow">   END IF</span></div><div class="line"><a name="l00449"></a><span class="lineno">  449</span>&#160;</div><div class="line"><a name="l00450"></a><span class="lineno">  450</span>&#160;   <span class="keyword">CALL </span>mpi_gather (<a class="code" href="namespacemod__oasis__data.html#ad186b77d375be587e4f198ca45026d2e">mpi_node_name</a>,mpi_max_processor_name,mpi_char,&amp;</div><div class="line"><a name="l00451"></a><span class="lineno">  451</span>&#160;      &amp;             cla_nodes,    mpi_max_processor_name,mpi_char,&amp;</div><div class="line"><a name="l00452"></a><span class="lineno">  452</span>&#160;      &amp;             <a class="code" href="namespacemod__oasis__data.html#a2c468f26bc0c9b2ad5d54d68733e7047">mpi_root_local</a>, <a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a>, ierr)</div><div class="line"><a name="l00453"></a><span class="lineno">  453</span>&#160;</div><div class="line"><a name="l00454"></a><span class="lineno">  454</span>&#160;   <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#a811747a1592795f860854f09f19d4c25">mpi_rank_local</a> == <a class="code" href="namespacemod__oasis__data.html#a2c468f26bc0c9b2ad5d54d68733e7047">mpi_root_local</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00455"></a><span class="lineno">  455</span>&#160;</div><div class="line"><a name="l00456"></a><span class="lineno">  456</span>&#160;      <span class="comment">! Pick only on proc per node</span></div><div class="line"><a name="l00457"></a><span class="lineno">  457</span>&#160;</div><div class="line"><a name="l00458"></a><span class="lineno">  458</span>&#160;      <span class="keywordflow">DO</span> <span class="keywordflow">WHILE</span> (any(ila_colors == -1))</div><div class="line"><a name="l00459"></a><span class="lineno">  459</span>&#160;         cl_node = cla_nodes(minloc(ila_colors,dim=1))</div><div class="line"><a name="l00460"></a><span class="lineno">  460</span>&#160;         ila_colors(minloc(ila_colors,dim=1)) = 1</div><div class="line"><a name="l00461"></a><span class="lineno">  461</span>&#160;         <span class="keywordflow">DO</span> i = minloc(ila_colors,dim=1), <a class="code" href="namespacemod__oasis__data.html#a617f69fb4d4bb96a94f83a124b4d0030">mpi_size_local</a></div><div class="line"><a name="l00462"></a><span class="lineno">  462</span>&#160;            <span class="keywordflow">IF</span> (ila_colors(i) == -1 .AND. cla_nodes(i) == cl_node)&amp;</div><div class="line"><a name="l00463"></a><span class="lineno">  463</span>&#160;               &amp; ila_colors(i) = 0</div><div class="line"><a name="l00464"></a><span class="lineno">  464</span>&#160;<span class="keywordflow">         END DO</span></div><div class="line"><a name="l00465"></a><span class="lineno">  465</span>&#160;<span class="keywordflow">      END DO</span></div><div class="line"><a name="l00466"></a><span class="lineno">  466</span>&#160;<span class="keywordflow">   END IF</span></div><div class="line"><a name="l00467"></a><span class="lineno">  467</span>&#160;</div><div class="line"><a name="l00468"></a><span class="lineno">  468</span>&#160;   icolor = 0</div><div class="line"><a name="l00469"></a><span class="lineno">  469</span>&#160;   <span class="keyword">CALL </span>mpi_scatter (ila_colors,1,mpi_int,&amp;</div><div class="line"><a name="l00470"></a><span class="lineno">  470</span>&#160;      &amp;              icolor,    1,mpi_int,&amp;</div><div class="line"><a name="l00471"></a><span class="lineno">  471</span>&#160;      &amp;              <a class="code" href="namespacemod__oasis__data.html#a2c468f26bc0c9b2ad5d54d68733e7047">mpi_root_local</a>, <a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a>, ierr)</div><div class="line"><a name="l00472"></a><span class="lineno">  472</span>&#160;</div><div class="line"><a name="l00473"></a><span class="lineno">  473</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#a799f6f0a442fcc2ab9960814b8b1b74a">mpi_in_map</a> = icolor == 1</div><div class="line"><a name="l00474"></a><span class="lineno">  474</span>&#160;</div><div class="line"><a name="l00475"></a><span class="lineno">  475</span>&#160;   ikey = 1</div><div class="line"><a name="l00476"></a><span class="lineno">  476</span>&#160;   <span class="keyword">CALL </span>mpi_comm_split(<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a>,icolor,ikey,<a class="code" href="namespacemod__oasis__data.html#a8ff971286c1f235b8a328b3298f58a9b">mpi_comm_map</a>,ierr)</div><div class="line"><a name="l00477"></a><span class="lineno">  477</span>&#160;</div><div class="line"><a name="l00478"></a><span class="lineno">  478</span>&#160;   <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#a799f6f0a442fcc2ab9960814b8b1b74a">mpi_in_map</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00479"></a><span class="lineno">  479</span>&#160;      <span class="keyword">CALL </span>mpi_comm_size(<a class="code" href="namespacemod__oasis__data.html#a8ff971286c1f235b8a328b3298f58a9b">mpi_comm_map</a>,<a class="code" href="namespacemod__oasis__data.html#ac4a6f10dab1d3078f8467465c21b9fdd">mpi_size_map</a>,ierr)</div><div class="line"><a name="l00480"></a><span class="lineno">  480</span>&#160;      <span class="keyword">CALL </span>mpi_comm_rank(<a class="code" href="namespacemod__oasis__data.html#a8ff971286c1f235b8a328b3298f58a9b">mpi_comm_map</a>,<a class="code" href="namespacemod__oasis__data.html#a5e29025a6d83c7a01f88febbb734b7e9">mpi_rank_map</a>,ierr)</div><div class="line"><a name="l00481"></a><span class="lineno">  481</span>&#160;<span class="keywordflow">   END IF</span></div><div class="line"><a name="l00482"></a><span class="lineno">  482</span>&#160;</div><div class="line"><a name="l00483"></a><span class="lineno">  483</span>&#160;   <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#a811747a1592795f860854f09f19d4c25">mpi_rank_local</a> == <a class="code" href="namespacemod__oasis__data.html#a2c468f26bc0c9b2ad5d54d68733e7047">mpi_root_local</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00484"></a><span class="lineno">  484</span>&#160;</div><div class="line"><a name="l00485"></a><span class="lineno">  485</span>&#160;      <span class="comment">! Set the root of the mapping subcommunicator on the</span></div><div class="line"><a name="l00486"></a><span class="lineno">  486</span>&#160;      <span class="comment">! local communicator root process</span></div><div class="line"><a name="l00487"></a><span class="lineno">  487</span>&#160;</div><div class="line"><a name="l00488"></a><span class="lineno">  488</span>&#160;      <a class="code" href="namespacemod__oasis__data.html#a177c2b47ae4c69407d55817cd468b0ae">mpi_root_map</a> = <a class="code" href="namespacemod__oasis__data.html#a5e29025a6d83c7a01f88febbb734b7e9">mpi_rank_map</a></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="keywordflow">   END IF</span></div><div class="line"><a name="l00491"></a><span class="lineno">  491</span>&#160;</div><div class="line"><a name="l00492"></a><span class="lineno">  492</span>&#160;   <span class="comment">! Free work memory on local root</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;   <span class="keyword">DEALLOCATE</span>(cla_nodes)</div><div class="line"><a name="l00495"></a><span class="lineno">  495</span>&#160;   <span class="keyword">DEALLOCATE</span>(ila_colors)</div><div class="line"><a name="l00496"></a><span class="lineno">  496</span>&#160;</div><div class="line"><a name="l00497"></a><span class="lineno">  497</span>&#160;</div><div class="line"><a name="l00498"></a><span class="lineno">  498</span>&#160;<span class="preprocessor">#elif defined use_comm_MPI2</span></div><div class="line"><a name="l00499"></a><span class="lineno">  499</span>&#160;<span class="preprocessor"></span></div><div class="line"><a name="l00500"></a><span class="lineno">  500</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#a8ff971286c1f235b8a328b3298f58a9b">mpi_comm_map</a> = ??</div><div class="line"><a name="l00501"></a><span class="lineno">  501</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#a799f6f0a442fcc2ab9960814b8b1b74a">mpi_in_map</a>   = ??</div><div class="line"><a name="l00502"></a><span class="lineno">  502</span>&#160;</div><div class="line"><a name="l00503"></a><span class="lineno">  503</span>&#160;<span class="preprocessor">#endif</span></div><div class="line"><a name="l00504"></a><span class="lineno">  504</span>&#160;<span class="preprocessor"></span>   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00505"></a><span class="lineno">  505</span>&#160;<span class="comment">   !&gt; * Open log files</span></div><div class="line"><a name="l00506"></a><span class="lineno">  506</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00507"></a><span class="lineno">  507</span>&#160;</div><div class="line"><a name="l00508"></a><span class="lineno">  508</span>&#160;   iu=-1</div><div class="line"><a name="l00509"></a><span class="lineno">  509</span>&#160;   <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#abce4c06d8a999919a2a185c71ab15edd">oasis_unitget</a>(iu)</div><div class="line"><a name="l00510"></a><span class="lineno">  510</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>=iu</div><div class="line"><a name="l00511"></a><span class="lineno">  511</span>&#160;   <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a> &lt;= 1) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00512"></a><span class="lineno">  512</span>&#160;       <span class="keyword">WRITE</span>(filename ,<span class="stringliteral">&#39;(a,i2.2)&#39;</span>) <span class="stringliteral">&#39;debug.root.&#39;</span>,<a class="code" href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">compid</a></div><div class="line"><a name="l00513"></a><span class="lineno">  513</span>&#160;       <span class="keyword">WRITE</span>(filename2,<span class="stringliteral">&#39;(a,i2.2)&#39;</span>) <span class="stringliteral">&#39;debug.notroot.&#39;</span>,<a class="code" href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">compid</a></div><div class="line"><a name="l00514"></a><span class="lineno">  514</span>&#160;       <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#a811747a1592795f860854f09f19d4c25">mpi_rank_local</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00515"></a><span class="lineno">  515</span>&#160;           <span class="keyword">OPEN</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,file=filename,status=<span class="stringliteral">&#39;REPLACE&#39;</span>)</div><div class="line"><a name="l00516"></a><span class="lineno">  516</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,<span class="stringliteral">&#39;(2a,2i8)&#39;</span>) subname,<span class="stringliteral">&#39; OASIS RUNNING &#39;</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>,<span class="stringliteral">&#39;(2a,2i8)&#39;</span>) subname,<span class="stringliteral">&#39; OPEN debug file for pe, unit :&#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a811747a1592795f860854f09f19d4c25">mpi_rank_local</a>,<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a></div><div class="line"><a name="l00518"></a><span class="lineno">  518</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="l00519"></a><span class="lineno">  519</span>&#160;<span class="keywordflow">       ENDIF</span></div><div class="line"><a name="l00520"></a><span class="lineno">  520</span>&#160;       <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#a811747a1592795f860854f09f19d4c25">mpi_rank_local</a> == 1) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00521"></a><span class="lineno">  521</span>&#160;           <span class="keyword">OPEN</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,file=filename2,status=<span class="stringliteral">&#39;REPLACE&#39;</span>)</div><div class="line"><a name="l00522"></a><span class="lineno">  522</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,<span class="stringliteral">&#39;(2a,2i8)&#39;</span>) subname,<span class="stringliteral">&#39; OASIS RUNNING &#39;</span></div><div class="line"><a name="l00523"></a><span class="lineno">  523</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,<span class="stringliteral">&#39;(2a,2i8)&#39;</span>) subname,<span class="stringliteral">&#39; OPEN debug file for pe, unit :&#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a811747a1592795f860854f09f19d4c25">mpi_rank_local</a>,<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a></div><div class="line"><a name="l00524"></a><span class="lineno">  524</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="l00525"></a><span class="lineno">  525</span>&#160;<span class="keywordflow">       ENDIF</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;       <span class="keyword">call </span><a class="code" href="namespacemod__oasis__mpi.html#aaf477847380fbbbc1341520b0b3e66da">oasis_mpi_barrier</a>(<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a>)</div><div class="line"><a name="l00528"></a><span class="lineno">  528</span>&#160;</div><div class="line"><a name="l00529"></a><span class="lineno">  529</span>&#160;       <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#a811747a1592795f860854f09f19d4c25">mpi_rank_local</a> &gt; 1) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00530"></a><span class="lineno">  530</span>&#160;           <span class="keyword">OPEN</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,file=filename2,position=<span class="stringliteral">&#39;APPEND&#39;</span>)</div><div class="line"><a name="l00531"></a><span class="lineno">  531</span>&#160;           <span class="comment">!WRITE(nulprt,&#39;(2a,2i8)&#39;) subname,&#39; OASIS RUNNING &#39;</span></div><div class="line"><a name="l00532"></a><span class="lineno">  532</span>&#160;           <span class="comment">!WRITE(nulprt,&#39;(2a,2i8)&#39;) subname,&#39; OPEN debug file for pe, unit :&#39;,mpi_rank_local,nulprt</span></div><div class="line"><a name="l00533"></a><span class="lineno">  533</span>&#160;           <span class="comment">!CALL oasis_flush(nulprt)</span></div><div class="line"><a name="l00534"></a><span class="lineno">  534</span>&#160;<span class="keywordflow">       ENDIF</span></div><div class="line"><a name="l00535"></a><span class="lineno">  535</span>&#160;   <span class="keywordflow">ELSE</span></div><div class="line"><a name="l00536"></a><span class="lineno">  536</span>&#160;       <span class="keyword">WRITE</span>(filename,<span class="stringliteral">&#39;(a,i2.2,a,i6.6)&#39;</span>) <span class="stringliteral">&#39;debug.&#39;</span>,<a class="code" href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">compid</a>,<span class="stringliteral">&#39;.&#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a811747a1592795f860854f09f19d4c25">mpi_rank_local</a></div><div class="line"><a name="l00537"></a><span class="lineno">  537</span>&#160;       <span class="keyword">OPEN</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,file=filename,status=<span class="stringliteral">&#39;REPLACE&#39;</span>)</div><div class="line"><a name="l00538"></a><span class="lineno">  538</span>&#160;       <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,<span class="stringliteral">&#39;(2a,2i8)&#39;</span>) subname,<span class="stringliteral">&#39; OPEN debug file, for pe, unit :&#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a811747a1592795f860854f09f19d4c25">mpi_rank_local</a>,<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a></div><div class="line"><a name="l00539"></a><span class="lineno">  539</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="l00540"></a><span class="lineno">  540</span>&#160;<span class="keywordflow">   ENDIF</span></div><div class="line"><a name="l00541"></a><span class="lineno">  541</span>&#160;</div><div class="line"><a name="l00542"></a><span class="lineno">  542</span>&#160;   <span class="keywordflow">IF</span> ( (<a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a> == 1) .AND. (<a class="code" href="namespacemod__oasis__data.html#a811747a1592795f860854f09f19d4c25">mpi_rank_local</a> == 0)) <a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a>=10</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="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="l00545"></a><span class="lineno">  545</span>&#160;       <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,<span class="stringliteral">&#39;(3a,i8)&#39;</span>) subname,<span class="stringliteral">&#39; model compid &#39;</span>,trim(cdnam),<a class="code" href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">compid</a></div><div class="line"><a name="l00546"></a><span class="lineno">  546</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="l00547"></a><span class="lineno">  547</span>&#160;<span class="keywordflow">   ENDIF</span></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;   iu=-1</div><div class="line"><a name="l00550"></a><span class="lineno">  550</span>&#160;   <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#abce4c06d8a999919a2a185c71ab15edd">oasis_unitget</a>(iu)</div><div class="line"><a name="l00551"></a><span class="lineno">  551</span>&#160;   <span class="comment">! If load balance analysis, new log files opened (lucia.*)</span></div><div class="line"><a name="l00552"></a><span class="lineno">  552</span>&#160;   <span class="keywordflow">IF</span> ( <a class="code" href="namespacemod__oasis__data.html#a7c427f27ff231565a1ecc0caeb30c67c">lucia_debug</a> &gt; 0 ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00553"></a><span class="lineno">  553</span>&#160;      <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#a617f69fb4d4bb96a94f83a124b4d0030">mpi_size_local</a> &lt; 20 ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00554"></a><span class="lineno">  554</span>&#160;         <a class="code" href="namespacemod__oasis__data.html#a46d81d5ac9efa619628264c5e45bac41">nullucia</a>=iu</div><div class="line"><a name="l00555"></a><span class="lineno">  555</span>&#160;      <span class="comment">! Open LUCIA log file on a subset of process only</span></div><div class="line"><a name="l00556"></a><span class="lineno">  556</span>&#160;      <span class="keywordflow">ELSE</span> <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#a617f69fb4d4bb96a94f83a124b4d0030">mpi_size_local</a> &lt; 100 .AND. mod(<a class="code" href="namespacemod__oasis__data.html#a811747a1592795f860854f09f19d4c25">mpi_rank_local</a>,<a class="code" href="namespacemod__oasis__data.html#a617f69fb4d4bb96a94f83a124b4d0030">mpi_size_local</a>/5) == 0 ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00557"></a><span class="lineno">  557</span>&#160;         <a class="code" href="namespacemod__oasis__data.html#a46d81d5ac9efa619628264c5e45bac41">nullucia</a>=iu</div><div class="line"><a name="l00558"></a><span class="lineno">  558</span>&#160;      <span class="keywordflow">ELSE</span> <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#a617f69fb4d4bb96a94f83a124b4d0030">mpi_size_local</a> &gt;= 100 .AND. mod(<a class="code" href="namespacemod__oasis__data.html#a811747a1592795f860854f09f19d4c25">mpi_rank_local</a>,<a class="code" href="namespacemod__oasis__data.html#a617f69fb4d4bb96a94f83a124b4d0030">mpi_size_local</a>/20) == 0 ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00559"></a><span class="lineno">  559</span>&#160;         <a class="code" href="namespacemod__oasis__data.html#a46d81d5ac9efa619628264c5e45bac41">nullucia</a>=iu</div><div class="line"><a name="l00560"></a><span class="lineno">  560</span>&#160;      <span class="keywordflow">ELSE</span></div><div class="line"><a name="l00561"></a><span class="lineno">  561</span>&#160;         <a class="code" href="namespacemod__oasis__data.html#a46d81d5ac9efa619628264c5e45bac41">nullucia</a> = 0</div><div class="line"><a name="l00562"></a><span class="lineno">  562</span>&#160;<span class="keywordflow">      ENDIF</span></div><div class="line"><a name="l00563"></a><span class="lineno">  563</span>&#160;      <span class="comment">! Define log file name and open it</span></div><div class="line"><a name="l00564"></a><span class="lineno">  564</span>&#160;      <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#a46d81d5ac9efa619628264c5e45bac41">nullucia</a> /= 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00565"></a><span class="lineno">  565</span>&#160;         <span class="keyword">WRITE</span>(filename,<span class="stringliteral">&#39;(a,i2.2,a,i6.6)&#39;</span>) <span class="stringliteral">&#39;lucia.&#39;</span>,<a class="code" href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">compid</a>,<span class="stringliteral">&#39;.&#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a811747a1592795f860854f09f19d4c25">mpi_rank_local</a></div><div class="line"><a name="l00566"></a><span class="lineno">  566</span>&#160;         <span class="keyword">OPEN</span>(<a class="code" href="namespacemod__oasis__data.html#a46d81d5ac9efa619628264c5e45bac41">nullucia</a>,file=filename,status=<span class="stringliteral">&#39;REPLACE&#39;</span>)</div><div class="line"><a name="l00567"></a><span class="lineno">  567</span>&#160;<span class="comment">!         WRITE(nullucia,&#39;(2a,2i8)&#39;) subname,&#39; OPEN LUCIA load balancing analysis file for pe, unit :&#39;,mpi_size_local,nullucia</span></div><div class="line"><a name="l00568"></a><span class="lineno">  568</span>&#160;<span class="comment">!         CALL oasis_flush(nullucia)</span></div><div class="line"><a name="l00569"></a><span class="lineno">  569</span>&#160;<span class="keywordflow">      ENDIF</span></div><div class="line"><a name="l00570"></a><span class="lineno">  570</span>&#160;<span class="keywordflow">   ENDIF</span></div><div class="line"><a name="l00571"></a><span class="lineno">  571</span>&#160;</div><div class="line"><a name="l00572"></a><span class="lineno">  572</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="l00573"></a><span class="lineno">  573</span>&#160;</div><div class="line"><a name="l00574"></a><span class="lineno">  574</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00575"></a><span class="lineno">  575</span>&#160;<span class="comment">   !&gt; * Set mpi_root_global </span></div><div class="line"><a name="l00576"></a><span class="lineno">  576</span>&#160;   <span class="comment">! (after nulprt set)</span></div><div class="line"><a name="l00577"></a><span class="lineno">  577</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00578"></a><span class="lineno">  578</span>&#160;</div><div class="line"><a name="l00579"></a><span class="lineno">  579</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__method.html#a13d6e469ea14642a2e1e6cb807d9b7de">mod_oasis_setrootglobal</a>()</div><div class="line"><a name="l00580"></a><span class="lineno">  580</span>&#160;</div><div class="line"><a name="l00581"></a><span class="lineno">  581</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00582"></a><span class="lineno">  582</span>&#160;   <span class="comment">!--- PIO</span></div><div class="line"><a name="l00583"></a><span class="lineno">  583</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00584"></a><span class="lineno">  584</span>&#160;<span class="preprocessor">#if (PIO_DEFINED)</span></div><div class="line"><a name="l00585"></a><span class="lineno">  585</span>&#160;<span class="preprocessor"></span><span class="comment">! tcraig, not working as of Oct 2011</span></div><div class="line"><a name="l00586"></a><span class="lineno">  586</span>&#160;   pio_type = <span class="stringliteral">&#39;netcdf&#39;</span></div><div class="line"><a name="l00587"></a><span class="lineno">  587</span>&#160;   pio_stride = -99</div><div class="line"><a name="l00588"></a><span class="lineno">  588</span>&#160;   pio_root = -99</div><div class="line"><a name="l00589"></a><span class="lineno">  589</span>&#160;   pio_numtasks = -99</div><div class="line"><a name="l00590"></a><span class="lineno">  590</span>&#160;   <span class="keyword">call </span>oasis_ioshr_init(<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a>,pio_type,pio_stride,pio_root,pio_numtasks)</div><div class="line"><a name="l00591"></a><span class="lineno">  591</span>&#160;<span class="preprocessor">#endif</span></div><div class="line"><a name="l00592"></a><span class="lineno">  592</span>&#160;<span class="preprocessor"></span></div><div class="line"><a name="l00593"></a><span class="lineno">  593</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00594"></a><span class="lineno">  594</span>&#160;<span class="comment">   !&gt; * Memory Initialization</span></div><div class="line"><a name="l00595"></a><span class="lineno">  595</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00596"></a><span class="lineno">  596</span>&#160;</div><div class="line"><a name="l00597"></a><span class="lineno">  597</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="l00598"></a><span class="lineno">  598</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__mem.html#a104b7e7e85cd79e731a6e12a14358bbb">oasis_mem_init</a>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>)</div><div class="line"><a name="l00599"></a><span class="lineno">  599</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__mem.html#ac628b504553edbe9345cd070a8db2634">oasis_mem_print</a>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,subname)</div><div class="line"><a name="l00600"></a><span class="lineno">  600</span>&#160;<span class="keywordflow">   ENDIF</span></div><div class="line"><a name="l00601"></a><span class="lineno">  601</span>&#160;</div><div class="line"><a name="l00602"></a><span class="lineno">  602</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00603"></a><span class="lineno">  603</span>&#160;<span class="comment">   !&gt; * Timer Initialization</span></div><div class="line"><a name="l00604"></a><span class="lineno">  604</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00605"></a><span class="lineno">  605</span>&#160;</div><div class="line"><a name="l00606"></a><span class="lineno">  606</span>&#160;   <span class="comment">! Allocate timer memory based on maxvar</span></div><div class="line"><a name="l00607"></a><span class="lineno">  607</span>&#160;   nt = 7*<a class="code" href="namespacemod__oasis__var.html#a151c4be67882fc8d02f66e4a1822b692">maxvar</a>+100</div><div class="line"><a name="l00608"></a><span class="lineno">  608</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a44a1bb64d1d892a9710d8c94d0ed0e3a">oasis_timer_init</a> (trim(cdnam), trim(cdnam)//<span class="stringliteral">&#39;.timers&#39;</span>,nt)</div><div class="line"><a name="l00609"></a><span class="lineno">  609</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;total&#39;</span>)</div><div class="line"><a name="l00610"></a><span class="lineno">  610</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;init_thru_enddef&#39;</span>)</div><div class="line"><a name="l00611"></a><span class="lineno">  611</span>&#160;</div><div class="line"><a name="l00612"></a><span class="lineno">  612</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00613"></a><span class="lineno">  613</span>&#160;<span class="comment">   !&gt; * Diagnostics</span></div><div class="line"><a name="l00614"></a><span class="lineno">  614</span>&#160;   <span class="comment">!------------------------</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">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="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,<span class="stringliteral">&#39; compid         = &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">compid</a></div><div class="line"><a name="l00618"></a><span class="lineno">  618</span>&#160;      <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; compnm         = &#39;</span>,trim(<a class="code" href="namespacemod__oasis__data.html#a8379835615758ccf7a4287dde5785681">compnm</a>)</div><div class="line"><a name="l00619"></a><span class="lineno">  619</span>&#160;      <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; node name      = &#39;</span>,trim(<a class="code" href="namespacemod__oasis__data.html#ad186b77d375be587e4f198ca45026d2e">mpi_node_name</a>)</div><div class="line"><a name="l00620"></a><span class="lineno">  620</span>&#160;      <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; mpi_comm_world = &#39;</span>,<a class="code" href="namespacemod__oasis__method.html#aff65fa61d2762374419fe4c44c0f9282">mpi_comm_global_world</a></div><div class="line"><a name="l00621"></a><span class="lineno">  621</span>&#160;      <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; mpi_comm_global= &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a4bbff51054fd1746849de9defb3d5252">mpi_comm_global</a></div><div class="line"><a name="l00622"></a><span class="lineno">  622</span>&#160;      <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39;     size_global= &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a83a9d498c6829e2058675a07446ce5be">mpi_size_global</a></div><div class="line"><a name="l00623"></a><span class="lineno">  623</span>&#160;      <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39;     rank_global= &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a></div><div class="line"><a name="l00624"></a><span class="lineno">  624</span>&#160;      <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; mpi_comm_local = &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a></div><div class="line"><a name="l00625"></a><span class="lineno">  625</span>&#160;      <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39;     size_local = &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a617f69fb4d4bb96a94f83a124b4d0030">mpi_size_local</a></div><div class="line"><a name="l00626"></a><span class="lineno">  626</span>&#160;      <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39;     rank_local = &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a811747a1592795f860854f09f19d4c25">mpi_rank_local</a></div><div class="line"><a name="l00627"></a><span class="lineno">  627</span>&#160;      <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39;     root_local = &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a2c468f26bc0c9b2ad5d54d68733e7047">mpi_root_local</a></div><div class="line"><a name="l00628"></a><span class="lineno">  628</span>&#160;      <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; mpi_in_map     = &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a799f6f0a442fcc2ab9960814b8b1b74a">mpi_in_map</a></div><div class="line"><a name="l00629"></a><span class="lineno">  629</span>&#160;      <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; mpi_comm_map   = &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a8ff971286c1f235b8a328b3298f58a9b">mpi_comm_map</a></div><div class="line"><a name="l00630"></a><span class="lineno">  630</span>&#160;      <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39;     size_map   = &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#ac4a6f10dab1d3078f8467465c21b9fdd">mpi_size_map</a></div><div class="line"><a name="l00631"></a><span class="lineno">  631</span>&#160;      <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39;     rank_map   = &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a5e29025a6d83c7a01f88febbb734b7e9">mpi_rank_map</a></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;     root_map   = &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a177c2b47ae4c69407d55817cd468b0ae">mpi_root_map</a></div><div class="line"><a name="l00633"></a><span class="lineno">  633</span>&#160;      <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; OASIS_debug    = &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a></div><div class="line"><a name="l00634"></a><span class="lineno">  634</span>&#160;      <span class="keywordflow">do</span> n = 1,<a class="code" href="namespacemod__oasis__data.html#ac73f95bc17215d09b67c6c4d3adc07b7">prism_amodels</a></div><div class="line"><a name="l00635"></a><span class="lineno">  635</span>&#160;         <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39;   n,prism_model,root = &#39;</span>,&amp;</div><div class="line"><a name="l00636"></a><span class="lineno">  636</span>&#160;            n,trim(<a class="code" href="namespacemod__oasis__data.html#abd4b98e9f321bc073d5a8e0292ba7131">prism_modnam</a>(n)),<a class="code" href="namespacemod__oasis__data.html#a7f03d4afc0c91a42b13ddcf7ec082e51">mpi_root_global</a>(n)</div><div class="line"><a name="l00637"></a><span class="lineno">  637</span>&#160;<span class="keywordflow">      enddo</span></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#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>)</div><div class="line"><a name="l00639"></a><span class="lineno">  639</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00640"></a><span class="lineno">  640</span>&#160;</div><div class="line"><a name="l00641"></a><span class="lineno">  641</span>&#160;   <span class="keywordflow">IF</span> ( <a class="code" href="namespacemod__oasis__data.html#a7c427f27ff231565a1ecc0caeb30c67c">lucia_debug</a> &gt; 0 ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00642"></a><span class="lineno">  642</span>&#160;      <span class="comment">! We stop all process to read clock time (almost) synchroneously</span></div><div class="line"><a name="l00643"></a><span class="lineno">  643</span>&#160;      <span class="keyword">call </span><a class="code" href="namespacemod__oasis__mpi.html#aaf477847380fbbbc1341520b0b3e66da">oasis_mpi_barrier</a>(<a class="code" href="namespacemod__oasis__data.html#a4bbff51054fd1746849de9defb3d5252">mpi_comm_global</a>)</div><div class="line"><a name="l00644"></a><span class="lineno">  644</span>&#160;      <span class="keywordflow">IF</span> ( <a class="code" href="namespacemod__oasis__data.html#a46d81d5ac9efa619628264c5e45bac41">nullucia</a> /= 0 ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00645"></a><span class="lineno">  645</span>&#160;         <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a46d81d5ac9efa619628264c5e45bac41">nullucia</a>, fmt=<span class="stringliteral">&#39;(A,F16.5)&#39;</span>) <span class="stringliteral">&#39;Balance: IT                  &#39;</span>, mpi_wtime()</div><div class="line"><a name="l00646"></a><span class="lineno">  646</span>&#160;         <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a46d81d5ac9efa619628264c5e45bac41">nullucia</a>, fmt=<span class="stringliteral">&#39;(A12,A)&#39;</span>  ) <span class="stringliteral">&#39;Balance: MD &#39;</span>, trim(<a class="code" href="namespacemod__oasis__data.html#a8379835615758ccf7a4287dde5785681">compnm</a>)</div><div class="line"><a name="l00647"></a><span class="lineno">  647</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#a46d81d5ac9efa619628264c5e45bac41">nullucia</a>)</div><div class="line"><a name="l00648"></a><span class="lineno">  648</span>&#160;      <span class="keywordflow">ELSE</span></div><div class="line"><a name="l00649"></a><span class="lineno">  649</span>&#160;         <span class="comment">! Since now, non printing process do not participate to load balance analysis</span></div><div class="line"><a name="l00650"></a><span class="lineno">  650</span>&#160;         <a class="code" href="namespacemod__oasis__data.html#a7c427f27ff231565a1ecc0caeb30c67c">lucia_debug</a> = 0</div><div class="line"><a name="l00651"></a><span class="lineno">  651</span>&#160;<span class="keywordflow">      ENDIF</span></div><div class="line"><a name="l00652"></a><span class="lineno">  652</span>&#160;<span class="keywordflow">   ENDIF</span></div><div class="line"><a name="l00653"></a><span class="lineno">  653</span>&#160;</div><div class="line"><a name="l00654"></a><span class="lineno">  654</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="l00655"></a><span class="lineno">  655</span>&#160;</div><div class="line"><a name="l00656"></a><span class="lineno">  656</span>&#160;<span class="keyword"> END SUBROUTINE </span><a class="code" href="namespacemod__oasis__method.html#ad266b77f6e75f2d150c80374a841a43c">oasis_init_comp</a></div><div class="line"><a name="l00657"></a><span class="lineno">  657</span>&#160;</div><div class="line"><a name="l00658"></a><span class="lineno">  658</span>&#160;<span class="comment">!----------------------------------------------------------------------</span></div><div class="line"><a name="l00659"></a><span class="lineno">  659</span>&#160;<span class="comment"></span></div><div class="line"><a name="l00660"></a><span class="lineno">  660</span>&#160;<span class="comment">!&gt; OASIS user finalize method</span></div><div class="line"><a name="l00661"></a><span class="lineno">  661</span>&#160;</div><div class="line"><a name="l00662"></a><span class="lineno">  662</span>&#160;<span class="keyword">   SUBROUTINE </span><a class="code" href="namespacemod__oasis__method.html#a4fb881336906c9452b6a9f250af9c3d7">oasis_terminate</a>(kinfo)</div><div class="line"><a name="l00663"></a><span class="lineno"><a class="line" href="namespacemod__oasis__method.html#a4fb881336906c9452b6a9f250af9c3d7">  663</a></span>&#160;</div><div class="line"><a name="l00664"></a><span class="lineno">  664</span>&#160;   <span class="keywordtype">IMPLICIT NONE</span></div><div class="line"><a name="l00665"></a><span class="lineno">  665</span>&#160;</div><div class="line"><a name="l00666"></a><span class="lineno">  666</span>&#160;   <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">intent(inout)</span>,<span class="keywordtype">optional</span> :: kinfo<span class="comment">  !&lt; return code</span></div><div class="line"><a name="l00667"></a><span class="lineno">  667</span>&#160;<span class="comment">!  ---------------------------------------------------------</span></div><div class="line"><a name="l00668"></a><span class="lineno">  668</span>&#160;   <span class="keywordtype">integer(kind=ip_intwp_p)</span> :: ierr</div><div class="line"><a name="l00669"></a><span class="lineno">  669</span>&#160;   <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_terminate)&#39;</span></div><div class="line"><a name="l00670"></a><span class="lineno">  670</span>&#160;<span class="comment">!  ---------------------------------------------------------</span></div><div class="line"><a name="l00671"></a><span class="lineno">  671</span>&#160;</div><div class="line"><a name="l00672"></a><span class="lineno">  672</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="l00673"></a><span class="lineno">  673</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="l00674"></a><span class="lineno">  674</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="l00675"></a><span class="lineno">  675</span>&#160;      <span class="keywordflow">return</span></div><div class="line"><a name="l00676"></a><span class="lineno">  676</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00677"></a><span class="lineno">  677</span>&#160;</div><div class="line"><a name="l00678"></a><span class="lineno">  678</span>&#160;   <span class="keywordflow">if</span> (<span class="keyword">present</span>(kinfo)) <span class="keywordflow">then</span></div><div class="line"><a name="l00679"></a><span class="lineno">  679</span>&#160;      kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l00680"></a><span class="lineno">  680</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00681"></a><span class="lineno">  681</span>&#160;</div><div class="line"><a name="l00682"></a><span class="lineno">  682</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00683"></a><span class="lineno">  683</span>&#160;<span class="comment">   !&gt; * Print timer information</span></div><div class="line"><a name="l00684"></a><span class="lineno">  684</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00685"></a><span class="lineno">  685</span>&#160;</div><div class="line"><a name="l00686"></a><span class="lineno">  686</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;total&#39;</span>)</div><div class="line"><a name="l00687"></a><span class="lineno">  687</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a3071ad54f61d88f16ad98ad7c0303915">oasis_timer_print</a>()</div><div class="line"><a name="l00688"></a><span class="lineno">  688</span>&#160;</div><div class="line"><a name="l00689"></a><span class="lineno">  689</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00690"></a><span class="lineno">  690</span>&#160;<span class="comment">   !&gt; * Call MPI finalize</span></div><div class="line"><a name="l00691"></a><span class="lineno">  691</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00692"></a><span class="lineno">  692</span>&#160;</div><div class="line"><a name="l00693"></a><span class="lineno">  693</span>&#160;   <span class="keywordflow">IF</span> ( .NOT. <a class="code" href="namespacemod__oasis__method.html#a405af91a0535e4ce70d55513bb4c3867">lg_mpiflag</a> ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00694"></a><span class="lineno">  694</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="l00695"></a><span class="lineno">  695</span>&#160;           <span class="keyword">WRITE</span> (<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,fmt=<span class="stringliteral">&#39;(A)&#39;</span>) subname//<span class="stringliteral">&#39;: Calling MPI_Finalize&#39;</span></div><div class="line"><a name="l00696"></a><span class="lineno">  696</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="l00697"></a><span class="lineno">  697</span>&#160;<span class="keywordflow">       ENDIF</span></div><div class="line"><a name="l00698"></a><span class="lineno">  698</span>&#160;       <span class="keyword">CALL </span>mpi_finalize ( ierr )</div><div class="line"><a name="l00699"></a><span class="lineno">  699</span>&#160;   <span class="keywordflow">else</span></div><div class="line"><a name="l00700"></a><span class="lineno">  700</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="l00701"></a><span class="lineno">  701</span>&#160;           <span class="keyword">WRITE</span> (<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,fmt=<span class="stringliteral">&#39;(A)&#39;</span>) subname//<span class="stringliteral">&#39;: Not Calling MPI_Finalize&#39;</span></div><div class="line"><a name="l00702"></a><span class="lineno">  702</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="l00703"></a><span class="lineno">  703</span>&#160;<span class="keywordflow">       ENDIF</span></div><div class="line"><a name="l00704"></a><span class="lineno">  704</span>&#160;<span class="keywordflow">   ENDIF</span></div><div class="line"><a name="l00705"></a><span class="lineno">  705</span>&#160;</div><div class="line"><a name="l00706"></a><span class="lineno">  706</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00707"></a><span class="lineno">  707</span>&#160;<span class="comment">   !&gt; * Write SUCCESSFUL RUN</span></div><div class="line"><a name="l00708"></a><span class="lineno">  708</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00709"></a><span class="lineno">  709</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="l00710"></a><span class="lineno">  710</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__mem.html#ac628b504553edbe9345cd070a8db2634">oasis_mem_print</a>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,subname)</div><div class="line"><a name="l00711"></a><span class="lineno">  711</span>&#160;<span class="keywordflow">   ENDIF</span></div><div class="line"><a name="l00712"></a><span class="lineno">  712</span>&#160;</div><div class="line"><a name="l00713"></a><span class="lineno">  713</span>&#160;   <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#a811747a1592795f860854f09f19d4c25">mpi_rank_local</a> == 0)  <span class="keywordflow">THEN</span></div><div class="line"><a name="l00714"></a><span class="lineno">  714</span>&#160;       <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; SUCCESSFUL RUN&#39;</span></div><div class="line"><a name="l00715"></a><span class="lineno">  715</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="l00716"></a><span class="lineno">  716</span>&#160;<span class="keywordflow">   ENDIF</span></div><div class="line"><a name="l00717"></a><span class="lineno">  717</span>&#160;</div><div class="line"><a name="l00718"></a><span class="lineno">  718</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="l00719"></a><span class="lineno">  719</span>&#160;</div><div class="line"><a name="l00720"></a><span class="lineno">  720</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="l00721"></a><span class="lineno">  721</span>&#160;   <span class="keyword">close</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>)</div><div class="line"><a name="l00722"></a><span class="lineno">  722</span>&#160;</div><div class="line"><a name="l00723"></a><span class="lineno">  723</span>&#160;<span class="keyword"> END SUBROUTINE </span><a class="code" href="namespacemod__oasis__method.html#a4fb881336906c9452b6a9f250af9c3d7">oasis_terminate</a></div><div class="line"><a name="l00724"></a><span class="lineno">  724</span>&#160;</div><div class="line"><a name="l00725"></a><span class="lineno">  725</span>&#160;<span class="comment">!----------------------------------------------------------------------</span></div><div class="line"><a name="l00726"></a><span class="lineno">  726</span>&#160;<span class="comment"></span></div><div class="line"><a name="l00727"></a><span class="lineno">  727</span>&#160;<span class="comment">!&gt; OASIS user interface specifying the OASIS definition phase is complete</span></div><div class="line"><a name="l00728"></a><span class="lineno">  728</span>&#160;</div><div class="line"><a name="l00729"></a><span class="lineno">  729</span>&#160;<span class="keyword">   SUBROUTINE </span><a class="code" href="namespacemod__oasis__method.html#a093552f9f9895ac79a5fefa043fc5881">oasis_enddef</a>(kinfo)</div><div class="line"><a name="l00730"></a><span class="lineno"><a class="line" href="namespacemod__oasis__method.html#a093552f9f9895ac79a5fefa043fc5881">  730</a></span>&#160;</div><div class="line"><a name="l00731"></a><span class="lineno">  731</span>&#160;   <span class="keywordtype">IMPLICIT NONE</span></div><div class="line"><a name="l00732"></a><span class="lineno">  732</span>&#160;</div><div class="line"><a name="l00733"></a><span class="lineno">  733</span>&#160;   <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">intent(inout)</span>,<span class="keywordtype">optional</span> :: kinfo<span class="comment">  !&lt; return code</span></div><div class="line"><a name="l00734"></a><span class="lineno">  734</span>&#160;<span class="comment">!  ---------------------------------------------------------</span></div><div class="line"><a name="l00735"></a><span class="lineno">  735</span>&#160;   <span class="keywordtype">integer (kind=ip_intwp_p)</span> :: n</div><div class="line"><a name="l00736"></a><span class="lineno">  736</span>&#160;   <span class="keywordtype">integer (kind=ip_intwp_p)</span> :: lkinfo</div><div class="line"><a name="l00737"></a><span class="lineno">  737</span>&#160;   <span class="keywordtype">integer (kind=ip_intwp_p)</span> :: icpl, ierr</div><div class="line"><a name="l00738"></a><span class="lineno">  738</span>&#160;   <span class="keywordtype">integer (kind=ip_intwp_p)</span> :: newcomm</div><div class="line"><a name="l00739"></a><span class="lineno">  739</span>&#160;   <span class="keywordtype">logical</span>, <span class="keywordtype">parameter</span> :: local_timers_on = .false.</div><div class="line"><a name="l00740"></a><span class="lineno">  740</span>&#160;   <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_enddef)&#39;</span></div><div class="line"><a name="l00741"></a><span class="lineno">  741</span>&#160;<span class="comment">!  ---------------------------------------------------------</span></div><div class="line"><a name="l00742"></a><span class="lineno">  742</span>&#160;</div><div class="line"><a name="l00743"></a><span class="lineno">  743</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="l00744"></a><span class="lineno">  744</span>&#160;</div><div class="line"><a name="l00745"></a><span class="lineno">  745</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="l00746"></a><span class="lineno">  746</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="l00747"></a><span class="lineno">  747</span>&#160;      <span class="keywordflow">return</span></div><div class="line"><a name="l00748"></a><span class="lineno">  748</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00749"></a><span class="lineno">  749</span>&#160;</div><div class="line"><a name="l00750"></a><span class="lineno">  750</span>&#160;   lkinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l00751"></a><span class="lineno">  751</span>&#160;</div><div class="line"><a name="l00752"></a><span class="lineno">  752</span>&#160;   <span class="keywordflow">if</span> (local_timers_on .and. <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="l00753"></a><span class="lineno">  753</span>&#160;      <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;oasis_enddef_barrier&#39;</span>)</div><div class="line"><a name="l00754"></a><span class="lineno">  754</span>&#160;      <span class="keyword">call </span><a class="code" href="namespacemod__oasis__mpi.html#aaf477847380fbbbc1341520b0b3e66da">oasis_mpi_barrier</a>(<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a>, subname)</div><div class="line"><a name="l00755"></a><span class="lineno">  755</span>&#160;      <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;oasis_enddef_barrier&#39;</span>)</div><div class="line"><a name="l00756"></a><span class="lineno">  756</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00757"></a><span class="lineno">  757</span>&#160;   </div><div class="line"><a name="l00758"></a><span class="lineno">  758</span>&#160;   <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a> (<span class="stringliteral">&#39;oasis_enddef&#39;</span>)</div><div class="line"><a name="l00759"></a><span class="lineno">  759</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;oasis_enddef_prep&#39;</span>)</div><div class="line"><a name="l00760"></a><span class="lineno">  760</span>&#160;</div><div class="line"><a name="l00761"></a><span class="lineno">  761</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00762"></a><span class="lineno">  762</span>&#160;<span class="comment">   !&gt; * Check enddef called only once per task</span></div><div class="line"><a name="l00763"></a><span class="lineno">  763</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00764"></a><span class="lineno">  764</span>&#160;</div><div class="line"><a name="l00765"></a><span class="lineno">  765</span>&#160;   <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#a5341a9152ef540667f7fcaa4f04c6399">enddef_called</a>) <span class="keywordflow">then</span></div><div class="line"><a name="l00766"></a><span class="lineno">  766</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;enddef called already&#39;</span></div><div class="line"><a name="l00767"></a><span class="lineno">  767</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="l00768"></a><span class="lineno">  768</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00769"></a><span class="lineno">  769</span>&#160;<span class="keyword">   end</span>def_called = .true.</div><div class="line"><a name="l00770"></a><span class="lineno">  770</span>&#160;</div><div class="line"><a name="l00771"></a><span class="lineno">  771</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="l00772"></a><span class="lineno">  772</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__mem.html#ac628b504553edbe9345cd070a8db2634">oasis_mem_print</a>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,subname//<span class="stringliteral">&#39;:start&#39;</span>)</div><div class="line"><a name="l00773"></a><span class="lineno">  773</span>&#160;<span class="keywordflow">   ENDIF</span></div><div class="line"><a name="l00774"></a><span class="lineno">  774</span>&#160;</div><div class="line"><a name="l00775"></a><span class="lineno">  775</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00776"></a><span class="lineno">  776</span>&#160;<span class="comment">   !&gt; * Reset mpi_comm_global because active tasks might have been excluded</span></div><div class="line"><a name="l00777"></a><span class="lineno">  777</span>&#160;   <span class="comment">!--- for changes to mpi_comm_local since init</span></div><div class="line"><a name="l00778"></a><span class="lineno">  778</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00779"></a><span class="lineno">  779</span>&#160;</div><div class="line"><a name="l00780"></a><span class="lineno">  780</span>&#160;   icpl = mpi_undefined</div><div class="line"><a name="l00781"></a><span class="lineno">  781</span>&#160;   <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a> /= mpi_comm_null) icpl = 1</div><div class="line"><a name="l00782"></a><span class="lineno">  782</span>&#160;   <span class="keyword">CALL </span>mpi_comm_split(<a class="code" href="namespacemod__oasis__data.html#a4bbff51054fd1746849de9defb3d5252">mpi_comm_global</a>,icpl,1,newcomm,ierr)</div><div class="line"><a name="l00783"></a><span class="lineno">  783</span>&#160;   <a class="code" href="namespacemod__oasis__data.html#a4bbff51054fd1746849de9defb3d5252">mpi_comm_global</a> = newcomm</div><div class="line"><a name="l00784"></a><span class="lineno">  784</span>&#160;</div><div class="line"><a name="l00785"></a><span class="lineno">  785</span>&#160;   <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00786"></a><span class="lineno">  786</span>&#160;<span class="comment">   !&gt; * For active tasks only</span></div><div class="line"><a name="l00787"></a><span class="lineno">  787</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00788"></a><span class="lineno">  788</span>&#160;</div><div class="line"><a name="l00789"></a><span class="lineno">  789</span>&#160;   <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__grid.html#a88908301f4dba06278e75e79f90b1155">local_timers_on</a>) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;oasis_enddef_prep&#39;</span>)</div><div class="line"><a name="l00790"></a><span class="lineno">  790</span>&#160;</div><div class="line"><a name="l00791"></a><span class="lineno">  791</span>&#160;   <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#a4bbff51054fd1746849de9defb3d5252">mpi_comm_global</a> /= mpi_comm_null) <span class="keywordflow">then</span></div><div class="line"><a name="l00792"></a><span class="lineno">  792</span>&#160;</div><div class="line"><a name="l00793"></a><span class="lineno">  793</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__grid.html#a88908301f4dba06278e75e79f90b1155">local_timers_on</a>) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;oasis_enddef_prep2&#39;</span>)</div><div class="line"><a name="l00794"></a><span class="lineno">  794</span>&#160;</div><div class="line"><a name="l00795"></a><span class="lineno">  795</span>&#160;      <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00796"></a><span class="lineno">  796</span>&#160;<span class="comment">      !&gt;   * Update mpi_comm_global</span></div><div class="line"><a name="l00797"></a><span class="lineno">  797</span>&#160;      <span class="comment">!------------------------</span></div><div class="line"><a name="l00798"></a><span class="lineno">  798</span>&#160;</div><div class="line"><a name="l00799"></a><span class="lineno">  799</span>&#160;      <span class="keyword">CALL </span>mpi_comm_size(<a class="code" href="namespacemod__oasis__data.html#a4bbff51054fd1746849de9defb3d5252">mpi_comm_global</a>,<a class="code" href="namespacemod__oasis__data.html#a83a9d498c6829e2058675a07446ce5be">mpi_size_global</a>,ierr)</div><div class="line"><a name="l00800"></a><span class="lineno">  800</span>&#160;      <span class="keyword">CALL </span>mpi_comm_rank(<a class="code" href="namespacemod__oasis__data.html#a4bbff51054fd1746849de9defb3d5252">mpi_comm_global</a>,<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a>,ierr)</div><div class="line"><a name="l00801"></a><span class="lineno">  801</span>&#160;</div><div class="line"><a name="l00802"></a><span class="lineno">  802</span>&#160;      <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00803"></a><span class="lineno">  803</span>&#160;<span class="comment">      !&gt;   * Update mpi_root_global</span></div><div class="line"><a name="l00804"></a><span class="lineno">  804</span>&#160;      <span class="comment">!------------------------</span></div><div class="line"><a name="l00805"></a><span class="lineno">  805</span>&#160;</div><div class="line"><a name="l00806"></a><span class="lineno">  806</span>&#160;      <span class="keyword">call </span><a class="code" href="namespacemod__oasis__method.html#a13d6e469ea14642a2e1e6cb807d9b7de">mod_oasis_setrootglobal</a>()</div><div class="line"><a name="l00807"></a><span class="lineno">  807</span>&#160;</div><div class="line"><a name="l00808"></a><span class="lineno">  808</span>&#160;      <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00809"></a><span class="lineno">  809</span>&#160;<span class="comment">      !&gt;   * Document</span></div><div class="line"><a name="l00810"></a><span class="lineno">  810</span>&#160;      <span class="comment">!------------------------</span></div><div class="line"><a name="l00811"></a><span class="lineno">  811</span>&#160;</div><div class="line"><a name="l00812"></a><span class="lineno">  812</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="l00813"></a><span class="lineno">  813</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>,<a class="code" href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">compid</a></div><div class="line"><a name="l00814"></a><span class="lineno">  814</span>&#160;         <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; compnm         = &#39;</span>,trim(<a class="code" href="namespacemod__oasis__data.html#a8379835615758ccf7a4287dde5785681">compnm</a>)</div><div class="line"><a name="l00815"></a><span class="lineno">  815</span>&#160;         <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; mpi_comm_world = &#39;</span>,<a class="code" href="namespacemod__oasis__method.html#aff65fa61d2762374419fe4c44c0f9282">mpi_comm_global_world</a></div><div class="line"><a name="l00816"></a><span class="lineno">  816</span>&#160;         <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; mpi_comm_global= &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a4bbff51054fd1746849de9defb3d5252">mpi_comm_global</a></div><div class="line"><a name="l00817"></a><span class="lineno">  817</span>&#160;         <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39;     size_global= &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a83a9d498c6829e2058675a07446ce5be">mpi_size_global</a></div><div class="line"><a name="l00818"></a><span class="lineno">  818</span>&#160;         <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39;     rank_global= &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a></div><div class="line"><a name="l00819"></a><span class="lineno">  819</span>&#160;         <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; mpi_comm_local = &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a></div><div class="line"><a name="l00820"></a><span class="lineno">  820</span>&#160;         <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39;     size_local = &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a617f69fb4d4bb96a94f83a124b4d0030">mpi_size_local</a></div><div class="line"><a name="l00821"></a><span class="lineno">  821</span>&#160;         <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39;     rank_local = &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a811747a1592795f860854f09f19d4c25">mpi_rank_local</a></div><div class="line"><a name="l00822"></a><span class="lineno">  822</span>&#160;         <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39;     root_local = &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a2c468f26bc0c9b2ad5d54d68733e7047">mpi_root_local</a></div><div class="line"><a name="l00823"></a><span class="lineno">  823</span>&#160;         <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; OASIS_debug    = &#39;</span>,<a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a></div><div class="line"><a name="l00824"></a><span class="lineno">  824</span>&#160;         <span class="keywordflow">do</span> n = 1,<a class="code" href="namespacemod__oasis__data.html#ac73f95bc17215d09b67c6c4d3adc07b7">prism_amodels</a></div><div class="line"><a name="l00825"></a><span class="lineno">  825</span>&#160;            <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39;   n,prism_model,root = &#39;</span>,&amp;</div><div class="line"><a name="l00826"></a><span class="lineno">  826</span>&#160;               n,trim(<a class="code" href="namespacemod__oasis__data.html#abd4b98e9f321bc073d5a8e0292ba7131">prism_modnam</a>(n)),<a class="code" href="namespacemod__oasis__data.html#a7f03d4afc0c91a42b13ddcf7ec082e51">mpi_root_global</a>(n)</div><div class="line"><a name="l00827"></a><span class="lineno">  827</span>&#160;<span class="keywordflow">         enddo</span></div><div class="line"><a name="l00828"></a><span class="lineno">  828</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="l00829"></a><span class="lineno">  829</span>&#160;<span class="keywordflow">      endif</span></div><div class="line"><a name="l00830"></a><span class="lineno">  830</span>&#160;</div><div class="line"><a name="l00831"></a><span class="lineno">  831</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__grid.html#a88908301f4dba06278e75e79f90b1155">local_timers_on</a>) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;oasis_enddef_prep2&#39;</span>)</div><div class="line"><a name="l00832"></a><span class="lineno">  832</span>&#160;</div><div class="line"><a name="l00833"></a><span class="lineno">  833</span>&#160;      <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00834"></a><span class="lineno">  834</span>&#160;<span class="comment">      !&gt;   * Reconcile partitions, call part_setup</span></div><div class="line"><a name="l00835"></a><span class="lineno">  835</span>&#160;      <span class="comment">!--- generate gsmaps from partitions</span></div><div class="line"><a name="l00836"></a><span class="lineno">  836</span>&#160;      <span class="comment">!------------------------</span></div><div class="line"><a name="l00837"></a><span class="lineno">  837</span>&#160;</div><div class="line"><a name="l00838"></a><span class="lineno">  838</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__grid.html#a88908301f4dba06278e75e79f90b1155">local_timers_on</a>) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;oasis_enddef_part_setup&#39;</span>)</div><div class="line"><a name="l00839"></a><span class="lineno">  839</span>&#160;      <span class="keyword">call </span><a class="code" href="namespacemod__oasis__part.html#a80f66cc0ce5857aa53d070861f05b521">oasis_part_setup</a>()</div><div class="line"><a name="l00840"></a><span class="lineno">  840</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="l00841"></a><span class="lineno">  841</span>&#160;          <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__mem.html#ac628b504553edbe9345cd070a8db2634">oasis_mem_print</a>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,subname//<span class="stringliteral">&#39;:part_setup&#39;</span>)</div><div class="line"><a name="l00842"></a><span class="lineno">  842</span>&#160;<span class="keywordflow">      ENDIF</span></div><div class="line"><a name="l00843"></a><span class="lineno">  843</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__grid.html#a88908301f4dba06278e75e79f90b1155">local_timers_on</a>) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;oasis_enddef_part_setup&#39;</span>)</div><div class="line"><a name="l00844"></a><span class="lineno">  844</span>&#160;</div><div class="line"><a name="l00845"></a><span class="lineno">  845</span>&#160;      <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00846"></a><span class="lineno">  846</span>&#160;<span class="comment">      !&gt;   * Reconcile variables, call var_setup</span></div><div class="line"><a name="l00847"></a><span class="lineno">  847</span>&#160;      <span class="comment">!------------------------</span></div><div class="line"><a name="l00848"></a><span class="lineno">  848</span>&#160;</div><div class="line"><a name="l00849"></a><span class="lineno">  849</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__grid.html#a88908301f4dba06278e75e79f90b1155">local_timers_on</a>) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;oasis_enddef_var_setup&#39;</span>)</div><div class="line"><a name="l00850"></a><span class="lineno">  850</span>&#160;      <span class="keyword">call </span><a class="code" href="namespacemod__oasis__var.html#ab33b7fbec62bcfd15e9cd7f912f71035">oasis_var_setup</a>()</div><div class="line"><a name="l00851"></a><span class="lineno">  851</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="l00852"></a><span class="lineno">  852</span>&#160;          <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__mem.html#ac628b504553edbe9345cd070a8db2634">oasis_mem_print</a>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,subname//<span class="stringliteral">&#39;:var_setup&#39;</span>)</div><div class="line"><a name="l00853"></a><span class="lineno">  853</span>&#160;<span class="keywordflow">      ENDIF</span></div><div class="line"><a name="l00854"></a><span class="lineno">  854</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__grid.html#a88908301f4dba06278e75e79f90b1155">local_timers_on</a>) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;oasis_enddef_var_setup&#39;</span>)</div><div class="line"><a name="l00855"></a><span class="lineno">  855</span>&#160;</div><div class="line"><a name="l00856"></a><span class="lineno">  856</span>&#160;      <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00857"></a><span class="lineno">  857</span>&#160;<span class="comment">      !&gt;   * Write grid info to files one model at a time</span></div><div class="line"><a name="l00858"></a><span class="lineno">  858</span>&#160;      <span class="comment">!------------------------</span></div><div class="line"><a name="l00859"></a><span class="lineno">  859</span>&#160;</div><div class="line"><a name="l00860"></a><span class="lineno">  860</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__grid.html#a88908301f4dba06278e75e79f90b1155">local_timers_on</a>) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;oasis_enddef_write2files&#39;</span>)</div><div class="line"><a name="l00861"></a><span class="lineno">  861</span>&#160;      <span class="keyword">call </span><a class="code" href="namespacemod__oasis__mpi.html#aaf477847380fbbbc1341520b0b3e66da">oasis_mpi_barrier</a>(<a class="code" href="namespacemod__oasis__data.html#a4bbff51054fd1746849de9defb3d5252">mpi_comm_global</a>)</div><div class="line"><a name="l00862"></a><span class="lineno">  862</span>&#160;      <span class="keywordflow">do</span> n = 1,<a class="code" href="namespacemod__oasis__data.html#ac73f95bc17215d09b67c6c4d3adc07b7">prism_amodels</a></div><div class="line"><a name="l00863"></a><span class="lineno">  863</span>&#160;         <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">compid</a> == n) <span class="keywordflow">then</span></div><div class="line"><a name="l00864"></a><span class="lineno">  864</span>&#160;            <span class="keyword">call </span><a class="code" href="namespacemod__oasis__grid.html#a275791c512cefae9799e188d92b6f9d4">oasis_write2files</a>()</div><div class="line"><a name="l00865"></a><span class="lineno">  865</span>&#160;<span class="keywordflow">         endif</span></div><div class="line"><a name="l00866"></a><span class="lineno">  866</span>&#160;         <span class="keyword">call </span><a class="code" href="namespacemod__oasis__mpi.html#aaf477847380fbbbc1341520b0b3e66da">oasis_mpi_barrier</a>(<a class="code" href="namespacemod__oasis__data.html#a4bbff51054fd1746849de9defb3d5252">mpi_comm_global</a>)</div><div class="line"><a name="l00867"></a><span class="lineno">  867</span>&#160;<span class="keywordflow">      enddo</span></div><div class="line"><a name="l00868"></a><span class="lineno">  868</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="l00869"></a><span class="lineno">  869</span>&#160;          <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__mem.html#ac628b504553edbe9345cd070a8db2634">oasis_mem_print</a>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,subname//<span class="stringliteral">&#39;:write2files&#39;</span>)</div><div class="line"><a name="l00870"></a><span class="lineno">  870</span>&#160;<span class="keywordflow">      ENDIF</span></div><div class="line"><a name="l00871"></a><span class="lineno">  871</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__grid.html#a88908301f4dba06278e75e79f90b1155">local_timers_on</a>) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;oasis_enddef_write2files&#39;</span>)</div><div class="line"><a name="l00872"></a><span class="lineno">  872</span>&#160;</div><div class="line"><a name="l00873"></a><span class="lineno">  873</span>&#160;      <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00874"></a><span class="lineno">  874</span>&#160;<span class="comment">      !&gt;   * MCT Initialization</span></div><div class="line"><a name="l00875"></a><span class="lineno">  875</span>&#160;      <span class="comment">!------------------------</span></div><div class="line"><a name="l00876"></a><span class="lineno">  876</span>&#160;</div><div class="line"><a name="l00877"></a><span class="lineno">  877</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__grid.html#a88908301f4dba06278e75e79f90b1155">local_timers_on</a>) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;oasis_enddef_mctworldinit&#39;</span>)</div><div class="line"><a name="l00878"></a><span class="lineno">  878</span>&#160;      <span class="keyword">call </span>mct_world_init(<a class="code" href="namespacemod__oasis__data.html#ac73f95bc17215d09b67c6c4d3adc07b7">prism_amodels</a>,<a class="code" href="namespacemod__oasis__data.html#a4bbff51054fd1746849de9defb3d5252">mpi_comm_global</a>,<a class="code" href="namespacemod__oasis__data.html#acd8801d4fab87a19c6f4f69a661d56c5">mpi_comm_local</a>,<a class="code" href="namespacemod__oasis__data.html#ab53c9f7676f84fdf1050cea5efcd3e7f">compid</a>)</div><div class="line"><a name="l00879"></a><span class="lineno">  879</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="l00880"></a><span class="lineno">  880</span>&#160;         <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname, <span class="stringliteral">&#39; done mct_world_init &#39;</span></div><div class="line"><a name="l00881"></a><span class="lineno">  881</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="l00882"></a><span class="lineno">  882</span>&#160;<span class="keywordflow">      ENDIF</span></div><div class="line"><a name="l00883"></a><span class="lineno">  883</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__grid.html#a88908301f4dba06278e75e79f90b1155">local_timers_on</a>) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;oasis_enddef_mctworldinit&#39;</span>)</div><div class="line"><a name="l00884"></a><span class="lineno">  884</span>&#160;</div><div class="line"><a name="l00885"></a><span class="lineno">  885</span>&#160;      <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00886"></a><span class="lineno">  886</span>&#160;<span class="comment">      !&gt;   * Initialize coupling via call to coupler_setup</span></div><div class="line"><a name="l00887"></a><span class="lineno">  887</span>&#160;      <span class="comment">!------------------------</span></div><div class="line"><a name="l00888"></a><span class="lineno">  888</span>&#160;</div><div class="line"><a name="l00889"></a><span class="lineno">  889</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__grid.html#a88908301f4dba06278e75e79f90b1155">local_timers_on</a>) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;oasis_enddef_coupler_setup&#39;</span>)</div><div class="line"><a name="l00890"></a><span class="lineno">  890</span>&#160;      <span class="keyword">call </span><a class="code" href="namespacemod__oasis__coupler.html#ab48c4d4ee118f948ccc286eec5b509ec">oasis_coupler_setup</a>()</div><div class="line"><a name="l00891"></a><span class="lineno">  891</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="l00892"></a><span class="lineno">  892</span>&#160;         <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname, <span class="stringliteral">&#39; done prism_coupler_setup &#39;</span></div><div class="line"><a name="l00893"></a><span class="lineno">  893</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="l00894"></a><span class="lineno">  894</span>&#160;<span class="keywordflow">      ENDIF</span></div><div class="line"><a name="l00895"></a><span class="lineno">  895</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="l00896"></a><span class="lineno">  896</span>&#160;          <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__mem.html#ac628b504553edbe9345cd070a8db2634">oasis_mem_print</a>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,subname//<span class="stringliteral">&#39;:coupler_setup&#39;</span>)</div><div class="line"><a name="l00897"></a><span class="lineno">  897</span>&#160;<span class="keywordflow">      ENDIF</span></div><div class="line"><a name="l00898"></a><span class="lineno">  898</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__grid.html#a88908301f4dba06278e75e79f90b1155">local_timers_on</a>) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;oasis_enddef_coupler_setup&#39;</span>)</div><div class="line"><a name="l00899"></a><span class="lineno">  899</span>&#160;</div><div class="line"><a name="l00900"></a><span class="lineno">  900</span>&#160;      <span class="comment">!------------------------</span><span class="comment"></span></div><div class="line"><a name="l00901"></a><span class="lineno">  901</span>&#160;<span class="comment">      !&gt;   * Call advance_init to initialize coupling fields from restarts</span></div><div class="line"><a name="l00902"></a><span class="lineno">  902</span>&#160;      <span class="comment">!------------------------</span></div><div class="line"><a name="l00903"></a><span class="lineno">  903</span>&#160;</div><div class="line"><a name="l00904"></a><span class="lineno">  904</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__grid.html#a88908301f4dba06278e75e79f90b1155">local_timers_on</a>) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;oasis_enddef_advance_init&#39;</span>)</div><div class="line"><a name="l00905"></a><span class="lineno">  905</span>&#160;      <span class="keyword">call </span><a class="code" href="namespacemod__oasis__advance.html#a480bfe5b333300c1084af8f9c239a81d">oasis_advance_init</a>(lkinfo)</div><div class="line"><a name="l00906"></a><span class="lineno">  906</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="l00907"></a><span class="lineno">  907</span>&#160;         <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname, <span class="stringliteral">&#39; done prism_advance_init &#39;</span></div><div class="line"><a name="l00908"></a><span class="lineno">  908</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="l00909"></a><span class="lineno">  909</span>&#160;<span class="keywordflow">      ENDIF</span></div><div class="line"><a name="l00910"></a><span class="lineno">  910</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="l00911"></a><span class="lineno">  911</span>&#160;          <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__mem.html#ac628b504553edbe9345cd070a8db2634">oasis_mem_print</a>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,subname//<span class="stringliteral">&#39;:advance_init&#39;</span>)</div><div class="line"><a name="l00912"></a><span class="lineno">  912</span>&#160;<span class="keywordflow">      ENDIF</span></div><div class="line"><a name="l00913"></a><span class="lineno">  913</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__grid.html#a88908301f4dba06278e75e79f90b1155">local_timers_on</a>) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;oasis_enddef_advance_init&#39;</span>)</div><div class="line"><a name="l00914"></a><span class="lineno">  914</span>&#160;</div><div class="line"><a name="l00915"></a><span class="lineno">  915</span>&#160;<span class="keywordflow">   endif</span>   <span class="comment">!  (mpi_comm_local /= MPI_COMM_NULL)</span></div><div class="line"><a name="l00916"></a><span class="lineno">  916</span>&#160;</div><div class="line"><a name="l00917"></a><span class="lineno">  917</span>&#160;   <span class="comment">!--- Force OASIS_OK here rather than anything else ---</span></div><div class="line"><a name="l00918"></a><span class="lineno">  918</span>&#160;</div><div class="line"><a name="l00919"></a><span class="lineno">  919</span>&#160;   <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__grid.html#a88908301f4dba06278e75e79f90b1155">local_timers_on</a>) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a13a16c07778911b45f3f42a542348019">oasis_timer_start</a>(<span class="stringliteral">&#39;oasis_enddef_last&#39;</span>)</div><div class="line"><a name="l00920"></a><span class="lineno">  920</span>&#160;   <span class="keywordflow">if</span> (<span class="keyword">present</span>(kinfo)) <span class="keywordflow">then</span></div><div class="line"><a name="l00921"></a><span class="lineno">  921</span>&#160;      kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l00922"></a><span class="lineno">  922</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00923"></a><span class="lineno">  923</span>&#160;   <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a> (<span class="stringliteral">&#39;oasis_enddef&#39;</span>)</div><div class="line"><a name="l00924"></a><span class="lineno">  924</span>&#160;   <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;init_thru_enddef&#39;</span>)</div><div class="line"><a name="l00925"></a><span class="lineno">  925</span>&#160;</div><div class="line"><a name="l00926"></a><span class="lineno">  926</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="l00927"></a><span class="lineno">  927</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__mem.html#ac628b504553edbe9345cd070a8db2634">oasis_mem_print</a>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,subname//<span class="stringliteral">&#39;:end&#39;</span>)</div><div class="line"><a name="l00928"></a><span class="lineno">  928</span>&#160;<span class="keywordflow">   ENDIF</span></div><div class="line"><a name="l00929"></a><span class="lineno">  929</span>&#160;   <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__grid.html#a88908301f4dba06278e75e79f90b1155">local_timers_on</a>) <span class="keyword">call </span><a class="code" href="namespacemod__oasis__timer.html#a01a76142a72cc6bc845736e79ad99bd3">oasis_timer_stop</a>(<span class="stringliteral">&#39;oasis_enddef_last&#39;</span>)</div><div class="line"><a name="l00930"></a><span class="lineno">  930</span>&#160;</div><div class="line"><a name="l00931"></a><span class="lineno">  931</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="l00932"></a><span class="lineno">  932</span>&#160;</div><div class="line"><a name="l00933"></a><span class="lineno">  933</span>&#160;<span class="keyword"> END SUBROUTINE </span><a class="code" href="namespacemod__oasis__method.html#a093552f9f9895ac79a5fefa043fc5881">oasis_enddef</a></div><div class="line"><a name="l00934"></a><span class="lineno">  934</span>&#160;<span class="comment">!----------------------------------------------------------------------</span></div><div class="line"><a name="l00935"></a><span class="lineno">  935</span>&#160;<span class="comment"></span></div><div class="line"><a name="l00936"></a><span class="lineno">  936</span>&#160;<span class="comment">!&gt; Local method to compute each models&#39; global task ids, exists for reuse in enddef</span></div><div class="line"><a name="l00937"></a><span class="lineno">  937</span>&#160;</div><div class="line"><a name="l00938"></a><span class="lineno">  938</span>&#160;<span class="keyword"> SUBROUTINE </span><a class="code" href="namespacemod__oasis__method.html#a13d6e469ea14642a2e1e6cb807d9b7de">mod_oasis_setrootglobal</a>()</div><div class="line"><a name="l00939"></a><span class="lineno"><a class="line" href="namespacemod__oasis__method.html#a13d6e469ea14642a2e1e6cb807d9b7de">  939</a></span>&#160;</div><div class="line"><a name="l00940"></a><span class="lineno">  940</span>&#160;   <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span> :: n, ierr</div><div class="line"><a name="l00941"></a><span class="lineno">  941</span>&#160;   <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span>,<span class="keywordtype">ALLOCATABLE</span> :: tmparr(:)</div><div class="line"><a name="l00942"></a><span class="lineno">  942</span>&#160;   <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_setrootglobal)&#39;</span></div><div class="line"><a name="l00943"></a><span class="lineno">  943</span>&#160;</div><div class="line"><a name="l00944"></a><span class="lineno">  944</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00945"></a><span class="lineno">  945</span>&#160;   <span class="comment">!--- set mpi_root_global</span></div><div class="line"><a name="l00946"></a><span class="lineno">  946</span>&#160;   <span class="comment">!------------------------</span></div><div class="line"><a name="l00947"></a><span class="lineno">  947</span>&#160;</div><div class="line"><a name="l00948"></a><span class="lineno">  948</span>&#160;   <span class="keywordflow">if</span> (<span class="keyword">allocated</span>(mpi_root_global)) <span class="keywordflow">then</span></div><div class="line"><a name="l00949"></a><span class="lineno">  949</span>&#160;      <span class="keyword">deallocate</span>(mpi_root_global)</div><div class="line"><a name="l00950"></a><span class="lineno">  950</span>&#160;<span class="keywordflow">   endif</span></div><div class="line"><a name="l00951"></a><span class="lineno">  951</span>&#160;   <span class="keyword">allocate</span>(mpi_root_global(prism_amodels))</div><div class="line"><a name="l00952"></a><span class="lineno">  952</span>&#160;   <span class="keyword">allocate</span>(tmparr(prism_amodels))</div><div class="line"><a name="l00953"></a><span class="lineno">  953</span>&#160;   tmparr = -1</div><div class="line"><a name="l00954"></a><span class="lineno">  954</span>&#160;   <span class="keywordflow">do</span> n = 1,prism_amodels</div><div class="line"><a name="l00955"></a><span class="lineno">  955</span>&#160;      <span class="keywordflow">if</span> (compid == n .and. mpi_rank_local == mpi_root_local) <span class="keywordflow">then</span></div><div class="line"><a name="l00956"></a><span class="lineno">  956</span>&#160;         tmparr(n) = mpi_rank_global</div><div class="line"><a name="l00957"></a><span class="lineno">  957</span>&#160;<span class="keywordflow">      endif</span></div><div class="line"><a name="l00958"></a><span class="lineno">  958</span>&#160;<span class="keywordflow">   enddo</span></div><div class="line"><a name="l00959"></a><span class="lineno">  959</span>&#160;   <span class="keyword">call </span>oasis_mpi_max(tmparr,mpi_root_global,mpi_comm_global, &amp;</div><div class="line"><a name="l00960"></a><span class="lineno">  960</span>&#160;      string=subname//<span class="stringliteral">&#39;:mpi_root_global&#39;</span>,all=.true.)</div><div class="line"><a name="l00961"></a><span class="lineno">  961</span>&#160;   <span class="keyword">deallocate</span>(tmparr)</div><div class="line"><a name="l00962"></a><span class="lineno">  962</span>&#160;</div><div class="line"><a name="l00963"></a><span class="lineno">  963</span>&#160;   <span class="keywordflow">do</span> n = 1,prism_amodels</div><div class="line"><a name="l00964"></a><span class="lineno">  964</span>&#160;      <span class="keywordflow">IF</span> (mpi_root_global(n) &lt; 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00965"></a><span class="lineno">  965</span>&#160;         <span class="keyword">WRITE</span>(nulprt,*) subname,estr,<span class="stringliteral">&#39;global root invalid, check couplcomm for active tasks&#39;</span></div><div class="line"><a name="l00966"></a><span class="lineno">  966</span>&#160;         <span class="keyword">call </span>oasis_abort(file=__file__,line=__line__)</div><div class="line"><a name="l00967"></a><span class="lineno">  967</span>&#160;<span class="keywordflow">      ENDIF</span></div><div class="line"><a name="l00968"></a><span class="lineno">  968</span>&#160;<span class="keywordflow">   enddo</span></div><div class="line"><a name="l00969"></a><span class="lineno">  969</span>&#160;</div><div class="line"><a name="l00970"></a><span class="lineno">  970</span>&#160;<span class="keyword">END SUBROUTINE </span><a class="code" href="namespacemod__oasis__method.html#a13d6e469ea14642a2e1e6cb807d9b7de">mod_oasis_setrootglobal</a></div><div class="line"><a name="l00971"></a><span class="lineno">  971</span>&#160;<span class="comment">!----------------------------------------------------------------------</span></div><div class="line"><a name="l00972"></a><span class="lineno">  972</span>&#160;</div><div class="line"><a name="l00973"></a><span class="lineno">  973</span>&#160;<span class="keyword">END MODULE </span><a class="code" href="namespacemod__oasis__method.html">mod_oasis_method</a></div><div class="ttc" id="namespacemod__oasis__namcouple_html_a5fcb5a4f2a49f414fafe38b03c5c089d"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a5fcb5a4f2a49f414fafe38b03c5c089d">mod_oasis_namcouple::namsrcfld</a></div><div class="ttdeci">character(len=jpeighty), dimension(:), pointer, public namsrcfld</div><div class="ttdoc">list of src fields </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00055">mod_oasis_namcouple.F90:55</a></div></div>
70<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>
71<div class="ttc" id="namespacemod__oasis__method_html_a405af91a0535e4ce70d55513bb4c3867"><div class="ttname"><a href="namespacemod__oasis__method.html#a405af91a0535e4ce70d55513bb4c3867">mod_oasis_method::lg_mpiflag</a></div><div class="ttdeci">logical lg_mpiflag</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__method_8_f90_source.html#l00036">mod_oasis_method.F90:36</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__namcouple_html_a1b8c7ce28c62fa0b15076b7169d8b454"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a1b8c7ce28c62fa0b15076b7169d8b454">mod_oasis_namcouple::namuntmin</a></div><div class="ttdeci">integer(kind=ip_i4_p), public namuntmin</div><div class="ttdoc">namcouple min IO unit value </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00048">mod_oasis_namcouple.F90:48</a></div></div>
74<div class="ttc" id="namespacemod__oasis__namcouple_html_a5ca7cd6a5b9f939b68492200aa92bab4"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a5ca7cd6a5b9f939b68492200aa92bab4">mod_oasis_namcouple::nnamcpl</a></div><div class="ttdeci">integer(kind=ip_i4_p), public nnamcpl</div><div class="ttdoc">number of namcouple inputs </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00044">mod_oasis_namcouple.F90:44</a></div></div>
75<div class="ttc" id="namespacemod__oasis__namcouple_html_a45fbbd2941f5d71991d409f63e31cf02"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a45fbbd2941f5d71991d409f63e31cf02">mod_oasis_namcouple::namtlogprt</a></div><div class="ttdeci">integer(kind=ip_i4_p), public namtlogprt</div><div class="ttdoc">namcouple ntlogprt value </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00047">mod_oasis_namcouple.F90:47</a></div></div>
76<div class="ttc" id="namespacemod__oasis__data_html_a8ff971286c1f235b8a328b3298f58a9b"><div class="ttname"><a href="namespacemod__oasis__data.html#a8ff971286c1f235b8a328b3298f58a9b">mod_oasis_data::mpi_comm_map</a></div><div class="ttdeci">integer(kind=ip_i4_p) mpi_comm_map</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00054">mod_oasis_data.F90:54</a></div></div>
77<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>
78<div class="ttc" id="namespacemod__oasis__mem_html_ac628b504553edbe9345cd070a8db2634"><div class="ttname"><a href="namespacemod__oasis__mem.html#ac628b504553edbe9345cd070a8db2634">mod_oasis_mem::oasis_mem_print</a></div><div class="ttdeci">subroutine, public oasis_mem_print(iunit, string)</div><div class="ttdoc">Print memory use. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__mem_8_f90_source.html#l00119">mod_oasis_mem.F90:119</a></div></div>
79<div class="ttc" id="namespacemod__oasis__data_html_a7c427f27ff231565a1ecc0caeb30c67c"><div class="ttname"><a href="namespacemod__oasis__data.html#a7c427f27ff231565a1ecc0caeb30c67c">mod_oasis_data::lucia_debug</a></div><div class="ttdeci">integer(kind=ip_i4_p) lucia_debug</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00023">mod_oasis_data.F90:23</a></div></div>
80<div class="ttc" id="namespacemod__oasis__mem_html"><div class="ttname"><a href="namespacemod__oasis__mem.html">mod_oasis_mem</a></div><div class="ttdoc">Provides methods for querying memory use. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__mem_8_f90_source.html#l00003">mod_oasis_mem.F90:3</a></div></div>
81<div class="ttc" id="namespacemod__oasis__method_html_ad266b77f6e75f2d150c80374a841a43c"><div class="ttname"><a href="namespacemod__oasis__method.html#ad266b77f6e75f2d150c80374a841a43c">mod_oasis_method::oasis_init_comp</a></div><div class="ttdeci">subroutine, public oasis_init_comp(mynummod, cdnam, kinfo, coupled, commworld)</div><div class="ttdoc">OASIS user init method. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__method_8_f90_source.html#l00046">mod_oasis_method.F90:46</a></div></div>
82<div class="ttc" id="namespacemod__oasis__data_html_a5e29025a6d83c7a01f88febbb734b7e9"><div class="ttname"><a href="namespacemod__oasis__data.html#a5e29025a6d83c7a01f88febbb734b7e9">mod_oasis_data::mpi_rank_map</a></div><div class="ttdeci">integer(kind=ip_i4_p) mpi_rank_map</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00055">mod_oasis_data.F90:55</a></div></div>
83<div class="ttc" id="namespacemod__oasis__data_html_a617f69fb4d4bb96a94f83a124b4d0030"><div class="ttname"><a href="namespacemod__oasis__data.html#a617f69fb4d4bb96a94f83a124b4d0030">mod_oasis_data::mpi_size_local</a></div><div class="ttdeci">integer(kind=ip_i4_p) mpi_size_local</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00052">mod_oasis_data.F90:52</a></div></div>
84<div class="ttc" id="namespacemod__oasis__grid_html_a275791c512cefae9799e188d92b6f9d4"><div class="ttname"><a href="namespacemod__oasis__grid.html#a275791c512cefae9799e188d92b6f9d4">mod_oasis_grid::oasis_write2files</a></div><div class="ttdeci">subroutine, public oasis_write2files()</div><div class="ttdoc">Interface that actually writes fields to grid files. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__grid_8_f90_source.html#l00855">mod_oasis_grid.F90:855</a></div></div>
85<div class="ttc" id="namespacemod__oasis__data_html_aa8588b3be582de7f61aa318d45854483"><div class="ttname"><a href="namespacemod__oasis__data.html#aa8588b3be582de7f61aa318d45854483">mod_oasis_data::size_namfld</a></div><div class="ttdeci">integer(kind=ip_i4_p) size_namfld</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00027">mod_oasis_data.F90:27</a></div></div>
86<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>
87<div class="ttc" id="interfacemod__oasis__mpi_1_1oasis__mpi__bcast_html"><div class="ttname"><a href="interfacemod__oasis__mpi_1_1oasis__mpi__bcast.html">mod_oasis_mpi::oasis_mpi_bcast</a></div><div class="ttdoc">Generic overloaded interface into MPI broadcast. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__mpi_8_f90_source.html#l00058">mod_oasis_mpi.F90:58</a></div></div>
88<div class="ttc" id="namespacemod__oasis__data_html_ad5282716e60cbe5e8c1ced7758fc9ae1"><div class="ttname"><a href="namespacemod__oasis__data.html#ad5282716e60cbe5e8c1ced7758fc9ae1">mod_oasis_data::prism_modcpl</a></div><div class="ttdeci">logical, dimension(prism_mmodels) prism_modcpl</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00037">mod_oasis_data.F90:37</a></div></div>
89<div class="ttc" id="namespacemod__oasis__data_html_a177c2b47ae4c69407d55817cd468b0ae"><div class="ttname"><a href="namespacemod__oasis__data.html#a177c2b47ae4c69407d55817cd468b0ae">mod_oasis_data::mpi_root_map</a></div><div class="ttdeci">integer(kind=ip_i4_p) mpi_root_map</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00057">mod_oasis_data.F90:57</a></div></div>
90<div class="ttc" id="namespacemod__oasis__data_html_a4bbff51054fd1746849de9defb3d5252"><div class="ttname"><a href="namespacemod__oasis__data.html#a4bbff51054fd1746849de9defb3d5252">mod_oasis_data::mpi_comm_global</a></div><div class="ttdeci">integer(kind=ip_i4_p) mpi_comm_global</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00047">mod_oasis_data.F90:47</a></div></div>
91<div class="ttc" id="namespacemod__oasis__data_html_a5341a9152ef540667f7fcaa4f04c6399"><div class="ttname"><a href="namespacemod__oasis__data.html#a5341a9152ef540667f7fcaa4f04c6399">mod_oasis_data::enddef_called</a></div><div class="ttdeci">logical enddef_called</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00025">mod_oasis_data.F90:25</a></div></div>
92<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>
93<div class="ttc" id="namespacemod__oasis__data_html_a2b9f5c72f10178df0bda39000b151d24"><div class="ttname"><a href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">mod_oasis_data::nulprt1</a></div><div class="ttdeci">integer(kind=ip_intwp_p) nulprt1</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>
94<div class="ttc" id="namespacemod__oasis__namcouple_html_ac4cfec209e4169b6098f9a8b9be1ffb1"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ac4cfec209e4169b6098f9a8b9be1ffb1">mod_oasis_namcouple::namdstfld</a></div><div class="ttdeci">character(len=jpeighty), dimension(:), pointer, public namdstfld</div><div class="ttdoc">list of dst fields </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00056">mod_oasis_namcouple.F90:56</a></div></div>
95<div class="ttc" id="namespacemod__oasis__string_html_a4d3a28944ce786f4d8d8a9555c63f8cd"><div class="ttname"><a href="namespacemod__oasis__string.html#a4d3a28944ce786f4d8d8a9555c63f8cd">mod_oasis_string::oasis_string_listgetname</a></div><div class="ttdeci">subroutine, public oasis_string_listgetname(list, k, name, rc)</div><div class="ttdoc">Get name of k-th field in list. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__string_8_f90_source.html#l00861">mod_oasis_string.F90:861</a></div></div>
96<div class="ttc" id="namespacemod__oasis__namcouple_html_a46affda5336f60a1eeb1badaaccd3cfd"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a46affda5336f60a1eeb1badaaccd3cfd">mod_oasis_namcouple::namlogprt</a></div><div class="ttdeci">integer(kind=ip_i4_p), public namlogprt</div><div class="ttdoc">namcouple nlogprt value </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00046">mod_oasis_namcouple.F90:46</a></div></div>
97<div class="ttc" id="namespacemod__oasis__mem_html_a104b7e7e85cd79e731a6e12a14358bbb"><div class="ttname"><a href="namespacemod__oasis__mem.html#a104b7e7e85cd79e731a6e12a14358bbb">mod_oasis_mem::oasis_mem_init</a></div><div class="ttdeci">subroutine, public oasis_mem_init(iunit)</div><div class="ttdoc">Initialize memory conversion to MB. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__mem_8_f90_source.html#l00034">mod_oasis_mem.F90:34</a></div></div>
98<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>
99<div class="ttc" id="namespacemod__oasis__timer_html_a44a1bb64d1d892a9710d8c94d0ed0e3a"><div class="ttname"><a href="namespacemod__oasis__timer.html#a44a1bb64d1d892a9710d8c94d0ed0e3a">mod_oasis_timer::oasis_timer_init</a></div><div class="ttdeci">subroutine, public oasis_timer_init(app, file, nt)</div><div class="ttdoc">Initializes the timer methods, called once in an application. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__timer_8_f90_source.html#l00092">mod_oasis_timer.F90:92</a></div></div>
100<div class="ttc" id="namespacemod__oasis__method_html_a390290b92b6af57b2732cb7521532f1c"><div class="ttname"><a href="namespacemod__oasis__method.html#a390290b92b6af57b2732cb7521532f1c">mod_oasis_method::debug</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter debug</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__method_8_f90_source.html#l00034">mod_oasis_method.F90:34</a></div></div>
101<div class="ttc" id="namespacemod__oasis__coupler_html"><div class="ttname"><a href="namespacemod__oasis__coupler.html">mod_oasis_coupler</a></div><div class="ttdoc">Initialize the OASIS coupler infrastructure. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__coupler_8_f90_source.html#l00004">mod_oasis_coupler.F90:4</a></div></div>
102<div class="ttc" id="namespacemod__oasis__data_html_a811747a1592795f860854f09f19d4c25"><div class="ttname"><a href="namespacemod__oasis__data.html#a811747a1592795f860854f09f19d4c25">mod_oasis_data::mpi_rank_local</a></div><div class="ttdeci">integer(kind=ip_i4_p) mpi_rank_local</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00051">mod_oasis_data.F90:51</a></div></div>
103<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>
104<div class="ttc" id="namespacemod__oasis__data_html_a83a9d498c6829e2058675a07446ce5be"><div class="ttname"><a href="namespacemod__oasis__data.html#a83a9d498c6829e2058675a07446ce5be">mod_oasis_data::mpi_size_global</a></div><div class="ttdeci">integer(kind=ip_i4_p) mpi_size_global</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00049">mod_oasis_data.F90:49</a></div></div>
105<div class="ttc" id="namespacemod__oasis__data_html_ac73f95bc17215d09b67c6c4d3adc07b7"><div class="ttname"><a href="namespacemod__oasis__data.html#ac73f95bc17215d09b67c6c4d3adc07b7">mod_oasis_data::prism_amodels</a></div><div class="ttdeci">integer(kind=ip_i4_p) prism_amodels</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00035">mod_oasis_data.F90:35</a></div></div>
106<div class="ttc" id="namespacemod__oasis__string_html"><div class="ttname"><a href="namespacemod__oasis__string.html">mod_oasis_string</a></div><div class="ttdoc">Character string manipulation methods. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__string_8_f90_source.html#l00027">mod_oasis_string.F90:27</a></div></div>
107<div class="ttc" id="namespacemod__oasis__data_html_a46d81d5ac9efa619628264c5e45bac41"><div class="ttname"><a href="namespacemod__oasis__data.html#a46d81d5ac9efa619628264c5e45bac41">mod_oasis_data::nullucia</a></div><div class="ttdeci">integer(kind=ip_intwp_p) nullucia</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>
108<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>
109<div class="ttc" id="namespacemod__oasis__data_html_a58b5a440f274f5dfb942d7e18f12674c"><div class="ttname"><a href="namespacemod__oasis__data.html#a58b5a440f274f5dfb942d7e18f12674c">mod_oasis_data::total_namsrcfld</a></div><div class="ttdeci">character(len=ic_lvar), dimension(:), pointer total_namsrcfld</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00028">mod_oasis_data.F90:28</a></div></div>
110<div class="ttc" id="namespacemod__oasis__data_html_a5915b02f461626d5a6cffbf037daa75e"><div class="ttname"><a href="namespacemod__oasis__data.html#a5915b02f461626d5a6cffbf037daa75e">mod_oasis_data::prism_nmodels</a></div><div class="ttdeci">integer(kind=ip_i4_p) prism_nmodels</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00034">mod_oasis_data.F90:34</a></div></div>
111<div class="ttc" id="namespacemod__oasis__method_html_a4fb881336906c9452b6a9f250af9c3d7"><div class="ttname"><a href="namespacemod__oasis__method.html#a4fb881336906c9452b6a9f250af9c3d7">mod_oasis_method::oasis_terminate</a></div><div class="ttdeci">subroutine, public oasis_terminate(kinfo)</div><div class="ttdoc">OASIS user finalize method. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__method_8_f90_source.html#l00663">mod_oasis_method.F90:663</a></div></div>
112<div class="ttc" id="namespacemod__oasis__grid_html_a88908301f4dba06278e75e79f90b1155"><div class="ttname"><a href="namespacemod__oasis__grid.html#a88908301f4dba06278e75e79f90b1155">mod_oasis_grid::local_timers_on</a></div><div class="ttdeci">logical, parameter local_timers_on</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__grid_8_f90_source.html#l00141">mod_oasis_grid.F90:141</a></div></div>
113<div class="ttc" id="namespacemod__oasis__namcouple_html_ab57c69ae534734f92a85e24a3389e972"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ab57c69ae534734f92a85e24a3389e972">mod_oasis_namcouple::oasis_namcouple_init</a></div><div class="ttdeci">subroutine, public oasis_namcouple_init()</div><div class="ttdoc">Reads the namcouple. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00310">mod_oasis_namcouple.F90:310</a></div></div>
114<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>
115<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>
116<div class="ttc" id="namespacemod__oasis__namcouple_html_ae750107f9401fd3c7348088ad3095b45"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ae750107f9401fd3c7348088ad3095b45">mod_oasis_namcouple::namuntmax</a></div><div class="ttdeci">integer(kind=ip_i4_p), public namuntmax</div><div class="ttdoc">namcouple max IO unit value </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00049">mod_oasis_namcouple.F90:49</a></div></div>
117<div class="ttc" id="namespacemod__oasis__data_html_ad186b77d375be587e4f198ca45026d2e"><div class="ttname"><a href="namespacemod__oasis__data.html#ad186b77d375be587e4f198ca45026d2e">mod_oasis_data::mpi_node_name</a></div><div class="ttdeci">character(len=mpi_max_processor_name) mpi_node_name</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00059">mod_oasis_data.F90:59</a></div></div>
118<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>
119<div class="ttc" id="namespacemod__oasis__data_html_a799f6f0a442fcc2ab9960814b8b1b74a"><div class="ttname"><a href="namespacemod__oasis__data.html#a799f6f0a442fcc2ab9960814b8b1b74a">mod_oasis_data::mpi_in_map</a></div><div class="ttdeci">logical mpi_in_map</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00058">mod_oasis_data.F90:58</a></div></div>
120<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>
121<div class="ttc" id="namespacemod__oasis__data_html_af9bb2a4f321e7d7750e90c01022828fe"><div class="ttname"><a href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mod_oasis_data::mpi_rank_global</a></div><div class="ttdeci">integer(kind=ip_i4_p) mpi_rank_global</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00048">mod_oasis_data.F90:48</a></div></div>
122<div class="ttc" id="namespacemod__oasis__advance_html_a480bfe5b333300c1084af8f9c239a81d"><div class="ttname"><a href="namespacemod__oasis__advance.html#a480bfe5b333300c1084af8f9c239a81d">mod_oasis_advance::oasis_advance_init</a></div><div class="ttdeci">subroutine, public oasis_advance_init(kinfo)</div><div class="ttdoc">Initializes the OASIS fields. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__advance_8_f90_source.html#l00039">mod_oasis_advance.F90:39</a></div></div>
123<div class="ttc" id="namespacemod__oasis__sys_html_a063a41b73546564afd294fd5708b6667"><div class="ttname"><a href="namespacemod__oasis__sys.html#a063a41b73546564afd294fd5708b6667">mod_oasis_sys::oasis_unitsetmin</a></div><div class="ttdeci">subroutine, public oasis_unitsetmin(uio)</div><div class="ttdoc">Set the minimum unit number allowed. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__sys_8_f90_source.html#l00148">mod_oasis_sys.F90:148</a></div></div>
124<div class="ttc" id="namespacemod__oasis__data_html_a7f03d4afc0c91a42b13ddcf7ec082e51"><div class="ttname"><a href="namespacemod__oasis__data.html#a7f03d4afc0c91a42b13ddcf7ec082e51">mod_oasis_data::mpi_root_global</a></div><div class="ttdeci">integer(kind=ip_i4_p), dimension(:), allocatable mpi_root_global</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00061">mod_oasis_data.F90:61</a></div></div>
125<div class="ttc" id="namespacemod__oasis__grid_html"><div class="ttname"><a href="namespacemod__oasis__grid.html">mod_oasis_grid</a></div><div class="ttdoc">OASIS grid data and methods. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__grid_8_f90_source.html#l00009">mod_oasis_grid.F90:9</a></div></div>
126<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>
127<div class="ttc" id="namespacemod__oasis__timer_html_a3071ad54f61d88f16ad98ad7c0303915"><div class="ttname"><a href="namespacemod__oasis__timer.html#a3071ad54f61d88f16ad98ad7c0303915">mod_oasis_timer::oasis_timer_print</a></div><div class="ttdeci">subroutine, public oasis_timer_print(timer_label)</div><div class="ttdoc">Print timers. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__timer_8_f90_source.html#l00222">mod_oasis_timer.F90:222</a></div></div>
128<div class="ttc" id="namespacemod__oasis__data_html_a81466361b20004007f221dd6a32041f9"><div class="ttname"><a href="namespacemod__oasis__data.html#a81466361b20004007f221dd6a32041f9">mod_oasis_data::total_namdstfld</a></div><div class="ttdeci">character(len=ic_lvar), dimension(:), pointer total_namdstfld</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00028">mod_oasis_data.F90:28</a></div></div>
129<div class="ttc" id="namespacemod__oasis__var_html"><div class="ttname"><a href="namespacemod__oasis__var.html">mod_oasis_var</a></div><div class="ttdoc">OASIS variable data and methods. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__var_8_f90_source.html#l00004">mod_oasis_var.F90:4</a></div></div>
130<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>
131<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>
132<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>
133<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>
134<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>
135<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>
136<div class="ttc" id="namespacemod__oasis__method_html_aff65fa61d2762374419fe4c44c0f9282"><div class="ttname"><a href="namespacemod__oasis__method.html#aff65fa61d2762374419fe4c44c0f9282">mod_oasis_method::mpi_comm_global_world</a></div><div class="ttdeci">integer(kind=ip_intwp_p) mpi_comm_global_world</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__method_8_f90_source.html#l00037">mod_oasis_method.F90:37</a></div></div>
137<div class="ttc" id="namespacemod__oasis__string_html_a15a49e6a71df520424402a753be10bb1"><div class="ttname"><a href="namespacemod__oasis__string.html#a15a49e6a71df520424402a753be10bb1">mod_oasis_string::oasis_string_listgetnum</a></div><div class="ttdeci">integer function, public oasis_string_listgetnum(str)</div><div class="ttdoc">return number of fields in string list </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__string_8_f90_source.html#l01475">mod_oasis_string.F90:1475</a></div></div>
138<div class="ttc" id="namespacemod__oasis__mpi_html_aaf477847380fbbbc1341520b0b3e66da"><div class="ttname"><a href="namespacemod__oasis__mpi.html#aaf477847380fbbbc1341520b0b3e66da">mod_oasis_mpi::oasis_mpi_barrier</a></div><div class="ttdeci">subroutine, public oasis_mpi_barrier(comm, string)</div><div class="ttdoc">Call MPI_BARRIER for a particular communicator. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__mpi_8_f90_source.html#l02697">mod_oasis_mpi.F90:2697</a></div></div>
139<div class="ttc" id="namespacemod__oasis__namcouple_html_a4555b14f38928b7f0fb7f77b9c42d0a0"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a4555b14f38928b7f0fb7f77b9c42d0a0">mod_oasis_namcouple::namsort2nn</a></div><div class="ttdeci">integer(kind=ip_i4_p), dimension(:), pointer, public namsort2nn</div><div class="ttdoc">sorted namcpl for sort, define nn order, computed later </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00092">mod_oasis_namcouple.F90:92</a></div></div>
140<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>
141<div class="ttc" id="namespacemod__oasis__kinds_html_a5c0c2841fb9b4f7cbeb6de3f5731371a"><div class="ttname"><a href="namespacemod__oasis__kinds.html#a5c0c2841fb9b4f7cbeb6de3f5731371a">mod_oasis_kinds::ic_lvar</a></div><div class="ttdeci">integer, parameter ic_lvar</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__kinds_8_f90_source.html#l00024">mod_oasis_kinds.F90:24</a></div></div>
142<div class="ttc" id="namespacemod__oasis__sys_html_abce4c06d8a999919a2a185c71ab15edd"><div class="ttname"><a href="namespacemod__oasis__sys.html#abce4c06d8a999919a2a185c71ab15edd">mod_oasis_sys::oasis_unitget</a></div><div class="ttdeci">subroutine, public oasis_unitget(uio)</div><div class="ttdoc">Get a free unit number. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__sys_8_f90_source.html#l00112">mod_oasis_sys.F90:112</a></div></div>
143<div class="ttc" id="namespacemod__oasis__method_html_a093552f9f9895ac79a5fefa043fc5881"><div class="ttname"><a href="namespacemod__oasis__method.html#a093552f9f9895ac79a5fefa043fc5881">mod_oasis_method::oasis_enddef</a></div><div class="ttdeci">subroutine, public oasis_enddef(kinfo)</div><div class="ttdoc">OASIS user interface specifying the OASIS definition phase is complete. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__method_8_f90_source.html#l00730">mod_oasis_method.F90:730</a></div></div>
144<div class="ttc" id="namespacemod__oasis__data_html_a11c61975c048981f7e508f1b6caf16b6"><div class="ttname"><a href="namespacemod__oasis__data.html#a11c61975c048981f7e508f1b6caf16b6">mod_oasis_data::prism_mmodels</a></div><div class="ttdeci">integer(kind=ip_i4_p), parameter prism_mmodels</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00033">mod_oasis_data.F90:33</a></div></div>
145<div class="ttc" id="namespacemod__oasis__coupler_html_ab494fbbb8065f3a006892828f288e44a"><div class="ttname"><a href="namespacemod__oasis__coupler.html#ab494fbbb8065f3a006892828f288e44a">mod_oasis_coupler::allow_no_restart</a></div><div class="ttdeci">logical, public allow_no_restart</div><div class="ttdoc">flag to allow no restart files at startup </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__coupler_8_f90_source.html#l00106">mod_oasis_coupler.F90:106</a></div></div>
146<div class="ttc" id="namespacemod__oasis__method_html_a13d6e469ea14642a2e1e6cb807d9b7de"><div class="ttname"><a href="namespacemod__oasis__method.html#a13d6e469ea14642a2e1e6cb807d9b7de">mod_oasis_method::mod_oasis_setrootglobal</a></div><div class="ttdeci">subroutine mod_oasis_setrootglobal()</div><div class="ttdoc">Local method to compute each models&amp;#39; global task ids, exists for reuse in enddef. ...</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__method_8_f90_source.html#l00939">mod_oasis_method.F90:939</a></div></div>
147<div class="ttc" id="namespacemod__oasis__advance_html"><div class="ttname"><a href="namespacemod__oasis__advance.html">mod_oasis_advance</a></div><div class="ttdoc">Advances the OASIS coupling. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__advance_8_f90_source.html#l00004">mod_oasis_advance.F90:4</a></div></div>
148<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>
149<div class="ttc" id="namespacemod__oasis__ioshr_html"><div class="ttname"><a href="namespacemod__oasis__ioshr.html">mod_oasis_ioshr</a></div><div class="ttdoc">IO interfaces based on pio (not supported yet) </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__ioshr_8_f90_source.html#l00018">mod_oasis_ioshr.F90:18</a></div></div>
150<div class="ttc" id="namespacemod__oasis__data_html_a7a3b7c8004b8d8869bbfa1fd4723da3e"><div class="ttname"><a href="namespacemod__oasis__data.html#a7a3b7c8004b8d8869bbfa1fd4723da3e">mod_oasis_data::oasis_data_zero</a></div><div class="ttdeci">subroutine oasis_data_zero()</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00080">mod_oasis_data.F90:80</a></div></div>
151<div class="ttc" id="namespacemod__oasis__coupler_html_ab48c4d4ee118f948ccc286eec5b509ec"><div class="ttname"><a href="namespacemod__oasis__coupler.html#ab48c4d4ee118f948ccc286eec5b509ec">mod_oasis_coupler::oasis_coupler_setup</a></div><div class="ttdeci">subroutine, public oasis_coupler_setup()</div><div class="ttdoc">Main routine to setup couplers. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__coupler_8_f90_source.html#l00121">mod_oasis_coupler.F90:121</a></div></div>
152<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>
153<div class="ttc" id="namespacemod__oasis__var_html_ab33b7fbec62bcfd15e9cd7f912f71035"><div class="ttname"><a href="namespacemod__oasis__var.html#ab33b7fbec62bcfd15e9cd7f912f71035">mod_oasis_var::oasis_var_setup</a></div><div class="ttdeci">subroutine, public oasis_var_setup()</div><div class="ttdoc">Synchronize variables across all tasks, called at oasis enddef. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__var_8_f90_source.html#l00185">mod_oasis_var.F90:185</a></div></div>
154<div class="ttc" id="namespacemod__oasis__var_html_a151c4be67882fc8d02f66e4a1822b692"><div class="ttname"><a href="namespacemod__oasis__var.html#a151c4be67882fc8d02f66e4a1822b692">mod_oasis_var::maxvar</a></div><div class="ttdeci">integer(ip_intwp_p), public maxvar</div><div class="ttdoc">number of potential variables, derived from namcouple input </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__var_8_f90_source.html#l00024">mod_oasis_var.F90:24</a></div></div>
155<div class="ttc" id="namespacemod__oasis__var_html_ae66c490437c2960d795fbd3d2c773a0a"><div class="ttname"><a href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">mod_oasis_var::prism_var</a></div><div class="ttdeci">type(prism_var_type), dimension(:), pointer, public prism_var</div><div class="ttdoc">list of defined variables </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__var_8_f90_source.html#l00041">mod_oasis_var.F90:41</a></div></div>
156<div class="ttc" id="namespacemod__oasis__namcouple_html"><div class="ttname"><a href="namespacemod__oasis__namcouple.html">mod_oasis_namcouple</a></div><div class="ttdoc">Reads the namcouple file for use in OASIS. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00010">mod_oasis_namcouple.F90:10</a></div></div>
157<div class="ttc" id="namespacemod__oasis__method_html"><div class="ttname"><a href="namespacemod__oasis__method.html">mod_oasis_method</a></div><div class="ttdoc">High level OASIS user interfaces. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__method_8_f90_source.html#l00004">mod_oasis_method.F90:4</a></div></div>
158<div class="ttc" id="namespacemod__oasis__sys_html_a6e0a46b41f1b9f0a1dc99b17665f49dc"><div class="ttname"><a href="namespacemod__oasis__sys.html#a6e0a46b41f1b9f0a1dc99b17665f49dc">mod_oasis_sys::oasis_unitsetmax</a></div><div class="ttdeci">subroutine, public oasis_unitsetmax(uio)</div><div class="ttdoc">Set the maximum unit number allowed. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__sys_8_f90_source.html#l00167">mod_oasis_sys.F90:167</a></div></div>
159<div class="ttc" id="namespacemod__oasis__namcouple_html_ad1bd3ea485ad5f5114eb4b7f8c831ccb"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ad1bd3ea485ad5f5114eb4b7f8c831ccb">mod_oasis_namcouple::namnorest</a></div><div class="ttdeci">logical, public namnorest</div><div class="ttdoc">namcouple allow no restarts </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00050">mod_oasis_namcouple.F90:50</a></div></div>
160<div class="ttc" id="namespacemod__oasis__data_html_ac4a6f10dab1d3078f8467465c21b9fdd"><div class="ttname"><a href="namespacemod__oasis__data.html#ac4a6f10dab1d3078f8467465c21b9fdd">mod_oasis_data::mpi_size_map</a></div><div class="ttdeci">integer(kind=ip_i4_p) mpi_size_map</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00056">mod_oasis_data.F90:56</a></div></div>
161<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>
162<div class="ttc" id="namespacemod__oasis__data_html_abd4b98e9f321bc073d5a8e0292ba7131"><div class="ttname"><a href="namespacemod__oasis__data.html#abd4b98e9f321bc073d5a8e0292ba7131">mod_oasis_data::prism_modnam</a></div><div class="ttdeci">character(len=ic_lvar), dimension(prism_mmodels) prism_modnam</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00036">mod_oasis_data.F90:36</a></div></div>
163<div class="ttc" id="namespacemod__oasis__data_html_a320a34357de5c3049ccf102df7b97f5e"><div class="ttname"><a href="namespacemod__oasis__data.html#a320a34357de5c3049ccf102df7b97f5e">mod_oasis_data::timer_debug</a></div><div class="ttdeci">integer(kind=ip_i4_p) timer_debug</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00022">mod_oasis_data.F90:22</a></div></div>
164<div class="ttc" id="namespacemod__oasis__sys_html_a4e16ba69c68a3a39c8b8aa3b92234ce1"><div class="ttname"><a href="namespacemod__oasis__sys.html#a4e16ba69c68a3a39c8b8aa3b92234ce1">mod_oasis_sys::wstr</a></div><div class="ttdeci">character(len= *), parameter, public wstr</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__sys_8_f90_source.html#l00013">mod_oasis_sys.F90:13</a></div></div>
165</div><!-- fragment --></div><!-- contents -->
166<!-- start footer part -->
167<hr class="footer"/><address class="footer"><small>
168Generated on Fri Jun 29 2018 20:52:28 for Oasis3-MCT by &#160;<a href="http://www.doxygen.org/index.html">
169<img class="footer" src="doxygen.png" alt="doxygen"/>
170</a> 1.8.13
171</small></address>
172</body>
173</html>
Note: See TracBrowser for help on using the repository browser.