source: CONFIG_DEVT/IPSLCM6.5_work_ENSEMBLES/oasis3-mct/doc/doxygen/html/mod__oasis__getput__interface_8_f90_source.html

Last change on this file was 5725, checked in by aclsce, 3 years ago

Added new oasis3-MCT version to be used to handle ensembles simulations with XIOS.
File size: 263.1 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_getput_interface.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_getput_interface.F90</div>  </div>
67</div><!--header-->
68<div class="contents">
69<a href="mod__oasis__getput__interface_8_f90.html">Go to the documentation of this file.</a><div class="fragment"><div class="line"><a name="l00001"></a><span class="lineno">    1</span>&#160;<span class="comment"></span></div><div class="line"><a name="l00002"></a><span class="lineno">    2</span>&#160;<span class="comment">!&gt; OASIS send/receive (put/get) 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__getput__interface.html">    4</a></span>&#160;<span class="keyword">MODULE</span> <a class="code" href="namespacemod__oasis__getput__interface.html">mod_oasis_getput_interface</a></div><div class="line"><a name="l00005"></a><span class="lineno">    5</span>&#160;<span class="comment">!---------------------------------------------------------------------</span></div><div class="line"><a name="l00006"></a><span class="lineno">    6</span>&#160;</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__kinds.html">mod_oasis_kinds</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__data.html">mod_oasis_data</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__parameters.html">mod_oasis_parameters</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__advance.html">mod_oasis_advance</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__var.html">mod_oasis_var</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__sys.html">mod_oasis_sys</a></div><div class="line"><a name="l00013"></a><span class="lineno">   13</span>&#160;    <span class="keywordtype">use </span>mct_mod</div><div class="line"><a name="l00014"></a><span class="lineno">   14</span>&#160;</div><div class="line"><a name="l00015"></a><span class="lineno">   15</span>&#160;    <span class="keywordtype">implicit none</span></div><div class="line"><a name="l00016"></a><span class="lineno">   16</span>&#160;    <span class="keywordtype">private</span></div><div class="line"><a name="l00017"></a><span class="lineno">   17</span>&#160;</div><div class="line"><a name="l00018"></a><span class="lineno">   18</span>&#160;    <span class="keywordtype">public</span> <a class="code" href="interfacemod__oasis__getput__interface_1_1oasis__put.html">oasis_put</a></div><div class="line"><a name="l00019"></a><span class="lineno">   19</span>&#160;    <span class="keywordtype">public</span> <a class="code" href="interfacemod__oasis__getput__interface_1_1oasis__get.html">oasis_get</a></div><div class="line"><a name="l00020"></a><span class="lineno">   20</span>&#160;</div><div class="line"><a name="l00021"></a><span class="lineno">   21</span>&#160;<span class="preprocessor">#include &quot;oasis_os.h&quot;</span></div><div class="line"><a name="l00022"></a><span class="lineno">   22</span>&#160;<span class="preprocessor"></span></div><div class="line"><a name="l00023"></a><span class="lineno"><a class="line" href="namespacemod__oasis__getput__interface.html#a2ceaaa5740216799f651b8dacb42b239">   23</a></span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span>     <a class="code" href="namespacemod__oasis__getput__interface.html#a2ceaaa5740216799f651b8dacb42b239">istatus</a>(mpi_status_size)</div><div class="line"><a name="l00024"></a><span class="lineno">   24</span>&#160;<span class="comment"></span></div><div class="line"><a name="l00025"></a><span class="lineno">   25</span>&#160;<span class="comment">!&gt; Generic overloaded interface for data put (send)</span></div><div class="line"><a name="l00026"></a><span class="lineno"><a class="line" href="interfacemod__oasis__getput__interface_1_1oasis__put.html">   26</a></span>&#160;  <span class="keyword">interface</span> <a class="code" href="interfacemod__oasis__getput__interface_1_1oasis__put.html">oasis_put</a></div><div class="line"><a name="l00027"></a><span class="lineno">   27</span>&#160;<span class="preprocessor">#ifndef __NO_4BYTE_REALS</span></div><div class="line"><a name="l00028"></a><span class="lineno">   28</span>&#160;<span class="preprocessor"></span>     <span class="keyword">module procedure</span> <a class="code" href="namespacemod__oasis__getput__interface.html#af2487e50b549830a14e5517c0736f907">oasis_put_r14</a></div><div class="line"><a name="l00029"></a><span class="lineno">   29</span>&#160;     <span class="keyword">module procedure</span> <a class="code" href="namespacemod__oasis__getput__interface.html#a6b5add4ec9bd054279451a5bb52f7d32">oasis_put_r24</a></div><div class="line"><a name="l00030"></a><span class="lineno">   30</span>&#160;     <span class="keyword">module procedure</span> <a class="code" href="namespacemod__oasis__getput__interface.html#acc31c8501b46f19ac866726af9baf017">oasis_put_r34</a></div><div class="line"><a name="l00031"></a><span class="lineno">   31</span>&#160;<span class="preprocessor">#endif</span></div><div class="line"><a name="l00032"></a><span class="lineno">   32</span>&#160;<span class="preprocessor"></span>     <span class="keyword">module procedure</span> <a class="code" href="namespacemod__oasis__getput__interface.html#a70e218d2524977cbd4e6c010b6a222cc">oasis_put_r18</a></div><div class="line"><a name="l00033"></a><span class="lineno">   33</span>&#160;     <span class="keyword">module procedure</span> <a class="code" href="namespacemod__oasis__getput__interface.html#a73cdc18cf8e76acb003451e737fab7fe">oasis_put_r28</a></div><div class="line"><a name="l00034"></a><span class="lineno">   34</span>&#160;     <span class="keyword">module procedure</span> <a class="code" href="namespacemod__oasis__getput__interface.html#a6e458b3434ebc22a8c0a6de7d2b6328f">oasis_put_r38</a></div><div class="line"><a name="l00035"></a><span class="lineno">   35</span>&#160;<span class="keyword">  end interface</span></div><div class="line"><a name="l00036"></a><span class="lineno">   36</span>&#160;<span class="comment"></span></div><div class="line"><a name="l00037"></a><span class="lineno">   37</span>&#160;<span class="comment">!&gt; Generic overloaded interface for data get (receive)</span></div><div class="line"><a name="l00038"></a><span class="lineno"><a class="line" href="interfacemod__oasis__getput__interface_1_1oasis__get.html">   38</a></span>&#160;  <span class="keyword">interface</span> <a class="code" href="interfacemod__oasis__getput__interface_1_1oasis__get.html">oasis_get</a></div><div class="line"><a name="l00039"></a><span class="lineno">   39</span>&#160;<span class="preprocessor">#ifndef __NO_4BYTE_REALS</span></div><div class="line"><a name="l00040"></a><span class="lineno">   40</span>&#160;<span class="preprocessor"></span>     <span class="keyword">module procedure</span> <a class="code" href="namespacemod__oasis__getput__interface.html#a49f5cde883b1f5210e58c709e944df7c">oasis_get_r14</a></div><div class="line"><a name="l00041"></a><span class="lineno">   41</span>&#160;     <span class="keyword">module procedure</span> <a class="code" href="namespacemod__oasis__getput__interface.html#ac28a61cf8ca51e358897bfffb43003b8">oasis_get_r24</a></div><div class="line"><a name="l00042"></a><span class="lineno">   42</span>&#160;     <span class="keyword">module procedure</span> <a class="code" href="namespacemod__oasis__getput__interface.html#a34b0221d424ce7f1597548f91407033f">oasis_get_r34</a></div><div class="line"><a name="l00043"></a><span class="lineno">   43</span>&#160;<span class="preprocessor">#endif</span></div><div class="line"><a name="l00044"></a><span class="lineno">   44</span>&#160;<span class="preprocessor"></span>     <span class="keyword">module procedure</span> <a class="code" href="namespacemod__oasis__getput__interface.html#a10fac7c611232bd788e32c0487ee5625">oasis_get_r18</a></div><div class="line"><a name="l00045"></a><span class="lineno">   45</span>&#160;     <span class="keyword">module procedure</span> <a class="code" href="namespacemod__oasis__getput__interface.html#a017bdff12b2f7c29e6e76b303d452d4b">oasis_get_r28</a></div><div class="line"><a name="l00046"></a><span class="lineno">   46</span>&#160;     <span class="keyword">module procedure</span> <a class="code" href="namespacemod__oasis__getput__interface.html#a3113b8b9e8d879a631b856a20b30c699">oasis_get_r38</a></div><div class="line"><a name="l00047"></a><span class="lineno">   47</span>&#160;<span class="keyword">  end interface</span></div><div class="line"><a name="l00048"></a><span class="lineno">   48</span>&#160;</div><div class="line"><a name="l00049"></a><span class="lineno">   49</span>&#160;<span class="comment">!---------------------------------------------------------------------</span></div><div class="line"><a name="l00050"></a><span class="lineno">   50</span>&#160;<span class="keyword">contains</span></div><div class="line"><a name="l00051"></a><span class="lineno">   51</span>&#160;<span class="comment">!---------------------------------------------------------------------</span></div><div class="line"><a name="l00052"></a><span class="lineno">   52</span>&#160;<span class="preprocessor">#ifndef __NO_4BYTE_REALS</span></div><div class="line"><a name="l00053"></a><span class="lineno">   53</span>&#160;<span class="preprocessor"></span><span class="comment"></span></div><div class="line"><a name="l00054"></a><span class="lineno">   54</span>&#160;<span class="comment">!&gt; Send 4 byte real 1D data</span></div><div class="line"><a name="l00055"></a><span class="lineno">   55</span>&#160;</div><div class="line"><a name="l00056"></a><span class="lineno">   56</span>&#160;<span class="keyword">  SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#af2487e50b549830a14e5517c0736f907">oasis_put_r14</a>(var_id,kstep,fld1,kinfo, &amp;</div><div class="line"><a name="l00057"></a><span class="lineno">   57</span>&#160;    fld2, fld3, fld4, fld5, write_restart)</div><div class="line"><a name="l00058"></a><span class="lineno"><a class="line" href="namespacemod__oasis__getput__interface.html#af2487e50b549830a14e5517c0736f907">   58</a></span>&#160;</div><div class="line"><a name="l00059"></a><span class="lineno">   59</span>&#160;    <span class="keywordtype">IMPLICIT none</span></div><div class="line"><a name="l00060"></a><span class="lineno">   60</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00061"></a><span class="lineno">   61</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: var_id<span class="comment">      !&lt; variable id</span></div><div class="line"><a name="l00062"></a><span class="lineno">   62</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: kstep<span class="comment">       !&lt; model time in seconds</span></div><div class="line"><a name="l00063"></a><span class="lineno">   63</span>&#160;    <span class="keywordtype">real(kind=ip_single_p)</span>             :: fld1(:)<span class="comment">     !&lt; field data</span></div><div class="line"><a name="l00064"></a><span class="lineno">   64</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(out)</span>:: kinfo<span class="comment">       !&lt; return code</span></div><div class="line"><a name="l00065"></a><span class="lineno">   65</span>&#160;    <span class="keywordtype">real(kind=ip_single_p)</span>, <span class="keywordtype">optional</span> :: fld2(:)<span class="comment">       !&lt; higher order field data</span></div><div class="line"><a name="l00066"></a><span class="lineno">   66</span>&#160;    <span class="keywordtype">real(kind=ip_single_p)</span>, <span class="keywordtype">optional</span> :: fld3(:)<span class="comment">       !&lt; higher order field data</span></div><div class="line"><a name="l00067"></a><span class="lineno">   67</span>&#160;    <span class="keywordtype">real(kind=ip_single_p)</span>, <span class="keywordtype">optional</span> :: fld4(:)<span class="comment">       !&lt; higher order field data</span></div><div class="line"><a name="l00068"></a><span class="lineno">   68</span>&#160;    <span class="keywordtype">real(kind=ip_single_p)</span>, <span class="keywordtype">optional</span> :: fld5(:)<span class="comment">       !&lt; higher order field data</span></div><div class="line"><a name="l00069"></a><span class="lineno">   69</span>&#160;    <span class="keywordtype">logical</span>               , <span class="keywordtype">optional</span> :: write_restart<span class="comment"> !&lt; write restart now</span></div><div class="line"><a name="l00070"></a><span class="lineno">   70</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00071"></a><span class="lineno">   71</span>&#160;    <span class="keywordtype">logical</span> :: lwrst</div><div class="line"><a name="l00072"></a><span class="lineno">   72</span>&#160;    <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_put_r14)&#39;</span></div><div class="line"><a name="l00073"></a><span class="lineno">   73</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00074"></a><span class="lineno">   74</span>&#160;</div><div class="line"><a name="l00075"></a><span class="lineno">   75</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="l00076"></a><span class="lineno">   76</span>&#160;    kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l00077"></a><span class="lineno">   77</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="l00078"></a><span class="lineno">   78</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="l00079"></a><span class="lineno">   79</span>&#160;       <span class="keywordflow">return</span></div><div class="line"><a name="l00080"></a><span class="lineno">   80</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00081"></a><span class="lineno">   81</span>&#160;</div><div class="line"><a name="l00082"></a><span class="lineno">   82</span>&#160;    <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num &gt; 1) <span class="keywordflow">then</span></div><div class="line"><a name="l00083"></a><span class="lineno">   83</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;called for variable &#39;</span>,trim(<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%name)</div><div class="line"><a name="l00084"></a><span class="lineno">   84</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;expecting bundled field with num = &#39;</span>,<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num</div><div class="line"><a name="l00085"></a><span class="lineno">   85</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="l00086"></a><span class="lineno">   86</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00087"></a><span class="lineno">   87</span>&#160;</div><div class="line"><a name="l00088"></a><span class="lineno">   88</span>&#160;    <span class="keywordflow">if</span> (<span class="keyword">present</span>(write_restart)) <span class="keywordflow">then</span></div><div class="line"><a name="l00089"></a><span class="lineno">   89</span>&#160;       lwrst = write_restart</div><div class="line"><a name="l00090"></a><span class="lineno">   90</span>&#160;    <span class="keywordflow">else</span></div><div class="line"><a name="l00091"></a><span class="lineno">   91</span>&#160;       lwrst = .false.</div><div class="line"><a name="l00092"></a><span class="lineno">   92</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00093"></a><span class="lineno">   93</span>&#160;</div><div class="line"><a name="l00094"></a><span class="lineno">   94</span>&#160;    <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld5) .and. <span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00095"></a><span class="lineno">   95</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,dble(fld1),kinfo,dble(fld2), &amp;</div><div class="line"><a name="l00096"></a><span class="lineno">   96</span>&#160;            dble(fld3),dble(fld4),dble(fld5),write_restart=lwrst)</div><div class="line"><a name="l00097"></a><span class="lineno">   97</span>&#160;    <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. <span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00098"></a><span class="lineno">   98</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,dble(fld1),kinfo,dble(fld2), &amp;</div><div class="line"><a name="l00099"></a><span class="lineno">   99</span>&#160;            dble(fld3),dble(fld4),write_restart=lwrst)</div><div class="line"><a name="l00100"></a><span class="lineno">  100</span>&#160;    <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00101"></a><span class="lineno">  101</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,dble(fld1),kinfo,dble(fld2), &amp;</div><div class="line"><a name="l00102"></a><span class="lineno">  102</span>&#160;            dble(fld3),write_restart=lwrst)</div><div class="line"><a name="l00103"></a><span class="lineno">  103</span>&#160;    <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. .not.<span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00104"></a><span class="lineno">  104</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,dble(fld1),kinfo,dble(fld2), &amp;</div><div class="line"><a name="l00105"></a><span class="lineno">  105</span>&#160;            write_restart=lwrst)</div><div class="line"><a name="l00106"></a><span class="lineno">  106</span>&#160;    <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. .not.<span class="keyword">present</span>(fld3) .and. .not.<span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00107"></a><span class="lineno">  107</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,dble(fld1),kinfo,write_restart=lwrst)</div><div class="line"><a name="l00108"></a><span class="lineno">  108</span>&#160;    <span class="keywordflow">else</span></div><div class="line"><a name="l00109"></a><span class="lineno">  109</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; Wrong field array argument list in oasis_put&#39;</span></div><div class="line"><a name="l00110"></a><span class="lineno">  110</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="l00111"></a><span class="lineno">  111</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00112"></a><span class="lineno">  112</span>&#160;</div><div class="line"><a name="l00113"></a><span class="lineno">  113</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="l00114"></a><span class="lineno">  114</span>&#160;</div><div class="line"><a name="l00115"></a><span class="lineno">  115</span>&#160;<span class="keyword">  END SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#af2487e50b549830a14e5517c0736f907">oasis_put_r14</a></div><div class="line"><a name="l00116"></a><span class="lineno">  116</span>&#160;<span class="preprocessor">#endif</span></div><div class="line"><a name="l00117"></a><span class="lineno">  117</span>&#160;<span class="preprocessor"></span></div><div class="line"><a name="l00118"></a><span class="lineno">  118</span>&#160;<span class="comment">!-------------------------------------------------------------------</span></div><div class="line"><a name="l00119"></a><span class="lineno">  119</span>&#160;<span class="comment"></span></div><div class="line"><a name="l00120"></a><span class="lineno">  120</span>&#160;<span class="comment">!&gt; Send 4 byte real 1D data</span></div><div class="line"><a name="l00121"></a><span class="lineno">  121</span>&#160;</div><div class="line"><a name="l00122"></a><span class="lineno">  122</span>&#160;<span class="keyword">  SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a70e218d2524977cbd4e6c010b6a222cc">oasis_put_r18</a>(var_id,kstep,fld1,kinfo, &amp;</div><div class="line"><a name="l00123"></a><span class="lineno">  123</span>&#160;    fld2, fld3, fld4, fld5, write_restart)</div><div class="line"><a name="l00124"></a><span class="lineno"><a class="line" href="namespacemod__oasis__getput__interface.html#a70e218d2524977cbd4e6c010b6a222cc">  124</a></span>&#160;</div><div class="line"><a name="l00125"></a><span class="lineno">  125</span>&#160;    <span class="keywordtype">IMPLICIT none</span></div><div class="line"><a name="l00126"></a><span class="lineno">  126</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00127"></a><span class="lineno">  127</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: var_id<span class="comment">      !&lt; variable id</span></div><div class="line"><a name="l00128"></a><span class="lineno">  128</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: kstep<span class="comment">       !&lt; model time in seconds</span></div><div class="line"><a name="l00129"></a><span class="lineno">  129</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>             :: fld1(:)<span class="comment">     !&lt; field data</span></div><div class="line"><a name="l00130"></a><span class="lineno">  130</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(out)</span>:: kinfo<span class="comment">       !&lt; return code</span></div><div class="line"><a name="l00131"></a><span class="lineno">  131</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>, <span class="keywordtype">optional</span> :: fld2(:)<span class="comment">       !&lt; higher order field data</span></div><div class="line"><a name="l00132"></a><span class="lineno">  132</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>, <span class="keywordtype">optional</span> :: fld3(:)<span class="comment">       !&lt; higher order field data</span></div><div class="line"><a name="l00133"></a><span class="lineno">  133</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>, <span class="keywordtype">optional</span> :: fld4(:)<span class="comment">       !&lt; higher order field data</span></div><div class="line"><a name="l00134"></a><span class="lineno">  134</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>, <span class="keywordtype">optional</span> :: fld5(:)<span class="comment">       !&lt; higher order field data</span></div><div class="line"><a name="l00135"></a><span class="lineno">  135</span>&#160;    <span class="keywordtype">logical</span>               , <span class="keywordtype">optional</span> :: write_restart<span class="comment"> !&lt; write restart now</span></div><div class="line"><a name="l00136"></a><span class="lineno">  136</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00137"></a><span class="lineno">  137</span>&#160;    <span class="keywordtype">logical</span> :: lwrst</div><div class="line"><a name="l00138"></a><span class="lineno">  138</span>&#160;    <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_put_r18)&#39;</span></div><div class="line"><a name="l00139"></a><span class="lineno">  139</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00140"></a><span class="lineno">  140</span>&#160;</div><div class="line"><a name="l00141"></a><span class="lineno">  141</span>&#160;    <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#ab963e928a34a1521ec2c1921cc956cc5">oasis_debug_enter</a>(subname)</div><div class="line"><a name="l00142"></a><span class="lineno">  142</span>&#160;    kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l00143"></a><span class="lineno">  143</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="l00144"></a><span class="lineno">  144</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="l00145"></a><span class="lineno">  145</span>&#160;       <span class="keywordflow">return</span></div><div class="line"><a name="l00146"></a><span class="lineno">  146</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00147"></a><span class="lineno">  147</span>&#160;</div><div class="line"><a name="l00148"></a><span class="lineno">  148</span>&#160;    <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num &gt; 1) <span class="keywordflow">then</span></div><div class="line"><a name="l00149"></a><span class="lineno">  149</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;called for variable &#39;</span>,trim(<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%name)</div><div class="line"><a name="l00150"></a><span class="lineno">  150</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;expecting bundled field with num = &#39;</span>,<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num</div><div class="line"><a name="l00151"></a><span class="lineno">  151</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="l00152"></a><span class="lineno">  152</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00153"></a><span class="lineno">  153</span>&#160;</div><div class="line"><a name="l00154"></a><span class="lineno">  154</span>&#160;    <span class="keywordflow">if</span> (<span class="keyword">present</span>(write_restart)) <span class="keywordflow">then</span></div><div class="line"><a name="l00155"></a><span class="lineno">  155</span>&#160;       lwrst = write_restart</div><div class="line"><a name="l00156"></a><span class="lineno">  156</span>&#160;    <span class="keywordflow">else</span></div><div class="line"><a name="l00157"></a><span class="lineno">  157</span>&#160;       lwrst = .false.</div><div class="line"><a name="l00158"></a><span class="lineno">  158</span>&#160;<span class="keywordflow">    endif</span></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="keywordflow">if</span> (<span class="keyword">present</span>(fld5) .and. <span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00161"></a><span class="lineno">  161</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,fld1,kinfo,fld2, &amp;</div><div class="line"><a name="l00162"></a><span class="lineno">  162</span>&#160;            fld3,fld4,fld5,write_restart=lwrst)</div><div class="line"><a name="l00163"></a><span class="lineno">  163</span>&#160;    <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. <span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00164"></a><span class="lineno">  164</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,fld1,kinfo,fld2, &amp;</div><div class="line"><a name="l00165"></a><span class="lineno">  165</span>&#160;            fld3,fld4,write_restart=lwrst)</div><div class="line"><a name="l00166"></a><span class="lineno">  166</span>&#160;    <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00167"></a><span class="lineno">  167</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,fld1,kinfo,fld2, &amp;</div><div class="line"><a name="l00168"></a><span class="lineno">  168</span>&#160;            fld3,write_restart=lwrst)</div><div class="line"><a name="l00169"></a><span class="lineno">  169</span>&#160;    <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. .not.<span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00170"></a><span class="lineno">  170</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,fld1,kinfo,fld2, &amp;</div><div class="line"><a name="l00171"></a><span class="lineno">  171</span>&#160;            write_restart=lwrst)</div><div class="line"><a name="l00172"></a><span class="lineno">  172</span>&#160;    <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. .not.<span class="keyword">present</span>(fld3) .and. .not.<span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00173"></a><span class="lineno">  173</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,fld1,kinfo,write_restart=lwrst)</div><div class="line"><a name="l00174"></a><span class="lineno">  174</span>&#160;    <span class="keywordflow">else</span></div><div class="line"><a name="l00175"></a><span class="lineno">  175</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; Wrong field array argument list in oasis_put&#39;</span></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#af1943a0ce0c5765ba8a714379065464f">oasis_abort</a>(file=__file__,line=__line__)</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;</div><div class="line"><a name="l00179"></a><span class="lineno">  179</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="l00180"></a><span class="lineno">  180</span>&#160;</div><div class="line"><a name="l00181"></a><span class="lineno">  181</span>&#160;<span class="keyword">  END SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a70e218d2524977cbd4e6c010b6a222cc">oasis_put_r18</a></div><div class="line"><a name="l00182"></a><span class="lineno">  182</span>&#160;</div><div class="line"><a name="l00183"></a><span class="lineno">  183</span>&#160;<span class="comment">!---------------------------------------------------------------------</span></div><div class="line"><a name="l00184"></a><span class="lineno">  184</span>&#160;<span class="preprocessor">#ifndef __NO_4BYTE_REALS</span></div><div class="line"><a name="l00185"></a><span class="lineno">  185</span>&#160;<span class="preprocessor"></span><span class="comment"></span></div><div class="line"><a name="l00186"></a><span class="lineno">  186</span>&#160;<span class="comment">!&gt; Send 4 byte real 2D data</span></div><div class="line"><a name="l00187"></a><span class="lineno">  187</span>&#160;</div><div class="line"><a name="l00188"></a><span class="lineno">  188</span>&#160;<span class="keyword">  SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a6b5add4ec9bd054279451a5bb52f7d32">oasis_put_r24</a>(var_id,kstep,fld1,kinfo, &amp;</div><div class="line"><a name="l00189"></a><span class="lineno">  189</span>&#160;    fld2, fld3, fld4, fld5, write_restart)</div><div class="line"><a name="l00190"></a><span class="lineno"><a class="line" href="namespacemod__oasis__getput__interface.html#a6b5add4ec9bd054279451a5bb52f7d32">  190</a></span>&#160;</div><div class="line"><a name="l00191"></a><span class="lineno">  191</span>&#160;    <span class="keywordtype">IMPLICIT none</span></div><div class="line"><a name="l00192"></a><span class="lineno">  192</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00193"></a><span class="lineno">  193</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: var_id<span class="comment">      !&lt; variable id</span></div><div class="line"><a name="l00194"></a><span class="lineno">  194</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: kstep<span class="comment">       !&lt; model time in seconds</span></div><div class="line"><a name="l00195"></a><span class="lineno">  195</span>&#160;    <span class="keywordtype">real(kind=ip_single_p)</span> :: fld1(:,:)<span class="comment">               !&lt; field data</span></div><div class="line"><a name="l00196"></a><span class="lineno">  196</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(out)</span>:: kinfo<span class="comment">       !&lt; return code</span></div><div class="line"><a name="l00197"></a><span class="lineno">  197</span>&#160;    <span class="keywordtype">real(kind=ip_single_p)</span>, <span class="keywordtype">optional</span> :: fld2(:,:)<span class="comment">     !&lt; higher order field data</span></div><div class="line"><a name="l00198"></a><span class="lineno">  198</span>&#160;    <span class="keywordtype">real(kind=ip_single_p)</span>, <span class="keywordtype">optional</span> :: fld3(:,:)<span class="comment">     !&lt; higher order field data</span></div><div class="line"><a name="l00199"></a><span class="lineno">  199</span>&#160;    <span class="keywordtype">real(kind=ip_single_p)</span>, <span class="keywordtype">optional</span> :: fld4(:,:)<span class="comment">     !&lt; higher order field data</span></div><div class="line"><a name="l00200"></a><span class="lineno">  200</span>&#160;    <span class="keywordtype">real(kind=ip_single_p)</span>, <span class="keywordtype">optional</span> :: fld5(:,:)<span class="comment">     !&lt; higher order field data</span></div><div class="line"><a name="l00201"></a><span class="lineno">  201</span>&#160;    <span class="keywordtype">logical</span>               , <span class="keywordtype">optional</span> :: write_restart<span class="comment"> !&lt; write restart now</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;    <span class="keywordtype">logical</span> :: lwrst</div><div class="line"><a name="l00204"></a><span class="lineno">  204</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> :: n, size_fld1</div><div class="line"><a name="l00205"></a><span class="lineno">  205</span>&#160;    <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_put_r24)&#39;</span></div><div class="line"><a name="l00206"></a><span class="lineno">  206</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00207"></a><span class="lineno">  207</span>&#160;</div><div class="line"><a name="l00208"></a><span class="lineno">  208</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="l00209"></a><span class="lineno">  209</span>&#160;    kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l00210"></a><span class="lineno">  210</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="l00211"></a><span class="lineno">  211</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="l00212"></a><span class="lineno">  212</span>&#160;       <span class="keywordflow">return</span></div><div class="line"><a name="l00213"></a><span class="lineno">  213</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00214"></a><span class="lineno">  214</span>&#160;</div><div class="line"><a name="l00215"></a><span class="lineno">  215</span>&#160;    <span class="keywordflow">if</span> (<span class="keyword">present</span>(write_restart)) <span class="keywordflow">then</span></div><div class="line"><a name="l00216"></a><span class="lineno">  216</span>&#160;       lwrst = write_restart</div><div class="line"><a name="l00217"></a><span class="lineno">  217</span>&#160;    <span class="keywordflow">else</span></div><div class="line"><a name="l00218"></a><span class="lineno">  218</span>&#160;       lwrst = .false.</div><div class="line"><a name="l00219"></a><span class="lineno">  219</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00220"></a><span class="lineno">  220</span>&#160;</div><div class="line"><a name="l00221"></a><span class="lineno">  221</span>&#160;    <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num &gt; 1) <span class="keywordflow">then</span></div><div class="line"><a name="l00222"></a><span class="lineno">  222</span>&#160;    <span class="comment">! treat data as 1d bundled data</span></div><div class="line"><a name="l00223"></a><span class="lineno">  223</span>&#160;</div><div class="line"><a name="l00224"></a><span class="lineno">  224</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld1,dim=2) /= <a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num) <span class="keywordflow">then</span></div><div class="line"><a name="l00225"></a><span class="lineno">  225</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;called for variable &#39;</span>,trim(<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%name)</div><div class="line"><a name="l00226"></a><span class="lineno">  226</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;expecting bundled field with num = &#39;</span>,<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num</div><div class="line"><a name="l00227"></a><span class="lineno">  227</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;passing in field with incorrect 2nd dim size = &#39;</span>,<span class="keyword">size</span>(fld1,dim=2)</div><div class="line"><a name="l00228"></a><span class="lineno">  228</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="l00229"></a><span class="lineno">  229</span>&#160;<span class="keywordflow">       endif</span></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;       size_fld1 = <span class="keyword">size</span>(fld1,dim=2)</div><div class="line"><a name="l00232"></a><span class="lineno">  232</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00233"></a><span class="lineno">  233</span>&#160;          <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld2,dim=2) /= size_fld1) <span class="keywordflow">then</span></div><div class="line"><a name="l00234"></a><span class="lineno">  234</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;fld2 size different than fld1 size &#39;</span>,size_fld1,<span class="keyword">size</span>(fld2,dim=2)</div><div class="line"><a name="l00235"></a><span class="lineno">  235</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="l00236"></a><span class="lineno">  236</span>&#160;<span class="keywordflow">          endif</span></div><div class="line"><a name="l00237"></a><span class="lineno">  237</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00238"></a><span class="lineno">  238</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld3)) <span class="keywordflow">then</span></div><div class="line"><a name="l00239"></a><span class="lineno">  239</span>&#160;          <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld3,dim=2) /= size_fld1) <span class="keywordflow">then</span></div><div class="line"><a name="l00240"></a><span class="lineno">  240</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;fld3 size different than fld1 size &#39;</span>,size_fld1,<span class="keyword">size</span>(fld3,dim=2)</div><div class="line"><a name="l00241"></a><span class="lineno">  241</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="l00242"></a><span class="lineno">  242</span>&#160;<span class="keywordflow">          endif</span></div><div class="line"><a name="l00243"></a><span class="lineno">  243</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00244"></a><span class="lineno">  244</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld4)) <span class="keywordflow">then</span></div><div class="line"><a name="l00245"></a><span class="lineno">  245</span>&#160;          <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld4,dim=2) /= size_fld1) <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#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39;fld4 size different than fld1 size &#39;</span>,size_fld1,<span class="keyword">size</span>(fld4,dim=2)</div><div class="line"><a name="l00247"></a><span class="lineno">  247</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="l00248"></a><span class="lineno">  248</span>&#160;<span class="keywordflow">          endif</span></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;       <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld5)) <span class="keywordflow">then</span></div><div class="line"><a name="l00251"></a><span class="lineno">  251</span>&#160;          <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld5,dim=2) /= size_fld1) <span class="keywordflow">then</span></div><div class="line"><a name="l00252"></a><span class="lineno">  252</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;fld5 size different than fld1 size &#39;</span>,size_fld1,<span class="keyword">size</span>(fld5,dim=2)</div><div class="line"><a name="l00253"></a><span class="lineno">  253</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="l00254"></a><span class="lineno">  254</span>&#160;<span class="keywordflow">          endif</span></div><div class="line"><a name="l00255"></a><span class="lineno">  255</span>&#160;<span class="keywordflow">       endif</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;       <span class="keywordflow">do</span> n = 1,<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num</div><div class="line"><a name="l00258"></a><span class="lineno">  258</span>&#160;          <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld5) .and. <span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00259"></a><span class="lineno">  259</span>&#160;             <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,dble(fld1(:,n)),kinfo,dble(fld2(:,n)), &amp;</div><div class="line"><a name="l00260"></a><span class="lineno">  260</span>&#160;                  dble(fld3(:,n)),dble(fld4(:,n)),dble(fld5(:,n)),write_restart=lwrst,varnum=n)</div><div class="line"><a name="l00261"></a><span class="lineno">  261</span>&#160;          <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. <span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00262"></a><span class="lineno">  262</span>&#160;             <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,dble(fld1(:,n)),kinfo,dble(fld2(:,n)), &amp;</div><div class="line"><a name="l00263"></a><span class="lineno">  263</span>&#160;                  dble(fld3(:,n)),dble(fld4(:,n)),write_restart=lwrst,varnum=n)</div><div class="line"><a name="l00264"></a><span class="lineno">  264</span>&#160;          <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00265"></a><span class="lineno">  265</span>&#160;             <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,dble(fld1(:,n)),kinfo,dble(fld2(:,n)), &amp;</div><div class="line"><a name="l00266"></a><span class="lineno">  266</span>&#160;                  dble(fld3(:,n)),write_restart=lwrst,varnum=n)</div><div class="line"><a name="l00267"></a><span class="lineno">  267</span>&#160;          <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. .not.<span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00268"></a><span class="lineno">  268</span>&#160;             <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,dble(fld1(:,n)),kinfo,dble(fld2(:,n)), &amp;</div><div class="line"><a name="l00269"></a><span class="lineno">  269</span>&#160;                  write_restart=lwrst,varnum=n)</div><div class="line"><a name="l00270"></a><span class="lineno">  270</span>&#160;          <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. .not.<span class="keyword">present</span>(fld3) .and. .not.<span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00271"></a><span class="lineno">  271</span>&#160;             <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,dble(fld1(:,n)),kinfo,write_restart=lwrst,varnum=n)</div><div class="line"><a name="l00272"></a><span class="lineno">  272</span>&#160;          <span class="keywordflow">else</span></div><div class="line"><a name="l00273"></a><span class="lineno">  273</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; Wrong field array argument list in oasis_put&#39;</span></div><div class="line"><a name="l00274"></a><span class="lineno">  274</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="l00275"></a><span class="lineno">  275</span>&#160;<span class="keywordflow">          endif</span></div><div class="line"><a name="l00276"></a><span class="lineno">  276</span>&#160;<span class="keywordflow">       enddo</span></div><div class="line"><a name="l00277"></a><span class="lineno">  277</span>&#160;</div><div class="line"><a name="l00278"></a><span class="lineno">  278</span>&#160;    <span class="keywordflow">else</span></div><div class="line"><a name="l00279"></a><span class="lineno">  279</span>&#160;    <span class="comment">! treat data as 2d unbundled data</span></div><div class="line"><a name="l00280"></a><span class="lineno">  280</span>&#160;</div><div class="line"><a name="l00281"></a><span class="lineno">  281</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld5) .and. <span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00282"></a><span class="lineno">  282</span>&#160;          <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,dble(pack(fld1,mask=.true.)),kinfo,dble(pack(fld2,mask=.true.)), &amp;</div><div class="line"><a name="l00283"></a><span class="lineno">  283</span>&#160;               dble(pack(fld3,mask=.true.)),dble(pack(fld4,mask=.true.)),dble(pack(fld5,mask=.true.)),write_restart=lwrst)</div><div class="line"><a name="l00284"></a><span class="lineno">  284</span>&#160;       <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. <span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00285"></a><span class="lineno">  285</span>&#160;          <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,dble(pack(fld1,mask=.true.)),kinfo,dble(pack(fld2,mask=.true.)), &amp;</div><div class="line"><a name="l00286"></a><span class="lineno">  286</span>&#160;               dble(pack(fld3,mask=.true.)),dble(pack(fld4,mask=.true.)),write_restart=lwrst)</div><div class="line"><a name="l00287"></a><span class="lineno">  287</span>&#160;       <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00288"></a><span class="lineno">  288</span>&#160;          <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,dble(pack(fld1,mask=.true.)),kinfo,dble(pack(fld2,mask=.true.)), &amp;</div><div class="line"><a name="l00289"></a><span class="lineno">  289</span>&#160;               dble(pack(fld3,mask=.true.)),write_restart=lwrst)</div><div class="line"><a name="l00290"></a><span class="lineno">  290</span>&#160;       <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. .not.<span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00291"></a><span class="lineno">  291</span>&#160;          <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,dble(pack(fld1,mask=.true.)),kinfo,dble(pack(fld2,mask=.true.)), &amp;</div><div class="line"><a name="l00292"></a><span class="lineno">  292</span>&#160;               write_restart=lwrst)</div><div class="line"><a name="l00293"></a><span class="lineno">  293</span>&#160;       <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. .not.<span class="keyword">present</span>(fld3) .and. .not.<span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00294"></a><span class="lineno">  294</span>&#160;          <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,dble(pack(fld1,mask=.true.)),kinfo,write_restart=lwrst)</div><div class="line"><a name="l00295"></a><span class="lineno">  295</span>&#160;       <span class="keywordflow">else</span></div><div class="line"><a name="l00296"></a><span class="lineno">  296</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; Wrong field array argument list in oasis_put&#39;</span></div><div class="line"><a name="l00297"></a><span class="lineno">  297</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="l00298"></a><span class="lineno">  298</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00299"></a><span class="lineno">  299</span>&#160;</div><div class="line"><a name="l00300"></a><span class="lineno">  300</span>&#160;<span class="keywordflow">    endif</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="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#a349f71cba2df935179d78f3858992c83">oasis_debug_exit</a>(subname)</div><div class="line"><a name="l00303"></a><span class="lineno">  303</span>&#160;</div><div class="line"><a name="l00304"></a><span class="lineno">  304</span>&#160;<span class="keyword">  END SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a6b5add4ec9bd054279451a5bb52f7d32">oasis_put_r24</a></div><div class="line"><a name="l00305"></a><span class="lineno">  305</span>&#160;<span class="preprocessor">#endif</span></div><div class="line"><a name="l00306"></a><span class="lineno">  306</span>&#160;<span class="preprocessor"></span></div><div class="line"><a name="l00307"></a><span class="lineno">  307</span>&#160;<span class="comment">!---------------------------------------------------------------------</span></div><div class="line"><a name="l00308"></a><span class="lineno">  308</span>&#160;<span class="preprocessor">#ifndef __NO_4BYTE_REALS</span></div><div class="line"><a name="l00309"></a><span class="lineno">  309</span>&#160;<span class="preprocessor"></span><span class="comment"></span></div><div class="line"><a name="l00310"></a><span class="lineno">  310</span>&#160;<span class="comment">!&gt; Send 4 byte real 2D bundled data</span></div><div class="line"><a name="l00311"></a><span class="lineno">  311</span>&#160;</div><div class="line"><a name="l00312"></a><span class="lineno">  312</span>&#160;<span class="keyword">  SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#acc31c8501b46f19ac866726af9baf017">oasis_put_r34</a>(var_id,kstep,fld1,kinfo, &amp;</div><div class="line"><a name="l00313"></a><span class="lineno">  313</span>&#160;    fld2, fld3, fld4, fld5, write_restart)</div><div class="line"><a name="l00314"></a><span class="lineno"><a class="line" href="namespacemod__oasis__getput__interface.html#acc31c8501b46f19ac866726af9baf017">  314</a></span>&#160;</div><div class="line"><a name="l00315"></a><span class="lineno">  315</span>&#160;    <span class="keywordtype">IMPLICIT none</span></div><div class="line"><a name="l00316"></a><span class="lineno">  316</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00317"></a><span class="lineno">  317</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: var_id<span class="comment">      !&lt; variable id</span></div><div class="line"><a name="l00318"></a><span class="lineno">  318</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: kstep<span class="comment">       !&lt; model time in seconds</span></div><div class="line"><a name="l00319"></a><span class="lineno">  319</span>&#160;    <span class="keywordtype">real(kind=ip_single_p)</span> :: fld1(:,:,:)<span class="comment">             !&lt; field data</span></div><div class="line"><a name="l00320"></a><span class="lineno">  320</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(out)</span>:: kinfo<span class="comment">       !&lt; return code</span></div><div class="line"><a name="l00321"></a><span class="lineno">  321</span>&#160;    <span class="keywordtype">real(kind=ip_single_p)</span>, <span class="keywordtype">optional</span> :: fld2(:,:,:)<span class="comment">   !&lt; higher order field data</span></div><div class="line"><a name="l00322"></a><span class="lineno">  322</span>&#160;    <span class="keywordtype">real(kind=ip_single_p)</span>, <span class="keywordtype">optional</span> :: fld3(:,:,:)<span class="comment">   !&lt; higher order field data</span></div><div class="line"><a name="l00323"></a><span class="lineno">  323</span>&#160;    <span class="keywordtype">real(kind=ip_single_p)</span>, <span class="keywordtype">optional</span> :: fld4(:,:,:)<span class="comment">   !&lt; higher order field data</span></div><div class="line"><a name="l00324"></a><span class="lineno">  324</span>&#160;    <span class="keywordtype">real(kind=ip_single_p)</span>, <span class="keywordtype">optional</span> :: fld5(:,:,:)<span class="comment">   !&lt; higher order field data</span></div><div class="line"><a name="l00325"></a><span class="lineno">  325</span>&#160;    <span class="keywordtype">logical</span>               , <span class="keywordtype">optional</span> :: write_restart<span class="comment"> !&lt; write restart now</span></div><div class="line"><a name="l00326"></a><span class="lineno">  326</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00327"></a><span class="lineno">  327</span>&#160;    <span class="keywordtype">logical</span> :: lwrst</div><div class="line"><a name="l00328"></a><span class="lineno">  328</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> :: n, size_fld1</div><div class="line"><a name="l00329"></a><span class="lineno">  329</span>&#160;    <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_put_r34)&#39;</span></div><div class="line"><a name="l00330"></a><span class="lineno">  330</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00331"></a><span class="lineno">  331</span>&#160;</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#ab963e928a34a1521ec2c1921cc956cc5">oasis_debug_enter</a>(subname)</div><div class="line"><a name="l00333"></a><span class="lineno">  333</span>&#160;    kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l00334"></a><span class="lineno">  334</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="l00335"></a><span class="lineno">  335</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="l00336"></a><span class="lineno">  336</span>&#160;       <span class="keywordflow">return</span></div><div class="line"><a name="l00337"></a><span class="lineno">  337</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00338"></a><span class="lineno">  338</span>&#160;</div><div class="line"><a name="l00339"></a><span class="lineno">  339</span>&#160;    <span class="keywordflow">if</span> (<span class="keyword">present</span>(write_restart)) <span class="keywordflow">then</span></div><div class="line"><a name="l00340"></a><span class="lineno">  340</span>&#160;       lwrst = write_restart</div><div class="line"><a name="l00341"></a><span class="lineno">  341</span>&#160;    <span class="keywordflow">else</span></div><div class="line"><a name="l00342"></a><span class="lineno">  342</span>&#160;       lwrst = .false.</div><div class="line"><a name="l00343"></a><span class="lineno">  343</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00344"></a><span class="lineno">  344</span>&#160;</div><div class="line"><a name="l00345"></a><span class="lineno">  345</span>&#160;    <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num &gt; 1) <span class="keywordflow">then</span></div><div class="line"><a name="l00346"></a><span class="lineno">  346</span>&#160;    <span class="comment">! treat data as 2d bundled data</span></div><div class="line"><a name="l00347"></a><span class="lineno">  347</span>&#160;</div><div class="line"><a name="l00348"></a><span class="lineno">  348</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld1,dim=3) /= <a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num) <span class="keywordflow">then</span></div><div class="line"><a name="l00349"></a><span class="lineno">  349</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;called for variable &#39;</span>,trim(<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%name)</div><div class="line"><a name="l00350"></a><span class="lineno">  350</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;expecting bundled field with num = &#39;</span>,<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num</div><div class="line"><a name="l00351"></a><span class="lineno">  351</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;passing in field with incorrect 3rd dim size = &#39;</span>,<span class="keyword">size</span>(fld1,dim=3)</div><div class="line"><a name="l00352"></a><span class="lineno">  352</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="l00353"></a><span class="lineno">  353</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00354"></a><span class="lineno">  354</span>&#160;</div><div class="line"><a name="l00355"></a><span class="lineno">  355</span>&#160;       size_fld1 = <span class="keyword">size</span>(fld1,dim=3)</div><div class="line"><a name="l00356"></a><span class="lineno">  356</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00357"></a><span class="lineno">  357</span>&#160;          <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld2,dim=3) /= size_fld1) <span class="keywordflow">then</span></div><div class="line"><a name="l00358"></a><span class="lineno">  358</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;fld2 size different than fld1 size &#39;</span>,size_fld1,<span class="keyword">size</span>(fld2,dim=3)</div><div class="line"><a name="l00359"></a><span class="lineno">  359</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="l00360"></a><span class="lineno">  360</span>&#160;<span class="keywordflow">          endif</span></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;       <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld3)) <span class="keywordflow">then</span></div><div class="line"><a name="l00363"></a><span class="lineno">  363</span>&#160;          <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld3,dim=3) /= size_fld1) <span class="keywordflow">then</span></div><div class="line"><a name="l00364"></a><span class="lineno">  364</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;fld3 size different than fld1 size &#39;</span>,size_fld1,<span class="keyword">size</span>(fld3,dim=3)</div><div class="line"><a name="l00365"></a><span class="lineno">  365</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="l00366"></a><span class="lineno">  366</span>&#160;<span class="keywordflow">          endif</span></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;       <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld4)) <span class="keywordflow">then</span></div><div class="line"><a name="l00369"></a><span class="lineno">  369</span>&#160;          <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld4,dim=3) /= size_fld1) <span class="keywordflow">then</span></div><div class="line"><a name="l00370"></a><span class="lineno">  370</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;fld4 size different than fld1 size &#39;</span>,size_fld1,<span class="keyword">size</span>(fld4,dim=3)</div><div class="line"><a name="l00371"></a><span class="lineno">  371</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="l00372"></a><span class="lineno">  372</span>&#160;<span class="keywordflow">          endif</span></div><div class="line"><a name="l00373"></a><span class="lineno">  373</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00374"></a><span class="lineno">  374</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld5)) <span class="keywordflow">then</span></div><div class="line"><a name="l00375"></a><span class="lineno">  375</span>&#160;          <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld5,dim=3) /= size_fld1) <span class="keywordflow">then</span></div><div class="line"><a name="l00376"></a><span class="lineno">  376</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;fld5 size different than fld1 size &#39;</span>,size_fld1,<span class="keyword">size</span>(fld5,dim=3)</div><div class="line"><a name="l00377"></a><span class="lineno">  377</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="l00378"></a><span class="lineno">  378</span>&#160;<span class="keywordflow">          endif</span></div><div class="line"><a name="l00379"></a><span class="lineno">  379</span>&#160;<span class="keywordflow">       endif</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;       <span class="keywordflow">do</span> n = 1,<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num</div><div class="line"><a name="l00382"></a><span class="lineno">  382</span>&#160;          <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld5) .and. <span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00383"></a><span class="lineno">  383</span>&#160;             <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,dble(pack(fld1(:,:,n),mask=.true.)),kinfo,dble(pack(fld2(:,:,n),mask=.true.)), &amp;</div><div class="line"><a name="l00384"></a><span class="lineno">  384</span>&#160;                  dble(pack(fld3(:,:,n),mask=.true.)),dble(pack(fld4(:,:,n),mask=.true.)),dble(pack(fld5(:,:,n),mask=.true.)), &amp;</div><div class="line"><a name="l00385"></a><span class="lineno">  385</span>&#160;                  write_restart=lwrst,varnum=n)</div><div class="line"><a name="l00386"></a><span class="lineno">  386</span>&#160;          <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. <span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00387"></a><span class="lineno">  387</span>&#160;             <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,dble(pack(fld1(:,:,n),mask=.true.)),kinfo,dble(pack(fld2(:,:,n),mask=.true.)), &amp;</div><div class="line"><a name="l00388"></a><span class="lineno">  388</span>&#160;                  dble(pack(fld3(:,:,n),mask=.true.)),dble(pack(fld4(:,:,n),mask=.true.)),write_restart=lwrst,varnum=n)</div><div class="line"><a name="l00389"></a><span class="lineno">  389</span>&#160;          <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00390"></a><span class="lineno">  390</span>&#160;             <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,dble(pack(fld1(:,:,n),mask=.true.)),kinfo,dble(pack(fld2(:,:,n),mask=.true.)), &amp;</div><div class="line"><a name="l00391"></a><span class="lineno">  391</span>&#160;                  dble(pack(fld3(:,:,n),mask=.true.)),write_restart=lwrst,varnum=n)</div><div class="line"><a name="l00392"></a><span class="lineno">  392</span>&#160;          <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. .not.<span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00393"></a><span class="lineno">  393</span>&#160;             <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,dble(pack(fld1(:,:,n),mask=.true.)),kinfo,dble(pack(fld2(:,:,n),mask=.true.)), &amp;</div><div class="line"><a name="l00394"></a><span class="lineno">  394</span>&#160;                  write_restart=lwrst,varnum=n)</div><div class="line"><a name="l00395"></a><span class="lineno">  395</span>&#160;          <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. .not.<span class="keyword">present</span>(fld3) .and. .not.<span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00396"></a><span class="lineno">  396</span>&#160;             <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,dble(pack(fld1(:,:,n),mask=.true.)),kinfo,write_restart=lwrst,varnum=n)</div><div class="line"><a name="l00397"></a><span class="lineno">  397</span>&#160;          <span class="keywordflow">else</span></div><div class="line"><a name="l00398"></a><span class="lineno">  398</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; Wrong field array argument list in oasis_put&#39;</span></div><div class="line"><a name="l00399"></a><span class="lineno">  399</span>&#160;             <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#af1943a0ce0c5765ba8a714379065464f">oasis_abort</a>(file=__file__,line=__line__)</div><div class="line"><a name="l00400"></a><span class="lineno">  400</span>&#160;<span class="keywordflow">          endif</span></div><div class="line"><a name="l00401"></a><span class="lineno">  401</span>&#160;<span class="keywordflow">       enddo</span></div><div class="line"><a name="l00402"></a><span class="lineno">  402</span>&#160;</div><div class="line"><a name="l00403"></a><span class="lineno">  403</span>&#160;    <span class="keywordflow">else</span></div><div class="line"><a name="l00404"></a><span class="lineno">  404</span>&#160;       <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39; Dimension sizes incorrect&#39;</span></div><div class="line"><a name="l00405"></a><span class="lineno">  405</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="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">    endif</span></div><div class="line"><a name="l00408"></a><span class="lineno">  408</span>&#160;</div><div class="line"><a name="l00409"></a><span class="lineno">  409</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="l00410"></a><span class="lineno">  410</span>&#160;</div><div class="line"><a name="l00411"></a><span class="lineno">  411</span>&#160;<span class="keyword">  END SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#acc31c8501b46f19ac866726af9baf017">oasis_put_r34</a></div><div class="line"><a name="l00412"></a><span class="lineno">  412</span>&#160;<span class="preprocessor">#endif</span></div><div class="line"><a name="l00413"></a><span class="lineno">  413</span>&#160;<span class="preprocessor"></span><span class="comment">!-------------------------------------------------------------------</span></div><div class="line"><a name="l00414"></a><span class="lineno">  414</span>&#160;<span class="comment">!---------------------------------------------------------------------</span></div><div class="line"><a name="l00415"></a><span class="lineno">  415</span>&#160;<span class="comment"></span></div><div class="line"><a name="l00416"></a><span class="lineno">  416</span>&#160;<span class="comment">!&gt; Send 8 byte real 2D data</span></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="keyword">  SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a73cdc18cf8e76acb003451e737fab7fe">oasis_put_r28</a>(var_id,kstep,fld1,kinfo, &amp;</div><div class="line"><a name="l00419"></a><span class="lineno">  419</span>&#160;    fld2, fld3, fld4, fld5, write_restart)</div><div class="line"><a name="l00420"></a><span class="lineno"><a class="line" href="namespacemod__oasis__getput__interface.html#a73cdc18cf8e76acb003451e737fab7fe">  420</a></span>&#160;</div><div class="line"><a name="l00421"></a><span class="lineno">  421</span>&#160;    <span class="keywordtype">IMPLICIT none</span></div><div class="line"><a name="l00422"></a><span class="lineno">  422</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00423"></a><span class="lineno">  423</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: var_id<span class="comment">      !&lt; variable id</span></div><div class="line"><a name="l00424"></a><span class="lineno">  424</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: kstep<span class="comment">       !&lt; model time in seconds</span></div><div class="line"><a name="l00425"></a><span class="lineno">  425</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span> :: fld1(:,:)<span class="comment">               !&lt; field data</span></div><div class="line"><a name="l00426"></a><span class="lineno">  426</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(out)</span>:: kinfo<span class="comment">       !&lt; return code</span></div><div class="line"><a name="l00427"></a><span class="lineno">  427</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>, <span class="keywordtype">optional</span> :: fld2(:,:)<span class="comment">     !&lt; higher order field data</span></div><div class="line"><a name="l00428"></a><span class="lineno">  428</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>, <span class="keywordtype">optional</span> :: fld3(:,:)<span class="comment">     !&lt; higher order field data</span></div><div class="line"><a name="l00429"></a><span class="lineno">  429</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>, <span class="keywordtype">optional</span> :: fld4(:,:)<span class="comment">     !&lt; higher order field data</span></div><div class="line"><a name="l00430"></a><span class="lineno">  430</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>, <span class="keywordtype">optional</span> :: fld5(:,:)<span class="comment">     !&lt; higher order field data</span></div><div class="line"><a name="l00431"></a><span class="lineno">  431</span>&#160;    <span class="keywordtype">logical</span>               , <span class="keywordtype">optional</span> :: write_restart<span class="comment"> !&lt; write restart now</span></div><div class="line"><a name="l00432"></a><span class="lineno">  432</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00433"></a><span class="lineno">  433</span>&#160;    <span class="keywordtype">logical</span> :: lwrst</div><div class="line"><a name="l00434"></a><span class="lineno">  434</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> :: n, size_fld1</div><div class="line"><a name="l00435"></a><span class="lineno">  435</span>&#160;    <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_put_r28)&#39;</span></div><div class="line"><a name="l00436"></a><span class="lineno">  436</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00437"></a><span class="lineno">  437</span>&#160;</div><div class="line"><a name="l00438"></a><span class="lineno">  438</span>&#160;    <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#ab963e928a34a1521ec2c1921cc956cc5">oasis_debug_enter</a>(subname)</div><div class="line"><a name="l00439"></a><span class="lineno">  439</span>&#160;    kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l00440"></a><span class="lineno">  440</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="l00441"></a><span class="lineno">  441</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="l00442"></a><span class="lineno">  442</span>&#160;       <span class="keywordflow">return</span></div><div class="line"><a name="l00443"></a><span class="lineno">  443</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00444"></a><span class="lineno">  444</span>&#160;</div><div class="line"><a name="l00445"></a><span class="lineno">  445</span>&#160;    <span class="keywordflow">if</span> (<span class="keyword">present</span>(write_restart)) <span class="keywordflow">then</span></div><div class="line"><a name="l00446"></a><span class="lineno">  446</span>&#160;       lwrst = write_restart</div><div class="line"><a name="l00447"></a><span class="lineno">  447</span>&#160;    <span class="keywordflow">else</span></div><div class="line"><a name="l00448"></a><span class="lineno">  448</span>&#160;       lwrst = .false.</div><div class="line"><a name="l00449"></a><span class="lineno">  449</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00450"></a><span class="lineno">  450</span>&#160;</div><div class="line"><a name="l00451"></a><span class="lineno">  451</span>&#160;    <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num &gt; 1) <span class="keywordflow">then</span></div><div class="line"><a name="l00452"></a><span class="lineno">  452</span>&#160;    <span class="comment">! treat data as 1d bundled data</span></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> (<span class="keyword">size</span>(fld1,dim=2) /= <a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num) <span class="keywordflow">then</span></div><div class="line"><a name="l00455"></a><span class="lineno">  455</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;called for variable &#39;</span>,trim(<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%name)</div><div class="line"><a name="l00456"></a><span class="lineno">  456</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;expecting bundled field with num = &#39;</span>,<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num</div><div class="line"><a name="l00457"></a><span class="lineno">  457</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;passing in field with incorrect 2nd dim size = &#39;</span>,<span class="keyword">size</span>(fld1,dim=2)</div><div class="line"><a name="l00458"></a><span class="lineno">  458</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="l00459"></a><span class="lineno">  459</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00460"></a><span class="lineno">  460</span>&#160;</div><div class="line"><a name="l00461"></a><span class="lineno">  461</span>&#160;       size_fld1 = <span class="keyword">size</span>(fld1,dim=2)</div><div class="line"><a name="l00462"></a><span class="lineno">  462</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00463"></a><span class="lineno">  463</span>&#160;          <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld2,dim=2) /= size_fld1) <span class="keywordflow">then</span></div><div class="line"><a name="l00464"></a><span class="lineno">  464</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;fld2 size different than fld1 size &#39;</span>,size_fld1,<span class="keyword">size</span>(fld2,dim=2)</div><div class="line"><a name="l00465"></a><span class="lineno">  465</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="l00466"></a><span class="lineno">  466</span>&#160;<span class="keywordflow">          endif</span></div><div class="line"><a name="l00467"></a><span class="lineno">  467</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00468"></a><span class="lineno">  468</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld3)) <span class="keywordflow">then</span></div><div class="line"><a name="l00469"></a><span class="lineno">  469</span>&#160;          <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld3,dim=2) /= size_fld1) <span class="keywordflow">then</span></div><div class="line"><a name="l00470"></a><span class="lineno">  470</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;fld3 size different than fld1 size &#39;</span>,size_fld1,<span class="keyword">size</span>(fld3,dim=2)</div><div class="line"><a name="l00471"></a><span class="lineno">  471</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="l00472"></a><span class="lineno">  472</span>&#160;<span class="keywordflow">          endif</span></div><div class="line"><a name="l00473"></a><span class="lineno">  473</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00474"></a><span class="lineno">  474</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld4)) <span class="keywordflow">then</span></div><div class="line"><a name="l00475"></a><span class="lineno">  475</span>&#160;          <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld4,dim=2) /= size_fld1) <span class="keywordflow">then</span></div><div class="line"><a name="l00476"></a><span class="lineno">  476</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;fld4 size different than fld1 size &#39;</span>,size_fld1,<span class="keyword">size</span>(fld4,dim=2)</div><div class="line"><a name="l00477"></a><span class="lineno">  477</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="l00478"></a><span class="lineno">  478</span>&#160;<span class="keywordflow">          endif</span></div><div class="line"><a name="l00479"></a><span class="lineno">  479</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00480"></a><span class="lineno">  480</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld5)) <span class="keywordflow">then</span></div><div class="line"><a name="l00481"></a><span class="lineno">  481</span>&#160;          <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld5,dim=2) /= size_fld1) <span class="keywordflow">then</span></div><div class="line"><a name="l00482"></a><span class="lineno">  482</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;fld5 size different than fld1 size &#39;</span>,size_fld1,<span class="keyword">size</span>(fld5,dim=2)</div><div class="line"><a name="l00483"></a><span class="lineno">  483</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="l00484"></a><span class="lineno">  484</span>&#160;<span class="keywordflow">          endif</span></div><div class="line"><a name="l00485"></a><span class="lineno">  485</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00486"></a><span class="lineno">  486</span>&#160;</div><div class="line"><a name="l00487"></a><span class="lineno">  487</span>&#160;       <span class="keywordflow">do</span> n = 1,<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num</div><div class="line"><a name="l00488"></a><span class="lineno">  488</span>&#160;          <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld5) .and. <span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00489"></a><span class="lineno">  489</span>&#160;             <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,(fld1(:,n)),kinfo,(fld2(:,n)), &amp;</div><div class="line"><a name="l00490"></a><span class="lineno">  490</span>&#160;                  (fld3(:,n)),(fld4(:,n)),(fld5(:,n)),write_restart=lwrst,varnum=n)</div><div class="line"><a name="l00491"></a><span class="lineno">  491</span>&#160;          <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. <span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00492"></a><span class="lineno">  492</span>&#160;             <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,(fld1(:,n)),kinfo,(fld2(:,n)), &amp;</div><div class="line"><a name="l00493"></a><span class="lineno">  493</span>&#160;                  (fld3(:,n)),(fld4(:,n)),write_restart=lwrst,varnum=n)</div><div class="line"><a name="l00494"></a><span class="lineno">  494</span>&#160;          <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00495"></a><span class="lineno">  495</span>&#160;             <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,(fld1(:,n)),kinfo,(fld2(:,n)), &amp;</div><div class="line"><a name="l00496"></a><span class="lineno">  496</span>&#160;                  (fld3(:,n)),write_restart=lwrst,varnum=n)</div><div class="line"><a name="l00497"></a><span class="lineno">  497</span>&#160;          <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. .not.<span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00498"></a><span class="lineno">  498</span>&#160;             <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,(fld1(:,n)),kinfo,(fld2(:,n)), &amp;</div><div class="line"><a name="l00499"></a><span class="lineno">  499</span>&#160;                  write_restart=lwrst,varnum=n)</div><div class="line"><a name="l00500"></a><span class="lineno">  500</span>&#160;          <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. .not.<span class="keyword">present</span>(fld3) .and. .not.<span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00501"></a><span class="lineno">  501</span>&#160;             <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,(fld1(:,n)),kinfo,write_restart=lwrst,varnum=n)</div><div class="line"><a name="l00502"></a><span class="lineno">  502</span>&#160;          <span class="keywordflow">else</span></div><div class="line"><a name="l00503"></a><span class="lineno">  503</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; Wrong field array argument list in oasis_put&#39;</span></div><div class="line"><a name="l00504"></a><span class="lineno">  504</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="l00505"></a><span class="lineno">  505</span>&#160;<span class="keywordflow">          endif</span></div><div class="line"><a name="l00506"></a><span class="lineno">  506</span>&#160;<span class="keywordflow">       enddo</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;    <span class="keywordflow">else</span></div><div class="line"><a name="l00509"></a><span class="lineno">  509</span>&#160;    <span class="comment">! treat data as 2d unbundled data</span></div><div class="line"><a name="l00510"></a><span class="lineno">  510</span>&#160;</div><div class="line"><a name="l00511"></a><span class="lineno">  511</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld5) .and. <span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00512"></a><span class="lineno">  512</span>&#160;          <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,pack(fld1,mask=.true.),kinfo,pack(fld2,mask=.true.), &amp;</div><div class="line"><a name="l00513"></a><span class="lineno">  513</span>&#160;               pack(fld3,mask=.true.),pack(fld4,mask=.true.),pack(fld5,mask=.true.),write_restart=lwrst)</div><div class="line"><a name="l00514"></a><span class="lineno">  514</span>&#160;       <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. <span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00515"></a><span class="lineno">  515</span>&#160;          <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,pack(fld1,mask=.true.),kinfo,pack(fld2,mask=.true.), &amp;</div><div class="line"><a name="l00516"></a><span class="lineno">  516</span>&#160;               pack(fld3,mask=.true.),pack(fld4,mask=.true.),write_restart=lwrst)</div><div class="line"><a name="l00517"></a><span class="lineno">  517</span>&#160;       <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></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__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,pack(fld1,mask=.true.),kinfo,pack(fld2,mask=.true.), &amp;</div><div class="line"><a name="l00519"></a><span class="lineno">  519</span>&#160;               pack(fld3,mask=.true.),write_restart=lwrst)</div><div class="line"><a name="l00520"></a><span class="lineno">  520</span>&#160;       <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. .not.<span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00521"></a><span class="lineno">  521</span>&#160;          <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,pack(fld1,mask=.true.),kinfo,pack(fld2,mask=.true.), &amp;</div><div class="line"><a name="l00522"></a><span class="lineno">  522</span>&#160;               write_restart=lwrst)</div><div class="line"><a name="l00523"></a><span class="lineno">  523</span>&#160;       <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. .not.<span class="keyword">present</span>(fld3) .and. .not.<span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></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__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,pack(fld1,mask=.true.),kinfo,write_restart=lwrst)</div><div class="line"><a name="l00525"></a><span class="lineno">  525</span>&#160;       <span class="keywordflow">else</span></div><div class="line"><a name="l00526"></a><span class="lineno">  526</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; Wrong field array argument list in oasis_put&#39;</span></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__sys.html#af1943a0ce0c5765ba8a714379065464f">oasis_abort</a>(file=__file__,line=__line__)</div><div class="line"><a name="l00528"></a><span class="lineno">  528</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00529"></a><span class="lineno">  529</span>&#160;</div><div class="line"><a name="l00530"></a><span class="lineno">  530</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00531"></a><span class="lineno">  531</span>&#160;</div><div class="line"><a name="l00532"></a><span class="lineno">  532</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="l00533"></a><span class="lineno">  533</span>&#160;</div><div class="line"><a name="l00534"></a><span class="lineno">  534</span>&#160;<span class="keyword">  END SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a73cdc18cf8e76acb003451e737fab7fe">oasis_put_r28</a></div><div class="line"><a name="l00535"></a><span class="lineno">  535</span>&#160;</div><div class="line"><a name="l00536"></a><span class="lineno">  536</span>&#160;<span class="comment">!-------------------------------------------------------------------</span></div><div class="line"><a name="l00537"></a><span class="lineno">  537</span>&#160;<span class="comment">!---------------------------------------------------------------------</span></div><div class="line"><a name="l00538"></a><span class="lineno">  538</span>&#160;<span class="comment"></span></div><div class="line"><a name="l00539"></a><span class="lineno">  539</span>&#160;<span class="comment">!&gt; Send 8 byte real 2D bundled data</span></div><div class="line"><a name="l00540"></a><span class="lineno">  540</span>&#160;</div><div class="line"><a name="l00541"></a><span class="lineno">  541</span>&#160;<span class="keyword">  SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a6e458b3434ebc22a8c0a6de7d2b6328f">oasis_put_r38</a>(var_id,kstep,fld1,kinfo, &amp;</div><div class="line"><a name="l00542"></a><span class="lineno">  542</span>&#160;    fld2, fld3, fld4, fld5, write_restart)</div><div class="line"><a name="l00543"></a><span class="lineno"><a class="line" href="namespacemod__oasis__getput__interface.html#a6e458b3434ebc22a8c0a6de7d2b6328f">  543</a></span>&#160;</div><div class="line"><a name="l00544"></a><span class="lineno">  544</span>&#160;    <span class="keywordtype">IMPLICIT none</span></div><div class="line"><a name="l00545"></a><span class="lineno">  545</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00546"></a><span class="lineno">  546</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: var_id<span class="comment">      !&lt; variable id</span></div><div class="line"><a name="l00547"></a><span class="lineno">  547</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: kstep<span class="comment">       !&lt; model time in seconds</span></div><div class="line"><a name="l00548"></a><span class="lineno">  548</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span> :: fld1(:,:,:)<span class="comment">             !&lt; field data</span></div><div class="line"><a name="l00549"></a><span class="lineno">  549</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(out)</span>:: kinfo<span class="comment">       !&lt; return code</span></div><div class="line"><a name="l00550"></a><span class="lineno">  550</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>, <span class="keywordtype">optional</span> :: fld2(:,:,:)<span class="comment">   !&lt; higher order field data</span></div><div class="line"><a name="l00551"></a><span class="lineno">  551</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>, <span class="keywordtype">optional</span> :: fld3(:,:,:)<span class="comment">   !&lt; higher order field data</span></div><div class="line"><a name="l00552"></a><span class="lineno">  552</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>, <span class="keywordtype">optional</span> :: fld4(:,:,:)<span class="comment">   !&lt; higher order field data</span></div><div class="line"><a name="l00553"></a><span class="lineno">  553</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>, <span class="keywordtype">optional</span> :: fld5(:,:,:)<span class="comment">   !&lt; higher order field data</span></div><div class="line"><a name="l00554"></a><span class="lineno">  554</span>&#160;    <span class="keywordtype">logical</span>               , <span class="keywordtype">optional</span> :: write_restart<span class="comment"> !&lt; write restart now</span></div><div class="line"><a name="l00555"></a><span class="lineno">  555</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00556"></a><span class="lineno">  556</span>&#160;    <span class="keywordtype">logical</span> :: lwrst</div><div class="line"><a name="l00557"></a><span class="lineno">  557</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> :: n, size_fld1</div><div class="line"><a name="l00558"></a><span class="lineno">  558</span>&#160;    <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_put_r38)&#39;</span></div><div class="line"><a name="l00559"></a><span class="lineno">  559</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00560"></a><span class="lineno">  560</span>&#160;</div><div class="line"><a name="l00561"></a><span class="lineno">  561</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="l00562"></a><span class="lineno">  562</span>&#160;    kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l00563"></a><span class="lineno">  563</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="l00564"></a><span class="lineno">  564</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="l00565"></a><span class="lineno">  565</span>&#160;       <span class="keywordflow">return</span></div><div class="line"><a name="l00566"></a><span class="lineno">  566</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00567"></a><span class="lineno">  567</span>&#160;</div><div class="line"><a name="l00568"></a><span class="lineno">  568</span>&#160;    <span class="keywordflow">if</span> (<span class="keyword">present</span>(write_restart)) <span class="keywordflow">then</span></div><div class="line"><a name="l00569"></a><span class="lineno">  569</span>&#160;       lwrst = write_restart</div><div class="line"><a name="l00570"></a><span class="lineno">  570</span>&#160;    <span class="keywordflow">else</span></div><div class="line"><a name="l00571"></a><span class="lineno">  571</span>&#160;       lwrst = .false.</div><div class="line"><a name="l00572"></a><span class="lineno">  572</span>&#160;<span class="keywordflow">    endif</span></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="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num &gt; 1) <span class="keywordflow">then</span></div><div class="line"><a name="l00575"></a><span class="lineno">  575</span>&#160;    <span class="comment">! treat data as 1d bundled data</span></div><div class="line"><a name="l00576"></a><span class="lineno">  576</span>&#160;</div><div class="line"><a name="l00577"></a><span class="lineno">  577</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld1,dim=3) /= <a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num) <span class="keywordflow">then</span></div><div class="line"><a name="l00578"></a><span class="lineno">  578</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;called for variable &#39;</span>,trim(<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%name)</div><div class="line"><a name="l00579"></a><span class="lineno">  579</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;expecting bundled field with num = &#39;</span>,<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num</div><div class="line"><a name="l00580"></a><span class="lineno">  580</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;passing in field with incorrect 3rd dim size = &#39;</span>,<span class="keyword">size</span>(fld1,dim=3)</div><div class="line"><a name="l00581"></a><span class="lineno">  581</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="l00582"></a><span class="lineno">  582</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00583"></a><span class="lineno">  583</span>&#160;</div><div class="line"><a name="l00584"></a><span class="lineno">  584</span>&#160;       size_fld1 = <span class="keyword">size</span>(fld1,dim=3)</div><div class="line"><a name="l00585"></a><span class="lineno">  585</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00586"></a><span class="lineno">  586</span>&#160;          <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld2,dim=3) /= size_fld1) <span class="keywordflow">then</span></div><div class="line"><a name="l00587"></a><span class="lineno">  587</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;fld2 size different than fld1 size &#39;</span>,size_fld1,<span class="keyword">size</span>(fld2,dim=3)</div><div class="line"><a name="l00588"></a><span class="lineno">  588</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="l00589"></a><span class="lineno">  589</span>&#160;<span class="keywordflow">          endif</span></div><div class="line"><a name="l00590"></a><span class="lineno">  590</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00591"></a><span class="lineno">  591</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld3)) <span class="keywordflow">then</span></div><div class="line"><a name="l00592"></a><span class="lineno">  592</span>&#160;          <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld3,dim=3) /= size_fld1) <span class="keywordflow">then</span></div><div class="line"><a name="l00593"></a><span class="lineno">  593</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;fld3 size different than fld1 size &#39;</span>,size_fld1,<span class="keyword">size</span>(fld3,dim=3)</div><div class="line"><a name="l00594"></a><span class="lineno">  594</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="l00595"></a><span class="lineno">  595</span>&#160;<span class="keywordflow">          endif</span></div><div class="line"><a name="l00596"></a><span class="lineno">  596</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00597"></a><span class="lineno">  597</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld4)) <span class="keywordflow">then</span></div><div class="line"><a name="l00598"></a><span class="lineno">  598</span>&#160;          <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld4,dim=3) /= size_fld1) <span class="keywordflow">then</span></div><div class="line"><a name="l00599"></a><span class="lineno">  599</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;fld4 size different than fld1 size &#39;</span>,size_fld1,<span class="keyword">size</span>(fld4,dim=3)</div><div class="line"><a name="l00600"></a><span class="lineno">  600</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="l00601"></a><span class="lineno">  601</span>&#160;<span class="keywordflow">          endif</span></div><div class="line"><a name="l00602"></a><span class="lineno">  602</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00603"></a><span class="lineno">  603</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld5)) <span class="keywordflow">then</span></div><div class="line"><a name="l00604"></a><span class="lineno">  604</span>&#160;          <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld5,dim=3) /= size_fld1) <span class="keywordflow">then</span></div><div class="line"><a name="l00605"></a><span class="lineno">  605</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;fld5 size different than fld1 size &#39;</span>,size_fld1,<span class="keyword">size</span>(fld5,dim=3)</div><div class="line"><a name="l00606"></a><span class="lineno">  606</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="l00607"></a><span class="lineno">  607</span>&#160;<span class="keywordflow">          endif</span></div><div class="line"><a name="l00608"></a><span class="lineno">  608</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00609"></a><span class="lineno">  609</span>&#160;</div><div class="line"><a name="l00610"></a><span class="lineno">  610</span>&#160;       <span class="keywordflow">do</span> n = 1,<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num</div><div class="line"><a name="l00611"></a><span class="lineno">  611</span>&#160;          <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld5) .and. <span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00612"></a><span class="lineno">  612</span>&#160;             <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,pack(fld1(:,:,n),mask=.true.),kinfo,pack(fld2(:,:,n),mask=.true.), &amp;</div><div class="line"><a name="l00613"></a><span class="lineno">  613</span>&#160;                  pack(fld3(:,:,n),mask=.true.),pack(fld4(:,:,n),mask=.true.),pack(fld5(:,:,n),mask=.true.), &amp;</div><div class="line"><a name="l00614"></a><span class="lineno">  614</span>&#160;                  write_restart=lwrst,varnum=n)</div><div class="line"><a name="l00615"></a><span class="lineno">  615</span>&#160;          <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. <span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00616"></a><span class="lineno">  616</span>&#160;             <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,pack(fld1(:,:,n),mask=.true.),kinfo,pack(fld2(:,:,n),mask=.true.), &amp;</div><div class="line"><a name="l00617"></a><span class="lineno">  617</span>&#160;                  pack(fld3(:,:,n),mask=.true.),pack(fld4(:,:,n),mask=.true.),write_restart=lwrst,varnum=n)</div><div class="line"><a name="l00618"></a><span class="lineno">  618</span>&#160;          <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. <span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00619"></a><span class="lineno">  619</span>&#160;             <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,pack(fld1(:,:,n),mask=.true.),kinfo,pack(fld2(:,:,n),mask=.true.), &amp;</div><div class="line"><a name="l00620"></a><span class="lineno">  620</span>&#160;                  pack(fld3(:,:,n),mask=.true.),write_restart=lwrst,varnum=n)</div><div class="line"><a name="l00621"></a><span class="lineno">  621</span>&#160;          <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. .not.<span class="keyword">present</span>(fld3) .and. <span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00622"></a><span class="lineno">  622</span>&#160;             <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,pack(fld1(:,:,n),mask=.true.),kinfo,pack(fld2(:,:,n),mask=.true.), &amp;</div><div class="line"><a name="l00623"></a><span class="lineno">  623</span>&#160;                  write_restart=lwrst,varnum=n)</div><div class="line"><a name="l00624"></a><span class="lineno">  624</span>&#160;          <span class="keywordflow">elseif</span> (.not.<span class="keyword">present</span>(fld5) .and. .not.<span class="keyword">present</span>(fld4) .and. .not.<span class="keyword">present</span>(fld3) .and. .not.<span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00625"></a><span class="lineno">  625</span>&#160;             <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,pack(fld1(:,:,n),mask=.true.),kinfo,write_restart=lwrst,varnum=n)</div><div class="line"><a name="l00626"></a><span class="lineno">  626</span>&#160;          <span class="keywordflow">else</span></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,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39; Wrong field array argument list in oasis_put&#39;</span></div><div class="line"><a name="l00628"></a><span class="lineno">  628</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="l00629"></a><span class="lineno">  629</span>&#160;<span class="keywordflow">          endif</span></div><div class="line"><a name="l00630"></a><span class="lineno">  630</span>&#160;<span class="keywordflow">       enddo</span></div><div class="line"><a name="l00631"></a><span class="lineno">  631</span>&#160;</div><div class="line"><a name="l00632"></a><span class="lineno">  632</span>&#160;    <span class="keywordflow">else</span></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,<a class="code" href="namespacemod__oasis__sys.html#a0f6e0376585c6f39d653f5ab05e80e8f">estr</a>,<span class="stringliteral">&#39; Dimension sizes incorrect&#39;</span></div><div class="line"><a name="l00634"></a><span class="lineno">  634</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="l00635"></a><span class="lineno">  635</span>&#160;</div><div class="line"><a name="l00636"></a><span class="lineno">  636</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00637"></a><span class="lineno">  637</span>&#160;</div><div class="line"><a name="l00638"></a><span class="lineno">  638</span>&#160;    <span class="keyword">call </span><a class="code" href="namespacemod__oasis__sys.html#a349f71cba2df935179d78f3858992c83">oasis_debug_exit</a>(subname)</div><div class="line"><a name="l00639"></a><span class="lineno">  639</span>&#160;</div><div class="line"><a name="l00640"></a><span class="lineno">  640</span>&#160;<span class="keyword">  END SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a6e458b3434ebc22a8c0a6de7d2b6328f">oasis_put_r38</a></div><div class="line"><a name="l00641"></a><span class="lineno">  641</span>&#160;</div><div class="line"><a name="l00642"></a><span class="lineno">  642</span>&#160;<span class="comment">!-------------------------------------------------------------------</span></div><div class="line"><a name="l00643"></a><span class="lineno">  643</span>&#160;<span class="comment">!---------------------------------------------------------------------</span><span class="comment"></span></div><div class="line"><a name="l00644"></a><span class="lineno">  644</span>&#160;<span class="comment">!&gt; Send worker routine puts 8 byte real 1D data</span></div><div class="line"><a name="l00645"></a><span class="lineno">  645</span>&#160;</div><div class="line"><a name="l00646"></a><span class="lineno">  646</span>&#160;<span class="keyword">  SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a>(var_id,kstep,fld1,kinfo, &amp;</div><div class="line"><a name="l00647"></a><span class="lineno">  647</span>&#160;    fld2, fld3, fld4, fld5, write_restart, varnum)</div><div class="line"><a name="l00648"></a><span class="lineno"><a class="line" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">  648</a></span>&#160;</div><div class="line"><a name="l00649"></a><span class="lineno">  649</span>&#160;    <span class="keywordtype">IMPLICIT none</span></div><div class="line"><a name="l00650"></a><span class="lineno">  650</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00651"></a><span class="lineno">  651</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: var_id<span class="comment">      !&lt; variable id</span></div><div class="line"><a name="l00652"></a><span class="lineno">  652</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: kstep<span class="comment">       !&lt; model time in seconds</span></div><div class="line"><a name="l00653"></a><span class="lineno">  653</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>             :: fld1(:)<span class="comment">     !&lt; field data</span></div><div class="line"><a name="l00654"></a><span class="lineno">  654</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(out)</span>:: kinfo<span class="comment">       !&lt; return code</span></div><div class="line"><a name="l00655"></a><span class="lineno">  655</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>, <span class="keywordtype">optional</span> :: fld2(:)<span class="comment">       !&lt; higher order field data</span></div><div class="line"><a name="l00656"></a><span class="lineno">  656</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>, <span class="keywordtype">optional</span> :: fld3(:)<span class="comment">       !&lt; higher order field data</span></div><div class="line"><a name="l00657"></a><span class="lineno">  657</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>, <span class="keywordtype">optional</span> :: fld4(:)<span class="comment">       !&lt; higher order field data</span></div><div class="line"><a name="l00658"></a><span class="lineno">  658</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>, <span class="keywordtype">optional</span> :: fld5(:)<span class="comment">       !&lt; higher order field data</span></div><div class="line"><a name="l00659"></a><span class="lineno">  659</span>&#160;    <span class="keywordtype">logical</span>               , <span class="keywordtype">optional</span> :: write_restart<span class="comment"> !&lt; write restart now</span></div><div class="line"><a name="l00660"></a><span class="lineno">  660</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">optional</span> :: varnum<span class="comment">        !&lt; varnum in bundled field</span></div><div class="line"><a name="l00661"></a><span class="lineno">  661</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00662"></a><span class="lineno">  662</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> :: nfld,ncpl</div><div class="line"><a name="l00663"></a><span class="lineno">  663</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> :: ns,nsx</div><div class="line"><a name="l00664"></a><span class="lineno">  664</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> :: n</div><div class="line"><a name="l00665"></a><span class="lineno">  665</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> :: lvarnum</div><div class="line"><a name="l00666"></a><span class="lineno">  666</span>&#160;    <span class="keywordtype">logical</span> :: a2on, a3on, a4on, a5on</div><div class="line"><a name="l00667"></a><span class="lineno">  667</span>&#160;    <span class="keywordtype">logical</span> :: lwrst</div><div class="line"><a name="l00668"></a><span class="lineno">  668</span>&#160;    <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_put_worker)&#39;</span></div><div class="line"><a name="l00669"></a><span class="lineno">  669</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00670"></a><span class="lineno">  670</span>&#160;</div><div class="line"><a name="l00671"></a><span class="lineno">  671</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="l00672"></a><span class="lineno">  672</span>&#160;    kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></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> (.not. <a class="code" href="namespacemod__oasis__data.html#a5341a9152ef540667f7fcaa4f04c6399">enddef_called</a>) <span class="keywordflow">then</span></div><div class="line"><a name="l00679"></a><span class="lineno">  679</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;called before oasis_enddef&#39;</span></div><div class="line"><a name="l00680"></a><span class="lineno">  680</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="l00681"></a><span class="lineno">  681</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00682"></a><span class="lineno">  682</span>&#160;</div><div class="line"><a name="l00683"></a><span class="lineno">  683</span>&#160;    <span class="keywordflow">if</span> (var_id == <a class="code" href="namespacemod__oasis__parameters.html#ac906e1466e6cdc300a0b582af6619ca5">oasis_var_uncpl</a>) <span class="keywordflow">then</span></div><div class="line"><a name="l00684"></a><span class="lineno">  684</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;oasis_put is called for a variable not in namcouple&#39;</span></div><div class="line"><a name="l00685"></a><span class="lineno">  685</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="l00686"></a><span class="lineno">  686</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="l00687"></a><span class="lineno">  687</span>&#160;       <span class="keywordflow">return</span></div><div class="line"><a name="l00688"></a><span class="lineno">  688</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00689"></a><span class="lineno">  689</span>&#160;</div><div class="line"><a name="l00690"></a><span class="lineno">  690</span>&#160;    <span class="keywordflow">if</span> (var_id &lt; 1 .or. var_id &gt; <a class="code" href="namespacemod__oasis__var.html#a095f8ad84e6afbcbe1744d4a9f924e08">prism_nvar</a>) <span class="keywordflow">then</span></div><div class="line"><a name="l00691"></a><span class="lineno">  691</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;oasis_put is called for a variable not defined&#39;</span></div><div class="line"><a name="l00692"></a><span class="lineno">  692</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="l00693"></a><span class="lineno">  693</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="l00694"></a><span class="lineno">  694</span>&#160;       <span class="keywordflow">return</span></div><div class="line"><a name="l00695"></a><span class="lineno">  695</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00696"></a><span class="lineno">  696</span>&#160;</div><div class="line"><a name="l00697"></a><span class="lineno">  697</span>&#160;    <span class="keywordflow">if</span> (<span class="keyword">present</span>(write_restart)) <span class="keywordflow">then</span></div><div class="line"><a name="l00698"></a><span class="lineno">  698</span>&#160;       lwrst = write_restart</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;       lwrst = .false.</div><div class="line"><a name="l00701"></a><span class="lineno">  701</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00702"></a><span class="lineno">  702</span>&#160;</div><div class="line"><a name="l00703"></a><span class="lineno">  703</span>&#160;    <span class="keywordflow">if</span> (<span class="keyword">present</span>(varnum)) <span class="keywordflow">then</span></div><div class="line"><a name="l00704"></a><span class="lineno">  704</span>&#160;       lvarnum = varnum</div><div class="line"><a name="l00705"></a><span class="lineno">  705</span>&#160;    <span class="keywordflow">else</span></div><div class="line"><a name="l00706"></a><span class="lineno">  706</span>&#160;       lvarnum = 1</div><div class="line"><a name="l00707"></a><span class="lineno">  707</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00708"></a><span class="lineno">  708</span>&#160;</div><div class="line"><a name="l00709"></a><span class="lineno">  709</span>&#160;    nfld = var_id</div><div class="line"><a name="l00710"></a><span class="lineno">  710</span>&#160;    ncpl  = <a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(nfld)%ncpl</div><div class="line"><a name="l00711"></a><span class="lineno">  711</span>&#160;</div><div class="line"><a name="l00712"></a><span class="lineno">  712</span>&#160;    <span class="keywordflow">if</span> (ncpl &lt;= 0) <span class="keywordflow">then</span></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#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a> &gt;= 15) <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; variable not coupled &#39;</span>,&amp;</div><div class="line"><a name="l00714"></a><span class="lineno">  714</span>&#160;                              trim(<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(nfld)%name)</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#a349f71cba2df935179d78f3858992c83">oasis_debug_exit</a>(subname)</div><div class="line"><a name="l00716"></a><span class="lineno">  716</span>&#160;       <span class="keywordflow">return</span></div><div class="line"><a name="l00717"></a><span class="lineno">  717</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00718"></a><span class="lineno">  718</span>&#160;</div><div class="line"><a name="l00719"></a><span class="lineno">  719</span>&#160;    ns = <span class="keyword">size</span>(fld1,dim=1)</div><div class="line"><a name="l00720"></a><span class="lineno">  720</span>&#160;</div><div class="line"><a name="l00721"></a><span class="lineno">  721</span>&#160;    a2on = .false.</div><div class="line"><a name="l00722"></a><span class="lineno">  722</span>&#160;    a3on = .false.</div><div class="line"><a name="l00723"></a><span class="lineno">  723</span>&#160;    a4on = .false.</div><div class="line"><a name="l00724"></a><span class="lineno">  724</span>&#160;    a5on = .false.</div><div class="line"><a name="l00725"></a><span class="lineno">  725</span>&#160;</div><div class="line"><a name="l00726"></a><span class="lineno">  726</span>&#160;    <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld2)) <span class="keywordflow">then</span></div><div class="line"><a name="l00727"></a><span class="lineno">  727</span>&#160;       a2on = .true.</div><div class="line"><a name="l00728"></a><span class="lineno">  728</span>&#160;       nsx = <span class="keyword">size</span>(fld2,dim=1)</div><div class="line"><a name="l00729"></a><span class="lineno">  729</span>&#160;       <span class="keywordflow">if</span> (nsx /= ns) <span class="keywordflow">then</span></div><div class="line"><a name="l00730"></a><span class="lineno">  730</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;fld2 size does not match fld &#39;</span>, &amp;</div><div class="line"><a name="l00731"></a><span class="lineno">  731</span>&#160;                          trim(<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(nfld)%name)</div><div class="line"><a name="l00732"></a><span class="lineno">  732</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="l00733"></a><span class="lineno">  733</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00734"></a><span class="lineno">  734</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00735"></a><span class="lineno">  735</span>&#160;</div><div class="line"><a name="l00736"></a><span class="lineno">  736</span>&#160;    <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld3)) <span class="keywordflow">then</span></div><div class="line"><a name="l00737"></a><span class="lineno">  737</span>&#160;       a3on = .true.</div><div class="line"><a name="l00738"></a><span class="lineno">  738</span>&#160;       nsx = <span class="keyword">size</span>(fld3,dim=1)</div><div class="line"><a name="l00739"></a><span class="lineno">  739</span>&#160;       <span class="keywordflow">if</span> (nsx /= ns) <span class="keywordflow">then</span></div><div class="line"><a name="l00740"></a><span class="lineno">  740</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;fld3 size does not match fld &#39;</span>, &amp;</div><div class="line"><a name="l00741"></a><span class="lineno">  741</span>&#160;                          trim(<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(nfld)%name)</div><div class="line"><a name="l00742"></a><span class="lineno">  742</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="l00743"></a><span class="lineno">  743</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00744"></a><span class="lineno">  744</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00745"></a><span class="lineno">  745</span>&#160;</div><div class="line"><a name="l00746"></a><span class="lineno">  746</span>&#160;    <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld4)) <span class="keywordflow">then</span></div><div class="line"><a name="l00747"></a><span class="lineno">  747</span>&#160;       a4on = .true.</div><div class="line"><a name="l00748"></a><span class="lineno">  748</span>&#160;       nsx = <span class="keyword">size</span>(fld4,dim=1)</div><div class="line"><a name="l00749"></a><span class="lineno">  749</span>&#160;       <span class="keywordflow">if</span> (nsx /= ns) <span class="keywordflow">then</span></div><div class="line"><a name="l00750"></a><span class="lineno">  750</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;fld4 size does not match fld &#39;</span>, &amp;</div><div class="line"><a name="l00751"></a><span class="lineno">  751</span>&#160;                          trim(<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(nfld)%name)</div><div class="line"><a name="l00752"></a><span class="lineno">  752</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="l00753"></a><span class="lineno">  753</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00754"></a><span class="lineno">  754</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00755"></a><span class="lineno">  755</span>&#160;</div><div class="line"><a name="l00756"></a><span class="lineno">  756</span>&#160;    <span class="keywordflow">if</span> (<span class="keyword">present</span>(fld5)) <span class="keywordflow">then</span></div><div class="line"><a name="l00757"></a><span class="lineno">  757</span>&#160;       a5on = .true.</div><div class="line"><a name="l00758"></a><span class="lineno">  758</span>&#160;       nsx = <span class="keyword">size</span>(fld5,dim=1)</div><div class="line"><a name="l00759"></a><span class="lineno">  759</span>&#160;       <span class="keywordflow">if</span> (nsx /= ns) <span class="keywordflow">then</span></div><div class="line"><a name="l00760"></a><span class="lineno">  760</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;fld5 size does not match fld &#39;</span>, &amp;</div><div class="line"><a name="l00761"></a><span class="lineno">  761</span>&#160;                          trim(<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(nfld)%name)</div><div class="line"><a name="l00762"></a><span class="lineno">  762</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="l00763"></a><span class="lineno">  763</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00764"></a><span class="lineno">  764</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00765"></a><span class="lineno">  765</span>&#160;</div><div class="line"><a name="l00766"></a><span class="lineno">  766</span>&#160;    <span class="keywordflow">IF</span> ((.NOT. a2on) .AND. (.NOT. a3on) .AND. (.NOT. a4on) .AND. (.NOT. a5on)) <span class="keywordflow">THEN</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__advance.html#a932b0cbe5d1f5fa27c283c6472be7baf">oasis_advance_run</a>(<a class="code" href="namespacemod__oasis__parameters.html#a76a150fa8ef6ed0b35183e627d757439">oasis_out</a>,nfld,kstep,kinfo,&amp;</div><div class="line"><a name="l00768"></a><span class="lineno">  768</span>&#160;                               array1din=fld1,readrest=.false.,writrest=lwrst,varnum=lvarnum)</div><div class="line"><a name="l00769"></a><span class="lineno">  769</span>&#160;    <span class="keywordflow">ELSE</span> <span class="keywordflow">IF</span> (a2on .AND. (.NOT. a3on) .AND. (.NOT. a4on) .AND. (.NOT. a5on)) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00770"></a><span class="lineno">  770</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__advance.html#a932b0cbe5d1f5fa27c283c6472be7baf">oasis_advance_run</a>(<a class="code" href="namespacemod__oasis__parameters.html#a76a150fa8ef6ed0b35183e627d757439">oasis_out</a>,nfld,kstep,kinfo,&amp;</div><div class="line"><a name="l00771"></a><span class="lineno">  771</span>&#160;                               array1din=fld1,readrest=.false.,&amp;</div><div class="line"><a name="l00772"></a><span class="lineno">  772</span>&#160;                               a2on=a2on,array2=fld2,writrest=lwrst,varnum=lvarnum)</div><div class="line"><a name="l00773"></a><span class="lineno">  773</span>&#160;    <span class="keywordflow">ELSE</span> <span class="keywordflow">IF</span> (a2on .AND. a3on .AND. (.NOT. a4on) .AND. (.NOT. a5on)) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00774"></a><span class="lineno">  774</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__advance.html#a932b0cbe5d1f5fa27c283c6472be7baf">oasis_advance_run</a>(<a class="code" href="namespacemod__oasis__parameters.html#a76a150fa8ef6ed0b35183e627d757439">oasis_out</a>,nfld,kstep,kinfo,&amp;</div><div class="line"><a name="l00775"></a><span class="lineno">  775</span>&#160;                               array1din= fld1,readrest=.false.,&amp;</div><div class="line"><a name="l00776"></a><span class="lineno">  776</span>&#160;                               a2on=a2on,array2=fld2,&amp;</div><div class="line"><a name="l00777"></a><span class="lineno">  777</span>&#160;                               a3on=a3on,array3=fld3,writrest=lwrst,varnum=lvarnum)</div><div class="line"><a name="l00778"></a><span class="lineno">  778</span>&#160;    <span class="keywordflow">ELSE</span> <span class="keywordflow">IF</span> (a2on .AND. a3on .AND. a4on .AND. (.NOT. a5on)) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00779"></a><span class="lineno">  779</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__advance.html#a932b0cbe5d1f5fa27c283c6472be7baf">oasis_advance_run</a>(<a class="code" href="namespacemod__oasis__parameters.html#a76a150fa8ef6ed0b35183e627d757439">oasis_out</a>,nfld,kstep,kinfo,&amp;</div><div class="line"><a name="l00780"></a><span class="lineno">  780</span>&#160;                               array1din=fld1,readrest=.false.,&amp;</div><div class="line"><a name="l00781"></a><span class="lineno">  781</span>&#160;                               a2on=a2on,array2=fld2,&amp;</div><div class="line"><a name="l00782"></a><span class="lineno">  782</span>&#160;                               a3on=a3on,array3=fld3,&amp;</div><div class="line"><a name="l00783"></a><span class="lineno">  783</span>&#160;                               a4on=a4on,array4=fld4,writrest=lwrst,varnum=lvarnum)</div><div class="line"><a name="l00784"></a><span class="lineno">  784</span>&#160;    <span class="keywordflow">ELSE</span> <span class="keywordflow">IF</span> (a2on .AND. a3on .AND. a4on .AND. a5on) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00785"></a><span class="lineno">  785</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__advance.html#a932b0cbe5d1f5fa27c283c6472be7baf">oasis_advance_run</a>(<a class="code" href="namespacemod__oasis__parameters.html#a76a150fa8ef6ed0b35183e627d757439">oasis_out</a>,nfld,kstep,kinfo,&amp;</div><div class="line"><a name="l00786"></a><span class="lineno">  786</span>&#160;                               array1din=fld1,readrest=.false.,&amp;</div><div class="line"><a name="l00787"></a><span class="lineno">  787</span>&#160;                               a2on=a2on,array2=fld2,&amp;</div><div class="line"><a name="l00788"></a><span class="lineno">  788</span>&#160;                               a3on=a3on,array3=fld3,&amp;</div><div class="line"><a name="l00789"></a><span class="lineno">  789</span>&#160;                               a4on=a4on,array4=fld4,&amp;</div><div class="line"><a name="l00790"></a><span class="lineno">  790</span>&#160;                               a5on=a5on,array5=fld5,writrest=lwrst,varnum=lvarnum)</div><div class="line"><a name="l00791"></a><span class="lineno">  791</span>&#160;    <span class="keywordflow">ELSE</span></div><div class="line"><a name="l00792"></a><span class="lineno">  792</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; Wrong field array argument list in oasis_put&#39;</span></div><div class="line"><a name="l00793"></a><span class="lineno">  793</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="l00794"></a><span class="lineno">  794</span>&#160;<span class="keywordflow">    ENDIF</span></div><div class="line"><a name="l00795"></a><span class="lineno">  795</span>&#160;</div><div class="line"><a name="l00796"></a><span class="lineno">  796</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="l00797"></a><span class="lineno">  797</span>&#160;</div><div class="line"><a name="l00798"></a><span class="lineno">  798</span>&#160;<span class="keyword">  END SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">oasis_put_worker</a></div><div class="line"><a name="l00799"></a><span class="lineno">  799</span>&#160;</div><div class="line"><a name="l00800"></a><span class="lineno">  800</span>&#160;<span class="comment">!-------------------------------------------------------------------</span></div><div class="line"><a name="l00801"></a><span class="lineno">  801</span>&#160;<span class="comment">!---------------------------------------------------------------------</span></div><div class="line"><a name="l00802"></a><span class="lineno">  802</span>&#160;<span class="preprocessor">#ifndef __NO_4BYTE_REALS </span></div><div class="line"><a name="l00803"></a><span class="lineno">  803</span>&#160;<span class="preprocessor"></span><span class="comment"></span></div><div class="line"><a name="l00804"></a><span class="lineno">  804</span>&#160;<span class="comment">!&gt; Receive 4 byte real 1D data</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">  SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a49f5cde883b1f5210e58c709e944df7c">oasis_get_r14</a>(var_id,kstep,fld,kinfo)</div><div class="line"><a name="l00807"></a><span class="lineno"><a class="line" href="namespacemod__oasis__getput__interface.html#a49f5cde883b1f5210e58c709e944df7c">  807</a></span>&#160;</div><div class="line"><a name="l00808"></a><span class="lineno">  808</span>&#160;    <span class="keywordtype">IMPLICIT none</span></div><div class="line"><a name="l00809"></a><span class="lineno">  809</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00810"></a><span class="lineno">  810</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: var_id<span class="comment">     !&lt; variable id</span></div><div class="line"><a name="l00811"></a><span class="lineno">  811</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: kstep<span class="comment">      !&lt; model time in seconds</span></div><div class="line"><a name="l00812"></a><span class="lineno">  812</span>&#160;    <span class="keywordtype">real(kind=ip_single_p)</span>, <span class="keywordtype">intent(inout)</span> :: fld(:)<span class="comment">  !&lt; field data</span></div><div class="line"><a name="l00813"></a><span class="lineno">  813</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(out)</span>:: kinfo<span class="comment">      !&lt; return code</span></div><div class="line"><a name="l00814"></a><span class="lineno">  814</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00815"></a><span class="lineno">  815</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> :: ns</div><div class="line"><a name="l00816"></a><span class="lineno">  816</span>&#160;    <span class="keywordtype">real(kind=ip_r8_p)</span>, <span class="keywordtype">allocatable</span> :: array(:)</div><div class="line"><a name="l00817"></a><span class="lineno">  817</span>&#160;    <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_get_r14)&#39;</span></div><div class="line"><a name="l00818"></a><span class="lineno">  818</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00819"></a><span class="lineno">  819</span>&#160;</div><div class="line"><a name="l00820"></a><span class="lineno">  820</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="l00821"></a><span class="lineno">  821</span>&#160;    kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l00822"></a><span class="lineno">  822</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="l00823"></a><span class="lineno">  823</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="l00824"></a><span class="lineno">  824</span>&#160;       <span class="keywordflow">return</span></div><div class="line"><a name="l00825"></a><span class="lineno">  825</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00826"></a><span class="lineno">  826</span>&#160;</div><div class="line"><a name="l00827"></a><span class="lineno">  827</span>&#160;    <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num &gt; 1) <span class="keywordflow">then</span></div><div class="line"><a name="l00828"></a><span class="lineno">  828</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;called for variable &#39;</span>,trim(<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%name)</div><div class="line"><a name="l00829"></a><span class="lineno">  829</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;expecting bundled field with num = &#39;</span>,<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num</div><div class="line"><a name="l00830"></a><span class="lineno">  830</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="l00831"></a><span class="lineno">  831</span>&#160;<span class="keywordflow">    endif</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;    ns = <span class="keyword">size</span>(fld,dim=1)</div><div class="line"><a name="l00834"></a><span class="lineno">  834</span>&#160;    <span class="keyword">allocate</span>(array(ns))</div><div class="line"><a name="l00835"></a><span class="lineno">  835</span>&#160;</div><div class="line"><a name="l00836"></a><span class="lineno">  836</span>&#160;    <span class="keyword">call </span><a class="code" href="namespacemod__oasis__getput__interface.html#a7817d0a31632e3a6c9137e517e7acc3d">oasis_get_worker</a>(var_id,kstep,array,kinfo)</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> (kinfo /= <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00839"></a><span class="lineno">  839</span>&#160;        fld(:) = <span class="keywordtype">REAL</span>(array(:))</div><div class="line"><a name="l00840"></a><span class="lineno">  840</span>&#160;<span class="keywordflow">    ENDIF</span></div><div class="line"><a name="l00841"></a><span class="lineno">  841</span>&#160;</div><div class="line"><a name="l00842"></a><span class="lineno">  842</span>&#160;    <span class="keyword">deallocate</span>(array)</div><div class="line"><a name="l00843"></a><span class="lineno">  843</span>&#160;</div><div class="line"><a name="l00844"></a><span class="lineno">  844</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="l00845"></a><span class="lineno">  845</span>&#160;</div><div class="line"><a name="l00846"></a><span class="lineno">  846</span>&#160;<span class="keyword">  END SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a49f5cde883b1f5210e58c709e944df7c">oasis_get_r14</a></div><div class="line"><a name="l00847"></a><span class="lineno">  847</span>&#160;<span class="preprocessor">#endif</span></div><div class="line"><a name="l00848"></a><span class="lineno">  848</span>&#160;<span class="preprocessor"></span></div><div class="line"><a name="l00849"></a><span class="lineno">  849</span>&#160;<span class="comment">!---------------------------------------------------------------------</span></div><div class="line"><a name="l00850"></a><span class="lineno">  850</span>&#160;<span class="comment"></span></div><div class="line"><a name="l00851"></a><span class="lineno">  851</span>&#160;<span class="comment">!&gt; Receive 8 byte real 1D data</span></div><div class="line"><a name="l00852"></a><span class="lineno">  852</span>&#160;</div><div class="line"><a name="l00853"></a><span class="lineno">  853</span>&#160;<span class="keyword">  SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a10fac7c611232bd788e32c0487ee5625">oasis_get_r18</a>(var_id,kstep,fld,kinfo)</div><div class="line"><a name="l00854"></a><span class="lineno"><a class="line" href="namespacemod__oasis__getput__interface.html#a10fac7c611232bd788e32c0487ee5625">  854</a></span>&#160;</div><div class="line"><a name="l00855"></a><span class="lineno">  855</span>&#160;    <span class="keywordtype">IMPLICIT none</span></div><div class="line"><a name="l00856"></a><span class="lineno">  856</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00857"></a><span class="lineno">  857</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: var_id<span class="comment">     !&lt; variable id</span></div><div class="line"><a name="l00858"></a><span class="lineno">  858</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: kstep<span class="comment">      !&lt; model time in seconds</span></div><div class="line"><a name="l00859"></a><span class="lineno">  859</span>&#160;    <span class="keywordtype">real(kind=ip_r8_p)</span>    , <span class="keywordtype">intent(inout)</span> :: fld(:)<span class="comment">  !&lt; field data</span></div><div class="line"><a name="l00860"></a><span class="lineno">  860</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(out)</span>:: kinfo<span class="comment">      !&lt; return code</span></div><div class="line"><a name="l00861"></a><span class="lineno">  861</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00862"></a><span class="lineno">  862</span>&#160;    <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_get_r18)&#39;</span></div><div class="line"><a name="l00863"></a><span class="lineno">  863</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00864"></a><span class="lineno">  864</span>&#160;</div><div class="line"><a name="l00865"></a><span class="lineno">  865</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="l00866"></a><span class="lineno">  866</span>&#160;    kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l00867"></a><span class="lineno">  867</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="l00868"></a><span class="lineno">  868</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="l00869"></a><span class="lineno">  869</span>&#160;       <span class="keywordflow">return</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;</div><div class="line"><a name="l00872"></a><span class="lineno">  872</span>&#160;    <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num &gt; 1) <span class="keywordflow">then</span></div><div class="line"><a name="l00873"></a><span class="lineno">  873</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;called for variable &#39;</span>,trim(<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%name)</div><div class="line"><a name="l00874"></a><span class="lineno">  874</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;expecting bundled field with num = &#39;</span>,<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num</div><div class="line"><a name="l00875"></a><span class="lineno">  875</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="l00876"></a><span class="lineno">  876</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00877"></a><span class="lineno">  877</span>&#160;</div><div class="line"><a name="l00878"></a><span class="lineno">  878</span>&#160;    <span class="keyword">call </span><a class="code" href="namespacemod__oasis__getput__interface.html#a7817d0a31632e3a6c9137e517e7acc3d">oasis_get_worker</a>(var_id,kstep,fld,kinfo)</div><div class="line"><a name="l00879"></a><span class="lineno">  879</span>&#160;</div><div class="line"><a name="l00880"></a><span class="lineno">  880</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="l00881"></a><span class="lineno">  881</span>&#160;</div><div class="line"><a name="l00882"></a><span class="lineno">  882</span>&#160;<span class="keyword">  END SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a10fac7c611232bd788e32c0487ee5625">oasis_get_r18</a></div><div class="line"><a name="l00883"></a><span class="lineno">  883</span>&#160;</div><div class="line"><a name="l00884"></a><span class="lineno">  884</span>&#160;<span class="comment">!---------------------------------------------------------------------</span></div><div class="line"><a name="l00885"></a><span class="lineno">  885</span>&#160;<span class="preprocessor">#ifndef __NO_4BYTE_REALS</span></div><div class="line"><a name="l00886"></a><span class="lineno">  886</span>&#160;<span class="preprocessor"></span><span class="comment"></span></div><div class="line"><a name="l00887"></a><span class="lineno">  887</span>&#160;<span class="comment">!&gt; Receive 4 byte real 2D data</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="keyword">  SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#ac28a61cf8ca51e358897bfffb43003b8">oasis_get_r24</a>(var_id,kstep,fld,kinfo)</div><div class="line"><a name="l00890"></a><span class="lineno"><a class="line" href="namespacemod__oasis__getput__interface.html#ac28a61cf8ca51e358897bfffb43003b8">  890</a></span>&#160;</div><div class="line"><a name="l00891"></a><span class="lineno">  891</span>&#160;    <span class="keywordtype">IMPLICIT none</span></div><div class="line"><a name="l00892"></a><span class="lineno">  892</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00893"></a><span class="lineno">  893</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: var_id<span class="comment">      !&lt; variable id</span></div><div class="line"><a name="l00894"></a><span class="lineno">  894</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: kstep<span class="comment">       !&lt; model time in seconds</span></div><div class="line"><a name="l00895"></a><span class="lineno">  895</span>&#160;    <span class="keywordtype">real(kind=ip_single_p)</span>, <span class="keywordtype">intent(inout)</span> :: fld(:,:)<span class="comment"> !&lt; field data</span></div><div class="line"><a name="l00896"></a><span class="lineno">  896</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(out)</span>:: kinfo<span class="comment">       !&lt; return code</span></div><div class="line"><a name="l00897"></a><span class="lineno">  897</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00898"></a><span class="lineno">  898</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> :: ns,nis,njs,n</div><div class="line"><a name="l00899"></a><span class="lineno">  899</span>&#160;    <span class="keywordtype">REAL(kind=ip_r8_p)</span>, <span class="keywordtype">ALLOCATABLE</span> :: array(:)</div><div class="line"><a name="l00900"></a><span class="lineno">  900</span>&#160;    <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_get_r24)&#39;</span></div><div class="line"><a name="l00901"></a><span class="lineno">  901</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00902"></a><span class="lineno">  902</span>&#160;</div><div class="line"><a name="l00903"></a><span class="lineno">  903</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="l00904"></a><span class="lineno">  904</span>&#160;    kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l00905"></a><span class="lineno">  905</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="l00906"></a><span class="lineno">  906</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="l00907"></a><span class="lineno">  907</span>&#160;       <span class="keywordflow">return</span></div><div class="line"><a name="l00908"></a><span class="lineno">  908</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00909"></a><span class="lineno">  909</span>&#160;</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__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num &gt; 1) <span class="keywordflow">then</span></div><div class="line"><a name="l00911"></a><span class="lineno">  911</span>&#160;    <span class="comment">! treat as 1d bundled data</span></div><div class="line"><a name="l00912"></a><span class="lineno">  912</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld,dim=2) /= <a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num) <span class="keywordflow">then</span></div><div class="line"><a name="l00913"></a><span class="lineno">  913</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;called for variable &#39;</span>,trim(<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%name)</div><div class="line"><a name="l00914"></a><span class="lineno">  914</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;expecting bundled field with num = &#39;</span>,<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num</div><div class="line"><a name="l00915"></a><span class="lineno">  915</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;passing in field with incorrect 2nd dim size = &#39;</span>,<span class="keyword">size</span>(fld,dim=2)</div><div class="line"><a name="l00916"></a><span class="lineno">  916</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="l00917"></a><span class="lineno">  917</span>&#160;<span class="keywordflow">       endif</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;       nis = <span class="keyword">size</span>(fld,dim=1)</div><div class="line"><a name="l00920"></a><span class="lineno">  920</span>&#160;       <span class="keyword">ALLOCATE</span>(array(nis))</div><div class="line"><a name="l00921"></a><span class="lineno">  921</span>&#160;</div><div class="line"><a name="l00922"></a><span class="lineno">  922</span>&#160;       <span class="keywordflow">do</span> n = 1,<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num</div><div class="line"><a name="l00923"></a><span class="lineno">  923</span>&#160;          kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></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__getput__interface.html#a7817d0a31632e3a6c9137e517e7acc3d">oasis_get_worker</a>(var_id,kstep,array,kinfo,varnum=n)</div><div class="line"><a name="l00925"></a><span class="lineno">  925</span>&#160;          <span class="keywordflow">IF</span> (kinfo /= <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00926"></a><span class="lineno">  926</span>&#160;             fld(:,n) = <span class="keywordtype">REAL</span>(array(:))</div><div class="line"><a name="l00927"></a><span class="lineno">  927</span>&#160;<span class="keywordflow">          ENDIF</span></div><div class="line"><a name="l00928"></a><span class="lineno">  928</span>&#160;<span class="keywordflow">       enddo</span></div><div class="line"><a name="l00929"></a><span class="lineno">  929</span>&#160;</div><div class="line"><a name="l00930"></a><span class="lineno">  930</span>&#160;       <span class="keyword">deallocate</span>(array)</div><div class="line"><a name="l00931"></a><span class="lineno">  931</span>&#160;</div><div class="line"><a name="l00932"></a><span class="lineno">  932</span>&#160;    <span class="keywordflow">else</span></div><div class="line"><a name="l00933"></a><span class="lineno">  933</span>&#160;    <span class="comment">! treat as 2d unbundled data</span></div><div class="line"><a name="l00934"></a><span class="lineno">  934</span>&#160;</div><div class="line"><a name="l00935"></a><span class="lineno">  935</span>&#160;       nis = <span class="keyword">size</span>(fld,dim=1)</div><div class="line"><a name="l00936"></a><span class="lineno">  936</span>&#160;       njs = <span class="keyword">size</span>(fld,dim=2)</div><div class="line"><a name="l00937"></a><span class="lineno">  937</span>&#160;       ns = nis*njs</div><div class="line"><a name="l00938"></a><span class="lineno">  938</span>&#160;</div><div class="line"><a name="l00939"></a><span class="lineno">  939</span>&#160;       <span class="keyword">ALLOCATE</span>(array(ns))</div><div class="line"><a name="l00940"></a><span class="lineno">  940</span>&#160;</div><div class="line"><a name="l00941"></a><span class="lineno">  941</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a7817d0a31632e3a6c9137e517e7acc3d">oasis_get_worker</a>(var_id,kstep,array,kinfo)</div><div class="line"><a name="l00942"></a><span class="lineno">  942</span>&#160;</div><div class="line"><a name="l00943"></a><span class="lineno">  943</span>&#160;       <span class="keywordflow">IF</span> (kinfo /= <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00944"></a><span class="lineno">  944</span>&#160;          fld(:,:) = <span class="keywordtype">REAL(RESHAPE(array(:)</span>,SHAPE(fld)))</div><div class="line"><a name="l00945"></a><span class="lineno">  945</span>&#160;<span class="keywordflow">       ENDIF</span></div><div class="line"><a name="l00946"></a><span class="lineno">  946</span>&#160;</div><div class="line"><a name="l00947"></a><span class="lineno">  947</span>&#160;       <span class="keyword">deallocate</span>(array)</div><div class="line"><a name="l00948"></a><span class="lineno">  948</span>&#160;</div><div class="line"><a name="l00949"></a><span class="lineno">  949</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00950"></a><span class="lineno">  950</span>&#160;</div><div class="line"><a name="l00951"></a><span class="lineno">  951</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="l00952"></a><span class="lineno">  952</span>&#160;</div><div class="line"><a name="l00953"></a><span class="lineno">  953</span>&#160;<span class="keyword">  END SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#ac28a61cf8ca51e358897bfffb43003b8">oasis_get_r24</a></div><div class="line"><a name="l00954"></a><span class="lineno">  954</span>&#160;<span class="preprocessor">#endif</span></div><div class="line"><a name="l00955"></a><span class="lineno">  955</span>&#160;<span class="preprocessor"></span></div><div class="line"><a name="l00956"></a><span class="lineno">  956</span>&#160;<span class="comment">!---------------------------------------------------------------------</span></div><div class="line"><a name="l00957"></a><span class="lineno">  957</span>&#160;<span class="comment">!---------------------------------------------------------------------</span></div><div class="line"><a name="l00958"></a><span class="lineno">  958</span>&#160;<span class="preprocessor">#ifndef __NO_4BYTE_REALS</span></div><div class="line"><a name="l00959"></a><span class="lineno">  959</span>&#160;<span class="preprocessor"></span><span class="comment"></span></div><div class="line"><a name="l00960"></a><span class="lineno">  960</span>&#160;<span class="comment">!&gt; Receive 4 byte real 2D bundled data</span></div><div class="line"><a name="l00961"></a><span class="lineno">  961</span>&#160;</div><div class="line"><a name="l00962"></a><span class="lineno">  962</span>&#160;<span class="keyword">  SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a34b0221d424ce7f1597548f91407033f">oasis_get_r34</a>(var_id,kstep,fld,kinfo)</div><div class="line"><a name="l00963"></a><span class="lineno"><a class="line" href="namespacemod__oasis__getput__interface.html#a34b0221d424ce7f1597548f91407033f">  963</a></span>&#160;</div><div class="line"><a name="l00964"></a><span class="lineno">  964</span>&#160;    <span class="keywordtype">IMPLICIT none</span></div><div class="line"><a name="l00965"></a><span class="lineno">  965</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00966"></a><span class="lineno">  966</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: var_id<span class="comment">      !&lt; variable id</span></div><div class="line"><a name="l00967"></a><span class="lineno">  967</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: kstep<span class="comment">       !&lt; model time in seconds</span></div><div class="line"><a name="l00968"></a><span class="lineno">  968</span>&#160;    <span class="keywordtype">real(kind=ip_single_p)</span>, <span class="keywordtype">intent(inout)</span> :: fld(:,:,:)<span class="comment"> !&lt; field data</span></div><div class="line"><a name="l00969"></a><span class="lineno">  969</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(out)</span>:: kinfo<span class="comment">       !&lt; return code</span></div><div class="line"><a name="l00970"></a><span class="lineno">  970</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00971"></a><span class="lineno">  971</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> :: ns,nis,njs,n</div><div class="line"><a name="l00972"></a><span class="lineno">  972</span>&#160;    <span class="keywordtype">REAL(kind=ip_r8_p)</span>, <span class="keywordtype">ALLOCATABLE</span> :: array(:)</div><div class="line"><a name="l00973"></a><span class="lineno">  973</span>&#160;    <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_get_r34)&#39;</span></div><div class="line"><a name="l00974"></a><span class="lineno">  974</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l00975"></a><span class="lineno">  975</span>&#160;</div><div class="line"><a name="l00976"></a><span class="lineno">  976</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="l00977"></a><span class="lineno">  977</span>&#160;    kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l00978"></a><span class="lineno">  978</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="l00979"></a><span class="lineno">  979</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="l00980"></a><span class="lineno">  980</span>&#160;       <span class="keywordflow">return</span></div><div class="line"><a name="l00981"></a><span class="lineno">  981</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l00982"></a><span class="lineno">  982</span>&#160;</div><div class="line"><a name="l00983"></a><span class="lineno">  983</span>&#160;    <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num &gt; 1) <span class="keywordflow">then</span></div><div class="line"><a name="l00984"></a><span class="lineno">  984</span>&#160;    <span class="comment">! treat as 2d bundled data</span></div><div class="line"><a name="l00985"></a><span class="lineno">  985</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld,dim=3) /= <a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num) <span class="keywordflow">then</span></div><div class="line"><a name="l00986"></a><span class="lineno">  986</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;called for variable &#39;</span>,trim(<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%name)</div><div class="line"><a name="l00987"></a><span class="lineno">  987</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;expecting bundled field with num = &#39;</span>,<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num</div><div class="line"><a name="l00988"></a><span class="lineno">  988</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;passing in field with incorrect 3rd dim size = &#39;</span>,<span class="keyword">size</span>(fld,dim=3)</div><div class="line"><a name="l00989"></a><span class="lineno">  989</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="l00990"></a><span class="lineno">  990</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l00991"></a><span class="lineno">  991</span>&#160;</div><div class="line"><a name="l00992"></a><span class="lineno">  992</span>&#160;       nis = <span class="keyword">size</span>(fld,dim=1)</div><div class="line"><a name="l00993"></a><span class="lineno">  993</span>&#160;       njs = <span class="keyword">size</span>(fld,dim=2)</div><div class="line"><a name="l00994"></a><span class="lineno">  994</span>&#160;       ns = nis*njs</div><div class="line"><a name="l00995"></a><span class="lineno">  995</span>&#160;</div><div class="line"><a name="l00996"></a><span class="lineno">  996</span>&#160;       <span class="keyword">ALLOCATE</span>(array(ns))</div><div class="line"><a name="l00997"></a><span class="lineno">  997</span>&#160;</div><div class="line"><a name="l00998"></a><span class="lineno">  998</span>&#160;       <span class="keywordflow">do</span> n = 1,<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num</div><div class="line"><a name="l00999"></a><span class="lineno">  999</span>&#160;          kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l01000"></a><span class="lineno"> 1000</span>&#160;          <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a7817d0a31632e3a6c9137e517e7acc3d">oasis_get_worker</a>(var_id,kstep,array,kinfo,varnum=n)</div><div class="line"><a name="l01001"></a><span class="lineno"> 1001</span>&#160;          <span class="keywordflow">IF</span> (kinfo /= <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01002"></a><span class="lineno"> 1002</span>&#160;             fld(:,:,n) = <span class="keywordtype">REAL(RESHAPE(array(:)</span>,SHAPE(fld(:,:,n))))</div><div class="line"><a name="l01003"></a><span class="lineno"> 1003</span>&#160;<span class="keywordflow">          ENDIF</span></div><div class="line"><a name="l01004"></a><span class="lineno"> 1004</span>&#160;<span class="keywordflow">       enddo</span></div><div class="line"><a name="l01005"></a><span class="lineno"> 1005</span>&#160;</div><div class="line"><a name="l01006"></a><span class="lineno"> 1006</span>&#160;       <span class="keyword">deallocate</span>(array)</div><div class="line"><a name="l01007"></a><span class="lineno"> 1007</span>&#160;</div><div class="line"><a name="l01008"></a><span class="lineno"> 1008</span>&#160;    <span class="keywordflow">else</span></div><div class="line"><a name="l01009"></a><span class="lineno"> 1009</span>&#160;</div><div class="line"><a name="l01010"></a><span class="lineno"> 1010</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; Dimension sizes incorrect&#39;</span></div><div class="line"><a name="l01011"></a><span class="lineno"> 1011</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="l01012"></a><span class="lineno"> 1012</span>&#160;</div><div class="line"><a name="l01013"></a><span class="lineno"> 1013</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l01014"></a><span class="lineno"> 1014</span>&#160;</div><div class="line"><a name="l01015"></a><span class="lineno"> 1015</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="l01016"></a><span class="lineno"> 1016</span>&#160;</div><div class="line"><a name="l01017"></a><span class="lineno"> 1017</span>&#160;<span class="keyword">  END SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a34b0221d424ce7f1597548f91407033f">oasis_get_r34</a></div><div class="line"><a name="l01018"></a><span class="lineno"> 1018</span>&#160;<span class="preprocessor">#endif</span></div><div class="line"><a name="l01019"></a><span class="lineno"> 1019</span>&#160;<span class="preprocessor"></span></div><div class="line"><a name="l01020"></a><span class="lineno"> 1020</span>&#160;<span class="comment">!---------------------------------------------------------------------</span></div><div class="line"><a name="l01021"></a><span class="lineno"> 1021</span>&#160;<span class="comment"></span></div><div class="line"><a name="l01022"></a><span class="lineno"> 1022</span>&#160;<span class="comment">!&gt; Receive 8 byte real 2D data</span></div><div class="line"><a name="l01023"></a><span class="lineno"> 1023</span>&#160;</div><div class="line"><a name="l01024"></a><span class="lineno"> 1024</span>&#160;<span class="keyword">  SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a017bdff12b2f7c29e6e76b303d452d4b">oasis_get_r28</a>(var_id,kstep,fld,kinfo)</div><div class="line"><a name="l01025"></a><span class="lineno"><a class="line" href="namespacemod__oasis__getput__interface.html#a017bdff12b2f7c29e6e76b303d452d4b"> 1025</a></span>&#160;</div><div class="line"><a name="l01026"></a><span class="lineno"> 1026</span>&#160;    <span class="keywordtype">IMPLICIT none</span></div><div class="line"><a name="l01027"></a><span class="lineno"> 1027</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l01028"></a><span class="lineno"> 1028</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: var_id<span class="comment">      !&lt; variable id</span></div><div class="line"><a name="l01029"></a><span class="lineno"> 1029</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: kstep<span class="comment">       !&lt; model time in seconds</span></div><div class="line"><a name="l01030"></a><span class="lineno"> 1030</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>, <span class="keywordtype">intent(inout)</span> :: fld(:,:)<span class="comment"> !&lt; field data</span></div><div class="line"><a name="l01031"></a><span class="lineno"> 1031</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(out)</span>:: kinfo<span class="comment">       !&lt; return code</span></div><div class="line"><a name="l01032"></a><span class="lineno"> 1032</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l01033"></a><span class="lineno"> 1033</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> :: ns,nis,njs,n</div><div class="line"><a name="l01034"></a><span class="lineno"> 1034</span>&#160;    <span class="keywordtype">REAL(kind=ip_r8_p)</span>, <span class="keywordtype">ALLOCATABLE</span> :: array(:)</div><div class="line"><a name="l01035"></a><span class="lineno"> 1035</span>&#160;    <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_get_r28)&#39;</span></div><div class="line"><a name="l01036"></a><span class="lineno"> 1036</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l01037"></a><span class="lineno"> 1037</span>&#160;</div><div class="line"><a name="l01038"></a><span class="lineno"> 1038</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="l01039"></a><span class="lineno"> 1039</span>&#160;    kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l01040"></a><span class="lineno"> 1040</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="l01041"></a><span class="lineno"> 1041</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="l01042"></a><span class="lineno"> 1042</span>&#160;       <span class="keywordflow">return</span></div><div class="line"><a name="l01043"></a><span class="lineno"> 1043</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l01044"></a><span class="lineno"> 1044</span>&#160;</div><div class="line"><a name="l01045"></a><span class="lineno"> 1045</span>&#160;    <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num &gt; 1) <span class="keywordflow">then</span></div><div class="line"><a name="l01046"></a><span class="lineno"> 1046</span>&#160;    <span class="comment">! treat as 1d bundled data</span></div><div class="line"><a name="l01047"></a><span class="lineno"> 1047</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld,dim=2) /= <a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num) <span class="keywordflow">then</span></div><div class="line"><a name="l01048"></a><span class="lineno"> 1048</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;called for variable &#39;</span>,trim(<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%name)</div><div class="line"><a name="l01049"></a><span class="lineno"> 1049</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;expecting bundled field with num = &#39;</span>,<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num</div><div class="line"><a name="l01050"></a><span class="lineno"> 1050</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;passing in field with incorrect 2nd dim size = &#39;</span>,<span class="keyword">size</span>(fld,dim=2)</div><div class="line"><a name="l01051"></a><span class="lineno"> 1051</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="l01052"></a><span class="lineno"> 1052</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l01053"></a><span class="lineno"> 1053</span>&#160;</div><div class="line"><a name="l01054"></a><span class="lineno"> 1054</span>&#160;       nis = <span class="keyword">size</span>(fld,dim=1)</div><div class="line"><a name="l01055"></a><span class="lineno"> 1055</span>&#160;       <span class="keyword">ALLOCATE</span>(array(nis))</div><div class="line"><a name="l01056"></a><span class="lineno"> 1056</span>&#160;</div><div class="line"><a name="l01057"></a><span class="lineno"> 1057</span>&#160;       <span class="keywordflow">do</span> n = 1,<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num</div><div class="line"><a name="l01058"></a><span class="lineno"> 1058</span>&#160;          kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l01059"></a><span class="lineno"> 1059</span>&#160;          <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a7817d0a31632e3a6c9137e517e7acc3d">oasis_get_worker</a>(var_id,kstep,array,kinfo,varnum=n)</div><div class="line"><a name="l01060"></a><span class="lineno"> 1060</span>&#160;          <span class="keywordflow">IF</span> (kinfo /= <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01061"></a><span class="lineno"> 1061</span>&#160;             fld(:,n) = array(:)</div><div class="line"><a name="l01062"></a><span class="lineno"> 1062</span>&#160;<span class="keywordflow">          ENDIF</span></div><div class="line"><a name="l01063"></a><span class="lineno"> 1063</span>&#160;<span class="keywordflow">       enddo</span></div><div class="line"><a name="l01064"></a><span class="lineno"> 1064</span>&#160;</div><div class="line"><a name="l01065"></a><span class="lineno"> 1065</span>&#160;       <span class="keyword">deallocate</span>(array)</div><div class="line"><a name="l01066"></a><span class="lineno"> 1066</span>&#160;</div><div class="line"><a name="l01067"></a><span class="lineno"> 1067</span>&#160;    <span class="keywordflow">else</span></div><div class="line"><a name="l01068"></a><span class="lineno"> 1068</span>&#160;    <span class="comment">! treat as 2d unbundled data</span></div><div class="line"><a name="l01069"></a><span class="lineno"> 1069</span>&#160;</div><div class="line"><a name="l01070"></a><span class="lineno"> 1070</span>&#160;       nis = <span class="keyword">size</span>(fld,dim=1)</div><div class="line"><a name="l01071"></a><span class="lineno"> 1071</span>&#160;       njs = <span class="keyword">size</span>(fld,dim=2)</div><div class="line"><a name="l01072"></a><span class="lineno"> 1072</span>&#160;       ns = nis*njs</div><div class="line"><a name="l01073"></a><span class="lineno"> 1073</span>&#160;</div><div class="line"><a name="l01074"></a><span class="lineno"> 1074</span>&#160;       <span class="keyword">ALLOCATE</span>(array(ns))</div><div class="line"><a name="l01075"></a><span class="lineno"> 1075</span>&#160;</div><div class="line"><a name="l01076"></a><span class="lineno"> 1076</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a7817d0a31632e3a6c9137e517e7acc3d">oasis_get_worker</a>(var_id,kstep,array,kinfo)</div><div class="line"><a name="l01077"></a><span class="lineno"> 1077</span>&#160;</div><div class="line"><a name="l01078"></a><span class="lineno"> 1078</span>&#160;       <span class="keywordflow">IF</span> (kinfo /= <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01079"></a><span class="lineno"> 1079</span>&#160;          fld(:,:) = reshape(array(:),shape(fld))</div><div class="line"><a name="l01080"></a><span class="lineno"> 1080</span>&#160;<span class="keywordflow">       ENDIF</span></div><div class="line"><a name="l01081"></a><span class="lineno"> 1081</span>&#160;</div><div class="line"><a name="l01082"></a><span class="lineno"> 1082</span>&#160;       <span class="keyword">deallocate</span>(array)</div><div class="line"><a name="l01083"></a><span class="lineno"> 1083</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l01084"></a><span class="lineno"> 1084</span>&#160;</div><div class="line"><a name="l01085"></a><span class="lineno"> 1085</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="l01086"></a><span class="lineno"> 1086</span>&#160;</div><div class="line"><a name="l01087"></a><span class="lineno"> 1087</span>&#160;<span class="keyword">  END SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a017bdff12b2f7c29e6e76b303d452d4b">oasis_get_r28</a></div><div class="line"><a name="l01088"></a><span class="lineno"> 1088</span>&#160;</div><div class="line"><a name="l01089"></a><span class="lineno"> 1089</span>&#160;<span class="comment">!-------------------------------------------------------------------</span></div><div class="line"><a name="l01090"></a><span class="lineno"> 1090</span>&#160;<span class="comment">!---------------------------------------------------------------------</span></div><div class="line"><a name="l01091"></a><span class="lineno"> 1091</span>&#160;<span class="comment"></span></div><div class="line"><a name="l01092"></a><span class="lineno"> 1092</span>&#160;<span class="comment">!&gt; Receive 8 byte real 2D bundled data</span></div><div class="line"><a name="l01093"></a><span class="lineno"> 1093</span>&#160;</div><div class="line"><a name="l01094"></a><span class="lineno"> 1094</span>&#160;<span class="keyword">  SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a3113b8b9e8d879a631b856a20b30c699">oasis_get_r38</a>(var_id,kstep,fld,kinfo)</div><div class="line"><a name="l01095"></a><span class="lineno"><a class="line" href="namespacemod__oasis__getput__interface.html#a3113b8b9e8d879a631b856a20b30c699"> 1095</a></span>&#160;</div><div class="line"><a name="l01096"></a><span class="lineno"> 1096</span>&#160;    <span class="keywordtype">IMPLICIT none</span></div><div class="line"><a name="l01097"></a><span class="lineno"> 1097</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l01098"></a><span class="lineno"> 1098</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: var_id<span class="comment">      !&lt; variable id</span></div><div class="line"><a name="l01099"></a><span class="lineno"> 1099</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: kstep<span class="comment">       !&lt; model time in seconds</span></div><div class="line"><a name="l01100"></a><span class="lineno"> 1100</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>, <span class="keywordtype">intent(inout)</span> :: fld(:,:,:)<span class="comment"> !&lt; field data</span></div><div class="line"><a name="l01101"></a><span class="lineno"> 1101</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(out)</span>:: kinfo<span class="comment">       !&lt; return code</span></div><div class="line"><a name="l01102"></a><span class="lineno"> 1102</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l01103"></a><span class="lineno"> 1103</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> :: ns,nis,njs,n</div><div class="line"><a name="l01104"></a><span class="lineno"> 1104</span>&#160;    <span class="keywordtype">REAL(kind=ip_r8_p)</span>, <span class="keywordtype">ALLOCATABLE</span> :: array(:)</div><div class="line"><a name="l01105"></a><span class="lineno"> 1105</span>&#160;    <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_get_r38)&#39;</span></div><div class="line"><a name="l01106"></a><span class="lineno"> 1106</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l01107"></a><span class="lineno"> 1107</span>&#160;</div><div class="line"><a name="l01108"></a><span class="lineno"> 1108</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="l01109"></a><span class="lineno"> 1109</span>&#160;    kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l01110"></a><span class="lineno"> 1110</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="l01111"></a><span class="lineno"> 1111</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="l01112"></a><span class="lineno"> 1112</span>&#160;       <span class="keywordflow">return</span></div><div class="line"><a name="l01113"></a><span class="lineno"> 1113</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l01114"></a><span class="lineno"> 1114</span>&#160;</div><div class="line"><a name="l01115"></a><span class="lineno"> 1115</span>&#160;    <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num &gt; 1) <span class="keywordflow">then</span></div><div class="line"><a name="l01116"></a><span class="lineno"> 1116</span>&#160;    <span class="comment">! treat as 2d bundled data</span></div><div class="line"><a name="l01117"></a><span class="lineno"> 1117</span>&#160;       <span class="keywordflow">if</span> (<span class="keyword">size</span>(fld,dim=3) /= <a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num) <span class="keywordflow">then</span></div><div class="line"><a name="l01118"></a><span class="lineno"> 1118</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;called for variable &#39;</span>,trim(<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%name)</div><div class="line"><a name="l01119"></a><span class="lineno"> 1119</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;expecting bundled field with num = &#39;</span>,<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num</div><div class="line"><a name="l01120"></a><span class="lineno"> 1120</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;passing in field with incorrect 3rd dim size = &#39;</span>,<span class="keyword">size</span>(fld,dim=3)</div><div class="line"><a name="l01121"></a><span class="lineno"> 1121</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="l01122"></a><span class="lineno"> 1122</span>&#160;<span class="keywordflow">       endif</span></div><div class="line"><a name="l01123"></a><span class="lineno"> 1123</span>&#160;</div><div class="line"><a name="l01124"></a><span class="lineno"> 1124</span>&#160;       nis = <span class="keyword">size</span>(fld,dim=1)</div><div class="line"><a name="l01125"></a><span class="lineno"> 1125</span>&#160;       njs = <span class="keyword">size</span>(fld,dim=2)</div><div class="line"><a name="l01126"></a><span class="lineno"> 1126</span>&#160;       ns = nis*njs</div><div class="line"><a name="l01127"></a><span class="lineno"> 1127</span>&#160;</div><div class="line"><a name="l01128"></a><span class="lineno"> 1128</span>&#160;       <span class="keyword">ALLOCATE</span>(array(ns))</div><div class="line"><a name="l01129"></a><span class="lineno"> 1129</span>&#160;</div><div class="line"><a name="l01130"></a><span class="lineno"> 1130</span>&#160;       <span class="keywordflow">do</span> n = 1,<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(var_id)%num</div><div class="line"><a name="l01131"></a><span class="lineno"> 1131</span>&#160;          kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l01132"></a><span class="lineno"> 1132</span>&#160;          <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__getput__interface.html#a7817d0a31632e3a6c9137e517e7acc3d">oasis_get_worker</a>(var_id,kstep,array,kinfo,varnum=n)</div><div class="line"><a name="l01133"></a><span class="lineno"> 1133</span>&#160;          <span class="keywordflow">IF</span> (kinfo /= <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01134"></a><span class="lineno"> 1134</span>&#160;             fld(:,:,n) = reshape(array(:),shape(fld(:,:,n)))</div><div class="line"><a name="l01135"></a><span class="lineno"> 1135</span>&#160;<span class="keywordflow">          ENDIF</span></div><div class="line"><a name="l01136"></a><span class="lineno"> 1136</span>&#160;<span class="keywordflow">       enddo</span></div><div class="line"><a name="l01137"></a><span class="lineno"> 1137</span>&#160;</div><div class="line"><a name="l01138"></a><span class="lineno"> 1138</span>&#160;       <span class="keyword">deallocate</span>(array)</div><div class="line"><a name="l01139"></a><span class="lineno"> 1139</span>&#160;</div><div class="line"><a name="l01140"></a><span class="lineno"> 1140</span>&#160;    <span class="keywordflow">else</span></div><div class="line"><a name="l01141"></a><span class="lineno"> 1141</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; Dimension sizes incorrect&#39;</span></div><div class="line"><a name="l01142"></a><span class="lineno"> 1142</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="l01143"></a><span class="lineno"> 1143</span>&#160;</div><div class="line"><a name="l01144"></a><span class="lineno"> 1144</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l01145"></a><span class="lineno"> 1145</span>&#160;</div><div class="line"><a name="l01146"></a><span class="lineno"> 1146</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="l01147"></a><span class="lineno"> 1147</span>&#160;</div><div class="line"><a name="l01148"></a><span class="lineno"> 1148</span>&#160;<span class="keyword">  END SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a3113b8b9e8d879a631b856a20b30c699">oasis_get_r38</a></div><div class="line"><a name="l01149"></a><span class="lineno"> 1149</span>&#160;</div><div class="line"><a name="l01150"></a><span class="lineno"> 1150</span>&#160;<span class="comment">!-------------------------------------------------------------------</span><span class="comment"></span></div><div class="line"><a name="l01151"></a><span class="lineno"> 1151</span>&#160;<span class="comment">!&gt; Receive subroutine that actually does the work on 8 byte 1D data</span></div><div class="line"><a name="l01152"></a><span class="lineno"> 1152</span>&#160;</div><div class="line"><a name="l01153"></a><span class="lineno"> 1153</span>&#160;<span class="keyword">  SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a7817d0a31632e3a6c9137e517e7acc3d">oasis_get_worker</a>(var_id,kstep,fld,kinfo,varnum)</div><div class="line"><a name="l01154"></a><span class="lineno"><a class="line" href="namespacemod__oasis__getput__interface.html#a7817d0a31632e3a6c9137e517e7acc3d"> 1154</a></span>&#160;</div><div class="line"><a name="l01155"></a><span class="lineno"> 1155</span>&#160;    <span class="keywordtype">IMPLICIT none</span></div><div class="line"><a name="l01156"></a><span class="lineno"> 1156</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l01157"></a><span class="lineno"> 1157</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: var_id<span class="comment">     !&lt; variable id</span></div><div class="line"><a name="l01158"></a><span class="lineno"> 1158</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(in)</span> :: kstep<span class="comment">      !&lt; model time in seconds</span></div><div class="line"><a name="l01159"></a><span class="lineno"> 1159</span>&#160;    <span class="keywordtype">real(kind=ip_double_p)</span>, <span class="keywordtype">intent(inout)</span> :: fld(:)<span class="comment">  !&lt; field data</span></div><div class="line"><a name="l01160"></a><span class="lineno"> 1160</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">intent(out)</span>:: kinfo<span class="comment">      !&lt; return code</span></div><div class="line"><a name="l01161"></a><span class="lineno"> 1161</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> , <span class="keywordtype">optional</span>   :: varnum<span class="comment">     !&lt; variable num in bundled field</span></div><div class="line"><a name="l01162"></a><span class="lineno"> 1162</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l01163"></a><span class="lineno"> 1163</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> :: nfld,ncpl</div><div class="line"><a name="l01164"></a><span class="lineno"> 1164</span>&#160;    <span class="keywordtype">integer(kind=ip_i4_p)</span> :: lvarnum</div><div class="line"><a name="l01165"></a><span class="lineno"> 1165</span>&#160;    <span class="keywordtype">character(len=*)</span>,<span class="keywordtype">parameter</span> :: subname = <span class="stringliteral">&#39;(oasis_get_worker)&#39;</span></div><div class="line"><a name="l01166"></a><span class="lineno"> 1166</span>&#160;    <span class="comment">!-------------------------------------</span></div><div class="line"><a name="l01167"></a><span class="lineno"> 1167</span>&#160;</div><div class="line"><a name="l01168"></a><span class="lineno"> 1168</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="l01169"></a><span class="lineno"> 1169</span>&#160;    kinfo = <a class="code" href="namespacemod__oasis__parameters.html#a3ea125963822918ce37fd3cfd9658c9f">oasis_ok</a></div><div class="line"><a name="l01170"></a><span class="lineno"> 1170</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="l01171"></a><span class="lineno"> 1171</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="l01172"></a><span class="lineno"> 1172</span>&#160;       <span class="keywordflow">return</span></div><div class="line"><a name="l01173"></a><span class="lineno"> 1173</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l01174"></a><span class="lineno"> 1174</span>&#160;</div><div class="line"><a name="l01175"></a><span class="lineno"> 1175</span>&#160;    <span class="keywordflow">if</span> (.not. <a class="code" href="namespacemod__oasis__data.html#a5341a9152ef540667f7fcaa4f04c6399">enddef_called</a>) <span class="keywordflow">then</span></div><div class="line"><a name="l01176"></a><span class="lineno"> 1176</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;called before oasis_enddef&#39;</span></div><div class="line"><a name="l01177"></a><span class="lineno"> 1177</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="l01178"></a><span class="lineno"> 1178</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l01179"></a><span class="lineno"> 1179</span>&#160;</div><div class="line"><a name="l01180"></a><span class="lineno"> 1180</span>&#160;    <span class="keywordflow">if</span> (var_id == <a class="code" href="namespacemod__oasis__parameters.html#ac906e1466e6cdc300a0b582af6619ca5">oasis_var_uncpl</a>) <span class="keywordflow">then</span></div><div class="line"><a name="l01181"></a><span class="lineno"> 1181</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;oasis_get is called for a variable not in namcouple&#39;</span></div><div class="line"><a name="l01182"></a><span class="lineno"> 1182</span>&#160;       <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; BE CAREFUL NOT TO USE IT !!!!!&#39;</span></div><div class="line"><a name="l01183"></a><span class="lineno"> 1183</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="l01184"></a><span class="lineno"> 1184</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="l01185"></a><span class="lineno"> 1185</span>&#160;       <span class="keywordflow">return</span></div><div class="line"><a name="l01186"></a><span class="lineno"> 1186</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l01187"></a><span class="lineno"> 1187</span>&#160;</div><div class="line"><a name="l01188"></a><span class="lineno"> 1188</span>&#160;    <span class="keywordflow">if</span> (var_id &lt; 1 .or. var_id &gt; <a class="code" href="namespacemod__oasis__var.html#a095f8ad84e6afbcbe1744d4a9f924e08">prism_nvar</a>) <span class="keywordflow">then</span></div><div class="line"><a name="l01189"></a><span class="lineno"> 1189</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;oasis_get is called for a variable not defined&#39;</span></div><div class="line"><a name="l01190"></a><span class="lineno"> 1190</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="l01191"></a><span class="lineno"> 1191</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="l01192"></a><span class="lineno"> 1192</span>&#160;       <span class="keywordflow">return</span></div><div class="line"><a name="l01193"></a><span class="lineno"> 1193</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l01194"></a><span class="lineno"> 1194</span>&#160;</div><div class="line"><a name="l01195"></a><span class="lineno"> 1195</span>&#160;    <span class="keywordflow">if</span> (<span class="keyword">present</span>(varnum)) <span class="keywordflow">then</span></div><div class="line"><a name="l01196"></a><span class="lineno"> 1196</span>&#160;       lvarnum = varnum</div><div class="line"><a name="l01197"></a><span class="lineno"> 1197</span>&#160;    <span class="keywordflow">else</span></div><div class="line"><a name="l01198"></a><span class="lineno"> 1198</span>&#160;       lvarnum = 1</div><div class="line"><a name="l01199"></a><span class="lineno"> 1199</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l01200"></a><span class="lineno"> 1200</span>&#160;</div><div class="line"><a name="l01201"></a><span class="lineno"> 1201</span>&#160;    nfld = var_id</div><div class="line"><a name="l01202"></a><span class="lineno"> 1202</span>&#160;    ncpl  = <a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(nfld)%ncpl</div><div class="line"><a name="l01203"></a><span class="lineno"> 1203</span>&#160;</div><div class="line"><a name="l01204"></a><span class="lineno"> 1204</span>&#160;    <span class="keywordflow">if</span> (ncpl &lt;= 0) <span class="keywordflow">then</span></div><div class="line"><a name="l01205"></a><span class="lineno"> 1205</span>&#160;       <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#a51f2f4f66476cf893f2507722cd65958">oasis_debug</a> &gt;= 15) <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__data.html#af0f17b70f48598dac24f2e41ca0da4b2">nulprt</a>,*) subname,<span class="stringliteral">&#39; variable not coupled &#39;</span>,&amp;</div><div class="line"><a name="l01206"></a><span class="lineno"> 1206</span>&#160;                              trim(<a class="code" href="namespacemod__oasis__var.html#ae66c490437c2960d795fbd3d2c773a0a">prism_var</a>(nfld)%name)</div><div class="line"><a name="l01207"></a><span class="lineno"> 1207</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="l01208"></a><span class="lineno"> 1208</span>&#160;       <span class="keywordflow">return</span></div><div class="line"><a name="l01209"></a><span class="lineno"> 1209</span>&#160;<span class="keywordflow">    endif</span></div><div class="line"><a name="l01210"></a><span class="lineno"> 1210</span>&#160;</div><div class="line"><a name="l01211"></a><span class="lineno"> 1211</span>&#160;    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__advance.html#a932b0cbe5d1f5fa27c283c6472be7baf">oasis_advance_run</a>(<a class="code" href="namespacemod__oasis__parameters.html#a16809ad581bb609aa5b0661927478653">oasis_in</a>,nfld,kstep,kinfo,array1dout=fld,readrest=.false.,varnum=lvarnum)</div><div class="line"><a name="l01212"></a><span class="lineno"> 1212</span>&#160;</div><div class="line"><a name="l01213"></a><span class="lineno"> 1213</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="l01214"></a><span class="lineno"> 1214</span>&#160;</div><div class="line"><a name="l01215"></a><span class="lineno"> 1215</span>&#160;<span class="keyword">  END SUBROUTINE </span><a class="code" href="namespacemod__oasis__getput__interface.html#a7817d0a31632e3a6c9137e517e7acc3d">oasis_get_worker</a></div><div class="line"><a name="l01216"></a><span class="lineno"> 1216</span>&#160;</div><div class="line"><a name="l01217"></a><span class="lineno"> 1217</span>&#160;<span class="comment">!-------------------------------------------------------------------</span></div><div class="line"><a name="l01218"></a><span class="lineno"> 1218</span>&#160;</div><div class="line"><a name="l01219"></a><span class="lineno"> 1219</span>&#160;<span class="keyword">END MODULE </span><a class="code" href="namespacemod__oasis__getput__interface.html">mod_oasis_getput_interface</a></div><div class="line"><a name="l01220"></a><span class="lineno"> 1220</span>&#160;</div><div class="ttc" id="namespacemod__oasis__getput__interface_html_a10fac7c611232bd788e32c0487ee5625"><div class="ttname"><a href="namespacemod__oasis__getput__interface.html#a10fac7c611232bd788e32c0487ee5625">mod_oasis_getput_interface::oasis_get_r18</a></div><div class="ttdeci">subroutine oasis_get_r18(var_id, kstep, fld, kinfo)</div><div class="ttdoc">Receive 8 byte real 1D data. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__getput__interface_8_f90_source.html#l00854">mod_oasis_getput_interface.F90:854</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__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>
72<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>
73<div class="ttc" id="namespacemod__oasis__parameters_html_a16809ad581bb609aa5b0661927478653"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a16809ad581bb609aa5b0661927478653">mod_oasis_parameters::oasis_in</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter oasis_in</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00031">mod_oasis_parameters.F90:31</a></div></div>
74<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>
75<div class="ttc" id="namespacemod__oasis__getput__interface_html_a6e458b3434ebc22a8c0a6de7d2b6328f"><div class="ttname"><a href="namespacemod__oasis__getput__interface.html#a6e458b3434ebc22a8c0a6de7d2b6328f">mod_oasis_getput_interface::oasis_put_r38</a></div><div class="ttdeci">subroutine oasis_put_r38(var_id, kstep, fld1, kinfo, fld2, fld3, fld4, fld5, write_restart)</div><div class="ttdoc">Send 8 byte real 2D bundled data. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__getput__interface_8_f90_source.html#l00543">mod_oasis_getput_interface.F90:543</a></div></div>
76<div class="ttc" id="namespacemod__oasis__getput__interface_html_a73cdc18cf8e76acb003451e737fab7fe"><div class="ttname"><a href="namespacemod__oasis__getput__interface.html#a73cdc18cf8e76acb003451e737fab7fe">mod_oasis_getput_interface::oasis_put_r28</a></div><div class="ttdeci">subroutine oasis_put_r28(var_id, kstep, fld1, kinfo, fld2, fld3, fld4, fld5, write_restart)</div><div class="ttdoc">Send 8 byte real 2D data. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__getput__interface_8_f90_source.html#l00420">mod_oasis_getput_interface.F90:420</a></div></div>
77<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>
78<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>
79<div class="ttc" id="namespacemod__oasis__getput__interface_html_a3113b8b9e8d879a631b856a20b30c699"><div class="ttname"><a href="namespacemod__oasis__getput__interface.html#a3113b8b9e8d879a631b856a20b30c699">mod_oasis_getput_interface::oasis_get_r38</a></div><div class="ttdeci">subroutine oasis_get_r38(var_id, kstep, fld, kinfo)</div><div class="ttdoc">Receive 8 byte real 2D bundled data. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__getput__interface_8_f90_source.html#l01095">mod_oasis_getput_interface.F90:1095</a></div></div>
80<div class="ttc" id="namespacemod__oasis__advance_html_a932b0cbe5d1f5fa27c283c6472be7baf"><div class="ttname"><a href="namespacemod__oasis__advance.html#a932b0cbe5d1f5fa27c283c6472be7baf">mod_oasis_advance::oasis_advance_run</a></div><div class="ttdeci">subroutine, public oasis_advance_run(mop, varid, msec, kinfo, nff, namid, array1din, array1dout, array2dout, readrest, a2on, array2, a3on, array3, a4on, array4, a5on, array5, writrest, varnum)</div><div class="ttdoc">Advances the OASIS coupling. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__advance_8_f90_source.html#l00324">mod_oasis_advance.F90:324</a></div></div>
81<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>
82<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>
83<div class="ttc" id="namespacemod__oasis__getput__interface_html_a70e218d2524977cbd4e6c010b6a222cc"><div class="ttname"><a href="namespacemod__oasis__getput__interface.html#a70e218d2524977cbd4e6c010b6a222cc">mod_oasis_getput_interface::oasis_put_r18</a></div><div class="ttdeci">subroutine oasis_put_r18(var_id, kstep, fld1, kinfo, fld2, fld3, fld4, fld5, write_restart)</div><div class="ttdoc">Send 4 byte real 1D data. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__getput__interface_8_f90_source.html#l00124">mod_oasis_getput_interface.F90:124</a></div></div>
84<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>
85<div class="ttc" id="namespacemod__oasis__getput__interface_html_af2487e50b549830a14e5517c0736f907"><div class="ttname"><a href="namespacemod__oasis__getput__interface.html#af2487e50b549830a14e5517c0736f907">mod_oasis_getput_interface::oasis_put_r14</a></div><div class="ttdeci">subroutine oasis_put_r14(var_id, kstep, fld1, kinfo, fld2, fld3, fld4, fld5, write_restart)</div><div class="ttdoc">Send 4 byte real 1D data. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__getput__interface_8_f90_source.html#l00058">mod_oasis_getput_interface.F90:58</a></div></div>
86<div class="ttc" id="namespacemod__oasis__getput__interface_html_a49f5cde883b1f5210e58c709e944df7c"><div class="ttname"><a href="namespacemod__oasis__getput__interface.html#a49f5cde883b1f5210e58c709e944df7c">mod_oasis_getput_interface::oasis_get_r14</a></div><div class="ttdeci">subroutine oasis_get_r14(var_id, kstep, fld, kinfo)</div><div class="ttdoc">Receive 4 byte real 1D data. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__getput__interface_8_f90_source.html#l00807">mod_oasis_getput_interface.F90:807</a></div></div>
87<div class="ttc" id="namespacemod__oasis__getput__interface_html_a2ceaaa5740216799f651b8dacb42b239"><div class="ttname"><a href="namespacemod__oasis__getput__interface.html#a2ceaaa5740216799f651b8dacb42b239">mod_oasis_getput_interface::istatus</a></div><div class="ttdeci">integer(kind=ip_i4_p), dimension(mpi_status_size) istatus</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__getput__interface_8_f90_source.html#l00023">mod_oasis_getput_interface.F90:23</a></div></div>
88<div class="ttc" id="namespacemod__oasis__getput__interface_html_acc31c8501b46f19ac866726af9baf017"><div class="ttname"><a href="namespacemod__oasis__getput__interface.html#acc31c8501b46f19ac866726af9baf017">mod_oasis_getput_interface::oasis_put_r34</a></div><div class="ttdeci">subroutine oasis_put_r34(var_id, kstep, fld1, kinfo, fld2, fld3, fld4, fld5, write_restart)</div><div class="ttdoc">Send 4 byte real 2D bundled data. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__getput__interface_8_f90_source.html#l00314">mod_oasis_getput_interface.F90:314</a></div></div>
89<div class="ttc" id="namespacemod__oasis__getput__interface_html_a017bdff12b2f7c29e6e76b303d452d4b"><div class="ttname"><a href="namespacemod__oasis__getput__interface.html#a017bdff12b2f7c29e6e76b303d452d4b">mod_oasis_getput_interface::oasis_get_r28</a></div><div class="ttdeci">subroutine oasis_get_r28(var_id, kstep, fld, kinfo)</div><div class="ttdoc">Receive 8 byte real 2D data. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__getput__interface_8_f90_source.html#l01025">mod_oasis_getput_interface.F90:1025</a></div></div>
90<div class="ttc" id="namespacemod__oasis__getput__interface_html_a7817d0a31632e3a6c9137e517e7acc3d"><div class="ttname"><a href="namespacemod__oasis__getput__interface.html#a7817d0a31632e3a6c9137e517e7acc3d">mod_oasis_getput_interface::oasis_get_worker</a></div><div class="ttdeci">subroutine oasis_get_worker(var_id, kstep, fld, kinfo, varnum)</div><div class="ttdoc">Receive subroutine that actually does the work on 8 byte 1D data. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__getput__interface_8_f90_source.html#l01154">mod_oasis_getput_interface.F90:1154</a></div></div>
91<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>
92<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>
93<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>
94<div class="ttc" id="namespacemod__oasis__parameters_html_a76a150fa8ef6ed0b35183e627d757439"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a76a150fa8ef6ed0b35183e627d757439">mod_oasis_parameters::oasis_out</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter oasis_out</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00029">mod_oasis_parameters.F90:29</a></div></div>
95<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>
96<div class="ttc" id="namespacemod__oasis__getput__interface_html_a13fcf0d2a7c31cfbbb24087d24c4f851"><div class="ttname"><a href="namespacemod__oasis__getput__interface.html#a13fcf0d2a7c31cfbbb24087d24c4f851">mod_oasis_getput_interface::oasis_put_worker</a></div><div class="ttdeci">subroutine oasis_put_worker(var_id, kstep, fld1, kinfo, fld2, fld3, fld4, fld5, write_restart, varnum)</div><div class="ttdoc">Send worker routine puts 8 byte real 1D data. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__getput__interface_8_f90_source.html#l00648">mod_oasis_getput_interface.F90:648</a></div></div>
97<div class="ttc" id="namespacemod__oasis__getput__interface_html"><div class="ttname"><a href="namespacemod__oasis__getput__interface.html">mod_oasis_getput_interface</a></div><div class="ttdoc">OASIS send/receive (put/get) user interfaces. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__getput__interface_8_f90_source.html#l00004">mod_oasis_getput_interface.F90:4</a></div></div>
98<div class="ttc" id="namespacemod__oasis__getput__interface_html_a6b5add4ec9bd054279451a5bb52f7d32"><div class="ttname"><a href="namespacemod__oasis__getput__interface.html#a6b5add4ec9bd054279451a5bb52f7d32">mod_oasis_getput_interface::oasis_put_r24</a></div><div class="ttdeci">subroutine oasis_put_r24(var_id, kstep, fld1, kinfo, fld2, fld3, fld4, fld5, write_restart)</div><div class="ttdoc">Send 4 byte real 2D data. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__getput__interface_8_f90_source.html#l00190">mod_oasis_getput_interface.F90:190</a></div></div>
99<div class="ttc" id="namespacemod__oasis__parameters_html_ac906e1466e6cdc300a0b582af6619ca5"><div class="ttname"><a href="namespacemod__oasis__parameters.html#ac906e1466e6cdc300a0b582af6619ca5">mod_oasis_parameters::oasis_var_uncpl</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter oasis_var_uncpl</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00027">mod_oasis_parameters.F90:27</a></div></div>
100<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>
101<div class="ttc" id="namespacemod__oasis__var_html_a095f8ad84e6afbcbe1744d4a9f924e08"><div class="ttname"><a href="namespacemod__oasis__var.html#a095f8ad84e6afbcbe1744d4a9f924e08">mod_oasis_var::prism_nvar</a></div><div class="ttdeci">integer(kind=ip_intwp_p), public prism_nvar</div><div class="ttdoc">number of variables defined </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__var_8_f90_source.html#l00040">mod_oasis_var.F90:40</a></div></div>
102<div class="ttc" id="namespacemod__oasis__getput__interface_html_a34b0221d424ce7f1597548f91407033f"><div class="ttname"><a href="namespacemod__oasis__getput__interface.html#a34b0221d424ce7f1597548f91407033f">mod_oasis_getput_interface::oasis_get_r34</a></div><div class="ttdeci">subroutine oasis_get_r34(var_id, kstep, fld, kinfo)</div><div class="ttdoc">Receive 4 byte real 2D bundled data. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__getput__interface_8_f90_source.html#l00963">mod_oasis_getput_interface.F90:963</a></div></div>
103<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>
104<div class="ttc" id="interfacemod__oasis__getput__interface_1_1oasis__get_html"><div class="ttname"><a href="interfacemod__oasis__getput__interface_1_1oasis__get.html">mod_oasis_getput_interface::oasis_get</a></div><div class="ttdoc">Generic overloaded interface for data get (receive) </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__getput__interface_8_f90_source.html#l00038">mod_oasis_getput_interface.F90:38</a></div></div>
105<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>
106<div class="ttc" id="interfacemod__oasis__getput__interface_1_1oasis__put_html"><div class="ttname"><a href="interfacemod__oasis__getput__interface_1_1oasis__put.html">mod_oasis_getput_interface::oasis_put</a></div><div class="ttdoc">Generic overloaded interface for data put (send) </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__getput__interface_8_f90_source.html#l00026">mod_oasis_getput_interface.F90:26</a></div></div>
107<div class="ttc" id="namespacemod__oasis__getput__interface_html_ac28a61cf8ca51e358897bfffb43003b8"><div class="ttname"><a href="namespacemod__oasis__getput__interface.html#ac28a61cf8ca51e358897bfffb43003b8">mod_oasis_getput_interface::oasis_get_r24</a></div><div class="ttdeci">subroutine oasis_get_r24(var_id, kstep, fld, kinfo)</div><div class="ttdoc">Receive 4 byte real 2D data. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__getput__interface_8_f90_source.html#l00890">mod_oasis_getput_interface.F90:890</a></div></div>
108</div><!-- fragment --></div><!-- contents -->
109<!-- start footer part -->
110<hr class="footer"/><address class="footer"><small>
111Generated on Fri Jun 29 2018 20:52:28 for Oasis3-MCT by &#160;<a href="http://www.doxygen.org/index.html">
112<img class="footer" src="doxygen.png" alt="doxygen"/>
113</a> 1.8.13
114</small></address>
115</body>
116</html>
Note: See TracBrowser for help on using the repository browser.