source: CPL/oasis3-mct_5.0/doc/doxygen/html/mod__oasis__namcouple_8_f90_source.html @ 6328

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

First import of oasis3-mct_5.0 (from oasis git server, branch OASIS3-MCT_5.0)
File size: 1.0 MB
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_namcouple.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_namcouple.F90</div>  </div>
67</div><!--header-->
68<div class="contents">
69<a href="mod__oasis__namcouple_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; Reads the namcouple file for use in OASIS</span></div><div class="line"><a name="l00003"></a><span class="lineno">    3</span>&#160;<span class="comment"></span></div><div class="line"><a name="l00004"></a><span class="lineno">    4</span>&#160;<span class="comment">!&gt; This code reads in the namcouple file and sets several variables</span></div><div class="line"><a name="l00005"></a><span class="lineno">    5</span>&#160;<span class="comment">!&gt; that are available to the rest of OASIS.  Some of this code</span></div><div class="line"><a name="l00006"></a><span class="lineno">    6</span>&#160;<span class="comment">!&gt; is obsolete, and several input settings are deprecated.</span></div><div class="line"><a name="l00007"></a><span class="lineno">    7</span>&#160;<span class="comment">!&gt; This code is based on the original Oasis3 version and</span></div><div class="line"><a name="l00008"></a><span class="lineno">    8</span>&#160;<span class="comment">!&gt; will be rewritten at some point.</span></div><div class="line"><a name="l00009"></a><span class="lineno">    9</span>&#160;</div><div class="line"><a name="l00010"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html">   10</a></span>&#160;<span class="keyword">MODULE</span> <a class="code" href="namespacemod__oasis__namcouple.html">mod_oasis_namcouple</a></div><div class="line"><a name="l00011"></a><span class="lineno">   11</span>&#160;</div><div class="line"><a name="l00012"></a><span class="lineno">   12</span>&#160;<span class="comment">!     - - - - - - - - - - - - - - - - - - - - - - - - - - -</span></div><div class="line"><a name="l00013"></a><span class="lineno">   13</span>&#160;</div><div class="line"><a name="l00014"></a><span class="lineno">   14</span>&#160;  <span class="keywordtype">USE </span><a class="code" href="namespacemod__oasis__kinds.html">mod_oasis_kinds</a></div><div class="line"><a name="l00015"></a><span class="lineno">   15</span>&#160;  <span class="keywordtype">USE </span><a class="code" href="namespacemod__oasis__data.html">mod_oasis_data</a></div><div class="line"><a name="l00016"></a><span class="lineno">   16</span>&#160;  <span class="keywordtype">USE </span><a class="code" href="namespacemod__oasis__parameters.html">mod_oasis_parameters</a></div><div class="line"><a name="l00017"></a><span class="lineno">   17</span>&#160;  <span class="keywordtype">USE </span><a class="code" href="namespacemod__oasis__sys.html">mod_oasis_sys</a></div><div class="line"><a name="l00018"></a><span class="lineno">   18</span>&#160;  <span class="keywordtype">USE </span><a class="code" href="namespacemod__oasis__mpi.html">mod_oasis_mpi</a></div><div class="line"><a name="l00019"></a><span class="lineno">   19</span>&#160;  <span class="keywordtype">USE </span><a class="code" href="namespacemod__oasis__string.html">mod_oasis_string</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="keywordtype">IMPLICIT NONE</span></div><div class="line"><a name="l00022"></a><span class="lineno">   22</span>&#160;</div><div class="line"><a name="l00023"></a><span class="lineno">   23</span>&#160;  <span class="keywordtype">private</span></div><div class="line"><a name="l00024"></a><span class="lineno">   24</span>&#160;</div><div class="line"><a name="l00025"></a><span class="lineno">   25</span>&#160;  <span class="keywordtype">public</span> <a class="code" href="namespacemod__oasis__namcouple.html#ab57c69ae534734f92a85e24a3389e972">oasis_namcouple_init</a></div><div class="line"><a name="l00026"></a><span class="lineno">   26</span>&#160;</div><div class="line"><a name="l00027"></a><span class="lineno">   27</span>&#160;<span class="comment">! NAMCOUPLE PUBLIC DATA</span></div><div class="line"><a name="l00028"></a><span class="lineno">   28</span>&#160;</div><div class="line"><a name="l00029"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">   29</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">PARAMETER</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a> = 5000<span class="comment"> !&lt; max number of characters to be read </span></div><div class="line"><a name="l00030"></a><span class="lineno">   30</span>&#160;<span class="comment">                                                         !&lt; in each line of the file namcouple </span></div><div class="line"><a name="l00031"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">   31</a></span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">parameter</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a> = <span class="stringliteral">&#39;(A5000)&#39;</span><span class="comment">        !&lt; formatted line read format</span></div><div class="line"><a name="l00032"></a><span class="lineno">   32</span>&#160;</div><div class="line"><a name="l00033"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a88ddb8ab5304da53ddf232e72b31cd45">   33</a></span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">parameter</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a88ddb8ab5304da53ddf232e72b31cd45">nmapdec_default</a> = <span class="stringliteral">&#39;decomp_1d&#39;</span>        <span class="comment">! decomp_wghtfile or decomp_1d</span></div><div class="line"><a name="l00034"></a><span class="lineno">   34</span>&#160;<span class="comment">!  CHARACTER(len=*),parameter :: nmapdec_default = &#39;decomp_wghtfile&#39; ! decomp_wghtfile or decomp_1d</span></div><div class="line"><a name="l00035"></a><span class="lineno">   35</span>&#160;</div><div class="line"><a name="l00036"></a><span class="lineno">   36</span>&#160;<span class="comment">! CHARACTER(len=*),parameter :: nmatxrd_default = &#39;orig&#39;   ! ceg or orig</span></div><div class="line"><a name="l00037"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a81f8b2668d8970564e85db2ac2465866">   37</a></span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">parameter</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a81f8b2668d8970564e85db2ac2465866">nmatxrd_default</a> = <span class="stringliteral">&#39;ceg&#39;</span>    <span class="comment">! ceg or orig</span></div><div class="line"><a name="l00038"></a><span class="lineno">   38</span>&#160;</div><div class="line"><a name="l00039"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a3b0f98a2f8fc07f944af7fc650ea3eff">   39</a></span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">parameter</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a3b0f98a2f8fc07f944af7fc650ea3eff">nwgtopt_default</a> = <span class="stringliteral">&#39;abort_on_bad_index&#39;</span>         <span class="comment">! weights handling</span></div><div class="line"><a name="l00040"></a><span class="lineno">   40</span>&#160;<span class="comment">!  CHARACTER(len=*),parameter :: nwgtopt_default = &#39;ignore_bad_index&#39;          ! weights handling</span></div><div class="line"><a name="l00041"></a><span class="lineno">   41</span>&#160;<span class="comment">!  CHARACTER(len=*),parameter :: nwgtopt_default = &#39;ignore_bad_index_silently&#39; ! weights handling </span></div><div class="line"><a name="l00042"></a><span class="lineno">   42</span>&#160;<span class="comment">!  CHARACTER(len=*),parameter :: nwgtopt_default = &#39;use_bad_index&#39;             ! weights handling</span></div><div class="line"><a name="l00043"></a><span class="lineno">   43</span>&#160;</div><div class="line"><a name="l00044"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a5ca7cd6a5b9f939b68492200aa92bab4">   44</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span>   ,<span class="keywordtype">public</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a5ca7cd6a5b9f939b68492200aa92bab4">nnamcpl</a><span class="comment">       !&lt; number of namcouple inputs</span></div><div class="line"><a name="l00045"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a14505eaa91b2c8ba308c63ff78652206">   45</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span>   ,<span class="keywordtype">public</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a14505eaa91b2c8ba308c63ff78652206">namruntim</a><span class="comment">     !&lt; namcouple runtime</span></div><div class="line"><a name="l00046"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a46affda5336f60a1eeb1badaaccd3cfd">   46</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span>   ,<span class="keywordtype">public</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a46affda5336f60a1eeb1badaaccd3cfd">namlogprt</a><span class="comment">     !&lt; namcouple nlogprt value</span></div><div class="line"><a name="l00047"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a45fbbd2941f5d71991d409f63e31cf02">   47</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span>   ,<span class="keywordtype">public</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a45fbbd2941f5d71991d409f63e31cf02">namtlogprt</a><span class="comment">    !&lt; namcouple ntlogprt value</span></div><div class="line"><a name="l00048"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a1b8c7ce28c62fa0b15076b7169d8b454">   48</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span>   ,<span class="keywordtype">public</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a1b8c7ce28c62fa0b15076b7169d8b454">namuntmin</a><span class="comment">     !&lt; namcouple min IO unit value</span></div><div class="line"><a name="l00049"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ae750107f9401fd3c7348088ad3095b45">   49</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span>   ,<span class="keywordtype">public</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ae750107f9401fd3c7348088ad3095b45">namuntmax</a><span class="comment">     !&lt; namcouple max IO unit value</span></div><div class="line"><a name="l00050"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ad1bd3ea485ad5f5114eb4b7f8c831ccb">   50</a></span>&#160;  <span class="keywordtype">LOGICAL</span>                 ,<span class="keywordtype">public</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ad1bd3ea485ad5f5114eb4b7f8c831ccb">namnorest</a><span class="comment">     !&lt; namcouple allow no restarts</span></div><div class="line"><a name="l00051"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a484aaf8a6d7eaa0675a8249fa94509cf">   51</a></span>&#160;  <span class="keywordtype">CHARACTER(len=ic_med)</span>   ,<span class="keywordtype">public</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a484aaf8a6d7eaa0675a8249fa94509cf">nammapdec</a><span class="comment">     !&lt; namcouple map decomp value</span></div><div class="line"><a name="l00052"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ad9ac6585de157a05d793636addf672a5">   52</a></span>&#160;  <span class="keywordtype">CHARACTER(len=ic_med)</span>   ,<span class="keywordtype">public</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ad9ac6585de157a05d793636addf672a5">nammatxrd</a><span class="comment">     !&lt; namcouple matrix read option</span></div><div class="line"><a name="l00053"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a03a63fe10e98e695e556ee190cd3accc">   53</a></span>&#160;  <span class="keywordtype">CHARACTER(len=ic_med)</span>   ,<span class="keywordtype">public</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a03a63fe10e98e695e556ee190cd3accc">namwgtopt</a><span class="comment">     !&lt; namcouple weights handling option</span></div><div class="line"><a name="l00054"></a><span class="lineno">   54</span>&#160; </div><div class="line"><a name="l00055"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a5fcb5a4f2a49f414fafe38b03c5c089d">   55</a></span>&#160;  <span class="keywordtype">CHARACTER(len=jpeighty)</span> ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a5fcb5a4f2a49f414fafe38b03c5c089d">namsrcfld</a>(:)<span class="comment">  !&lt; list of src fields</span></div><div class="line"><a name="l00056"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ac4cfec209e4169b6098f9a8b9be1ffb1">   56</a></span>&#160;  <span class="keywordtype">CHARACTER(len=jpeighty)</span> ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ac4cfec209e4169b6098f9a8b9be1ffb1">namdstfld</a>(:)<span class="comment">  !&lt; list of dst fields</span></div><div class="line"><a name="l00057"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a589c1bae58b10bcb0cfb30c0893a7895">   57</a></span>&#160;  <span class="keywordtype">CHARACTER(len=ic_lvar)</span>  ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a589c1bae58b10bcb0cfb30c0893a7895">namsrcgrd</a>(:)<span class="comment">  !&lt; src grid name</span></div><div class="line"><a name="l00058"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ac8f6c8fe3720739f3d26431a8a600506">   58</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ac8f6c8fe3720739f3d26431a8a600506">namsrc_nx</a>(:)<span class="comment">  !&lt; src nx grid size</span></div><div class="line"><a name="l00059"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ab82c80f007b37865172ddb033a1abb36">   59</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ab82c80f007b37865172ddb033a1abb36">namsrc_ny</a>(:)<span class="comment">  !&lt; src ny grid size</span></div><div class="line"><a name="l00060"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a7a2ed64b0670db38d2287f5d452060e4">   60</a></span>&#160;  <span class="keywordtype">CHARACTER(len=ic_lvar)</span>  ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a7a2ed64b0670db38d2287f5d452060e4">namdstgrd</a>(:)<span class="comment">  !&lt; dst grid name</span></div><div class="line"><a name="l00061"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a6add94418eefdaefd78cd971888a5826">   61</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a6add94418eefdaefd78cd971888a5826">namdst_nx</a>(:)<span class="comment">  !&lt; dst nx grid size</span></div><div class="line"><a name="l00062"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a9035fc89396bad9574c88642d3aac5f0">   62</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a9035fc89396bad9574c88642d3aac5f0">namdst_ny</a>(:)<span class="comment">  !&lt; dst ny grid size</span></div><div class="line"><a name="l00063"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a54ccfe0380fc1c89d085f37a044a297e">   63</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a54ccfe0380fc1c89d085f37a044a297e">namfldseq</a>(:)<span class="comment">  !&lt; SEQ value</span></div><div class="line"><a name="l00064"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a4841e350d91926f5f8403e73442c76ad">   64</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a4841e350d91926f5f8403e73442c76ad">namfldops</a>(:)<span class="comment">  !&lt; operation, ip_expout,...</span></div><div class="line"><a name="l00065"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a9080617143dacb027f74c4c5158b5e58">   65</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a9080617143dacb027f74c4c5158b5e58">namflddti</a>(:)<span class="comment">  !&lt; coupling period (secs)</span></div><div class="line"><a name="l00066"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a6a4406ca14f91ef6514a18eb154e648f">   66</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a6a4406ca14f91ef6514a18eb154e648f">namfldlag</a>(:)<span class="comment">  !&lt; coupling lag (secs)</span></div><div class="line"><a name="l00067"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a5f81bc00e6dc045770edd4093f68278c">   67</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a5f81bc00e6dc045770edd4093f68278c">namfldtrn</a>(:)<span class="comment">  !&lt; fields transform, ip_instant,...</span></div><div class="line"><a name="l00068"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a96aa6a31ef021468f807819a84b327c3">   68</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a96aa6a31ef021468f807819a84b327c3">namfldcon</a>(:)<span class="comment">  !&lt; conserv fld operation</span></div><div class="line"><a name="l00069"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a119b86702766d5392cb44856448bcd3e">   69</a></span>&#160;  <span class="keywordtype">CHARACTER(len=ic_med)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a119b86702766d5392cb44856448bcd3e">namfldcoo</a>(:)<span class="comment">  !&lt; conserv fld option (bfb, opt)</span></div><div class="line"><a name="l00070"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a9fc6ac674a8cfa68d9d15ad13213e21d">   70</a></span>&#160;  <span class="keywordtype">CHARACTER(len=ic_long)</span>  ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a9fc6ac674a8cfa68d9d15ad13213e21d">nammapfil</a>(:)<span class="comment">  !&lt; mapping file name</span></div><div class="line"><a name="l00071"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a7316d7d322da7cf10f315e38c145ebbb">   71</a></span>&#160;  <span class="keywordtype">CHARACTER(len=ic_med)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a7316d7d322da7cf10f315e38c145ebbb">nammaploc</a>(:)<span class="comment">  !&lt; mapping location (src or dst pes)</span></div><div class="line"><a name="l00072"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ad2554b4881fa63780dd5e6fe78d705ef">   72</a></span>&#160;  <span class="keywordtype">CHARACTER(len=ic_med)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ad2554b4881fa63780dd5e6fe78d705ef">nammapopt</a>(:)<span class="comment">  !&lt; mapping option (bfb, sum, or opt)</span></div><div class="line"><a name="l00073"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a54f4b8262f809a20928092782bc78345">   73</a></span>&#160;  <span class="keywordtype">CHARACTER(len=ic_med)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a54f4b8262f809a20928092782bc78345">namrstfil</a>(:)<span class="comment">  !&lt; restart file name</span></div><div class="line"><a name="l00074"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a15fc11ff1c1d5718ff127a06a205a82c">   74</a></span>&#160;  <span class="keywordtype">CHARACTER(len=ic_med)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a15fc11ff1c1d5718ff127a06a205a82c">naminpfil</a>(:)<span class="comment">  !&lt; input file name</span></div><div class="line"><a name="l00075"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a7c88a329c97aea020e9b135bdca8d160">   75</a></span>&#160;  <span class="keywordtype">LOGICAL</span>                 ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a7c88a329c97aea020e9b135bdca8d160">namchecki</a>(:)<span class="comment">  !&lt; checkin flag</span></div><div class="line"><a name="l00076"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a58c011820e55c9af9f306fbb1d45eb23">   76</a></span>&#160;  <span class="keywordtype">LOGICAL</span>                 ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a58c011820e55c9af9f306fbb1d45eb23">namchecko</a>(:)<span class="comment">  !&lt; checkout flag</span></div><div class="line"><a name="l00077"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ab52824ec91491253e02556a68ab31b09">   77</a></span>&#160;  <span class="keywordtype">REAL (kind=ip_realwp_p)</span> ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ab52824ec91491253e02556a68ab31b09">namfldsmu</a>(:)<span class="comment">  !&lt; src multiplier term</span></div><div class="line"><a name="l00078"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a1729dba99742412a1e07a479cb7f7921">   78</a></span>&#160;  <span class="keywordtype">REAL (kind=ip_realwp_p)</span> ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a1729dba99742412a1e07a479cb7f7921">namfldsad</a>(:)<span class="comment">  !&lt; src additive term</span></div><div class="line"><a name="l00079"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ad81bb4f19a71f0fcf8655cb9d39a3380">   79</a></span>&#160;  <span class="keywordtype">REAL (kind=ip_realwp_p)</span> ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ad81bb4f19a71f0fcf8655cb9d39a3380">namflddmu</a>(:)<span class="comment">  !&lt; dst multipler term</span></div><div class="line"><a name="l00080"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#af1e31f45ea1cd7a7b64a8a7dc2cec4ee">   80</a></span>&#160;  <span class="keywordtype">REAL (kind=ip_realwp_p)</span> ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#af1e31f45ea1cd7a7b64a8a7dc2cec4ee">namflddad</a>(:)<span class="comment">  !&lt; dst additive term</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"><a class="line" href="namespacemod__oasis__namcouple.html#a51c19e0892a72acc3dca2adb046ed175">   82</a></span>&#160;  <span class="keywordtype">CHARACTER(len=ic_med)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a51c19e0892a72acc3dca2adb046ed175">namscrmet</a>(:)<span class="comment">  !&lt; scrip method (CONSERV, DISTWGT, BILINEAR, BICUBIC, GAUSWGT)</span></div><div class="line"><a name="l00083"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a392f40531007d5dcc084e6ad4a393fd7">   83</a></span>&#160;  <span class="keywordtype">CHARACTER(len=ic_med)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a392f40531007d5dcc084e6ad4a393fd7">namscrnor</a>(:)<span class="comment">  !&lt; scrip conserv normalization (FRACAREA, DESTAREA, FRACNNEI)</span></div><div class="line"><a name="l00084"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a8ddbaabd22bbf485888b1df5f3578909">   84</a></span>&#160;  <span class="keywordtype">CHARACTER(len=ic_med)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a8ddbaabd22bbf485888b1df5f3578909">namscrtyp</a>(:)<span class="comment">  !&lt; scrip mapping type (SCALAR, VECTOR)</span></div><div class="line"><a name="l00085"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ac881ced105604879ada860fabd677481">   85</a></span>&#160;  <span class="keywordtype">CHARACTER(len=ic_med)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ac881ced105604879ada860fabd677481">namscrord</a>(:)<span class="comment">  !&lt; scrip conserve order (FIRST, SECOND)</span></div><div class="line"><a name="l00086"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a6a95ddbbbc615e0257d93d05e4546239">   86</a></span>&#160;  <span class="keywordtype">CHARACTER(len=ic_med)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a6a95ddbbbc615e0257d93d05e4546239">namscrres</a>(:)<span class="comment">  !&lt; scrip search restriction (LATLON, LATITUDE)</span></div><div class="line"><a name="l00087"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a45b410743ce74a9824d44b329ba323ba">   87</a></span>&#160;  <span class="keywordtype">REAL (kind=ip_realwp_p)</span> ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a45b410743ce74a9824d44b329ba323ba">namscrvam</a>(:)<span class="comment">  !&lt; scrip gauss weight distance weighting for GAUSWGT</span></div><div class="line"><a name="l00088"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a20d614468823744b82118ee8cf2df852">   88</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a20d614468823744b82118ee8cf2df852">namscrnbr</a>(:)<span class="comment">  !&lt; scrip number of neighbors for GAUSWGT and DISTWGT</span></div><div class="line"><a name="l00089"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a728405e8f669b58d00c189abf8b62437">   89</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a728405e8f669b58d00c189abf8b62437">namscrbin</a>(:)<span class="comment">  !&lt; script number of search bins</span></div><div class="line"><a name="l00090"></a><span class="lineno">   90</span>&#160;</div><div class="line"><a name="l00091"></a><span class="lineno">   91</span>&#160;  <span class="comment">!--- derived ---</span></div><div class="line"><a name="l00092"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a4555b14f38928b7f0fb7f77b9c42d0a0">   92</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a4555b14f38928b7f0fb7f77b9c42d0a0">namsort2nn</a>(:)<span class="comment"> !&lt; sorted namcpl for sort, define nn order, computed later</span></div><div class="line"><a name="l00093"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a0ace7c451d8658759b9c8d871926a76e">   93</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span>   ,<span class="keywordtype">public</span>,<span class="keywordtype">pointer</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a0ace7c451d8658759b9c8d871926a76e">namnn2sort</a>(:)<span class="comment"> !&lt; sorted namcpl for nn, define sort number, computed later</span></div><div class="line"><a name="l00094"></a><span class="lineno">   94</span>&#160;</div><div class="line"><a name="l00095"></a><span class="lineno">   95</span>&#160;<span class="comment">!----------------------------------------------------------------</span></div><div class="line"><a name="l00096"></a><span class="lineno">   96</span>&#160;<span class="comment">!   LOCAL ONLY BELOW HERE</span></div><div class="line"><a name="l00097"></a><span class="lineno">   97</span>&#160;<span class="comment">!----------------------------------------------------------------</span></div><div class="line"><a name="l00098"></a><span class="lineno">   98</span>&#160;</div><div class="line"><a name="l00099"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">   99</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>     <span class="comment">! namcouple IO unit number</span></div><div class="line"><a name="l00100"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ae023a43e29bb32ebf11f193e34d8bd85">  100</a></span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">parameter</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ae023a43e29bb32ebf11f193e34d8bd85">cl_namcouple</a> = <span class="stringliteral">&#39;namcouple&#39;</span></div><div class="line"><a name="l00101"></a><span class="lineno">  101</span>&#160;</div><div class="line"><a name="l00102"></a><span class="lineno">  102</span>&#160;<span class="comment">! --- alloc_src</span></div><div class="line"><a name="l00103"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">  103</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a></div><div class="line"><a name="l00104"></a><span class="lineno">  104</span>&#160;<span class="comment">! --- mod_unitncdf</span></div><div class="line"><a name="l00105"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a5d6add8b958acc8b865b898d9e54ac73">  105</a></span>&#160;  <span class="keywordtype">LOGICAL</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a5d6add8b958acc8b865b898d9e54ac73">lncdfgrd</a></div><div class="line"><a name="l00106"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a645168dae20a0c24786c3e6dcea9f2ab">  106</a></span>&#160;  <span class="keywordtype">LOGICAL</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a645168dae20a0c24786c3e6dcea9f2ab">lncdfrst</a></div><div class="line"><a name="l00107"></a><span class="lineno">  107</span>&#160;<span class="comment">! --- mod_label</span></div><div class="line"><a name="l00108"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#afaa0549951c43335a2f8e75c7b1d2846">  108</a></span>&#160;  <span class="keywordtype">CHARACTER(len=5)</span>, <span class="keywordtype">PARAMETER</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#afaa0549951c43335a2f8e75c7b1d2846">cgrdnam</a> = <span class="stringliteral">&#39;grids&#39;</span>  </div><div class="line"><a name="l00109"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#aeeda85bec8a449e87411d4ed404322c5">  109</a></span>&#160;  <span class="keywordtype">CHARACTER(len=5)</span>, <span class="keywordtype">PARAMETER</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#aeeda85bec8a449e87411d4ed404322c5">cmsknam</a> = <span class="stringliteral">&#39;masks&#39;</span> </div><div class="line"><a name="l00110"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a49e79935fc2421fe3e4e7422f17b34ea">  110</a></span>&#160;  <span class="keywordtype">CHARACTER(len=5)</span>, <span class="keywordtype">PARAMETER</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a49e79935fc2421fe3e4e7422f17b34ea">csurnam</a> = <span class="stringliteral">&#39;areas&#39;</span> </div><div class="line"><a name="l00111"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a161fc23acf442c75c9d6ba7758937d59">  111</a></span>&#160;  <span class="keywordtype">CHARACTER(len=5)</span>, <span class="keywordtype">PARAMETER</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a161fc23acf442c75c9d6ba7758937d59">crednam</a> = <span class="stringliteral">&#39;maskr&#39;</span></div><div class="line"><a name="l00112"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ac1a557cecb41295e7d5cb004a7937ea4">  112</a></span>&#160;  <span class="keywordtype">CHARACTER(len=4)</span>, <span class="keywordtype">PARAMETER</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ac1a557cecb41295e7d5cb004a7937ea4">cglonsuf</a> = <span class="stringliteral">&#39;.lon&#39;</span></div><div class="line"><a name="l00113"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a2036218f05c62fc672bd07ece34f26db">  113</a></span>&#160;  <span class="keywordtype">CHARACTER(len=4)</span>, <span class="keywordtype">PARAMETER</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a2036218f05c62fc672bd07ece34f26db">cglatsuf</a> = <span class="stringliteral">&#39;.lat&#39;</span></div><div class="line"><a name="l00114"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ae56f031c6d9a819a39fe5170f42d7ce1">  114</a></span>&#160;  <span class="keywordtype">CHARACTER(len=4)</span>, <span class="keywordtype">PARAMETER</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ae56f031c6d9a819a39fe5170f42d7ce1">crnlonsuf</a> = <span class="stringliteral">&#39;.clo&#39;</span></div><div class="line"><a name="l00115"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#acdc7f0d582616ee9e18470aad433ed3a">  115</a></span>&#160;  <span class="keywordtype">CHARACTER(len=4)</span>, <span class="keywordtype">PARAMETER</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#acdc7f0d582616ee9e18470aad433ed3a">crnlatsuf</a> = <span class="stringliteral">&#39;.cla&#39;</span></div><div class="line"><a name="l00116"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#aeea3ba680d5ba05a432c12d64c68c8af">  116</a></span>&#160;  <span class="keywordtype">CHARACTER(len=4)</span>, <span class="keywordtype">PARAMETER</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#aeea3ba680d5ba05a432c12d64c68c8af">cmsksuf</a> = <span class="stringliteral">&#39;.msk&#39;</span></div><div class="line"><a name="l00117"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#adf2c151a84c37bd7cd93867305b4f70b">  117</a></span>&#160;  <span class="keywordtype">CHARACTER(len=4)</span>, <span class="keywordtype">PARAMETER</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#adf2c151a84c37bd7cd93867305b4f70b">csursuf</a> = <span class="stringliteral">&#39;.srf&#39;</span></div><div class="line"><a name="l00118"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a4b921aeee4d921557ab0cd2f0e541dad">  118</a></span>&#160;  <span class="keywordtype">CHARACTER(len=4)</span>, <span class="keywordtype">PARAMETER</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a4b921aeee4d921557ab0cd2f0e541dad">cangsuf</a> = <span class="stringliteral">&#39;.ang&#39;</span></div><div class="line"><a name="l00119"></a><span class="lineno">  119</span>&#160;<span class="comment">! --- mod_rainbow</span></div><div class="line"><a name="l00120"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a8eca7c715a39c523e00ed2be0612950d">  120</a></span>&#160;  <span class="keywordtype">LOGICAL</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a8eca7c715a39c523e00ed2be0612950d">lmapp</a></div><div class="line"><a name="l00121"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#acda1605129987d656360e1ed81e8d199">  121</a></span>&#160;  <span class="keywordtype">LOGICAL</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#acda1605129987d656360e1ed81e8d199">lsubg</a></div><div class="line"><a name="l00122"></a><span class="lineno">  122</span>&#160;<span class="comment">! --- mod_coast</span></div><div class="line"><a name="l00123"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a57f1b6f111a5257a4d6f5a4b18fa6250">  123</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a57f1b6f111a5257a4d6f5a4b18fa6250">nfcoast</a></div><div class="line"><a name="l00124"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a7657e0f9b495e291f26dc31b4f6145aa">  124</a></span>&#160;  <span class="keywordtype">LOGICAL</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a7657e0f9b495e291f26dc31b4f6145aa">lcoast</a></div><div class="line"><a name="l00125"></a><span class="lineno">  125</span>&#160;<span class="comment">! --- mod_timestep</span></div><div class="line"><a name="l00126"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a8a962108487c3ca092633bd4292dbfd6">  126</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a8a962108487c3ca092633bd4292dbfd6">ntime</a></div><div class="line"><a name="l00127"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a6246780a56635119fd8f7935456b06cf">  127</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a6246780a56635119fd8f7935456b06cf">niter</a></div><div class="line"><a name="l00128"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a1e5b5efd046e5ab959fba026bd645945">  128</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a1e5b5efd046e5ab959fba026bd645945">nitfn</a></div><div class="line"><a name="l00129"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a66c36f23a77081749dc9e7993b0277f3">  129</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a66c36f23a77081749dc9e7993b0277f3">nstep</a></div><div class="line"><a name="l00130"></a><span class="lineno">  130</span>&#160;<span class="comment">! --- mod_parameter</span></div><div class="line"><a name="l00131"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">  131</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>   <span class="comment">! number of oasis coupled fields</span></div><div class="line"><a name="l00132"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a531825c07a164f6139e5eebd59e295a2">  132</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a531825c07a164f6139e5eebd59e295a2">ig_direct_nfield</a>   <span class="comment">! number of direct coupled fields</span></div><div class="line"><a name="l00133"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">  133</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>    <span class="comment">! estimate of total fields</span></div><div class="line"><a name="l00134"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">  134</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>    <span class="comment">! number of final fields</span></div><div class="line"><a name="l00135"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#aaf6b923ffc7763fd37a5c4c72bdfa34d">  135</a></span>&#160;  <span class="keywordtype">LOGICAL</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#aaf6b923ffc7763fd37a5c4c72bdfa34d">lg_oasis_field</a></div><div class="line"><a name="l00136"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#abba00866a740567bc1d93cf5850042fd">  136</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#abba00866a740567bc1d93cf5850042fd">ig_maxcomb</a></div><div class="line"><a name="l00137"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ae66cf9f63b6c440406c9b675caef7759">  137</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ae66cf9f63b6c440406c9b675caef7759">ig_maxnoa</a></div><div class="line"><a name="l00138"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#aab2d4bcc2dc767df51f99f907f4f3e6e">  138</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#aab2d4bcc2dc767df51f99f907f4f3e6e">ig_maxnfg</a></div><div class="line"><a name="l00139"></a><span class="lineno">  139</span>&#160;<span class="comment">! --- mod_printing</span></div><div class="line"><a name="l00140"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a7b8c924fdea622759b99d8f61e03ade5">  140</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a7b8c924fdea622759b99d8f61e03ade5">nlogprt</a></div><div class="line"><a name="l00141"></a><span class="lineno">  141</span>&#160;<span class="comment">!---- Time statistics level printing</span></div><div class="line"><a name="l00142"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a49bd874b06648257f7ce70da19a678b4">  142</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a49bd874b06648257f7ce70da19a678b4">ntlogprt</a></div><div class="line"><a name="l00143"></a><span class="lineno">  143</span>&#160;<span class="comment">!---- min and max unit numbers</span></div><div class="line"><a name="l00144"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a9add83d816dc5cdb41c84747f4ee8962">  144</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a9add83d816dc5cdb41c84747f4ee8962">nuntmin</a></div><div class="line"><a name="l00145"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ab47490a015fa09cf75a760dadfeb0ff9">  145</a></span>&#160;  <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ab47490a015fa09cf75a760dadfeb0ff9">nuntmax</a></div><div class="line"><a name="l00146"></a><span class="lineno">  146</span>&#160;<span class="comment">!---- allow no restart files</span></div><div class="line"><a name="l00147"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#adb02545191d2ca9c1daff1a3ced2223f">  147</a></span>&#160;  <span class="keywordtype">LOGICAL</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#adb02545191d2ca9c1daff1a3ced2223f">nnorest</a></div><div class="line"><a name="l00148"></a><span class="lineno">  148</span>&#160;<span class="comment">!---- specify mapping decomp</span></div><div class="line"><a name="l00149"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#af56d31837b48a43e234bccbf1a3e2954">  149</a></span>&#160;  <span class="keywordtype">CHARACTER(len=ic_med)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#af56d31837b48a43e234bccbf1a3e2954">nmapdec</a></div><div class="line"><a name="l00150"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a7cb9d88a57224d84d97afc29b0e606bf">  150</a></span>&#160;  <span class="keywordtype">CHARACTER(len=ic_med)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a7cb9d88a57224d84d97afc29b0e606bf">nmatxrd</a></div><div class="line"><a name="l00151"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ad7829e2434eb8214b599ba49395c9fc5">  151</a></span>&#160;  <span class="keywordtype">CHARACTER(len=ic_med)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ad7829e2434eb8214b599ba49395c9fc5">nwgtopt</a></div><div class="line"><a name="l00152"></a><span class="lineno">  152</span>&#160;<span class="comment">! --- mod_string</span></div><div class="line"><a name="l00153"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a12e1621f5697a0cdbde11d3e25f43b54">  153</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a12e1621f5697a0cdbde11d3e25f43b54">numlab</a></div><div class="line"><a name="l00154"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ab0b9a7822ec44010e8652ed2d6abc0db">  154</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ab0b9a7822ec44010e8652ed2d6abc0db">ig_numlab</a></div><div class="line"><a name="l00155"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ac6216c78a2779e49f90a9a95a39c27d7">  155</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ac6216c78a2779e49f90a9a95a39c27d7">nfexch</a></div><div class="line"><a name="l00156"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ac4549f9f5bbb37fce3edc9a208e0d48b">  156</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ac4549f9f5bbb37fce3edc9a208e0d48b">ig_ntrans</a></div><div class="line"><a name="l00157"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#abbd7bd184bb2a3860063dbb9f109f427">  157</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#abbd7bd184bb2a3860063dbb9f109f427">ig_total_ntrans</a></div><div class="line"><a name="l00158"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a6e774d31f16b513b1d604e72a82dff40">  158</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a6e774d31f16b513b1d604e72a82dff40">nlonbf</a></div><div class="line"><a name="l00159"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a9b09ac96dad78313003a9436fe2f9aec">  159</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a9b09ac96dad78313003a9436fe2f9aec">nlatbf</a></div><div class="line"><a name="l00160"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ae413f2dc402b7c018e341081b8d6e208">  160</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ae413f2dc402b7c018e341081b8d6e208">nlonaf</a></div><div class="line"><a name="l00161"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a80d81b2f026a2d0dc2de27b9ee04f7af">  161</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a80d81b2f026a2d0dc2de27b9ee04f7af">nlataf</a></div><div class="line"><a name="l00162"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a20e9486f3e8bbdcee0de935e9be3a2e8">  162</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a20e9486f3e8bbdcee0de935e9be3a2e8">nseqn</a></div><div class="line"><a name="l00163"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a09ed8be682296ef584f0d5777b2c6482">  163</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a09ed8be682296ef584f0d5777b2c6482">ig_total_nseqn</a></div><div class="line"><a name="l00164"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#affa727bb033c0f4d09962f2b4d1b4ab5">  164</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#affa727bb033c0f4d09962f2b4d1b4ab5">ig_freq</a></div><div class="line"><a name="l00165"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ae2c74692147a54b3f7534301d509f766">  165</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ae2c74692147a54b3f7534301d509f766">ig_lag</a></div><div class="line"><a name="l00166"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#aad06af35c92de78d71671d39bcbb1690">  166</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#aad06af35c92de78d71671d39bcbb1690">nlagn</a> </div><div class="line"><a name="l00167"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a0b8948452bbd8cf1dc9f0fccc17c344d">  167</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a0b8948452bbd8cf1dc9f0fccc17c344d">ig_invert</a></div><div class="line"><a name="l00168"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#adc4dcf30da2b88fb1798dd02e7833bc1">  168</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#adc4dcf30da2b88fb1798dd02e7833bc1">ig_reverse</a></div><div class="line"><a name="l00169"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">  169</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a></div><div class="line"><a name="l00170"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a1cc3d37d7819c112f14b6cec03266561">  170</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a1cc3d37d7819c112f14b6cec03266561">ig_no_rstfile</a></div><div class="line"><a name="l00171"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">  171</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a></div><div class="line"><a name="l00172"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">  172</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a></div><div class="line"><a name="l00173"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ae81f2e658bbaeae20badef0fad425a69">  173</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ae81f2e658bbaeae20badef0fad425a69">ig_grid_nbrbf</a></div><div class="line"><a name="l00174"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a8e8c38746c6c35b13d2d9b934835188c">  174</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a8e8c38746c6c35b13d2d9b934835188c">ig_grid_nbraf</a></div><div class="line"><a name="l00175"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a05148b30ca97c536b40a896153c8921f">  175</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>                          :: <a class="code" href="namespacemod__oasis__namcouple.html#a05148b30ca97c536b40a896153c8921f">ig_nbr_rstfile</a></div><div class="line"><a name="l00176"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a839912711f8d2f44a825689e2673d0dd">  176</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>                          :: <a class="code" href="namespacemod__oasis__namcouple.html#a839912711f8d2f44a825689e2673d0dd">ig_total_frqmin</a></div><div class="line"><a name="l00177"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">  177</a></span>&#160;  <span class="keywordtype">LOGICAL</span>                  ,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a></div><div class="line"><a name="l00178"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a1f6ff08cee0c3c5deb262c1447d88328">  178</a></span>&#160;  <span class="keywordtype">CHARACTER(len=jpeighty)</span>   ,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a1f6ff08cee0c3c5deb262c1447d88328">cnaminp</a></div><div class="line"><a name="l00179"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a71ba84b9a7a813ca2551bcde99a0b5b5">  179</a></span>&#160;  <span class="keywordtype">CHARACTER(len=jpeighty)</span>   ,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a71ba84b9a7a813ca2551bcde99a0b5b5">cnamout</a></div><div class="line"><a name="l00180"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">  180</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>         ,<span class="keywordtype">DIMENSION(:,:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a></div><div class="line"><a name="l00181"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a8a7387f27c409ea27aa53b616805f0fa">  181</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>                                   :: <a class="code" href="namespacemod__oasis__namcouple.html#a8a7387f27c409ea27aa53b616805f0fa">cg_c</a></div><div class="line"><a name="l00182"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ac79429a9522aabddbe4ed68fd9571bec">  182</a></span>&#160;  <span class="keywordtype">CHARACTER(len=32)</span>        ,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ac79429a9522aabddbe4ed68fd9571bec">cg_name_rstfile</a></div><div class="line"><a name="l00183"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">  183</a></span>&#160;  <span class="keywordtype">CHARACTER(len=32)</span>        ,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a></div><div class="line"><a name="l00184"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#af17e746f51dcf0110428ebe55f6d7285">  184</a></span>&#160;  <span class="keywordtype">CHARACTER(len=32)</span>        ,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#af17e746f51dcf0110428ebe55f6d7285">cficinp</a></div><div class="line"><a name="l00185"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a62f96a372f013fc37713f8ba1728e3de">  185</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>         ,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a62f96a372f013fc37713f8ba1728e3de">cficout</a></div><div class="line"><a name="l00186"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a24f56cf88d79190f229d3fd1d62d17de">  186</a></span>&#160;  <span class="keywordtype">CHARACTER(len=32)</span>        ,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a24f56cf88d79190f229d3fd1d62d17de">cg_input_file</a></div><div class="line"><a name="l00187"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#aad4d4857b4c424e1b0f0bcc0a01aa6e3">  187</a></span>&#160;  <span class="keywordtype">CHARACTER(len=jpeighty)</span>   ,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#aad4d4857b4c424e1b0f0bcc0a01aa6e3">cg_input_field</a></div><div class="line"><a name="l00188"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a1b680bf476776f3db085dc1f0009736c">  188</a></span>&#160;  <span class="keywordtype">CHARACTER(len=jpeighty)</span>   ,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a1b680bf476776f3db085dc1f0009736c">cg_output_field</a></div><div class="line"><a name="l00189"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a9e90e47fd11ff4dd95c61dcf3ec872ff">  189</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>         ,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a9e90e47fd11ff4dd95c61dcf3ec872ff">cficbf</a></div><div class="line"><a name="l00190"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a9b3c7c879a3ff2b5eb15cbcaf5a8a1d9">  190</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>         ,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a9b3c7c879a3ff2b5eb15cbcaf5a8a1d9">cficaf</a></div><div class="line"><a name="l00191"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a4b507ab44ad62713c9e3d83ded6be3f4">  191</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>         ,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a4b507ab44ad62713c9e3d83ded6be3f4">cstate</a></div><div class="line"><a name="l00192"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ac22155599e9b49d57514dd1f7dc9928a">  192</a></span>&#160;  <span class="keywordtype">CHARACTER(len=4)</span>         ,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ac22155599e9b49d57514dd1f7dc9928a">cga_locatorbf</a></div><div class="line"><a name="l00193"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a6f4080d45f0b9be5a0466967f535b83b">  193</a></span>&#160;  <span class="keywordtype">CHARACTER(len=4)</span>         ,<span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a6f4080d45f0b9be5a0466967f535b83b">cga_locatoraf</a></div><div class="line"><a name="l00194"></a><span class="lineno">  194</span>&#160;<span class="comment">! --- mod_analysis</span></div><div class="line"><a name="l00195"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a298c9165785ae1a41f89597cadd211e7">  195</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a298c9165785ae1a41f89597cadd211e7">neighbor</a></div><div class="line"><a name="l00196"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#aaf9fd5eaa5d115f2548b8f78cdcd172d">  196</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#aaf9fd5eaa5d115f2548b8f78cdcd172d">ntronca</a></div><div class="line"><a name="l00197"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a9f8a2a4f44b1c56860fef8df014339d3">  197</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a9f8a2a4f44b1c56860fef8df014339d3">ncofld</a></div><div class="line"><a name="l00198"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a883d88938c50264711c53af2b555c3db">  198</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a883d88938c50264711c53af2b555c3db">neighborg</a></div><div class="line"><a name="l00199"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a21400200658d24cbf7484b5eb177c911">  199</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a21400200658d24cbf7484b5eb177c911">nbofld</a></div><div class="line"><a name="l00200"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#af0c7b1e7e49159c6b9c0dc3663264346">  200</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#af0c7b1e7e49159c6b9c0dc3663264346">nbnfld</a></div><div class="line"><a name="l00201"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#abb7c2cd3a371bbb8ccd6a272d0e9b60f">  201</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:,:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#abb7c2cd3a371bbb8ccd6a272d0e9b60f">nludat</a></div><div class="line"><a name="l00202"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a31f62f64cbcf344e529d0576386d0751">  202</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a31f62f64cbcf344e529d0576386d0751">nlufil</a></div><div class="line"><a name="l00203"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a42367b4984c6ac4c69cbdcd315cb54e6">  203</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a42367b4984c6ac4c69cbdcd315cb54e6">nlumap</a> </div><div class="line"><a name="l00204"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ac623e3e0906f57983efc1ab912ce9674">  204</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ac623e3e0906f57983efc1ab912ce9674">nmapfl</a></div><div class="line"><a name="l00205"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#adb1f8ce6bf94f488c10ef36b3afb8eca">  205</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#adb1f8ce6bf94f488c10ef36b3afb8eca">nmapvoi</a></div><div class="line"><a name="l00206"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#aefed5eaa9924d249e979a5a772a46979">  206</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#aefed5eaa9924d249e979a5a772a46979">nlusub</a></div><div class="line"><a name="l00207"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a6a94577996b440c31cac5b7d39e7f47a">  207</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a6a94577996b440c31cac5b7d39e7f47a">nsubfl</a></div><div class="line"><a name="l00208"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a0f31605257bfe125aafb6488a5065d4d">  208</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a0f31605257bfe125aafb6488a5065d4d">nsubvoi</a></div><div class="line"><a name="l00209"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a7510ecfe3d0f141252450e4ba66209ba">  209</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a7510ecfe3d0f141252450e4ba66209ba">nluext</a></div><div class="line"><a name="l00210"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a8302411d5a02efd9a6dc7f784fbb0d4d">  210</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a8302411d5a02efd9a6dc7f784fbb0d4d">nextfl</a></div><div class="line"><a name="l00211"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a484a71c213c89416924a0e23cfd46269">  211</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a484a71c213c89416924a0e23cfd46269">nosper</a></div><div class="line"><a name="l00212"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ac154fc90756832bc90d02ea21f7c7e17">  212</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ac154fc90756832bc90d02ea21f7c7e17">notper</a></div><div class="line"><a name="l00213"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a4c609c48a20205e1d2aa9938d7babc92">  213</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> ::  <a class="code" href="namespacemod__oasis__namcouple.html#a4c609c48a20205e1d2aa9938d7babc92">nbins</a></div><div class="line"><a name="l00214"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#aee9f6849ec644ee40f465976bc6c7b96">  214</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#aee9f6849ec644ee40f465976bc6c7b96">nlucor</a></div><div class="line"><a name="l00215"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#abb6f67bfba2cba424dabee3a465fdfd5">  215</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> ::  <a class="code" href="namespacemod__oasis__namcouple.html#abb6f67bfba2cba424dabee3a465fdfd5">nscripvoi</a></div><div class="line"><a name="l00216"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a92d43fa5eaaff81f0e3f73b303377c02">  216</a></span>&#160;  <span class="keywordtype">REAL (kind=ip_realwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a92d43fa5eaaff81f0e3f73b303377c02">amskval</a></div><div class="line"><a name="l00217"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a3598202174da65117caf675065f8b160">  217</a></span>&#160;  <span class="keywordtype">REAL (kind=ip_realwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a3598202174da65117caf675065f8b160">amskvalnew</a></div><div class="line"><a name="l00218"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a115cdfe0e05679107363605a992c6386">  218</a></span>&#160;  <span class="keywordtype">REAL (kind=ip_realwp_p)</span>, <span class="keywordtype">DIMENSION(:,:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a115cdfe0e05679107363605a992c6386">acocoef</a></div><div class="line"><a name="l00219"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a1b3f80e8e19f950b806636caadeb704b">  219</a></span>&#160;  <span class="keywordtype">REAL (kind=ip_realwp_p)</span>, <span class="keywordtype">DIMENSION(:,:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a1b3f80e8e19f950b806636caadeb704b">abocoef</a></div><div class="line"><a name="l00220"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a211c98282b89859bee6da0ef60f0d484">  220</a></span>&#160;  <span class="keywordtype">REAL (kind=ip_realwp_p)</span>, <span class="keywordtype">DIMENSION(:,:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a211c98282b89859bee6da0ef60f0d484">abncoef</a></div><div class="line"><a name="l00221"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a19fb86d643bb8761d5a8e32d645d5963">  221</a></span>&#160;  <span class="keywordtype">REAL (kind=ip_realwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a19fb86d643bb8761d5a8e32d645d5963">afldcoef</a></div><div class="line"><a name="l00222"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#aa9d178659282698ffb6c186ff48bed3c">  222</a></span>&#160;  <span class="keywordtype">REAL (kind=ip_realwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#aa9d178659282698ffb6c186ff48bed3c">afldcobo</a></div><div class="line"><a name="l00223"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a207709166cd4d719d65d76e6c043fd6c">  223</a></span>&#160;  <span class="keywordtype">REAL (kind=ip_realwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a207709166cd4d719d65d76e6c043fd6c">afldcobn</a></div><div class="line"><a name="l00224"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a2ee5f8ec71ebae64c3d14445345d7545">  224</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a2ee5f8ec71ebae64c3d14445345d7545">cxordbf</a></div><div class="line"><a name="l00225"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ae1debe43f1c5cffeeb1d0d9ab563f4c4">  225</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ae1debe43f1c5cffeeb1d0d9ab563f4c4">cyordbf</a></div><div class="line"><a name="l00226"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ab52bc27bf5898cc85dce0fc60feb9320">  226</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ab52bc27bf5898cc85dce0fc60feb9320">cxordaf</a></div><div class="line"><a name="l00227"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a68de802180c51365e7d4bcc5180ac93b">  227</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a68de802180c51365e7d4bcc5180ac93b">cyordaf</a></div><div class="line"><a name="l00228"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a1066d92e6c9301bdb46ddda7edd7d29a">  228</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a1066d92e6c9301bdb46ddda7edd7d29a">cextmet</a></div><div class="line"><a name="l00229"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ac9b9bb442cf77881bef2157c85e23495">  229</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ac9b9bb442cf77881bef2157c85e23495">cintmet</a></div><div class="line"><a name="l00230"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a795db0909c85ffadb601b744b5189ff5">  230</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a795db0909c85ffadb601b744b5189ff5">cgrdtyp</a></div><div class="line"><a name="l00231"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ab139e7bad0413c79a5ad8e0837d3e0ef">  231</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ab139e7bad0413c79a5ad8e0837d3e0ef">cfldtyp</a></div><div class="line"><a name="l00232"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a6a69d927924d3fa391fdc3ec6cb78197">  232</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a6a69d927924d3fa391fdc3ec6cb78197">cfilfic</a></div><div class="line"><a name="l00233"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#adf402f22f61893178fadcefe43b91102">  233</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#adf402f22f61893178fadcefe43b91102">cfilmet</a> </div><div class="line"><a name="l00234"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a535fadd17426c228698e3a51fd54b605">  234</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a535fadd17426c228698e3a51fd54b605">cconmet</a></div><div class="line"><a name="l00235"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a240979dfe7369da899b0cfe2aeba4f9d">  235</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a240979dfe7369da899b0cfe2aeba4f9d">cconopt</a></div><div class="line"><a name="l00236"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#af3a308fee2e4b00a1380035e41113d36">  236</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#af3a308fee2e4b00a1380035e41113d36">cfldcoa</a></div><div class="line"><a name="l00237"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#aa387fcfde8c2538e22897b243ff5024c">  237</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#aa387fcfde8c2538e22897b243ff5024c">cfldfin</a></div><div class="line"><a name="l00238"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#af8d81a53bd28ddf6bfe19f5e05f1d867">  238</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:,:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#af8d81a53bd28ddf6bfe19f5e05f1d867">ccofld</a></div><div class="line"><a name="l00239"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ab0f93bb917e445dc4e55fc2326168a42">  239</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:,:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ab0f93bb917e445dc4e55fc2326168a42">cbofld</a></div><div class="line"><a name="l00240"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#af5bfb0fe58a77461130b9967fa7a4d5e">  240</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:,:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#af5bfb0fe58a77461130b9967fa7a4d5e">cbnfld</a></div><div class="line"><a name="l00241"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a009543dda4495ab9b5ac3fcf15767682">  241</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:,:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a009543dda4495ab9b5ac3fcf15767682">ccofic</a></div><div class="line"><a name="l00242"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a9c5a3b3a864f3feb95eddc08616b998e">  242</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a9c5a3b3a864f3feb95eddc08616b998e">cdqdt</a></div><div class="line"><a name="l00243"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#affa01947af89e5cdad5f33fba2a53d22">  243</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#affa01947af89e5cdad5f33fba2a53d22">cgrdmap</a></div><div class="line"><a name="l00244"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a28c3f9e076a686c8ef916221e8fe4e10">  244</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a28c3f9e076a686c8ef916221e8fe4e10">cmskrd</a></div><div class="line"><a name="l00245"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ac7f3cff3406912fe6e48c3cc7cf5436b">  245</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ac7f3cff3406912fe6e48c3cc7cf5436b">cgrdsub</a></div><div class="line"><a name="l00246"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ad8f8aca3a6fa885e4edf027b79a93305">  246</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ad8f8aca3a6fa885e4edf027b79a93305">ctypsub</a></div><div class="line"><a name="l00247"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a5db101d0bffaf6fbd5ae10d1d0069108">  247</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a5db101d0bffaf6fbd5ae10d1d0069108">cgrdext</a></div><div class="line"><a name="l00248"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a348612422a03e478041ca5bdfd7201ae">  248</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a348612422a03e478041ca5bdfd7201ae">csper</a></div><div class="line"><a name="l00249"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#aa179b0a473551b48ef895497515d021c">  249</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#aa179b0a473551b48ef895497515d021c">ctper</a></div><div class="line"><a name="l00250"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ac8c1f0014f2c3cbe0cc4fcb09e54dde3">  250</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ac8c1f0014f2c3cbe0cc4fcb09e54dde3">cmap_method</a></div><div class="line"><a name="l00251"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a6dbd7bccbfa28b209a4bc58131f8cf11">  251</a></span>&#160;  <span class="keywordtype">CHARACTER(len=ic_long)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a6dbd7bccbfa28b209a4bc58131f8cf11">cmap_file</a></div><div class="line"><a name="l00252"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a82b32aa4c78713443daf65a3dfbc75dc">  252</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a82b32aa4c78713443daf65a3dfbc75dc">cmaptyp</a></div><div class="line"><a name="l00253"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a3d7b34ed13d4ad8f86bbab3ad9956b6b">  253</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a3d7b34ed13d4ad8f86bbab3ad9956b6b">cmapopt</a></div><div class="line"><a name="l00254"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a070f65b97986d1075f1deed9224cd89b">  254</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a070f65b97986d1075f1deed9224cd89b">corder</a></div><div class="line"><a name="l00255"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a205e8ba5863c6bf6de5c8450fb060c7a">  255</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a205e8ba5863c6bf6de5c8450fb060c7a">cnorm_opt</a></div><div class="line"><a name="l00256"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#af6d77b87036aa40faa1ae1ed1b2a0866">  256</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#af6d77b87036aa40faa1ae1ed1b2a0866">cfldtype</a></div><div class="line"><a name="l00257"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a7cbf27327f01748c4f87803ccff71b61">  257</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a7cbf27327f01748c4f87803ccff71b61">crsttype</a></div><div class="line"><a name="l00258"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a5e1d0d9b3d9f438102623d9643fbc704">  258</a></span>&#160;  <span class="keywordtype">CHARACTER(len=8)</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a5e1d0d9b3d9f438102623d9643fbc704">cfldcor</a></div><div class="line"><a name="l00259"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a902fe007f6c2505858bf72dbc64e43a2">  259</a></span>&#160;  <span class="keywordtype">LOGICAL</span>, <span class="keywordtype">DIMENSION(:)</span>,<span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a902fe007f6c2505858bf72dbc64e43a2">lsurf</a></div><div class="line"><a name="l00260"></a><span class="lineno">  260</span>&#160;<span class="comment">! --- mod_anais</span></div><div class="line"><a name="l00261"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a4a7cad8814c7811b364fd7d70b60b576">  261</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a4a7cad8814c7811b364fd7d70b60b576">naismfl</a></div><div class="line"><a name="l00262"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ada0ad7614eba9cc3a1e168484a520c33">  262</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ada0ad7614eba9cc3a1e168484a520c33">naisgfl</a></div><div class="line"><a name="l00263"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ae3d7c72b2f2f3ece9583cc0b25edbaba">  263</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ae3d7c72b2f2f3ece9583cc0b25edbaba">naismvoi</a></div><div class="line"><a name="l00264"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a87c0bb7c0a2cccbb673dcaf35e3dec50">  264</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a87c0bb7c0a2cccbb673dcaf35e3dec50">naisgvoi</a></div><div class="line"><a name="l00265"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a90e4ce86f77bf89c71a9277ff9b5dcbb">  265</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a90e4ce86f77bf89c71a9277ff9b5dcbb">niwtm</a></div><div class="line"><a name="l00266"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a28e887d61cc4b10c00c33a7d0f51a275">  266</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a28e887d61cc4b10c00c33a7d0f51a275">niwtg</a></div><div class="line"><a name="l00267"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ab7c38fd6bd90bb8e6ebfb539ead1f1a9">  267</a></span>&#160;  <span class="keywordtype">REAL (kind=ip_realwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ab7c38fd6bd90bb8e6ebfb539ead1f1a9">varmul</a></div><div class="line"><a name="l00268"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ac124af3aecadc7ba436f2ee6caffee9a">  268</a></span>&#160;  <span class="keywordtype">LOGICAL</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ac124af3aecadc7ba436f2ee6caffee9a">linit</a></div><div class="line"><a name="l00269"></a><span class="lineno">  269</span>&#160;<span class="comment">! --- mod extrapol</span></div><div class="line"><a name="l00270"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a63c2f2977f9cc4839f6bdec7bbbc5fa7">  270</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a63c2f2977f9cc4839f6bdec7bbbc5fa7">niwtn</a></div><div class="line"><a name="l00271"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a579387e570e26f2d6c6c2159824cf8a3">  271</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a579387e570e26f2d6c6c2159824cf8a3">nninnfl</a> </div><div class="line"><a name="l00272"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a3379333e7d0f24b776c81b1087f3a3b4">  272</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a3379333e7d0f24b776c81b1087f3a3b4">niwtng</a></div><div class="line"><a name="l00273"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a6526a92cd5fa662f9da229806d062dc2">  273</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a6526a92cd5fa662f9da229806d062dc2">nninnflg</a></div><div class="line"><a name="l00274"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a2febd0d97dea9ecc3ce4a8c5088a8d1f">  274</a></span>&#160;  <span class="keywordtype">LOGICAL</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a2febd0d97dea9ecc3ce4a8c5088a8d1f">lextra</a></div><div class="line"><a name="l00275"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a8d88d0c1b22ea43a9429f9e3a653a64b">  275</a></span>&#160;  <span class="keywordtype">LOGICAL</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#a8d88d0c1b22ea43a9429f9e3a653a64b">lweight</a></div><div class="line"><a name="l00276"></a><span class="lineno">  276</span>&#160;<span class="comment">!--- local reuse values</span></div><div class="line"><a name="l00277"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a5ddab80f5f002c5cee81e3bbcfcda6be">  277</a></span>&#160;  <span class="keywordtype">CHARACTER*9</span>, <span class="keywordtype">parameter</span> :: &amp;</div><div class="line"><a name="l00278"></a><span class="lineno">  278</span>&#160;    <a class="code" href="namespacemod__oasis__namcouple.html#a1c3afcba25a8ba41738104d42a59e423">clfield</a>  = <span class="stringliteral">&#39;$NFIELDS &#39;</span>, &amp;</div><div class="line"><a name="l00279"></a><span class="lineno">  279</span>&#160;    <a class="code" href="namespacemod__oasis__namcouple.html#ac0ead9ca992504e9b580db2678926b68">clchan</a>   = <span class="stringliteral">&#39;$CHANNEL &#39;</span>, &amp;</div><div class="line"><a name="l00280"></a><span class="lineno">  280</span>&#160;    <a class="code" href="namespacemod__oasis__namcouple.html#a4dde076bf8cce410eebbd878f791e32e">clstring</a> = <span class="stringliteral">&#39;$STRINGS &#39;</span>, &amp;</div><div class="line"><a name="l00281"></a><span class="lineno">  281</span>&#160;    <a class="code" href="namespacemod__oasis__namcouple.html#aa5cc4d0530b3e755441ef9ef70d8083b">clmod</a>    = <span class="stringliteral">&#39;$NBMODEL &#39;</span>, &amp;</div><div class="line"><a name="l00282"></a><span class="lineno">  282</span>&#160;    <a class="code" href="namespacemod__oasis__namcouple.html#afbdcab2dcd637c9c70db27c8c46bd2d7">cljob</a>    = <span class="stringliteral">&#39;$JOBNAME &#39;</span>, &amp;</div><div class="line"><a name="l00283"></a><span class="lineno">  283</span>&#160;    <a class="code" href="namespacemod__oasis__namcouple.html#a21a2ef5048e9fc9551821e8a0b8dec0b">cltime</a>   = <span class="stringliteral">&#39;$RUNTIME &#39;</span>, &amp;</div><div class="line"><a name="l00284"></a><span class="lineno">  284</span>&#160;    <a class="code" href="namespacemod__oasis__namcouple.html#a0d0b7fa2be2a8202344c0ef9085c1309">clseq</a>    = <span class="stringliteral">&#39;$SEQMODE &#39;</span>, &amp;</div><div class="line"><a name="l00285"></a><span class="lineno">  285</span>&#160;    <a class="code" href="namespacemod__oasis__namcouple.html#a0f2d8d935f9088aec74c4dda3e9f5d9c">cldate</a>   = <span class="stringliteral">&#39;$INIDATE &#39;</span>, &amp;</div><div class="line"><a name="l00286"></a><span class="lineno">  286</span>&#160;    <a class="code" href="namespacemod__oasis__namcouple.html#a15338be5483b1b392e3e5580be75704d">clhead</a>   = <span class="stringliteral">&#39;$MODINFO &#39;</span>, &amp;</div><div class="line"><a name="l00287"></a><span class="lineno">  287</span>&#160;    <a class="code" href="namespacemod__oasis__namcouple.html#aeaab03598b6067fbecd8d8fc0c54443e">clprint</a>  = <span class="stringliteral">&#39;$NLOGPRT &#39;</span>, &amp;</div><div class="line"><a name="l00288"></a><span class="lineno">  288</span>&#160;    <a class="code" href="namespacemod__oasis__namcouple.html#acb6d787969090bd3c10b20775abf6531">clmapdec</a> = <span class="stringliteral">&#39;$NMAPDEC &#39;</span>, &amp;</div><div class="line"><a name="l00289"></a><span class="lineno">  289</span>&#160;    <a class="code" href="namespacemod__oasis__namcouple.html#ab529642a54ad832b85c11fe4bd843314">clmatxrd</a> = <span class="stringliteral">&#39;$NMATXRD &#39;</span>, &amp;</div><div class="line"><a name="l00290"></a><span class="lineno">  290</span>&#160;    <a class="code" href="namespacemod__oasis__namcouple.html#a5ddab80f5f002c5cee81e3bbcfcda6be">clwgtopt</a> = <span class="stringliteral">&#39;$NWGTOPT &#39;</span>, &amp;</div><div class="line"><a name="l00291"></a><span class="lineno">  291</span>&#160;    <a class="code" href="namespacemod__oasis__namcouple.html#a003e41234b67967593d94b3dca1a69c3">clunit</a>   = <span class="stringliteral">&#39;$NUNITNO &#39;</span>, &amp;</div><div class="line"><a name="l00292"></a><span class="lineno">  292</span>&#160;    <a class="code" href="namespacemod__oasis__namcouple.html#a283471addd7aefe719c8eb6bc45072b0">clrest</a>   = <span class="stringliteral">&#39;$NNOREST &#39;</span>, &amp;</div><div class="line"><a name="l00293"></a><span class="lineno">  293</span>&#160;    <a class="code" href="namespacemod__oasis__namcouple.html#ad027273d67834ba44518cd9825f933b8">clcal</a>    = <span class="stringliteral">&#39;$CALTYPE &#39;</span>, &amp;</div><div class="line"><a name="l00294"></a><span class="lineno">  294</span>&#160;    <a class="code" href="namespacemod__oasis__namcouple.html#a52b0d4b9289219603308d3cb3fcc9eac">clend</a>    = <span class="stringliteral">&#39;$END     &#39;</span></div><div class="line"><a name="l00295"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ab629bd69885e9cd058f694b00474333a">  295</a></span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">parameter</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#ab629bd69885e9cd058f694b00474333a">nkeywords</a> = 17</div><div class="line"><a name="l00296"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#acd9594862404b2bbd26a2ce069076b0e">  296</a></span>&#160;  <span class="keywordtype">CHARACTER*9</span>, <span class="keywordtype">parameter</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#acd9594862404b2bbd26a2ce069076b0e">keyword_list</a>(<a class="code" href="namespacemod__oasis__namcouple.html#ab629bd69885e9cd058f694b00474333a">nkeywords</a>) = &amp;</div><div class="line"><a name="l00297"></a><span class="lineno">  297</span>&#160;    (/<a class="code" href="namespacemod__oasis__namcouple.html#a1c3afcba25a8ba41738104d42a59e423">clfield</a>, <a class="code" href="namespacemod__oasis__namcouple.html#ac0ead9ca992504e9b580db2678926b68">clchan</a>, <a class="code" href="namespacemod__oasis__namcouple.html#a4dde076bf8cce410eebbd878f791e32e">clstring</a>, <a class="code" href="namespacemod__oasis__namcouple.html#aa5cc4d0530b3e755441ef9ef70d8083b">clmod</a>, <a class="code" href="namespacemod__oasis__namcouple.html#afbdcab2dcd637c9c70db27c8c46bd2d7">cljob</a>, <a class="code" href="namespacemod__oasis__namcouple.html#a21a2ef5048e9fc9551821e8a0b8dec0b">cltime</a>, <a class="code" href="namespacemod__oasis__namcouple.html#a0d0b7fa2be2a8202344c0ef9085c1309">clseq</a>, &amp;</div><div class="line"><a name="l00298"></a><span class="lineno">  298</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a0f2d8d935f9088aec74c4dda3e9f5d9c">cldate</a>, <a class="code" href="namespacemod__oasis__namcouple.html#a15338be5483b1b392e3e5580be75704d">clhead</a>, <a class="code" href="namespacemod__oasis__namcouple.html#aeaab03598b6067fbecd8d8fc0c54443e">clprint</a>, <a class="code" href="namespacemod__oasis__namcouple.html#acb6d787969090bd3c10b20775abf6531">clmapdec</a>, <a class="code" href="namespacemod__oasis__namcouple.html#ab529642a54ad832b85c11fe4bd843314">clmatxrd</a>, <a class="code" href="namespacemod__oasis__namcouple.html#a003e41234b67967593d94b3dca1a69c3">clunit</a>, <a class="code" href="namespacemod__oasis__namcouple.html#a283471addd7aefe719c8eb6bc45072b0">clrest</a>, &amp;</div><div class="line"><a name="l00299"></a><span class="lineno">  299</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#ad027273d67834ba44518cd9825f933b8">clcal</a>, <a class="code" href="namespacemod__oasis__namcouple.html#a52b0d4b9289219603308d3cb3fcc9eac">clend</a>, <a class="code" href="namespacemod__oasis__namcouple.html#a5ddab80f5f002c5cee81e3bbcfcda6be">clwgtopt</a> /)</div><div class="line"><a name="l00300"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ada1acbaf7e666b7220e3b7fb8d0f2549">  300</a></span>&#160;  <span class="keywordtype">CHARACTER*512</span> :: <a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>, <a class="code" href="namespacemod__oasis__namcouple.html#a675d6fc398ff3a060fbd9949fde4d0e2">tmpstr2</a>, <a class="code" href="namespacemod__oasis__namcouple.html#a5564b823ced851e25d198f2c300dc138">tmpstr3</a>, <a class="code" href="namespacemod__oasis__namcouple.html#ada1acbaf7e666b7220e3b7fb8d0f2549">tmpstr4</a></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;</div><div class="line"><a name="l00303"></a><span class="lineno">  303</span>&#160;<span class="comment">!------------------------------------------------------------</span></div><div class="line"><a name="l00304"></a><span class="lineno">  304</span>&#160;<span class="keyword">CONTAINS</span></div><div class="line"><a name="l00305"></a><span class="lineno">  305</span>&#160;<span class="comment">!------------------------------------------------------------</span></div><div class="line"><a name="l00306"></a><span class="lineno">  306</span>&#160;<span class="comment"></span></div><div class="line"><a name="l00307"></a><span class="lineno">  307</span>&#160;<span class="comment">!&gt; Reads the namcouple</span></div><div class="line"><a name="l00308"></a><span class="lineno">  308</span>&#160;</div><div class="line"><a name="l00309"></a><span class="lineno">  309</span>&#160;<span class="keyword">SUBROUTINE </span><a class="code" href="namespacemod__oasis__namcouple.html#ab57c69ae534734f92a85e24a3389e972">oasis_namcouple_init</a>()</div><div class="line"><a name="l00310"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#ab57c69ae534734f92a85e24a3389e972">  310</a></span>&#160;</div><div class="line"><a name="l00311"></a><span class="lineno">  311</span>&#160;  <span class="keywordtype">IMPLICIT NONE</span></div><div class="line"><a name="l00312"></a><span class="lineno">  312</span>&#160;</div><div class="line"><a name="l00313"></a><span class="lineno">  313</span>&#160;  <span class="comment">!-----------------------------------------------------------</span></div><div class="line"><a name="l00314"></a><span class="lineno">  314</span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span> :: n, nv, n1, n2, loc</div><div class="line"><a name="l00315"></a><span class="lineno">  315</span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span> :: ja, jf, jc</div><div class="line"><a name="l00316"></a><span class="lineno">  316</span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span> :: il_iost</div><div class="line"><a name="l00317"></a><span class="lineno">  317</span>&#160;  <span class="keywordtype">INTEGER(kind=ip_i4_p)</span> :: maxunit</div><div class="line"><a name="l00318"></a><span class="lineno">  318</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">parameter</span> :: subname=<span class="stringliteral">&#39;(oasis_namcouple_init)&#39;</span></div><div class="line"><a name="l00319"></a><span class="lineno">  319</span>&#160;  <span class="comment">!-----------------------------------------------------------</span></div><div class="line"><a name="l00320"></a><span class="lineno">  320</span>&#160;</div><div class="line"><a name="l00321"></a><span class="lineno">  321</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#abce4c06d8a999919a2a185c71ab15edd">oasis_unitget</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>)</div><div class="line"><a name="l00322"></a><span class="lineno">  322</span>&#160;  <span class="keyword">OPEN</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>,file =<a class="code" href="namespacemod__oasis__namcouple.html#ae023a43e29bb32ebf11f193e34d8bd85">cl_namcouple</a>,status=<span class="stringliteral">&#39;OLD&#39;</span>, form =<span class="stringliteral">&#39;FORMATTED&#39;</span>, iostat = il_iost)</div><div class="line"><a name="l00323"></a><span class="lineno">  323</span>&#160;</div><div class="line"><a name="l00324"></a><span class="lineno">  324</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00325"></a><span class="lineno">  325</span>&#160;     <span class="keywordflow">IF</span> (il_iost .NE. 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00326"></a><span class="lineno">  326</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39; ERROR opening namcouple file &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#ae023a43e29bb32ebf11f193e34d8bd85">cl_namcouple</a>),<span class="stringliteral">&#39; with unit number &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a></div><div class="line"><a name="l00327"></a><span class="lineno">  327</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l00328"></a><span class="lineno">  328</span>&#160;     <span class="keywordflow">ELSE</span></div><div class="line"><a name="l00329"></a><span class="lineno">  329</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39; open namcouple file &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#ae023a43e29bb32ebf11f193e34d8bd85">cl_namcouple</a>),<span class="stringliteral">&#39; with unit number &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a></div><div class="line"><a name="l00330"></a><span class="lineno">  330</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l00331"></a><span class="lineno">  331</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l00332"></a><span class="lineno">  332</span>&#160;</div><div class="line"><a name="l00333"></a><span class="lineno">  333</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#acb43892c17b5f8c8b360effb5a811c27">inipar_alloc</a>()</div><div class="line"><a name="l00334"></a><span class="lineno">  334</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a0d85a5dcb3fab17a680cceed332b9668">alloc</a>()</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__namcouple.html#a6da9d2285766ceb22ea8449f55201d84">inipar</a>()</div><div class="line"><a name="l00336"></a><span class="lineno">  336</span>&#160;  <span class="comment">!</span></div><div class="line"><a name="l00337"></a><span class="lineno">  337</span>&#160;  <span class="comment">! Close namcouple unit</span></div><div class="line"><a name="l00338"></a><span class="lineno">  338</span>&#160;  <span class="keyword">close</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>)</div><div class="line"><a name="l00339"></a><span class="lineno">  339</span>&#160;  </div><div class="line"><a name="l00340"></a><span class="lineno">  340</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#a892ed9f46e2e8f577f1a2670f74695d6">oasis_unitfree</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>)</div><div class="line"><a name="l00341"></a><span class="lineno">  341</span>&#160;</div><div class="line"><a name="l00342"></a><span class="lineno">  342</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00343"></a><span class="lineno">  343</span>&#160;      <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39; allocating ig_final_nfield&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a></div><div class="line"><a name="l00344"></a><span class="lineno">  344</span>&#160;      <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00345"></a><span class="lineno">  345</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l00346"></a><span class="lineno">  346</span>&#160;</div><div class="line"><a name="l00347"></a><span class="lineno">  347</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a5fcb5a4f2a49f414fafe38b03c5c089d">namsrcfld</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00348"></a><span class="lineno">  348</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namsrcfld&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00349"></a><span class="lineno">  349</span>&#160;</div><div class="line"><a name="l00350"></a><span class="lineno">  350</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#ac4cfec209e4169b6098f9a8b9be1ffb1">namdstfld</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00351"></a><span class="lineno">  351</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namdstfld&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00352"></a><span class="lineno">  352</span>&#160;</div><div class="line"><a name="l00353"></a><span class="lineno">  353</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a589c1bae58b10bcb0cfb30c0893a7895">namsrcgrd</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00354"></a><span class="lineno">  354</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namsrcgrd&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00355"></a><span class="lineno">  355</span>&#160;</div><div class="line"><a name="l00356"></a><span class="lineno">  356</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#ac8f6c8fe3720739f3d26431a8a600506">namsrc_nx</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00357"></a><span class="lineno">  357</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namsrc_nx&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00358"></a><span class="lineno">  358</span>&#160;</div><div class="line"><a name="l00359"></a><span class="lineno">  359</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#ab82c80f007b37865172ddb033a1abb36">namsrc_ny</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00360"></a><span class="lineno">  360</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namsrc_ny&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00361"></a><span class="lineno">  361</span>&#160;</div><div class="line"><a name="l00362"></a><span class="lineno">  362</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a7a2ed64b0670db38d2287f5d452060e4">namdstgrd</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00363"></a><span class="lineno">  363</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namdstgrd&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00364"></a><span class="lineno">  364</span>&#160;</div><div class="line"><a name="l00365"></a><span class="lineno">  365</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a6add94418eefdaefd78cd971888a5826">namdst_nx</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00366"></a><span class="lineno">  366</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namdst_nx&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00367"></a><span class="lineno">  367</span>&#160;</div><div class="line"><a name="l00368"></a><span class="lineno">  368</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a9035fc89396bad9574c88642d3aac5f0">namdst_ny</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00369"></a><span class="lineno">  369</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namdst_ny&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00370"></a><span class="lineno">  370</span>&#160;</div><div class="line"><a name="l00371"></a><span class="lineno">  371</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a54ccfe0380fc1c89d085f37a044a297e">namfldseq</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00372"></a><span class="lineno">  372</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namfldseq&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00373"></a><span class="lineno">  373</span>&#160;</div><div class="line"><a name="l00374"></a><span class="lineno">  374</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a4841e350d91926f5f8403e73442c76ad">namfldops</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00375"></a><span class="lineno">  375</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namfldops&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00376"></a><span class="lineno">  376</span>&#160;</div><div class="line"><a name="l00377"></a><span class="lineno">  377</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a5f81bc00e6dc045770edd4093f68278c">namfldtrn</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00378"></a><span class="lineno">  378</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namfldtrn&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00379"></a><span class="lineno">  379</span>&#160;</div><div class="line"><a name="l00380"></a><span class="lineno">  380</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a96aa6a31ef021468f807819a84b327c3">namfldcon</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00381"></a><span class="lineno">  381</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namfldcon&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00382"></a><span class="lineno">  382</span>&#160;</div><div class="line"><a name="l00383"></a><span class="lineno">  383</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a119b86702766d5392cb44856448bcd3e">namfldcoo</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00384"></a><span class="lineno">  384</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namfldcoo&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00385"></a><span class="lineno">  385</span>&#160;</div><div class="line"><a name="l00386"></a><span class="lineno">  386</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a9080617143dacb027f74c4c5158b5e58">namflddti</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00387"></a><span class="lineno">  387</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namflddti&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00388"></a><span class="lineno">  388</span>&#160;</div><div class="line"><a name="l00389"></a><span class="lineno">  389</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a6a4406ca14f91ef6514a18eb154e648f">namfldlag</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00390"></a><span class="lineno">  390</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namfldlag&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00391"></a><span class="lineno">  391</span>&#160;</div><div class="line"><a name="l00392"></a><span class="lineno">  392</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a9fc6ac674a8cfa68d9d15ad13213e21d">nammapfil</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00393"></a><span class="lineno">  393</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nammapfil&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00394"></a><span class="lineno">  394</span>&#160;</div><div class="line"><a name="l00395"></a><span class="lineno">  395</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a7316d7d322da7cf10f315e38c145ebbb">nammaploc</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00396"></a><span class="lineno">  396</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nammaploc&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00397"></a><span class="lineno">  397</span>&#160;</div><div class="line"><a name="l00398"></a><span class="lineno">  398</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#ad2554b4881fa63780dd5e6fe78d705ef">nammapopt</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00399"></a><span class="lineno">  399</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nammapopt&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00400"></a><span class="lineno">  400</span>&#160;</div><div class="line"><a name="l00401"></a><span class="lineno">  401</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a54f4b8262f809a20928092782bc78345">namrstfil</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00402"></a><span class="lineno">  402</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namrstfil&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00403"></a><span class="lineno">  403</span>&#160;</div><div class="line"><a name="l00404"></a><span class="lineno">  404</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a15fc11ff1c1d5718ff127a06a205a82c">naminpfil</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00405"></a><span class="lineno">  405</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;naminpfil&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</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="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a4555b14f38928b7f0fb7f77b9c42d0a0">namsort2nn</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00408"></a><span class="lineno">  408</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namsort2nn&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00409"></a><span class="lineno">  409</span>&#160;</div><div class="line"><a name="l00410"></a><span class="lineno">  410</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a0ace7c451d8658759b9c8d871926a76e">namnn2sort</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00411"></a><span class="lineno">  411</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namnn2sort&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00412"></a><span class="lineno">  412</span>&#160;</div><div class="line"><a name="l00413"></a><span class="lineno">  413</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a7c88a329c97aea020e9b135bdca8d160">namchecki</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00414"></a><span class="lineno">  414</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namchecki&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00415"></a><span class="lineno">  415</span>&#160;</div><div class="line"><a name="l00416"></a><span class="lineno">  416</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a58c011820e55c9af9f306fbb1d45eb23">namchecko</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00417"></a><span class="lineno">  417</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namchecko&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00418"></a><span class="lineno">  418</span>&#160;</div><div class="line"><a name="l00419"></a><span class="lineno">  419</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#ab52824ec91491253e02556a68ab31b09">namfldsmu</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00420"></a><span class="lineno">  420</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namfldsmu&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00421"></a><span class="lineno">  421</span>&#160;</div><div class="line"><a name="l00422"></a><span class="lineno">  422</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a1729dba99742412a1e07a479cb7f7921">namfldsad</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00423"></a><span class="lineno">  423</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namfldsad&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00424"></a><span class="lineno">  424</span>&#160;</div><div class="line"><a name="l00425"></a><span class="lineno">  425</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#ad81bb4f19a71f0fcf8655cb9d39a3380">namflddmu</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00426"></a><span class="lineno">  426</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namflddmu&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00427"></a><span class="lineno">  427</span>&#160;</div><div class="line"><a name="l00428"></a><span class="lineno">  428</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#af1e31f45ea1cd7a7b64a8a7dc2cec4ee">namflddad</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00429"></a><span class="lineno">  429</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namflddad&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00430"></a><span class="lineno">  430</span>&#160;</div><div class="line"><a name="l00431"></a><span class="lineno">  431</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a51c19e0892a72acc3dca2adb046ed175">namscrmet</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00432"></a><span class="lineno">  432</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namscrmet&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00433"></a><span class="lineno">  433</span>&#160;</div><div class="line"><a name="l00434"></a><span class="lineno">  434</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a392f40531007d5dcc084e6ad4a393fd7">namscrnor</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00435"></a><span class="lineno">  435</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namscrnor&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00436"></a><span class="lineno">  436</span>&#160;</div><div class="line"><a name="l00437"></a><span class="lineno">  437</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a8ddbaabd22bbf485888b1df5f3578909">namscrtyp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00438"></a><span class="lineno">  438</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namscrtyp&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00439"></a><span class="lineno">  439</span>&#160;</div><div class="line"><a name="l00440"></a><span class="lineno">  440</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#ac881ced105604879ada860fabd677481">namscrord</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00441"></a><span class="lineno">  441</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namscrord&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00442"></a><span class="lineno">  442</span>&#160;</div><div class="line"><a name="l00443"></a><span class="lineno">  443</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a6a95ddbbbc615e0257d93d05e4546239">namscrres</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00444"></a><span class="lineno">  444</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namscrres&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00445"></a><span class="lineno">  445</span>&#160;</div><div class="line"><a name="l00446"></a><span class="lineno">  446</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a45b410743ce74a9824d44b329ba323ba">namscrvam</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00447"></a><span class="lineno">  447</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namscrvam&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00448"></a><span class="lineno">  448</span>&#160;</div><div class="line"><a name="l00449"></a><span class="lineno">  449</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a20d614468823744b82118ee8cf2df852">namscrnbr</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00450"></a><span class="lineno">  450</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namscrnbr&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00451"></a><span class="lineno">  451</span>&#160;</div><div class="line"><a name="l00452"></a><span class="lineno">  452</span>&#160;  <span class="keyword">allocate</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a728405e8f669b58d00c189abf8b62437">namscrbin</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l00453"></a><span class="lineno">  453</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;namscrbin&quot; allocation of experiment module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l00454"></a><span class="lineno">  454</span>&#160;</div><div class="line"><a name="l00455"></a><span class="lineno">  455</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a5fcb5a4f2a49f414fafe38b03c5c089d">namsrcfld</a>(:) = trim(<a class="code" href="namespacemod__oasis__data.html#acfb160b3d147e7cb667b0dc0f5bb2960">cspval</a>)</div><div class="line"><a name="l00456"></a><span class="lineno">  456</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ac4cfec209e4169b6098f9a8b9be1ffb1">namdstfld</a>(:) = trim(<a class="code" href="namespacemod__oasis__data.html#acfb160b3d147e7cb667b0dc0f5bb2960">cspval</a>)</div><div class="line"><a name="l00457"></a><span class="lineno">  457</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a589c1bae58b10bcb0cfb30c0893a7895">namsrcgrd</a>(:) = trim(<a class="code" href="namespacemod__oasis__data.html#acfb160b3d147e7cb667b0dc0f5bb2960">cspval</a>)</div><div class="line"><a name="l00458"></a><span class="lineno">  458</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ac8f6c8fe3720739f3d26431a8a600506">namsrc_nx</a>(:) = 0</div><div class="line"><a name="l00459"></a><span class="lineno">  459</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ab82c80f007b37865172ddb033a1abb36">namsrc_ny</a>(:) = 0</div><div class="line"><a name="l00460"></a><span class="lineno">  460</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a7a2ed64b0670db38d2287f5d452060e4">namdstgrd</a>(:) = trim(<a class="code" href="namespacemod__oasis__data.html#acfb160b3d147e7cb667b0dc0f5bb2960">cspval</a>)</div><div class="line"><a name="l00461"></a><span class="lineno">  461</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a6add94418eefdaefd78cd971888a5826">namdst_nx</a>(:) = 0</div><div class="line"><a name="l00462"></a><span class="lineno">  462</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a9035fc89396bad9574c88642d3aac5f0">namdst_ny</a>(:) = 0</div><div class="line"><a name="l00463"></a><span class="lineno">  463</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a54ccfe0380fc1c89d085f37a044a297e">namfldseq</a>(:) = -1</div><div class="line"><a name="l00464"></a><span class="lineno">  464</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a4841e350d91926f5f8403e73442c76ad">namfldops</a>(:) = -1</div><div class="line"><a name="l00465"></a><span class="lineno">  465</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a5f81bc00e6dc045770edd4093f68278c">namfldtrn</a>(:) = <a class="code" href="namespacemod__oasis__parameters.html#a1028581caadcb9d7506b25c6cd3efd01">ip_instant</a></div><div class="line"><a name="l00466"></a><span class="lineno">  466</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a96aa6a31ef021468f807819a84b327c3">namfldcon</a>(:) = <a class="code" href="namespacemod__oasis__parameters.html#ae043e4e2c2b7f04fec7d8c061ef52934">ip_cnone</a></div><div class="line"><a name="l00467"></a><span class="lineno">  467</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a119b86702766d5392cb44856448bcd3e">namfldcoo</a>(:) = <span class="stringliteral">&quot;bfb&quot;</span></div><div class="line"><a name="l00468"></a><span class="lineno">  468</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a9080617143dacb027f74c4c5158b5e58">namflddti</a>(:) = -1</div><div class="line"><a name="l00469"></a><span class="lineno">  469</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a6a4406ca14f91ef6514a18eb154e648f">namfldlag</a>(:) = 0</div><div class="line"><a name="l00470"></a><span class="lineno">  470</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a9fc6ac674a8cfa68d9d15ad13213e21d">nammapfil</a>(:) = <span class="stringliteral">&quot;idmap&quot;</span></div><div class="line"><a name="l00471"></a><span class="lineno">  471</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a7316d7d322da7cf10f315e38c145ebbb">nammaploc</a>(:) = <span class="stringliteral">&quot;src&quot;</span></div><div class="line"><a name="l00472"></a><span class="lineno">  472</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ad2554b4881fa63780dd5e6fe78d705ef">nammapopt</a>(:) = <span class="stringliteral">&quot;bfb&quot;</span></div><div class="line"><a name="l00473"></a><span class="lineno">  473</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a54f4b8262f809a20928092782bc78345">namrstfil</a>(:) = trim(<a class="code" href="namespacemod__oasis__data.html#acfb160b3d147e7cb667b0dc0f5bb2960">cspval</a>)</div><div class="line"><a name="l00474"></a><span class="lineno">  474</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a15fc11ff1c1d5718ff127a06a205a82c">naminpfil</a>(:) = trim(<a class="code" href="namespacemod__oasis__data.html#acfb160b3d147e7cb667b0dc0f5bb2960">cspval</a>)</div><div class="line"><a name="l00475"></a><span class="lineno">  475</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a7c88a329c97aea020e9b135bdca8d160">namchecki</a>(:) = .false.</div><div class="line"><a name="l00476"></a><span class="lineno">  476</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a58c011820e55c9af9f306fbb1d45eb23">namchecko</a>(:) = .false.</div><div class="line"><a name="l00477"></a><span class="lineno">  477</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ab52824ec91491253e02556a68ab31b09">namfldsmu</a>(:) = 1.0_ip_realwp_p</div><div class="line"><a name="l00478"></a><span class="lineno">  478</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a1729dba99742412a1e07a479cb7f7921">namfldsad</a>(:) = 0.0_ip_realwp_p</div><div class="line"><a name="l00479"></a><span class="lineno">  479</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ad81bb4f19a71f0fcf8655cb9d39a3380">namflddmu</a>(:) = 1.0_ip_realwp_p</div><div class="line"><a name="l00480"></a><span class="lineno">  480</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#af1e31f45ea1cd7a7b64a8a7dc2cec4ee">namflddad</a>(:) = 0.0_ip_realwp_p</div><div class="line"><a name="l00481"></a><span class="lineno">  481</span>&#160;</div><div class="line"><a name="l00482"></a><span class="lineno">  482</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a51c19e0892a72acc3dca2adb046ed175">namscrmet</a>(:) = trim(<a class="code" href="namespacemod__oasis__data.html#acfb160b3d147e7cb667b0dc0f5bb2960">cspval</a>)</div><div class="line"><a name="l00483"></a><span class="lineno">  483</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a392f40531007d5dcc084e6ad4a393fd7">namscrnor</a>(:) = trim(<a class="code" href="namespacemod__oasis__data.html#acfb160b3d147e7cb667b0dc0f5bb2960">cspval</a>)</div><div class="line"><a name="l00484"></a><span class="lineno">  484</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a8ddbaabd22bbf485888b1df5f3578909">namscrtyp</a>(:) = trim(<a class="code" href="namespacemod__oasis__data.html#acfb160b3d147e7cb667b0dc0f5bb2960">cspval</a>)</div><div class="line"><a name="l00485"></a><span class="lineno">  485</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ac881ced105604879ada860fabd677481">namscrord</a>(:) = trim(<a class="code" href="namespacemod__oasis__data.html#acfb160b3d147e7cb667b0dc0f5bb2960">cspval</a>)</div><div class="line"><a name="l00486"></a><span class="lineno">  486</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a6a95ddbbbc615e0257d93d05e4546239">namscrres</a>(:) = trim(<a class="code" href="namespacemod__oasis__data.html#acfb160b3d147e7cb667b0dc0f5bb2960">cspval</a>)</div><div class="line"><a name="l00487"></a><span class="lineno">  487</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a45b410743ce74a9824d44b329ba323ba">namscrvam</a>(:) = 1.0_ip_realwp_p</div><div class="line"><a name="l00488"></a><span class="lineno">  488</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a20d614468823744b82118ee8cf2df852">namscrnbr</a>(:) = -1</div><div class="line"><a name="l00489"></a><span class="lineno">  489</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a728405e8f669b58d00c189abf8b62437">namscrbin</a>(:) = -1</div><div class="line"><a name="l00490"></a><span class="lineno">  490</span>&#160;</div><div class="line"><a name="l00491"></a><span class="lineno">  491</span>&#160;<span class="comment">!  maxunit = max(maxval(iga_unitmod),1024)</span></div><div class="line"><a name="l00492"></a><span class="lineno">  492</span>&#160;<span class="comment">!  maxunit = 1024</span></div><div class="line"><a name="l00493"></a><span class="lineno">  493</span>&#160;<span class="comment">!  IF (mpi_rank_global == 0) THEN</span></div><div class="line"><a name="l00494"></a><span class="lineno">  494</span>&#160;<span class="comment">!      WRITE(nulprt1,*) subname,&#39; maximum unit number = &#39;,maxunit</span></div><div class="line"><a name="l00495"></a><span class="lineno">  495</span>&#160;<span class="comment">!      CALL oasis_flush(nulprt1)</span></div><div class="line"><a name="l00496"></a><span class="lineno">  496</span>&#160;<span class="comment">!  ENDIF</span></div><div class="line"><a name="l00497"></a><span class="lineno">  497</span>&#160;<span class="comment">!  CALL oasis_unitsetmin(maxunit)</span></div><div class="line"><a name="l00498"></a><span class="lineno">  498</span>&#160;</div><div class="line"><a name="l00499"></a><span class="lineno">  499</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a5ca7cd6a5b9f939b68492200aa92bab4">nnamcpl</a> = <a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a></div><div class="line"><a name="l00500"></a><span class="lineno">  500</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a14505eaa91b2c8ba308c63ff78652206">namruntim</a> = <a class="code" href="namespacemod__oasis__namcouple.html#a8a962108487c3ca092633bd4292dbfd6">ntime</a></div><div class="line"><a name="l00501"></a><span class="lineno">  501</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a46affda5336f60a1eeb1badaaccd3cfd">namlogprt</a> = <a class="code" href="namespacemod__oasis__namcouple.html#a7b8c924fdea622759b99d8f61e03ade5">nlogprt</a></div><div class="line"><a name="l00502"></a><span class="lineno">  502</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a45fbbd2941f5d71991d409f63e31cf02">namtlogprt</a> = <a class="code" href="namespacemod__oasis__namcouple.html#a49bd874b06648257f7ce70da19a678b4">ntlogprt</a></div><div class="line"><a name="l00503"></a><span class="lineno">  503</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a1b8c7ce28c62fa0b15076b7169d8b454">namuntmin</a> = <a class="code" href="namespacemod__oasis__namcouple.html#a9add83d816dc5cdb41c84747f4ee8962">nuntmin</a></div><div class="line"><a name="l00504"></a><span class="lineno">  504</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ae750107f9401fd3c7348088ad3095b45">namuntmax</a> = <a class="code" href="namespacemod__oasis__namcouple.html#ab47490a015fa09cf75a760dadfeb0ff9">nuntmax</a></div><div class="line"><a name="l00505"></a><span class="lineno">  505</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ad1bd3ea485ad5f5114eb4b7f8c831ccb">namnorest</a> = <a class="code" href="namespacemod__oasis__namcouple.html#adb02545191d2ca9c1daff1a3ced2223f">nnorest</a></div><div class="line"><a name="l00506"></a><span class="lineno">  506</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a484aaf8a6d7eaa0675a8249fa94509cf">nammapdec</a> = <a class="code" href="namespacemod__oasis__namcouple.html#af56d31837b48a43e234bccbf1a3e2954">nmapdec</a></div><div class="line"><a name="l00507"></a><span class="lineno">  507</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ad9ac6585de157a05d793636addf672a5">nammatxrd</a> = <a class="code" href="namespacemod__oasis__namcouple.html#a7cb9d88a57224d84d97afc29b0e606bf">nmatxrd</a></div><div class="line"><a name="l00508"></a><span class="lineno">  508</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a03a63fe10e98e695e556ee190cd3accc">namwgtopt</a> = <a class="code" href="namespacemod__oasis__namcouple.html#ad7829e2434eb8214b599ba49395c9fc5">nwgtopt</a></div><div class="line"><a name="l00509"></a><span class="lineno">  509</span>&#160;  <span class="keywordflow">DO</span> jf = 1,<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a></div><div class="line"><a name="l00510"></a><span class="lineno">  510</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a5fcb5a4f2a49f414fafe38b03c5c089d">namsrcfld</a>(jf) = <a class="code" href="namespacemod__oasis__namcouple.html#aad4d4857b4c424e1b0f0bcc0a01aa6e3">cg_input_field</a>(jf)</div><div class="line"><a name="l00511"></a><span class="lineno">  511</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#ac4cfec209e4169b6098f9a8b9be1ffb1">namdstfld</a>(jf) = <a class="code" href="namespacemod__oasis__namcouple.html#a1b680bf476776f3db085dc1f0009736c">cg_output_field</a>(jf)</div><div class="line"><a name="l00512"></a><span class="lineno">  512</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a54ccfe0380fc1c89d085f37a044a297e">namfldseq</a>(jf) = <a class="code" href="namespacemod__oasis__namcouple.html#a09ed8be682296ef584f0d5777b2c6482">ig_total_nseqn</a>(jf)</div><div class="line"><a name="l00513"></a><span class="lineno">  513</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a4841e350d91926f5f8403e73442c76ad">namfldops</a>(jf) = <a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf)</div><div class="line"><a name="l00514"></a><span class="lineno">  514</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a4841e350d91926f5f8403e73442c76ad">namfldops</a>(jf) == <a class="code" href="namespacemod__oasis__parameters.html#a4e90463865a09309212e947e8c8546ac">ip_auxilary</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00515"></a><span class="lineno">  515</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) jf,<span class="stringliteral">&#39; ERROR: AUXILARY NOT SUPPORTED&#39;</span></div><div class="line"><a name="l00516"></a><span class="lineno">  516</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l00517"></a><span class="lineno">  517</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l00518"></a><span class="lineno">  518</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a4841e350d91926f5f8403e73442c76ad">namfldops</a>(jf) == <a class="code" href="namespacemod__oasis__parameters.html#ae3733a399c07b165b5ad19543ca1d2a2">ip_ignored</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00519"></a><span class="lineno">  519</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#a4841e350d91926f5f8403e73442c76ad">namfldops</a>(jf) = <a class="code" href="namespacemod__oasis__parameters.html#a0f729cda95773cdc8df800eacdceb606">ip_exported</a></div><div class="line"><a name="l00520"></a><span class="lineno">  520</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00521"></a><span class="lineno">  521</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,jf,<span class="stringliteral">&#39;WARNING: IGNORED converted to EXPORTED&#39;</span></div><div class="line"><a name="l00522"></a><span class="lineno">  522</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00523"></a><span class="lineno">  523</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l00524"></a><span class="lineno">  524</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l00525"></a><span class="lineno">  525</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a4841e350d91926f5f8403e73442c76ad">namfldops</a>(jf) == <a class="code" href="namespacemod__oasis__parameters.html#a4d283e27ebb49e8d97a35842f10d9aec">ip_ignout</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00526"></a><span class="lineno">  526</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#a4841e350d91926f5f8403e73442c76ad">namfldops</a>(jf) = <a class="code" href="namespacemod__oasis__parameters.html#ae91d5161b091e1f07e6ee64a38514df6">ip_expout</a></div><div class="line"><a name="l00527"></a><span class="lineno">  527</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00528"></a><span class="lineno">  528</span>&#160;            <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,jf,<span class="stringliteral">&#39;WARNING: IGNOUT converted to EXPOUT&#39;</span></div><div class="line"><a name="l00529"></a><span class="lineno">  529</span>&#160;            <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="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;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l00532"></a><span class="lineno">  532</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a9080617143dacb027f74c4c5158b5e58">namflddti</a>(jf) = <a class="code" href="namespacemod__oasis__namcouple.html#affa727bb033c0f4d09962f2b4d1b4ab5">ig_freq</a>(jf)</div><div class="line"><a name="l00533"></a><span class="lineno">  533</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a6a4406ca14f91ef6514a18eb154e648f">namfldlag</a>(jf) = <a class="code" href="namespacemod__oasis__namcouple.html#ae2c74692147a54b3f7534301d509f766">ig_lag</a>(jf)</div><div class="line"><a name="l00534"></a><span class="lineno">  534</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a5f81bc00e6dc045770edd4093f68278c">namfldtrn</a>(jf) = <a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a>(jf)</div><div class="line"><a name="l00535"></a><span class="lineno">  535</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a54f4b8262f809a20928092782bc78345">namrstfil</a>(jf) = trim(<a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a>(jf))</div><div class="line"><a name="l00536"></a><span class="lineno">  536</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a15fc11ff1c1d5718ff127a06a205a82c">naminpfil</a>(jf) = trim(<a class="code" href="namespacemod__oasis__namcouple.html#a24f56cf88d79190f229d3fd1d62d17de">cg_input_file</a>(jf))</div><div class="line"><a name="l00537"></a><span class="lineno">  537</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf) &gt; 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00538"></a><span class="lineno">  538</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#a589c1bae58b10bcb0cfb30c0893a7895">namsrcgrd</a>(jf) = trim(<a class="code" href="namespacemod__oasis__namcouple.html#a9e90e47fd11ff4dd95c61dcf3ec872ff">cficbf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)))</div><div class="line"><a name="l00539"></a><span class="lineno">  539</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#ac8f6c8fe3720739f3d26431a8a600506">namsrc_nx</a>(jf) = <a class="code" href="namespacemod__oasis__namcouple.html#a6e774d31f16b513b1d604e72a82dff40">nlonbf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l00540"></a><span class="lineno">  540</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#ab82c80f007b37865172ddb033a1abb36">namsrc_ny</a>(jf) = <a class="code" href="namespacemod__oasis__namcouple.html#a9b09ac96dad78313003a9436fe2f9aec">nlatbf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l00541"></a><span class="lineno">  541</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#a7a2ed64b0670db38d2287f5d452060e4">namdstgrd</a>(jf) = trim(<a class="code" href="namespacemod__oasis__namcouple.html#a9b3c7c879a3ff2b5eb15cbcaf5a8a1d9">cficaf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)))</div><div class="line"><a name="l00542"></a><span class="lineno">  542</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#a6add94418eefdaefd78cd971888a5826">namdst_nx</a>(jf) = <a class="code" href="namespacemod__oasis__namcouple.html#ae413f2dc402b7c018e341081b8d6e208">nlonaf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l00543"></a><span class="lineno">  543</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#a9035fc89396bad9574c88642d3aac5f0">namdst_ny</a>(jf) = <a class="code" href="namespacemod__oasis__namcouple.html#a80d81b2f026a2d0dc2de27b9ee04f7af">nlataf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l00544"></a><span class="lineno">  544</span>&#160;        <span class="keywordflow">DO</span> ja = 1, <a class="code" href="namespacemod__oasis__namcouple.html#ac4549f9f5bbb37fce3edc9a208e0d48b">ig_ntrans</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l00545"></a><span class="lineno">  545</span>&#160;</div><div class="line"><a name="l00546"></a><span class="lineno">  546</span>&#160;           <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;SCRIPR&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00547"></a><span class="lineno">  547</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a51c19e0892a72acc3dca2adb046ed175">namscrmet</a>(jf) = trim(<a class="code" href="namespacemod__oasis__namcouple.html#ac8c1f0014f2c3cbe0cc4fcb09e54dde3">cmap_method</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)))</div><div class="line"><a name="l00548"></a><span class="lineno">  548</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a392f40531007d5dcc084e6ad4a393fd7">namscrnor</a>(jf) = trim(<a class="code" href="namespacemod__oasis__namcouple.html#a205e8ba5863c6bf6de5c8450fb060c7a">cnorm_opt</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)))</div><div class="line"><a name="l00549"></a><span class="lineno">  549</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a8ddbaabd22bbf485888b1df5f3578909">namscrtyp</a>(jf) = trim(<a class="code" href="namespacemod__oasis__namcouple.html#af6d77b87036aa40faa1ae1ed1b2a0866">cfldtype</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)))</div><div class="line"><a name="l00550"></a><span class="lineno">  550</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#ac881ced105604879ada860fabd677481">namscrord</a>(jf) = trim(<a class="code" href="namespacemod__oasis__namcouple.html#a070f65b97986d1075f1deed9224cd89b">corder</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)))</div><div class="line"><a name="l00551"></a><span class="lineno">  551</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a6a95ddbbbc615e0257d93d05e4546239">namscrres</a>(jf) = trim(<a class="code" href="namespacemod__oasis__namcouple.html#a7cbf27327f01748c4f87803ccff71b61">crsttype</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)))</div><div class="line"><a name="l00552"></a><span class="lineno">  552</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a45b410743ce74a9824d44b329ba323ba">namscrvam</a>(jf) =      <a class="code" href="namespacemod__oasis__namcouple.html#ab7c38fd6bd90bb8e6ebfb539ead1f1a9">varmul</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l00553"></a><span class="lineno">  553</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a20d614468823744b82118ee8cf2df852">namscrnbr</a>(jf) =      <a class="code" href="namespacemod__oasis__namcouple.html#abb6f67bfba2cba424dabee3a465fdfd5">nscripvoi</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l00554"></a><span class="lineno">  554</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a728405e8f669b58d00c189abf8b62437">namscrbin</a>(jf) =      <a class="code" href="namespacemod__oasis__namcouple.html#a4c609c48a20205e1d2aa9938d7babc92">nbins</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l00555"></a><span class="lineno">  555</span>&#160;              <span class="keywordflow">IF</span> (trim(<a class="code" href="namespacemod__oasis__namcouple.html#a8ddbaabd22bbf485888b1df5f3578909">namscrtyp</a>(jf)) /= <span class="stringliteral">&#39;SCALAR&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00556"></a><span class="lineno">  556</span>&#160;                 <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) subname,jf,<span class="stringliteral">&#39;WARNING: SCRIPR weights generation &amp;</span></div><div class="line"><a name="l00557"></a><span class="lineno">  557</span>&#160;<span class="stringliteral"></span><span class="stringliteral">                   &amp; supported only for SCALAR mapping, not &#39;</span>//trim(<a class="code" href="namespacemod__oasis__namcouple.html#a8ddbaabd22bbf485888b1df5f3578909">namscrtyp</a>(jf))</div><div class="line"><a name="l00558"></a><span class="lineno">  558</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l00559"></a><span class="lineno">  559</span>&#160;<span class="keywordflow">              ENDIF</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="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;MAPPING&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00562"></a><span class="lineno">  562</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a9fc6ac674a8cfa68d9d15ad13213e21d">nammapfil</a>(jf) = trim(<a class="code" href="namespacemod__oasis__namcouple.html#a6dbd7bccbfa28b209a4bc58131f8cf11">cmap_file</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)))</div><div class="line"><a name="l00563"></a><span class="lineno">  563</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a7316d7d322da7cf10f315e38c145ebbb">nammaploc</a>(jf) = trim(<a class="code" href="namespacemod__oasis__namcouple.html#a82b32aa4c78713443daf65a3dfbc75dc">cmaptyp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)))</div><div class="line"><a name="l00564"></a><span class="lineno">  564</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#ad2554b4881fa63780dd5e6fe78d705ef">nammapopt</a>(jf) = trim(<a class="code" href="namespacemod__oasis__namcouple.html#a3d7b34ed13d4ad8f86bbab3ad9956b6b">cmapopt</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)))</div><div class="line"><a name="l00565"></a><span class="lineno">  565</span>&#160;</div><div class="line"><a name="l00566"></a><span class="lineno">  566</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;CONSERV&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00567"></a><span class="lineno">  567</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a96aa6a31ef021468f807819a84b327c3">namfldcon</a>(jf) = <a class="code" href="namespacemod__oasis__parameters.html#ae043e4e2c2b7f04fec7d8c061ef52934">ip_cnone</a></div><div class="line"><a name="l00568"></a><span class="lineno">  568</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a119b86702766d5392cb44856448bcd3e">namfldcoo</a>(jf) = trim(<a class="code" href="namespacemod__oasis__namcouple.html#a240979dfe7369da899b0cfe2aeba4f9d">cconopt</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)))</div><div class="line"><a name="l00569"></a><span class="lineno">  569</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a535fadd17426c228698e3a51fd54b605">cconmet</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;GLOBAL&#39;</span>) <a class="code" href="namespacemod__oasis__namcouple.html#a96aa6a31ef021468f807819a84b327c3">namfldcon</a>(jf) = <a class="code" href="namespacemod__oasis__parameters.html#ae251e3ac1c9c82ae5db2a768d2d59d5f">ip_cglobal</a></div><div class="line"><a name="l00570"></a><span class="lineno">  570</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a535fadd17426c228698e3a51fd54b605">cconmet</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;GLBPOS&#39;</span>) <a class="code" href="namespacemod__oasis__namcouple.html#a96aa6a31ef021468f807819a84b327c3">namfldcon</a>(jf) = <a class="code" href="namespacemod__oasis__parameters.html#aec700ad0c6a11dd35e5d6c2afb745fd0">ip_cglbpos</a></div><div class="line"><a name="l00571"></a><span class="lineno">  571</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a535fadd17426c228698e3a51fd54b605">cconmet</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;BASBAL&#39;</span>) <a class="code" href="namespacemod__oasis__namcouple.html#a96aa6a31ef021468f807819a84b327c3">namfldcon</a>(jf) = <a class="code" href="namespacemod__oasis__parameters.html#aaa7ead98ff7d53acfd539a32fca9e2c7">ip_cbasbal</a></div><div class="line"><a name="l00572"></a><span class="lineno">  572</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a535fadd17426c228698e3a51fd54b605">cconmet</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;BASPOS&#39;</span>) <a class="code" href="namespacemod__oasis__namcouple.html#a96aa6a31ef021468f807819a84b327c3">namfldcon</a>(jf) = <a class="code" href="namespacemod__oasis__parameters.html#a3b96d31bbe142d84df2b93880498936f">ip_cbaspos</a></div><div class="line"><a name="l00573"></a><span class="lineno">  573</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a96aa6a31ef021468f807819a84b327c3">namfldcon</a>(jf) .EQ. <a class="code" href="namespacemod__oasis__parameters.html#ae043e4e2c2b7f04fec7d8c061ef52934">ip_cnone</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00574"></a><span class="lineno">  574</span>&#160;                 <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) subname,jf,<span class="stringliteral">&#39;WARNING: CONSERV option not supported: &#39;</span>//&amp;</div><div class="line"><a name="l00575"></a><span class="lineno">  575</span>&#160;                                  &amp;trim(<a class="code" href="namespacemod__oasis__namcouple.html#a535fadd17426c228698e3a51fd54b605">cconmet</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)))</div><div class="line"><a name="l00576"></a><span class="lineno">  576</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l00577"></a><span class="lineno">  577</span>&#160;<span class="keywordflow">              ENDIF</span></div><div class="line"><a name="l00578"></a><span class="lineno">  578</span>&#160;</div><div class="line"><a name="l00579"></a><span class="lineno">  579</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;CHECKIN&#39;</span> ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00580"></a><span class="lineno">  580</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a7c88a329c97aea020e9b135bdca8d160">namchecki</a>(jf) = .true.</div><div class="line"><a name="l00581"></a><span class="lineno">  581</span>&#160;</div><div class="line"><a name="l00582"></a><span class="lineno">  582</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;CHECKOUT&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00583"></a><span class="lineno">  583</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a58c011820e55c9af9f306fbb1d45eb23">namchecko</a>(jf) = .true.</div><div class="line"><a name="l00584"></a><span class="lineno">  584</span>&#160;</div><div class="line"><a name="l00585"></a><span class="lineno">  585</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;BLASOLD&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00586"></a><span class="lineno">  586</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#ab52824ec91491253e02556a68ab31b09">namfldsmu</a>(jf) = <a class="code" href="namespacemod__oasis__namcouple.html#aa9d178659282698ffb6c186ff48bed3c">afldcobo</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l00587"></a><span class="lineno">  587</span>&#160;              <span class="keywordflow">DO</span> jc = 1, <a class="code" href="namespacemod__oasis__namcouple.html#a21400200658d24cbf7484b5eb177c911">nbofld</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l00588"></a><span class="lineno">  588</span>&#160;                 <span class="keywordflow">IF</span> (trim(<a class="code" href="namespacemod__oasis__namcouple.html#ab0f93bb917e445dc4e55fc2326168a42">cbofld</a>(jc,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))) == <span class="stringliteral">&#39;CONSTANT&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00589"></a><span class="lineno">  589</span>&#160;                    <a class="code" href="namespacemod__oasis__namcouple.html#a1729dba99742412a1e07a479cb7f7921">namfldsad</a>(jf) = <a class="code" href="namespacemod__oasis__namcouple.html#a1b3f80e8e19f950b806636caadeb704b">abocoef</a>(jc,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l00590"></a><span class="lineno">  590</span>&#160;                 <span class="keywordflow">ELSE</span></div><div class="line"><a name="l00591"></a><span class="lineno">  591</span>&#160;                    <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) subname,jf,<span class="stringliteral">&#39;ERROR: BLASOLD only supports CONSTANT: &#39;</span>//&amp;</div><div class="line"><a name="l00592"></a><span class="lineno">  592</span>&#160;                                     &amp;trim(<a class="code" href="namespacemod__oasis__namcouple.html#ab0f93bb917e445dc4e55fc2326168a42">cbofld</a>(jc,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)))</div><div class="line"><a name="l00593"></a><span class="lineno">  593</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l00594"></a><span class="lineno">  594</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l00595"></a><span class="lineno">  595</span>&#160;<span class="keywordflow">              ENDDO</span></div><div class="line"><a name="l00596"></a><span class="lineno">  596</span>&#160;</div><div class="line"><a name="l00597"></a><span class="lineno">  597</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;BLASNEW&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00598"></a><span class="lineno">  598</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#ad81bb4f19a71f0fcf8655cb9d39a3380">namflddmu</a>(jf) = <a class="code" href="namespacemod__oasis__namcouple.html#a207709166cd4d719d65d76e6c043fd6c">afldcobn</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l00599"></a><span class="lineno">  599</span>&#160;              <span class="keywordflow">DO</span> jc = 1, <a class="code" href="namespacemod__oasis__namcouple.html#af0c7b1e7e49159c6b9c0dc3663264346">nbnfld</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l00600"></a><span class="lineno">  600</span>&#160;                 <span class="keywordflow">IF</span> (trim(<a class="code" href="namespacemod__oasis__namcouple.html#af5bfb0fe58a77461130b9967fa7a4d5e">cbnfld</a>(jc,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))) == <span class="stringliteral">&#39;CONSTANT&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00601"></a><span class="lineno">  601</span>&#160;                    <a class="code" href="namespacemod__oasis__namcouple.html#af1e31f45ea1cd7a7b64a8a7dc2cec4ee">namflddad</a>(jf) = <a class="code" href="namespacemod__oasis__namcouple.html#a211c98282b89859bee6da0ef60f0d484">abncoef</a>(jc,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l00602"></a><span class="lineno">  602</span>&#160;                 <span class="keywordflow">ELSE</span></div><div class="line"><a name="l00603"></a><span class="lineno">  603</span>&#160;                    <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) subname,jf,<span class="stringliteral">&#39;ERROR: BLASNEW only supports CONSTANTS: &#39;</span>//&amp;</div><div class="line"><a name="l00604"></a><span class="lineno">  604</span>&#160;                                     &amp;trim(<a class="code" href="namespacemod__oasis__namcouple.html#ab0f93bb917e445dc4e55fc2326168a42">cbofld</a>(jc,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)))</div><div class="line"><a name="l00605"></a><span class="lineno">  605</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l00606"></a><span class="lineno">  606</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l00607"></a><span class="lineno">  607</span>&#160;<span class="keywordflow">              ENDDO</span></div><div class="line"><a name="l00608"></a><span class="lineno">  608</span>&#160;</div><div class="line"><a name="l00609"></a><span class="lineno">  609</span>&#160;<span class="keywordflow">           ENDIF</span>  <span class="comment">! canal</span></div><div class="line"><a name="l00610"></a><span class="lineno">  610</span>&#160;<span class="keywordflow">        ENDDO</span>  <span class="comment">! ig_ntrans</span></div><div class="line"><a name="l00611"></a><span class="lineno">  611</span>&#160;<span class="keywordflow">     ENDIF</span>   <span class="comment">! ig_number_field</span></div><div class="line"><a name="l00612"></a><span class="lineno">  612</span>&#160;<span class="keywordflow">  ENDDO</span>   <span class="comment">! ig_final_nfield</span></div><div class="line"><a name="l00613"></a><span class="lineno">  613</span>&#160;</div><div class="line"><a name="l00614"></a><span class="lineno">  614</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00615"></a><span class="lineno">  615</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l00616"></a><span class="lineno">  616</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39;namlogprt,t   &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a46affda5336f60a1eeb1badaaccd3cfd">namlogprt</a>, <a class="code" href="namespacemod__oasis__namcouple.html#a45fbbd2941f5d71991d409f63e31cf02">namtlogprt</a></div><div class="line"><a name="l00617"></a><span class="lineno">  617</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39;namuntmin,max &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a1b8c7ce28c62fa0b15076b7169d8b454">namuntmin</a>, <a class="code" href="namespacemod__oasis__namcouple.html#ae750107f9401fd3c7348088ad3095b45">namuntmax</a></div><div class="line"><a name="l00618"></a><span class="lineno">  618</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39;namnorest     &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#ad1bd3ea485ad5f5114eb4b7f8c831ccb">namnorest</a></div><div class="line"><a name="l00619"></a><span class="lineno">  619</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39;nammapdec     &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#a484aaf8a6d7eaa0675a8249fa94509cf">nammapdec</a>)</div><div class="line"><a name="l00620"></a><span class="lineno">  620</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39;nammatxrd     &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#ad9ac6585de157a05d793636addf672a5">nammatxrd</a>)</div><div class="line"><a name="l00621"></a><span class="lineno">  621</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39;namwgtopt     &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#a03a63fe10e98e695e556ee190cd3accc">namwgtopt</a>)</div><div class="line"><a name="l00622"></a><span class="lineno">  622</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l00623"></a><span class="lineno">  623</span>&#160;     <span class="keywordflow">DO</span> n = 1,<a class="code" href="namespacemod__oasis__namcouple.html#a5ca7cd6a5b9f939b68492200aa92bab4">nnamcpl</a></div><div class="line"><a name="l00624"></a><span class="lineno">  624</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namsrcfld &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#a5fcb5a4f2a49f414fafe38b03c5c089d">namsrcfld</a>(n))</div><div class="line"><a name="l00625"></a><span class="lineno">  625</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namdstfld &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#ac4cfec209e4169b6098f9a8b9be1ffb1">namdstfld</a>(n))</div><div class="line"><a name="l00626"></a><span class="lineno">  626</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namsrcgrd &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#a589c1bae58b10bcb0cfb30c0893a7895">namsrcgrd</a>(n))</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#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namsrc_nx &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#ac8f6c8fe3720739f3d26431a8a600506">namsrc_nx</a>(n)</div><div class="line"><a name="l00628"></a><span class="lineno">  628</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namsrc_ny &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#ab82c80f007b37865172ddb033a1abb36">namsrc_ny</a>(n)</div><div class="line"><a name="l00629"></a><span class="lineno">  629</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namdstgrd &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#a7a2ed64b0670db38d2287f5d452060e4">namdstgrd</a>(n))</div><div class="line"><a name="l00630"></a><span class="lineno">  630</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namdst_nx &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a6add94418eefdaefd78cd971888a5826">namdst_nx</a>(n)</div><div class="line"><a name="l00631"></a><span class="lineno">  631</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namdst_ny &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a9035fc89396bad9574c88642d3aac5f0">namdst_ny</a>(n)</div><div class="line"><a name="l00632"></a><span class="lineno">  632</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namfldseq &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a54ccfe0380fc1c89d085f37a044a297e">namfldseq</a>(n)</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#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namfldops &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a4841e350d91926f5f8403e73442c76ad">namfldops</a>(n)</div><div class="line"><a name="l00634"></a><span class="lineno">  634</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namfldtrn &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a5f81bc00e6dc045770edd4093f68278c">namfldtrn</a>(n)</div><div class="line"><a name="l00635"></a><span class="lineno">  635</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namfldcon &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a96aa6a31ef021468f807819a84b327c3">namfldcon</a>(n)</div><div class="line"><a name="l00636"></a><span class="lineno">  636</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namfldcoo &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#a119b86702766d5392cb44856448bcd3e">namfldcoo</a>(n))</div><div class="line"><a name="l00637"></a><span class="lineno">  637</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namflddti &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a9080617143dacb027f74c4c5158b5e58">namflddti</a>(n)</div><div class="line"><a name="l00638"></a><span class="lineno">  638</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namfldlag &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a6a4406ca14f91ef6514a18eb154e648f">namfldlag</a>(n)</div><div class="line"><a name="l00639"></a><span class="lineno">  639</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;nammapfil &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#a9fc6ac674a8cfa68d9d15ad13213e21d">nammapfil</a>(n))</div><div class="line"><a name="l00640"></a><span class="lineno">  640</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;nammaploc &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#a7316d7d322da7cf10f315e38c145ebbb">nammaploc</a>(n))</div><div class="line"><a name="l00641"></a><span class="lineno">  641</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;nammapopt &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#ad2554b4881fa63780dd5e6fe78d705ef">nammapopt</a>(n))</div><div class="line"><a name="l00642"></a><span class="lineno">  642</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namrstfil &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#a54f4b8262f809a20928092782bc78345">namrstfil</a>(n))</div><div class="line"><a name="l00643"></a><span class="lineno">  643</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;naminpfil &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#a15fc11ff1c1d5718ff127a06a205a82c">naminpfil</a>(n))</div><div class="line"><a name="l00644"></a><span class="lineno">  644</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namchecki &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a7c88a329c97aea020e9b135bdca8d160">namchecki</a>(n)</div><div class="line"><a name="l00645"></a><span class="lineno">  645</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namchecko &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a58c011820e55c9af9f306fbb1d45eb23">namchecko</a>(n)</div><div class="line"><a name="l00646"></a><span class="lineno">  646</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namfldsmu &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#ab52824ec91491253e02556a68ab31b09">namfldsmu</a>(n)</div><div class="line"><a name="l00647"></a><span class="lineno">  647</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;nbofld    &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a21400200658d24cbf7484b5eb177c911">nbofld</a>(n)</div><div class="line"><a name="l00648"></a><span class="lineno">  648</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namfldsad &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a1729dba99742412a1e07a479cb7f7921">namfldsad</a>(n)</div><div class="line"><a name="l00649"></a><span class="lineno">  649</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namflddmu &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#ad81bb4f19a71f0fcf8655cb9d39a3380">namflddmu</a>(n)</div><div class="line"><a name="l00650"></a><span class="lineno">  650</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;nbnfld    &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#af0c7b1e7e49159c6b9c0dc3663264346">nbnfld</a>(n)</div><div class="line"><a name="l00651"></a><span class="lineno">  651</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namflddad &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#af1e31f45ea1cd7a7b64a8a7dc2cec4ee">namflddad</a>(n)</div><div class="line"><a name="l00652"></a><span class="lineno">  652</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namscrmet &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#a51c19e0892a72acc3dca2adb046ed175">namscrmet</a>(n))</div><div class="line"><a name="l00653"></a><span class="lineno">  653</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namscrnor &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#a392f40531007d5dcc084e6ad4a393fd7">namscrnor</a>(n))</div><div class="line"><a name="l00654"></a><span class="lineno">  654</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namscrtyp &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#a8ddbaabd22bbf485888b1df5f3578909">namscrtyp</a>(n))</div><div class="line"><a name="l00655"></a><span class="lineno">  655</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namscrord &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#ac881ced105604879ada860fabd677481">namscrord</a>(n))</div><div class="line"><a name="l00656"></a><span class="lineno">  656</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namscrres &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#a6a95ddbbbc615e0257d93d05e4546239">namscrres</a>(n))</div><div class="line"><a name="l00657"></a><span class="lineno">  657</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namscrvam &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a45b410743ce74a9824d44b329ba323ba">namscrvam</a>(n)</div><div class="line"><a name="l00658"></a><span class="lineno">  658</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namscrnbr &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a20d614468823744b82118ee8cf2df852">namscrnbr</a>(n)</div><div class="line"><a name="l00659"></a><span class="lineno">  659</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,n,<span class="stringliteral">&#39;namscrbin &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a728405e8f669b58d00c189abf8b62437">namscrbin</a>(n)</div><div class="line"><a name="l00660"></a><span class="lineno">  660</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l00661"></a><span class="lineno">  661</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00662"></a><span class="lineno">  662</span>&#160;<span class="keywordflow">     ENDDO</span></div><div class="line"><a name="l00663"></a><span class="lineno">  663</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l00664"></a><span class="lineno">  664</span>&#160;</div><div class="line"><a name="l00665"></a><span class="lineno">  665</span>&#160;  <span class="comment">!--- compute seq sort ---</span></div><div class="line"><a name="l00666"></a><span class="lineno">  666</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a4555b14f38928b7f0fb7f77b9c42d0a0">namsort2nn</a>(:) = -1</div><div class="line"><a name="l00667"></a><span class="lineno">  667</span>&#160;  <span class="keywordflow">DO</span> nv = 1,<a class="code" href="namespacemod__oasis__namcouple.html#a5ca7cd6a5b9f939b68492200aa92bab4">nnamcpl</a></div><div class="line"><a name="l00668"></a><span class="lineno">  668</span>&#160;     loc = nv    <span class="comment">! default at end</span></div><div class="line"><a name="l00669"></a><span class="lineno">  669</span>&#160;     n1 = 1</div><div class="line"><a name="l00670"></a><span class="lineno">  670</span>&#160;     <span class="keywordflow">DO</span> <span class="keywordflow">WHILE</span> (loc == nv .and. n1 &lt; nv)</div><div class="line"><a name="l00671"></a><span class="lineno">  671</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a54ccfe0380fc1c89d085f37a044a297e">namfldseq</a>(nv) &lt; <a class="code" href="namespacemod__oasis__namcouple.html#a54ccfe0380fc1c89d085f37a044a297e">namfldseq</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a4555b14f38928b7f0fb7f77b9c42d0a0">namsort2nn</a>(n1))) loc = n1</div><div class="line"><a name="l00672"></a><span class="lineno">  672</span>&#160;        n1 = n1 + 1</div><div class="line"><a name="l00673"></a><span class="lineno">  673</span>&#160;<span class="keywordflow">     ENDDO</span></div><div class="line"><a name="l00674"></a><span class="lineno">  674</span>&#160;     <span class="comment">! nv goes into loc location, shift THEN set</span></div><div class="line"><a name="l00675"></a><span class="lineno">  675</span>&#160;     <span class="keywordflow">DO</span> n1 = nv,loc+1,-1</div><div class="line"><a name="l00676"></a><span class="lineno">  676</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#a4555b14f38928b7f0fb7f77b9c42d0a0">namsort2nn</a>(n1) = <a class="code" href="namespacemod__oasis__namcouple.html#a4555b14f38928b7f0fb7f77b9c42d0a0">namsort2nn</a>(n1-1)</div><div class="line"><a name="l00677"></a><span class="lineno">  677</span>&#160;<span class="keywordflow">     ENDDO</span></div><div class="line"><a name="l00678"></a><span class="lineno">  678</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a4555b14f38928b7f0fb7f77b9c42d0a0">namsort2nn</a>(loc) = nv</div><div class="line"><a name="l00679"></a><span class="lineno">  679</span>&#160;<span class="keywordflow">  ENDDO</span></div><div class="line"><a name="l00680"></a><span class="lineno">  680</span>&#160;</div><div class="line"><a name="l00681"></a><span class="lineno">  681</span>&#160;  <span class="keywordflow">DO</span> nv = 1,<a class="code" href="namespacemod__oasis__namcouple.html#a5ca7cd6a5b9f939b68492200aa92bab4">nnamcpl</a></div><div class="line"><a name="l00682"></a><span class="lineno">  682</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a0ace7c451d8658759b9c8d871926a76e">namnn2sort</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a4555b14f38928b7f0fb7f77b9c42d0a0">namsort2nn</a>(nv)) = nv</div><div class="line"><a name="l00683"></a><span class="lineno">  683</span>&#160;<span class="keywordflow">  ENDDO</span></div><div class="line"><a name="l00684"></a><span class="lineno">  684</span>&#160;</div><div class="line"><a name="l00685"></a><span class="lineno">  685</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00686"></a><span class="lineno">  686</span>&#160;     <span class="keywordflow">DO</span> nv = 1,<a class="code" href="namespacemod__oasis__namcouple.html#a5ca7cd6a5b9f939b68492200aa92bab4">nnamcpl</a></div><div class="line"><a name="l00687"></a><span class="lineno">  687</span>&#160;        n1 = <a class="code" href="namespacemod__oasis__namcouple.html#a4555b14f38928b7f0fb7f77b9c42d0a0">namsort2nn</a>(nv)</div><div class="line"><a name="l00688"></a><span class="lineno">  688</span>&#160;        n2 = <a class="code" href="namespacemod__oasis__namcouple.html#a0ace7c451d8658759b9c8d871926a76e">namnn2sort</a>(nv)</div><div class="line"><a name="l00689"></a><span class="lineno">  689</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39; sort &#39;</span>,nv,n1,n2,<a class="code" href="namespacemod__oasis__namcouple.html#a54ccfe0380fc1c89d085f37a044a297e">namfldseq</a>(n1)</div><div class="line"><a name="l00690"></a><span class="lineno">  690</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00691"></a><span class="lineno">  691</span>&#160;<span class="keywordflow">     ENDDO</span></div><div class="line"><a name="l00692"></a><span class="lineno">  692</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l00693"></a><span class="lineno">  693</span>&#160;</div><div class="line"><a name="l00694"></a><span class="lineno">  694</span>&#160;  <span class="comment">!--- check they are sorted ---</span></div><div class="line"><a name="l00695"></a><span class="lineno">  695</span>&#160;  <span class="keywordflow">DO</span> n = 2,<a class="code" href="namespacemod__oasis__namcouple.html#a5ca7cd6a5b9f939b68492200aa92bab4">nnamcpl</a></div><div class="line"><a name="l00696"></a><span class="lineno">  696</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a54ccfe0380fc1c89d085f37a044a297e">namfldseq</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a4555b14f38928b7f0fb7f77b9c42d0a0">namsort2nn</a>(n)) &lt; <a class="code" href="namespacemod__oasis__namcouple.html#a54ccfe0380fc1c89d085f37a044a297e">namfldseq</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a4555b14f38928b7f0fb7f77b9c42d0a0">namsort2nn</a>(n-1))) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00697"></a><span class="lineno">  697</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<span class="stringliteral">&#39; ERROR in seq sort&#39;</span>)</div><div class="line"><a name="l00698"></a><span class="lineno">  698</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l00699"></a><span class="lineno">  699</span>&#160;<span class="keywordflow">  ENDDO</span></div><div class="line"><a name="l00700"></a><span class="lineno">  700</span>&#160;</div><div class="line"><a name="l00701"></a><span class="lineno">  701</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#abf09a0e902f44f77874a75bb4a7fba33">dealloc</a>()</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="comment">!  CALL oasis_debug_exit(subname)</span></div><div class="line"><a name="l00704"></a><span class="lineno">  704</span>&#160;</div><div class="line"><a name="l00705"></a><span class="lineno">  705</span>&#160;<span class="keyword">END SUBROUTINE </span><a class="code" href="namespacemod__oasis__namcouple.html#ab57c69ae534734f92a85e24a3389e972">oasis_namcouple_init</a></div><div class="line"><a name="l00706"></a><span class="lineno">  706</span>&#160;</div><div class="line"><a name="l00707"></a><span class="lineno">  707</span>&#160;<span class="comment">!===============================================================================</span></div><div class="line"><a name="l00708"></a><span class="lineno">  708</span>&#160;<span class="comment"></span></div><div class="line"><a name="l00709"></a><span class="lineno">  709</span>&#160;<span class="comment">!&gt; Reads the namcouple to allocate arrays</span></div><div class="line"><a name="l00710"></a><span class="lineno">  710</span>&#160;</div><div class="line"><a name="l00711"></a><span class="lineno">  711</span>&#160;<span class="keyword">SUBROUTINE </span><a class="code" href="namespacemod__oasis__namcouple.html#acb43892c17b5f8c8b360effb5a811c27">inipar_alloc</a>()</div><div class="line"><a name="l00712"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#acb43892c17b5f8c8b360effb5a811c27">  712</a></span>&#160;</div><div class="line"><a name="l00713"></a><span class="lineno">  713</span>&#160;<span class="comment">!****</span></div><div class="line"><a name="l00714"></a><span class="lineno">  714</span>&#160;<span class="comment">!               *****************************</span></div><div class="line"><a name="l00715"></a><span class="lineno">  715</span>&#160;<span class="comment">!               * OASIS ROUTINE  -  LEVEL 0 *</span></div><div class="line"><a name="l00716"></a><span class="lineno">  716</span>&#160;<span class="comment">!               * -------------     ------- *</span></div><div class="line"><a name="l00717"></a><span class="lineno">  717</span>&#160;<span class="comment">!               *****************************</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;<span class="comment">!**** *inipar_alloc*  - Get main run parameters to allocate arrays </span></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;<span class="comment">!     Purpose:</span></div><div class="line"><a name="l00722"></a><span class="lineno">  722</span>&#160;<span class="comment">!     -------</span></div><div class="line"><a name="l00723"></a><span class="lineno">  723</span>&#160;<span class="comment">!     Reads out run parameters.</span></div><div class="line"><a name="l00724"></a><span class="lineno">  724</span>&#160;</div><div class="line"><a name="l00725"></a><span class="lineno">  725</span>&#160;<span class="comment">!**   Interface:</span></div><div class="line"><a name="l00726"></a><span class="lineno">  726</span>&#160;<span class="comment">!     ---------</span></div><div class="line"><a name="l00727"></a><span class="lineno">  727</span>&#160;<span class="comment">!       *CALL*  *inipar_alloc*</span></div><div class="line"><a name="l00728"></a><span class="lineno">  728</span>&#160;</div><div class="line"><a name="l00729"></a><span class="lineno">  729</span>&#160;<span class="comment">!     Input:</span></div><div class="line"><a name="l00730"></a><span class="lineno">  730</span>&#160;<span class="comment">!     -----</span></div><div class="line"><a name="l00731"></a><span class="lineno">  731</span>&#160;<span class="comment">!     None</span></div><div class="line"><a name="l00732"></a><span class="lineno">  732</span>&#160;</div><div class="line"><a name="l00733"></a><span class="lineno">  733</span>&#160;<span class="comment">!     Output:</span></div><div class="line"><a name="l00734"></a><span class="lineno">  734</span>&#160;<span class="comment">!     ------</span></div><div class="line"><a name="l00735"></a><span class="lineno">  735</span>&#160;<span class="comment">!     None</span></div><div class="line"><a name="l00736"></a><span class="lineno">  736</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l00737"></a><span class="lineno">  737</span>&#160;<span class="comment">! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%</span></div><div class="line"><a name="l00738"></a><span class="lineno">  738</span>&#160;</div><div class="line"><a name="l00739"></a><span class="lineno">  739</span>&#160;  <span class="keywordtype">IMPLICIT NONE</span></div><div class="line"><a name="l00740"></a><span class="lineno">  740</span>&#160;</div><div class="line"><a name="l00741"></a><span class="lineno">  741</span>&#160;  <span class="comment">!* ---------------------------- Local declarations --------------------</span></div><div class="line"><a name="l00742"></a><span class="lineno">  742</span>&#160;  </div><div class="line"><a name="l00743"></a><span class="lineno">  743</span>&#160;  <span class="keywordtype">CHARACTER*5000</span> clline, clline_aux, clvari</div><div class="line"><a name="l00744"></a><span class="lineno">  744</span>&#160;  <span class="keywordtype">CHARACTER*3</span> clind</div><div class="line"><a name="l00745"></a><span class="lineno">  745</span>&#160;  <span class="keywordtype">CHARACTER*2</span> cldeb</div><div class="line"><a name="l00746"></a><span class="lineno">  746</span>&#160;  <span class="keywordtype">CHARACTER*1</span> clequa</div><div class="line"><a name="l00747"></a><span class="lineno">  747</span>&#160;  <span class="keywordtype">CHARACTER*8</span> clwork</div><div class="line"><a name="l00748"></a><span class="lineno">  748</span>&#160;  <span class="keywordtype">CHARACTER*8</span> clstrg</div><div class="line"><a name="l00749"></a><span class="lineno">  749</span>&#160;  <span class="keywordtype">CHARACTER*7</span> cl_bsend</div><div class="line"><a name="l00750"></a><span class="lineno">  750</span>&#160;</div><div class="line"><a name="l00751"></a><span class="lineno">  751</span>&#160;  <span class="keywordtype">CHARACTER(len=32)</span>, <span class="keywordtype">DIMENSION(:)</span>, <span class="keywordtype">ALLOCATABLE</span> :: cl_aux</div><div class="line"><a name="l00752"></a><span class="lineno">  752</span>&#160;  <span class="keywordtype">CHARACTER(len=32)</span> :: keyword</div><div class="line"><a name="l00753"></a><span class="lineno">  753</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> il_varid, il_len, il_err, il_maxanal </div><div class="line"><a name="l00754"></a><span class="lineno">  754</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> nlonbf_notnc, nlatbf_notnc,  &amp;</div><div class="line"><a name="l00755"></a><span class="lineno">  755</span>&#160;     nlonaf_notnc, nlataf_notnc</div><div class="line"><a name="l00756"></a><span class="lineno">  756</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> iind, il_redu, ib, il_aux, il_auxbf, &amp;</div><div class="line"><a name="l00757"></a><span class="lineno">  757</span>&#160;     il_auxaf, istatus, il_id</div><div class="line"><a name="l00758"></a><span class="lineno">  758</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: ja,jz,jm,jf,ILEN,n,ios</div><div class="line"><a name="l00759"></a><span class="lineno">  759</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: ig_clim_maxport</div><div class="line"><a name="l00760"></a><span class="lineno">  760</span>&#160;  <span class="keywordtype">LOGICAL</span> :: lg_bsend,endflag</div><div class="line"><a name="l00761"></a><span class="lineno">  761</span>&#160;  <span class="keywordtype">LOGICAL</span> :: found, readfile</div><div class="line"><a name="l00762"></a><span class="lineno">  762</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">parameter</span> :: subname=<span class="stringliteral">&#39;(mod_oasis_namcouple:inipar_alloc)&#39;</span></div><div class="line"><a name="l00763"></a><span class="lineno">  763</span>&#160;</div><div class="line"><a name="l00764"></a><span class="lineno">  764</span>&#160;  <span class="comment">!* ---------------------------- Poema verses --------------------------</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="comment">!  CALL oasis_debug_enter(subname)</span></div><div class="line"><a name="l00767"></a><span class="lineno">  767</span>&#160;</div><div class="line"><a name="l00768"></a><span class="lineno">  768</span>&#160;  <span class="comment">! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%</span></div><div class="line"><a name="l00769"></a><span class="lineno">  769</span>&#160;</div><div class="line"><a name="l00770"></a><span class="lineno">  770</span>&#160;  <span class="comment">!*    1. Get basic info for the simulation </span></div><div class="line"><a name="l00771"></a><span class="lineno">  771</span>&#160;  <span class="comment">!        ---------------------------------</span></div><div class="line"><a name="l00772"></a><span class="lineno">  772</span>&#160;</div><div class="line"><a name="l00773"></a><span class="lineno">  773</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00774"></a><span class="lineno">  774</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*)<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l00775"></a><span class="lineno">  775</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname</div><div class="line"><a name="l00776"></a><span class="lineno">  776</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*)<span class="stringliteral">&#39;  ROUTINE inipar_alloc - Level 0&#39;</span></div><div class="line"><a name="l00777"></a><span class="lineno">  777</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*)<span class="stringliteral">&#39;  ********************   *******&#39;</span></div><div class="line"><a name="l00778"></a><span class="lineno">  778</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*)<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l00779"></a><span class="lineno">  779</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*)<span class="stringliteral">&#39;  Initialization of run parameters&#39;</span></div><div class="line"><a name="l00780"></a><span class="lineno">  780</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*)<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l00781"></a><span class="lineno">  781</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*)<span class="stringliteral">&#39;  Reading input file namcouple&#39;</span></div><div class="line"><a name="l00782"></a><span class="lineno">  782</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*)<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l00783"></a><span class="lineno">  783</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*)<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l00784"></a><span class="lineno">  784</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00785"></a><span class="lineno">  785</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l00786"></a><span class="lineno">  786</span>&#160;</div><div class="line"><a name="l00787"></a><span class="lineno">  787</span>&#160;  <span class="comment">!* Initialization</span></div><div class="line"><a name="l00788"></a><span class="lineno">  788</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a531825c07a164f6139e5eebd59e295a2">ig_direct_nfield</a> = 0</div><div class="line"><a name="l00789"></a><span class="lineno">  789</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a> = 0</div><div class="line"><a name="l00790"></a><span class="lineno">  790</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#aaf6b923ffc7763fd37a5c4c72bdfa34d">lg_oasis_field</a> = .true.</div><div class="line"><a name="l00791"></a><span class="lineno">  791</span>&#160;</div><div class="line"><a name="l00792"></a><span class="lineno">  792</span>&#160;  <span class="comment">!* Check for typos in keywords, read all lines until file is at end</span></div><div class="line"><a name="l00793"></a><span class="lineno">  793</span>&#160;</div><div class="line"><a name="l00794"></a><span class="lineno">  794</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00795"></a><span class="lineno">  795</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) <span class="stringliteral">&#39;  Executing valid keyword check &#39;</span></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#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00797"></a><span class="lineno">  797</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l00798"></a><span class="lineno">  798</span>&#160;  readfile = .true.</div><div class="line"><a name="l00799"></a><span class="lineno">  799</span>&#160;  <span class="keywordflow">DO</span> <span class="keywordflow">WHILE</span> (readfile)</div><div class="line"><a name="l00800"></a><span class="lineno">  800</span>&#160;     <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>, end=501) clline</div><div class="line"><a name="l00801"></a><span class="lineno">  801</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l00802"></a><span class="lineno">  802</span>&#160;     <span class="keywordflow">IF</span> (ios == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00803"></a><span class="lineno">  803</span>&#160;         <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l00804"></a><span class="lineno">  804</span>&#160;         <span class="keywordflow">IF</span> (clvari(1:1) == <span class="stringliteral">&quot;$&quot;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00805"></a><span class="lineno">  805</span>&#160;             found = .false.</div><div class="line"><a name="l00806"></a><span class="lineno">  806</span>&#160;             <span class="keywordflow">DO</span> n = 1, <a class="code" href="namespacemod__oasis__namcouple.html#ab629bd69885e9cd058f694b00474333a">nkeywords</a></div><div class="line"><a name="l00807"></a><span class="lineno">  807</span>&#160;               <span class="keywordflow">IF</span> (clvari == <a class="code" href="namespacemod__oasis__namcouple.html#acd9594862404b2bbd26a2ce069076b0e">keyword_list</a>(n)) found = .true.</div><div class="line"><a name="l00808"></a><span class="lineno">  808</span>&#160;<span class="keywordflow">             ENDDO</span></div><div class="line"><a name="l00809"></a><span class="lineno">  809</span>&#160;             <span class="keywordflow">IF</span> (.NOT. found) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00810"></a><span class="lineno">  810</span>&#160;                 <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00811"></a><span class="lineno">  811</span>&#160;                     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) <span class="stringliteral">&#39;    Found invalid keyword = &#39;</span>//trim(clvari)</div><div class="line"><a name="l00812"></a><span class="lineno">  812</span>&#160;                     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00813"></a><span class="lineno">  813</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l00814"></a><span class="lineno">  814</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<span class="stringliteral">&#39; ERROR: invalid keyword = &#39;</span>//trim(clvari))</div><div class="line"><a name="l00815"></a><span class="lineno">  815</span>&#160;             <span class="keywordflow">ELSE</span></div><div class="line"><a name="l00816"></a><span class="lineno">  816</span>&#160;                 <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00817"></a><span class="lineno">  817</span>&#160;                     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) <span class="stringliteral">&#39;    Found valid keyword = &#39;</span>//trim(clvari)</div><div class="line"><a name="l00818"></a><span class="lineno">  818</span>&#160;                     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00819"></a><span class="lineno">  819</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l00820"></a><span class="lineno">  820</span>&#160;<span class="keywordflow">             ENDIF</span></div><div class="line"><a name="l00821"></a><span class="lineno">  821</span>&#160;<span class="keywordflow">         ENDIF</span></div><div class="line"><a name="l00822"></a><span class="lineno">  822</span>&#160;     <span class="keywordflow">ELSE</span></div><div class="line"><a name="l00823"></a><span class="lineno">  823</span>&#160;         <span class="keywordflow">GOTO</span> 501</div><div class="line"><a name="l00824"></a><span class="lineno">  824</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l00825"></a><span class="lineno">  825</span>&#160;<span class="keywordflow">  ENDDO</span></div><div class="line"><a name="l00826"></a><span class="lineno">  826</span>&#160;501 <span class="keywordflow">CONTINUE</span></div><div class="line"><a name="l00827"></a><span class="lineno">  827</span>&#160;</div><div class="line"><a name="l00828"></a><span class="lineno">  828</span>&#160;  <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l00829"></a><span class="lineno">  829</span>&#160;</div><div class="line"><a name="l00830"></a><span class="lineno">  830</span>&#160;  <span class="comment">!* Get number of models involved in this simulation</span></div><div class="line"><a name="l00831"></a><span class="lineno">  831</span>&#160;</div><div class="line"><a name="l00832"></a><span class="lineno">  832</span>&#160;  keyword = <a class="code" href="namespacemod__oasis__namcouple.html#aa5cc4d0530b3e755441ef9ef70d8083b">clmod</a></div><div class="line"><a name="l00833"></a><span class="lineno">  833</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, clline, found)</div><div class="line"><a name="l00834"></a><span class="lineno">  834</span>&#160;  <span class="keywordflow">IF</span> (found .and. <a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00835"></a><span class="lineno">  835</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) <span class="stringliteral">&#39; ***WARNING*** &#39;</span>//trim(keyword)//<span class="stringliteral">&#39; is obsolete in OASIS3-MCT&#39;</span></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__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00837"></a><span class="lineno">  837</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l00838"></a><span class="lineno">  838</span>&#160;</div><div class="line"><a name="l00839"></a><span class="lineno">  839</span>&#160;  keyword = <a class="code" href="namespacemod__oasis__namcouple.html#ac0ead9ca992504e9b580db2678926b68">clchan</a></div><div class="line"><a name="l00840"></a><span class="lineno">  840</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, clline, found)</div><div class="line"><a name="l00841"></a><span class="lineno">  841</span>&#160;  <span class="keywordflow">IF</span> (found .and. <a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00842"></a><span class="lineno">  842</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) <span class="stringliteral">&#39; ***WARNING*** &#39;</span>//trim(keyword)//<span class="stringliteral">&#39; is obsolete in OASIS3-MCT&#39;</span></div><div class="line"><a name="l00843"></a><span class="lineno">  843</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00844"></a><span class="lineno">  844</span>&#160;<span class="keywordflow">  ENDIF</span></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="comment">!*    2. Get field information</span></div><div class="line"><a name="l00847"></a><span class="lineno">  847</span>&#160;  <span class="comment">!        --------------------</span></div><div class="line"><a name="l00848"></a><span class="lineno">  848</span>&#160;  </div><div class="line"><a name="l00849"></a><span class="lineno">  849</span>&#160;  <span class="comment">!* Read total number of fields exchanged by this OASIS process</span></div><div class="line"><a name="l00850"></a><span class="lineno">  850</span>&#160;</div><div class="line"><a name="l00851"></a><span class="lineno">  851</span>&#160;  keyword = <a class="code" href="namespacemod__oasis__namcouple.html#a1c3afcba25a8ba41738104d42a59e423">clfield</a></div><div class="line"><a name="l00852"></a><span class="lineno">  852</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, clline, found)</div><div class="line"><a name="l00853"></a><span class="lineno">  853</span>&#160;  <span class="keywordflow">IF</span> (found) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00854"></a><span class="lineno">  854</span>&#160;     <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l00855"></a><span class="lineno">  855</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l00856"></a><span class="lineno">  856</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l00857"></a><span class="lineno">  857</span>&#160;     <span class="keywordflow">IF</span> (ilen &gt; 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00858"></a><span class="lineno">  858</span>&#160;        <span class="keyword">READ</span>(clvari, fmt=2003) <a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a></div><div class="line"><a name="l00859"></a><span class="lineno">  859</span>&#160;     <span class="keywordflow">ELSE</span></div><div class="line"><a name="l00860"></a><span class="lineno">  860</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00861"></a><span class="lineno">  861</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) <span class="stringliteral">&#39; ***WARNING*** Nothing on input for &#39;</span>//trim(keyword)</div><div class="line"><a name="l00862"></a><span class="lineno">  862</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) <span class="stringliteral">&#39;               Default value will be used &#39;</span></div><div class="line"><a name="l00863"></a><span class="lineno">  863</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l00864"></a><span class="lineno">  864</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00865"></a><span class="lineno">  865</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l00866"></a><span class="lineno">  866</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l00867"></a><span class="lineno">  867</span>&#160;  <span class="keywordflow">ELSE</span></div><div class="line"><a name="l00868"></a><span class="lineno">  868</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) trim(keyword)//<span class="stringliteral">&#39; not found in namcouple&#39;</span></div><div class="line"><a name="l00869"></a><span class="lineno">  869</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</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="comment">!* Print out the total number of fields exchanged by this OASIS process</span></div><div class="line"><a name="l00873"></a><span class="lineno">  873</span>&#160;</div><div class="line"><a name="l00874"></a><span class="lineno">  874</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;The maximum number of exchanged fields set in namcouple is nfield =&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>, 1)</div><div class="line"><a name="l00875"></a><span class="lineno">  875</span>&#160;</div><div class="line"><a name="l00876"></a><span class="lineno">  876</span>&#160;  <span class="comment">!* Alloc field number array </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">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>),stat=il_err)</div><div class="line"><a name="l00879"></a><span class="lineno">  879</span>&#160;  <span class="keywordflow">IF</span> (il_err.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: ig_number_field allocation of &#39;</span>//trim(subname),il_err,1)</div><div class="line"><a name="l00880"></a><span class="lineno">  880</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(:)=0</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="comment">!* Alloc field status array (LOGICAL indicating if the field goes through </span></div><div class="line"><a name="l00883"></a><span class="lineno">  883</span>&#160;  <span class="comment">!* Oasis or not)</span></div><div class="line"><a name="l00884"></a><span class="lineno">  884</span>&#160;</div><div class="line"><a name="l00885"></a><span class="lineno">  885</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>), stat=il_err)</div><div class="line"><a name="l00886"></a><span class="lineno">  886</span>&#160;  <span class="keywordflow">IF</span> (il_err.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: lg_state allocation of &#39;</span>//trim(subname),il_err,1)</div><div class="line"><a name="l00887"></a><span class="lineno">  887</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(:)=.false.</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="comment">!* Alloc status of all the fields</span></div><div class="line"><a name="l00890"></a><span class="lineno">  890</span>&#160;</div><div class="line"><a name="l00891"></a><span class="lineno">  891</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>), stat=il_err)</div><div class="line"><a name="l00892"></a><span class="lineno">  892</span>&#160;  <span class="keywordflow">IF</span> (il_err.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: ig_total_state allocation of &#39;</span>//trim(subname),il_err,1)</div><div class="line"><a name="l00893"></a><span class="lineno">  893</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(:)=0</div><div class="line"><a name="l00894"></a><span class="lineno">  894</span>&#160;</div><div class="line"><a name="l00895"></a><span class="lineno">  895</span>&#160;  <span class="comment">!* Alloc input field name array </span></div><div class="line"><a name="l00896"></a><span class="lineno">  896</span>&#160;</div><div class="line"><a name="l00897"></a><span class="lineno">  897</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a1b680bf476776f3db085dc1f0009736c">cg_output_field</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>), stat=il_err)</div><div class="line"><a name="l00898"></a><span class="lineno">  898</span>&#160;  <span class="keywordflow">IF</span> (il_err.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: cg_output_field allocation of &#39;</span>//trim(subname),il_err,1)</div><div class="line"><a name="l00899"></a><span class="lineno">  899</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a1b680bf476776f3db085dc1f0009736c">cg_output_field</a>(:)=<span class="stringliteral">&#39; &#39;</span> </div><div class="line"><a name="l00900"></a><span class="lineno">  900</span>&#160;</div><div class="line"><a name="l00901"></a><span class="lineno">  901</span>&#160;  <span class="comment">!* Alloc number of analyses array </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">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#abbd7bd184bb2a3860063dbb9f109f427">ig_total_ntrans</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>),stat=il_err)</div><div class="line"><a name="l00904"></a><span class="lineno">  904</span>&#160;  <span class="keywordflow">IF</span> (il_err.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: ig_total_ntrans&quot;allocation of &#39;</span>//trim(subname),il_err,1)</div><div class="line"><a name="l00905"></a><span class="lineno">  905</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#abbd7bd184bb2a3860063dbb9f109f427">ig_total_ntrans</a>(:) = 0</div><div class="line"><a name="l00906"></a><span class="lineno">  906</span>&#160;</div><div class="line"><a name="l00907"></a><span class="lineno">  907</span>&#160;  <span class="comment">!* Alloc array of restart file names, input and output file names</span></div><div class="line"><a name="l00908"></a><span class="lineno">  908</span>&#160;</div><div class="line"><a name="l00909"></a><span class="lineno">  909</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>),stat=il_err)</div><div class="line"><a name="l00910"></a><span class="lineno">  910</span>&#160;  <span class="keywordflow">IF</span> (il_err.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: cg_restart_FILE allocation of &#39;</span>//trim(subname),il_err,1)</div><div class="line"><a name="l00911"></a><span class="lineno">  911</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l00912"></a><span class="lineno">  912</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a24f56cf88d79190f229d3fd1d62d17de">cg_input_file</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>), stat=il_err)</div><div class="line"><a name="l00913"></a><span class="lineno">  913</span>&#160;  <span class="keywordflow">IF</span> (il_err.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cg_input_file&quot;allocation of &#39;</span>//trim(subname),il_err,1)</div><div class="line"><a name="l00914"></a><span class="lineno">  914</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a24f56cf88d79190f229d3fd1d62d17de">cg_input_file</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l00915"></a><span class="lineno">  915</span>&#160;</div><div class="line"><a name="l00916"></a><span class="lineno">  916</span>&#160;  <span class="comment">!* Alloc array of source and target locator prefix</span></div><div class="line"><a name="l00917"></a><span class="lineno">  917</span>&#160;</div><div class="line"><a name="l00918"></a><span class="lineno">  918</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac22155599e9b49d57514dd1f7dc9928a">cga_locatorbf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>),stat=il_err)</div><div class="line"><a name="l00919"></a><span class="lineno">  919</span>&#160;  <span class="keywordflow">IF</span> (il_err.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: cga_locatorbf allocation of &#39;</span>//trim(subname),il_err,1)</div><div class="line"><a name="l00920"></a><span class="lineno">  920</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ac22155599e9b49d57514dd1f7dc9928a">cga_locatorbf</a>(:)=<span class="stringliteral">&#39; &#39;</span></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="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a6f4080d45f0b9be5a0466967f535b83b">cga_locatoraf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>),stat=il_err)</div><div class="line"><a name="l00923"></a><span class="lineno">  923</span>&#160;  <span class="keywordflow">IF</span> (il_err.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: cga_locatoraf allocation of &#39;</span>//trim(subname),il_err,1)</div><div class="line"><a name="l00924"></a><span class="lineno">  924</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a6f4080d45f0b9be5a0466967f535b83b">cga_locatoraf</a>(:)=<span class="stringliteral">&#39; &#39;</span>  </div><div class="line"><a name="l00925"></a><span class="lineno">  925</span>&#160;</div><div class="line"><a name="l00926"></a><span class="lineno">  926</span>&#160;  <span class="comment">!* Get information for all fields</span></div><div class="line"><a name="l00927"></a><span class="lineno">  927</span>&#160;</div><div class="line"><a name="l00928"></a><span class="lineno">  928</span>&#160;  keyword = <a class="code" href="namespacemod__oasis__namcouple.html#a4dde076bf8cce410eebbd878f791e32e">clstring</a></div><div class="line"><a name="l00929"></a><span class="lineno">  929</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, clline, found)</div><div class="line"><a name="l00930"></a><span class="lineno">  930</span>&#160;  <span class="keywordflow">IF</span> (.not.found) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00931"></a><span class="lineno">  931</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) trim(keyword)//<span class="stringliteral">&#39; not found in namcouple&#39;</span></div><div class="line"><a name="l00932"></a><span class="lineno">  932</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l00933"></a><span class="lineno">  933</span>&#160;<span class="keywordflow">  ENDIF</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;  <span class="comment">!* Loop on total number of fields</span></div><div class="line"><a name="l00936"></a><span class="lineno">  936</span>&#160;</div><div class="line"><a name="l00937"></a><span class="lineno">  937</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a> = 0</div><div class="line"><a name="l00938"></a><span class="lineno">  938</span>&#160;<span class="keyword">  end</span>flag = .false.</div><div class="line"><a name="l00939"></a><span class="lineno">  939</span>&#160;  jf = 0</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="keywordflow">DO</span> <span class="keywordflow">WHILE</span> (.not. endflag .and. jf &lt; <a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>)</div><div class="line"><a name="l00942"></a><span class="lineno">  942</span>&#160;     jf = jf + 1</div><div class="line"><a name="l00943"></a><span class="lineno">  943</span>&#160;</div><div class="line"><a name="l00944"></a><span class="lineno">  944</span>&#160;     <span class="comment">!* First line</span></div><div class="line"><a name="l00945"></a><span class="lineno">  945</span>&#160;</div><div class="line"><a name="l00946"></a><span class="lineno">  946</span>&#160;     <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>, end=241) clline</div><div class="line"><a name="l00947"></a><span class="lineno">  947</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00948"></a><span class="lineno">  948</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39;1 Read line: &#39;</span>,trim(clline)</div><div class="line"><a name="l00949"></a><span class="lineno">  949</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l00950"></a><span class="lineno">  950</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l00951"></a><span class="lineno">  951</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l00952"></a><span class="lineno">  952</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l00953"></a><span class="lineno">  953</span>&#160;     <span class="keywordflow">IF</span> (trim(clvari) .eq. <span class="stringliteral">&quot;$END&quot;</span>) endflag = .true.</div><div class="line"><a name="l00954"></a><span class="lineno">  954</span>&#160;</div><div class="line"><a name="l00955"></a><span class="lineno">  955</span>&#160;     <span class="keywordflow">IF</span> (trim(clvari) .EQ. <span class="stringliteral">&quot; &quot;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00956"></a><span class="lineno">  956</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39; size clline smaller than the size of the names of the fields on the line&#39;</span></div><div class="line"><a name="l00957"></a><span class="lineno">  957</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a675d6fc398ff3a060fbd9949fde4d0e2">tmpstr2</a>,*) <span class="stringliteral">&#39; increase jpeighty and change the associated format A(jpeighty) and cline&#39;</span></div><div class="line"><a name="l00958"></a><span class="lineno">  958</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,<a class="code" href="namespacemod__oasis__namcouple.html#a675d6fc398ff3a060fbd9949fde4d0e2">tmpstr2</a>)</div><div class="line"><a name="l00959"></a><span class="lineno">  959</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l00960"></a><span class="lineno">  960</span>&#160;</div><div class="line"><a name="l00961"></a><span class="lineno">  961</span>&#160;     <span class="keywordflow">IF</span> (.not. endflag) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00962"></a><span class="lineno">  962</span>&#160;</div><div class="line"><a name="l00963"></a><span class="lineno">  963</span>&#160;        <span class="comment">!* Get output field symbolic name</span></div><div class="line"><a name="l00964"></a><span class="lineno">  964</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 2, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l00965"></a><span class="lineno">  965</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#a1b680bf476776f3db085dc1f0009736c">cg_output_field</a>(jf) = clvari</div><div class="line"><a name="l00966"></a><span class="lineno">  966</span>&#160;</div><div class="line"><a name="l00967"></a><span class="lineno">  967</span>&#160;        <span class="comment">!* Get total number of analysis</span></div><div class="line"><a name="l00968"></a><span class="lineno">  968</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 5, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l00969"></a><span class="lineno">  969</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00970"></a><span class="lineno">  970</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39;parsing 1 Read line, clvari in 5 position: &#39;</span>,trim(clline),trim(clvari)</div><div class="line"><a name="l00971"></a><span class="lineno">  971</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>) </div><div class="line"><a name="l00972"></a><span class="lineno">  972</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l00973"></a><span class="lineno">  973</span>&#160;        <span class="keyword">READ</span>(clvari,fmt=2003) <a class="code" href="namespacemod__oasis__namcouple.html#abbd7bd184bb2a3860063dbb9f109f427">ig_total_ntrans</a>(jf)</div><div class="line"><a name="l00974"></a><span class="lineno">  974</span>&#160;</div><div class="line"><a name="l00975"></a><span class="lineno">  975</span>&#160;        <span class="comment">!* Get field STATUS for OUTPUT fields</span></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__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 6, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l00977"></a><span class="lineno">  977</span>&#160;        <span class="keywordflow">IF</span> (clvari(1:6) .EQ. <span class="stringliteral">&#39;OUTPUT&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00978"></a><span class="lineno">  978</span>&#160;           <a class="code" href="namespacemod__oasis__namcouple.html#a531825c07a164f6139e5eebd59e295a2">ig_direct_nfield</a> = <a class="code" href="namespacemod__oasis__namcouple.html#a531825c07a164f6139e5eebd59e295a2">ig_direct_nfield</a> + 1</div><div class="line"><a name="l00979"></a><span class="lineno">  979</span>&#160;           <a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf) = .false.</div><div class="line"><a name="l00980"></a><span class="lineno">  980</span>&#160;           <a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) = <a class="code" href="namespacemod__oasis__parameters.html#a556f148d126d8d6dfe711656024436e6">ip_output</a></div><div class="line"><a name="l00981"></a><span class="lineno">  981</span>&#160;        <span class="keywordflow">ELSE</span></div><div class="line"><a name="l00982"></a><span class="lineno">  982</span>&#160;           <span class="comment">!* Get field status (direct or through oasis) and the number  </span></div><div class="line"><a name="l00983"></a><span class="lineno">  983</span>&#160;           <span class="comment">!* of direct and indirect fields if not PIPE nor NONE</span></div><div class="line"><a name="l00984"></a><span class="lineno">  984</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 7, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l00985"></a><span class="lineno">  985</span>&#160;           <span class="keywordflow">IF</span> (clvari(1:8).eq.<span class="stringliteral">&#39;EXPORTED&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00986"></a><span class="lineno">  986</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a> = <a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a> + 1</div><div class="line"><a name="l00987"></a><span class="lineno">  987</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf) = .true.</div><div class="line"><a name="l00988"></a><span class="lineno">  988</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf) = <a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a></div><div class="line"><a name="l00989"></a><span class="lineno">  989</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) = <a class="code" href="namespacemod__oasis__parameters.html#a0f729cda95773cdc8df800eacdceb606">ip_exported</a></div><div class="line"><a name="l00990"></a><span class="lineno">  990</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 6, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l00991"></a><span class="lineno">  991</span>&#160;              <span class="comment">!* Get restart file name               </span></div><div class="line"><a name="l00992"></a><span class="lineno">  992</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a>(jf) = clvari</div><div class="line"><a name="l00993"></a><span class="lineno">  993</span>&#160;              <span class="comment">!* Get restart file name</span></div><div class="line"><a name="l00994"></a><span class="lineno">  994</span>&#160;           <span class="keywordflow">ELSEIF</span> (clvari(1:6) .eq. <span class="stringliteral">&#39;OUTPUT&#39;</span> ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l00995"></a><span class="lineno">  995</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a531825c07a164f6139e5eebd59e295a2">ig_direct_nfield</a> = <a class="code" href="namespacemod__oasis__namcouple.html#a531825c07a164f6139e5eebd59e295a2">ig_direct_nfield</a> + 1</div><div class="line"><a name="l00996"></a><span class="lineno">  996</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf) = .false.</div><div class="line"><a name="l00997"></a><span class="lineno">  997</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) = <a class="code" href="namespacemod__oasis__parameters.html#a556f148d126d8d6dfe711656024436e6">ip_output</a></div><div class="line"><a name="l00998"></a><span class="lineno">  998</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 6, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l00999"></a><span class="lineno">  999</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a>(jf) = clvari</div><div class="line"><a name="l01000"></a><span class="lineno"> 1000</span>&#160;           <span class="keywordflow">ELSEIF</span> (clvari(1:7) .eq. <span class="stringliteral">&#39;IGNORED&#39;</span> ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01001"></a><span class="lineno"> 1001</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a531825c07a164f6139e5eebd59e295a2">ig_direct_nfield</a> = <a class="code" href="namespacemod__oasis__namcouple.html#a531825c07a164f6139e5eebd59e295a2">ig_direct_nfield</a> + 1</div><div class="line"><a name="l01002"></a><span class="lineno"> 1002</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf) = .false.</div><div class="line"><a name="l01003"></a><span class="lineno"> 1003</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) = <a class="code" href="namespacemod__oasis__parameters.html#ae3733a399c07b165b5ad19543ca1d2a2">ip_ignored</a></div><div class="line"><a name="l01004"></a><span class="lineno"> 1004</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 6, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01005"></a><span class="lineno"> 1005</span>&#160;              <span class="comment">!* Get restart file name</span></div><div class="line"><a name="l01006"></a><span class="lineno"> 1006</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a>(jf) = clvari</div><div class="line"><a name="l01007"></a><span class="lineno"> 1007</span>&#160;           <span class="keywordflow">ELSEIF</span> (clvari(1:6) .eq. <span class="stringliteral">&#39;EXPOUT&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01008"></a><span class="lineno"> 1008</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a> = <a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a> + 1</div><div class="line"><a name="l01009"></a><span class="lineno"> 1009</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf) = .true.</div><div class="line"><a name="l01010"></a><span class="lineno"> 1010</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf) = <a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a></div><div class="line"><a name="l01011"></a><span class="lineno"> 1011</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) = <a class="code" href="namespacemod__oasis__parameters.html#ae91d5161b091e1f07e6ee64a38514df6">ip_expout</a></div><div class="line"><a name="l01012"></a><span class="lineno"> 1012</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 6, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01013"></a><span class="lineno"> 1013</span>&#160;              <span class="comment">!* Get restart file name               </span></div><div class="line"><a name="l01014"></a><span class="lineno"> 1014</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a>(jf) = clvari</div><div class="line"><a name="l01015"></a><span class="lineno"> 1015</span>&#160;           <span class="keywordflow">ELSEIF</span> (clvari(1:6) .eq. <span class="stringliteral">&#39;IGNOUT&#39;</span> ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01016"></a><span class="lineno"> 1016</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a531825c07a164f6139e5eebd59e295a2">ig_direct_nfield</a> = <a class="code" href="namespacemod__oasis__namcouple.html#a531825c07a164f6139e5eebd59e295a2">ig_direct_nfield</a> + 1</div><div class="line"><a name="l01017"></a><span class="lineno"> 1017</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf) = .false.</div><div class="line"><a name="l01018"></a><span class="lineno"> 1018</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) = <a class="code" href="namespacemod__oasis__parameters.html#a4d283e27ebb49e8d97a35842f10d9aec">ip_ignout</a></div><div class="line"><a name="l01019"></a><span class="lineno"> 1019</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 6, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01020"></a><span class="lineno"> 1020</span>&#160;              <span class="comment">!* Get restart file name </span></div><div class="line"><a name="l01021"></a><span class="lineno"> 1021</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a>(jf) = clvari</div><div class="line"><a name="l01022"></a><span class="lineno"> 1022</span>&#160;           <span class="keywordflow">ELSEIF</span> (clvari(1:9).eq. <span class="stringliteral">&#39;AUXILARY&#39;</span>) <span class="keywordflow">THEN</span>  </div><div class="line"><a name="l01023"></a><span class="lineno"> 1023</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a> = <a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a> + 1</div><div class="line"><a name="l01024"></a><span class="lineno"> 1024</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf) = .true.</div><div class="line"><a name="l01025"></a><span class="lineno"> 1025</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf) = <a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a></div><div class="line"><a name="l01026"></a><span class="lineno"> 1026</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) = <a class="code" href="namespacemod__oasis__parameters.html#a4e90463865a09309212e947e8c8546ac">ip_auxilary</a></div><div class="line"><a name="l01027"></a><span class="lineno"> 1027</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 6, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01028"></a><span class="lineno"> 1028</span>&#160;              <span class="comment">!* Get restart file name</span></div><div class="line"><a name="l01029"></a><span class="lineno"> 1029</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a>(jf) = clvari</div><div class="line"><a name="l01030"></a><span class="lineno"> 1030</span>&#160;           <span class="keywordflow">ELSEIF</span> (clvari(1:5) .eq. <span class="stringliteral">&#39;INPUT&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01031"></a><span class="lineno"> 1031</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a531825c07a164f6139e5eebd59e295a2">ig_direct_nfield</a> = <a class="code" href="namespacemod__oasis__namcouple.html#a531825c07a164f6139e5eebd59e295a2">ig_direct_nfield</a> + 1</div><div class="line"><a name="l01032"></a><span class="lineno"> 1032</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf) = .false.</div><div class="line"><a name="l01033"></a><span class="lineno"> 1033</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) = <a class="code" href="namespacemod__oasis__parameters.html#a6a7bcd0e3a33573729f94098ecd9a922">ip_input</a></div><div class="line"><a name="l01034"></a><span class="lineno"> 1034</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 6, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01035"></a><span class="lineno"> 1035</span>&#160;              <span class="comment">!* Get input file name</span></div><div class="line"><a name="l01036"></a><span class="lineno"> 1036</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a24f56cf88d79190f229d3fd1d62d17de">cg_input_file</a>(jf) = clvari</div><div class="line"><a name="l01037"></a><span class="lineno"> 1037</span>&#160;<span class="keywordflow">           ENDIF</span></div><div class="line"><a name="l01038"></a><span class="lineno"> 1038</span>&#160;<span class="keywordflow">       ENDIF</span></div><div class="line"><a name="l01039"></a><span class="lineno"> 1039</span>&#160;</div><div class="line"><a name="l01040"></a><span class="lineno"> 1040</span>&#160;       <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">then</span></div><div class="line"><a name="l01041"></a><span class="lineno"> 1041</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39;field jf : &#39;</span>,jf,<span class="stringliteral">&#39; lg_state(jf) : &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)</div><div class="line"><a name="l01042"></a><span class="lineno"> 1042</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39;field jf : &#39;</span>,jf,<span class="stringliteral">&#39; endflag : &#39;</span>,endflag</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__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01046"></a><span class="lineno"> 1046</span>&#160;<span class="comment">!           IF (ig_total_ntrans(jf) .eq. 0) THEN</span></div><div class="line"><a name="l01047"></a><span class="lineno"> 1047</span>&#160; <span class="comment">!             WRITE(tmpstr1,*) &#39;If there is no analysis for the field&#39;,jf, &amp;</span></div><div class="line"><a name="l01048"></a><span class="lineno"> 1048</span>&#160; <span class="comment">!                   &#39;THEN the status must not be EXPORTED, AUXILIARY, or EXPOUT&#39;</span></div><div class="line"><a name="l01049"></a><span class="lineno"> 1049</span>&#160; <span class="comment">!             CALL namcouple_abort(subname,__LINE__,tmpstr1)</span></div><div class="line"><a name="l01050"></a><span class="lineno"> 1050</span>&#160; <span class="comment">!          ENDIF</span></div><div class="line"><a name="l01051"></a><span class="lineno"> 1051</span>&#160;</div><div class="line"><a name="l01052"></a><span class="lineno"> 1052</span>&#160;           <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01053"></a><span class="lineno"> 1053</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01054"></a><span class="lineno"> 1054</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39;2 Read line: &#39;</span>,trim(clline)</div><div class="line"><a name="l01055"></a><span class="lineno"> 1055</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l01056"></a><span class="lineno"> 1056</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01057"></a><span class="lineno"> 1057</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01058"></a><span class="lineno"> 1058</span>&#160;           <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01059"></a><span class="lineno"> 1059</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01060"></a><span class="lineno"> 1060</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39;3 Read line: &#39;</span>,trim(clline)</div><div class="line"><a name="l01061"></a><span class="lineno"> 1061</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="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="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01064"></a><span class="lineno"> 1064</span>&#160;<span class="comment">! MODIF LC quand il n&#39;y a pas de transformations</span></div><div class="line"><a name="l01065"></a><span class="lineno"> 1065</span>&#160;           <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#abbd7bd184bb2a3860063dbb9f109f427">ig_total_ntrans</a>(jf) .GT. 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01066"></a><span class="lineno"> 1066</span>&#160;           <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline_aux</div><div class="line"><a name="l01067"></a><span class="lineno"> 1067</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01068"></a><span class="lineno"> 1068</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39;4 Read line_aux: &#39;</span>,trim(clline_aux)</div><div class="line"><a name="l01069"></a><span class="lineno"> 1069</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l01070"></a><span class="lineno"> 1070</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01071"></a><span class="lineno"> 1071</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline_aux, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01072"></a><span class="lineno"> 1072</span>&#160;           <span class="keywordflow">DO</span> ja=1,<a class="code" href="namespacemod__oasis__namcouple.html#abbd7bd184bb2a3860063dbb9f109f427">ig_total_ntrans</a>(jf)</div><div class="line"><a name="l01073"></a><span class="lineno"> 1073</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline_aux, clvari, ja, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01074"></a><span class="lineno"> 1074</span>&#160;              <span class="keywordflow">IF</span> (clvari.eq.<span class="stringliteral">&#39;CORRECT&#39;</span>.or.clvari.eq.<span class="stringliteral">&#39;BLASOLD&#39;</span>.or. &amp;</div><div class="line"><a name="l01075"></a><span class="lineno"> 1075</span>&#160;                  clvari.eq.<span class="stringliteral">&#39;BLASNEW&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01076"></a><span class="lineno"> 1076</span>&#160;                 <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01077"></a><span class="lineno"> 1077</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01078"></a><span class="lineno"> 1078</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 2, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01079"></a><span class="lineno"> 1079</span>&#160;                 <span class="keyword">READ</span>(clvari, fmt=2003) il_aux</div><div class="line"><a name="l01080"></a><span class="lineno"> 1080</span>&#160;                 <span class="keywordflow">DO</span> ib = 1, il_aux</div><div class="line"><a name="l01081"></a><span class="lineno"> 1081</span>&#160;                    <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01082"></a><span class="lineno"> 1082</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01083"></a><span class="lineno"> 1083</span>&#160;<span class="keywordflow">                 ENDDO</span></div><div class="line"><a name="l01084"></a><span class="lineno"> 1084</span>&#160;              <span class="keywordflow">ELSEIF</span> (clvari.eq.<span class="stringliteral">&#39;NOINTERP&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01085"></a><span class="lineno"> 1085</span>&#160;                 <span class="keywordflow">CONTINUE</span></div><div class="line"><a name="l01086"></a><span class="lineno"> 1086</span>&#160;              <span class="keywordflow">ELSE</span></div><div class="line"><a name="l01087"></a><span class="lineno"> 1087</span>&#160;                 <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01088"></a><span class="lineno"> 1088</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01089"></a><span class="lineno"> 1089</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39;5 Read line: &#39;</span>,trim(clline)</div><div class="line"><a name="l01090"></a><span class="lineno"> 1090</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l01091"></a><span class="lineno"> 1091</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01092"></a><span class="lineno"> 1092</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01093"></a><span class="lineno"> 1093</span>&#160;<span class="keywordflow">              ENDIF</span></div><div class="line"><a name="l01094"></a><span class="lineno"> 1094</span>&#160;<span class="keywordflow">           ENDDO</span></div><div class="line"><a name="l01095"></a><span class="lineno"> 1095</span>&#160;<span class="comment">! MODIF LC</span></div><div class="line"><a name="l01096"></a><span class="lineno"> 1096</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01097"></a><span class="lineno"> 1097</span>&#160;       <span class="keywordflow">ELSE</span></div><div class="line"><a name="l01098"></a><span class="lineno"> 1098</span>&#160;           <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) .ne. <a class="code" href="namespacemod__oasis__parameters.html#a6a7bcd0e3a33573729f94098ecd9a922">ip_input</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01099"></a><span class="lineno"> 1099</span>&#160;              <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01100"></a><span class="lineno"> 1100</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01101"></a><span class="lineno"> 1101</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39;6 Read line : &#39;</span>,trim(clline)</div><div class="line"><a name="l01102"></a><span class="lineno"> 1102</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l01103"></a><span class="lineno"> 1103</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01104"></a><span class="lineno"> 1104</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01105"></a><span class="lineno"> 1105</span>&#160;<span class="keywordflow">           ENDIF</span></div><div class="line"><a name="l01106"></a><span class="lineno"> 1106</span>&#160;           <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) .ne. <a class="code" href="namespacemod__oasis__parameters.html#a6a7bcd0e3a33573729f94098ecd9a922">ip_input</a> .and.  &amp;</div><div class="line"><a name="l01107"></a><span class="lineno"> 1107</span>&#160;               <a class="code" href="namespacemod__oasis__namcouple.html#abbd7bd184bb2a3860063dbb9f109f427">ig_total_ntrans</a>(jf) .gt. 0 ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01108"></a><span class="lineno"> 1108</span>&#160;              <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01109"></a><span class="lineno"> 1109</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01110"></a><span class="lineno"> 1110</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39;7 Read line: &#39;</span>,trim(clline)</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#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l01112"></a><span class="lineno"> 1112</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01113"></a><span class="lineno"> 1113</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01114"></a><span class="lineno"> 1114</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01115"></a><span class="lineno"> 1115</span>&#160;              <span class="keywordflow">IF</span> (clvari(1:8) .ne. <span class="stringliteral">&#39;LOCTRANS&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01116"></a><span class="lineno"> 1116</span>&#160;                 <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39;You want a transformation which is not available !&#39;</span></div><div class="line"><a name="l01117"></a><span class="lineno"> 1117</span>&#160;                 <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a675d6fc398ff3a060fbd9949fde4d0e2">tmpstr2</a>,*) <span class="stringliteral">&#39;Only local transformations are available for &#39;</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__namcouple.html#a5564b823ced851e25d198f2c300dc138">tmpstr3</a>,*) <span class="stringliteral">&#39;fields exchanged directly or output fields &#39;</span></div><div class="line"><a name="l01119"></a><span class="lineno"> 1119</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,<a class="code" href="namespacemod__oasis__namcouple.html#a675d6fc398ff3a060fbd9949fde4d0e2">tmpstr2</a>,<a class="code" href="namespacemod__oasis__namcouple.html#a5564b823ced851e25d198f2c300dc138">tmpstr3</a>)</div><div class="line"><a name="l01120"></a><span class="lineno"> 1120</span>&#160;<span class="keywordflow">              ENDIF</span></div><div class="line"><a name="l01121"></a><span class="lineno"> 1121</span>&#160;              <span class="keywordflow">DO</span> ja=1,<a class="code" href="namespacemod__oasis__namcouple.html#abbd7bd184bb2a3860063dbb9f109f427">ig_total_ntrans</a>(jf)</div><div class="line"><a name="l01122"></a><span class="lineno"> 1122</span>&#160;                 <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01123"></a><span class="lineno"> 1123</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01124"></a><span class="lineno"> 1124</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39;8 Read line: &#39;</span>,trim(clline)</div><div class="line"><a name="l01125"></a><span class="lineno"> 1125</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l01126"></a><span class="lineno"> 1126</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01127"></a><span class="lineno"> 1127</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01128"></a><span class="lineno"> 1128</span>&#160;<span class="keywordflow">              ENDDO</span></div><div class="line"><a name="l01129"></a><span class="lineno"> 1129</span>&#160;<span class="keywordflow">           ENDIF</span></div><div class="line"><a name="l01130"></a><span class="lineno"> 1130</span>&#160;<span class="keywordflow">       ENDIF</span></div><div class="line"><a name="l01131"></a><span class="lineno"> 1131</span>&#160;</div><div class="line"><a name="l01132"></a><span class="lineno"> 1132</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a> = <a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a> + 1</div><div class="line"><a name="l01133"></a><span class="lineno"> 1133</span>&#160; </div><div class="line"><a name="l01134"></a><span class="lineno"> 1134</span>&#160;<span class="keywordflow">    ENDIF</span> <span class="comment">! endflag</span></div><div class="line"><a name="l01135"></a><span class="lineno"> 1135</span>&#160;</div><div class="line"><a name="l01136"></a><span class="lineno"> 1136</span>&#160;<span class="keywordflow">  ENDDO</span>  <span class="comment">! DO jf</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="comment">!* Verify we&#39;re at the end of the namcouple, if not STOP (tcraig, june 2012)</span></div><div class="line"><a name="l01139"></a><span class="lineno"> 1139</span>&#160;  <span class="comment">!* The only thing that should be found is a $END, anything ELSE is wrong</span></div><div class="line"><a name="l01140"></a><span class="lineno"> 1140</span>&#160;</div><div class="line"><a name="l01141"></a><span class="lineno"> 1141</span>&#160;  ios=0</div><div class="line"><a name="l01142"></a><span class="lineno"> 1142</span>&#160;  <span class="keywordflow">DO</span> <span class="keywordflow">WHILE</span> (ios .eq. 0)</div><div class="line"><a name="l01143"></a><span class="lineno"> 1143</span>&#160;     <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>, end=241) clline</div><div class="line"><a name="l01144"></a><span class="lineno"> 1144</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>,ios=ios)</div><div class="line"><a name="l01145"></a><span class="lineno"> 1145</span>&#160;     <span class="keywordflow">IF</span> (ios .EQ. 0) <span class="keywordflow">THEN</span> </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__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01147"></a><span class="lineno"> 1147</span>&#160;        <span class="keywordflow">IF</span> (trim(clvari) /= <span class="stringliteral">&quot;$END&quot;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01148"></a><span class="lineno"> 1148</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39; NFIELDS too small, increase it in namcouple&#39;</span></div><div class="line"><a name="l01149"></a><span class="lineno"> 1149</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) <span class="stringliteral">&#39; NFIELDS too small, increase it in namcouple&#39;</span></div><div class="line"><a name="l01150"></a><span class="lineno"> 1150</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l01151"></a><span class="lineno"> 1151</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l01152"></a><span class="lineno"> 1152</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01153"></a><span class="lineno"> 1153</span>&#160;    <span class="keywordflow">ELSE</span></div><div class="line"><a name="l01154"></a><span class="lineno"> 1154</span>&#160;        <span class="keywordflow">GOTO</span> 241</div><div class="line"><a name="l01155"></a><span class="lineno"> 1155</span>&#160;<span class="keywordflow">    ENDIF</span></div><div class="line"><a name="l01156"></a><span class="lineno"> 1156</span>&#160;<span class="keywordflow">  ENDDO</span></div><div class="line"><a name="l01157"></a><span class="lineno"> 1157</span>&#160;</div><div class="line"><a name="l01158"></a><span class="lineno"> 1158</span>&#160;241 <span class="keywordflow">CONTINUE</span></div><div class="line"><a name="l01159"></a><span class="lineno"> 1159</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01160"></a><span class="lineno"> 1160</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,<span class="stringliteral">&#39;(a,i6)&#39;</span>) <span class="stringliteral">&#39; found namcouple couplings = &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a></div><div class="line"><a name="l01161"></a><span class="lineno"> 1161</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l01162"></a><span class="lineno"> 1162</span>&#160;</div><div class="line"><a name="l01163"></a><span class="lineno"> 1163</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>.eq.0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01164"></a><span class="lineno"> 1164</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#aaf6b923ffc7763fd37a5c4c72bdfa34d">lg_oasis_field</a> = .false.</div><div class="line"><a name="l01165"></a><span class="lineno"> 1165</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01166"></a><span class="lineno"> 1166</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*)<span class="stringliteral">&#39;==&gt; No fields are exchanged via the coupler&#39;</span></div><div class="line"><a name="l01167"></a><span class="lineno"> 1167</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l01168"></a><span class="lineno"> 1168</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l01169"></a><span class="lineno"> 1169</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l01170"></a><span class="lineno"> 1170</span>&#160;</div><div class="line"><a name="l01171"></a><span class="lineno"> 1171</span>&#160;  <span class="comment">!* Number of different restart files</span></div><div class="line"><a name="l01172"></a><span class="lineno"> 1172</span>&#160;</div><div class="line"><a name="l01173"></a><span class="lineno"> 1173</span>&#160;  <span class="keyword">allocate</span> (cl_aux(<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a>))</div><div class="line"><a name="l01174"></a><span class="lineno"> 1174</span>&#160;  cl_aux(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01175"></a><span class="lineno"> 1175</span>&#160;  <span class="keywordflow">DO</span> jf = 1,<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a></div><div class="line"><a name="l01176"></a><span class="lineno"> 1176</span>&#160;     <span class="keywordflow">IF</span> (jf.eq.1) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01177"></a><span class="lineno"> 1177</span>&#160;        cl_aux(1) = <a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a>(1)</div><div class="line"><a name="l01178"></a><span class="lineno"> 1178</span>&#160;        il_aux = 1</div><div class="line"><a name="l01179"></a><span class="lineno"> 1179</span>&#160;     <span class="keywordflow">ELSEIF</span> (jf.gt.1) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01180"></a><span class="lineno"> 1180</span>&#160;        <span class="keywordflow">IF</span> (all(cl_aux.ne.<a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a>(jf))) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01181"></a><span class="lineno"> 1181</span>&#160;           il_aux = il_aux + 1  </div><div class="line"><a name="l01182"></a><span class="lineno"> 1182</span>&#160;           cl_aux(il_aux) = <a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a>(jf)</div><div class="line"><a name="l01183"></a><span class="lineno"> 1183</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01184"></a><span class="lineno"> 1184</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l01185"></a><span class="lineno"> 1185</span>&#160;<span class="keywordflow">  ENDDO</span></div><div class="line"><a name="l01186"></a><span class="lineno"> 1186</span>&#160;  <span class="keyword">deallocate</span>(cl_aux)</div><div class="line"><a name="l01187"></a><span class="lineno"> 1187</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a05148b30ca97c536b40a896153c8921f">ig_nbr_rstfile</a> = il_aux</div><div class="line"><a name="l01188"></a><span class="lineno"> 1188</span>&#160;</div><div class="line"><a name="l01189"></a><span class="lineno"> 1189</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#aaf6b923ffc7763fd37a5c4c72bdfa34d">lg_oasis_field</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01190"></a><span class="lineno"> 1190</span>&#160;</div><div class="line"><a name="l01191"></a><span class="lineno"> 1191</span>&#160;     <span class="comment">!*      Alloc array needed for INTERP and initialize them</span></div><div class="line"><a name="l01192"></a><span class="lineno"> 1192</span>&#160;</div><div class="line"><a name="l01193"></a><span class="lineno"> 1193</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac9b9bb442cf77881bef2157c85e23495">cintmet</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01194"></a><span class="lineno"> 1194</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: cintmet allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01195"></a><span class="lineno"> 1195</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a4a7cad8814c7811b364fd7d70b60b576">naismfl</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01196"></a><span class="lineno"> 1196</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: naismfl allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01197"></a><span class="lineno"> 1197</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ae3d7c72b2f2f3ece9583cc0b25edbaba">naismvoi</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01198"></a><span class="lineno"> 1198</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: naismvoi allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01199"></a><span class="lineno"> 1199</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ada0ad7614eba9cc3a1e168484a520c33">naisgfl</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01200"></a><span class="lineno"> 1200</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: naisgfl allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01201"></a><span class="lineno"> 1201</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a87c0bb7c0a2cccbb673dcaf35e3dec50">naisgvoi</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01202"></a><span class="lineno"> 1202</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: naisgvoi allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01203"></a><span class="lineno"> 1203</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#ac9b9bb442cf77881bef2157c85e23495">cintmet</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01204"></a><span class="lineno"> 1204</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a4a7cad8814c7811b364fd7d70b60b576">naismfl</a>(:) = 1</div><div class="line"><a name="l01205"></a><span class="lineno"> 1205</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#ae3d7c72b2f2f3ece9583cc0b25edbaba">naismvoi</a>(:) = 1</div><div class="line"><a name="l01206"></a><span class="lineno"> 1206</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#ada0ad7614eba9cc3a1e168484a520c33">naisgfl</a>(:) = 1</div><div class="line"><a name="l01207"></a><span class="lineno"> 1207</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a87c0bb7c0a2cccbb673dcaf35e3dec50">naisgvoi</a>(:) = 1</div><div class="line"><a name="l01208"></a><span class="lineno"> 1208</span>&#160;</div><div class="line"><a name="l01209"></a><span class="lineno"> 1209</span>&#160;     <span class="comment">!*          Alloc arrays needed for EXTRAP and initialize them</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">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a1066d92e6c9301bdb46ddda7edd7d29a">cextmet</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01212"></a><span class="lineno"> 1212</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: cextmet allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01213"></a><span class="lineno"> 1213</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a579387e570e26f2d6c6c2159824cf8a3">nninnfl</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01214"></a><span class="lineno"> 1214</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: nninnfl allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01215"></a><span class="lineno"> 1215</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a6526a92cd5fa662f9da229806d062dc2">nninnflg</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01216"></a><span class="lineno"> 1216</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: nninnflg allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01217"></a><span class="lineno"> 1217</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a298c9165785ae1a41f89597cadd211e7">neighbor</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01218"></a><span class="lineno"> 1218</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: neighbor allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01219"></a><span class="lineno"> 1219</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a8302411d5a02efd9a6dc7f784fbb0d4d">nextfl</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01220"></a><span class="lineno"> 1220</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: nextfl allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01221"></a><span class="lineno"> 1221</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a1066d92e6c9301bdb46ddda7edd7d29a">cextmet</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01222"></a><span class="lineno"> 1222</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a579387e570e26f2d6c6c2159824cf8a3">nninnfl</a>(:) = 1</div><div class="line"><a name="l01223"></a><span class="lineno"> 1223</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a6526a92cd5fa662f9da229806d062dc2">nninnflg</a>(:) = 1</div><div class="line"><a name="l01224"></a><span class="lineno"> 1224</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a298c9165785ae1a41f89597cadd211e7">neighbor</a>(:) = 1</div><div class="line"><a name="l01225"></a><span class="lineno"> 1225</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a8302411d5a02efd9a6dc7f784fbb0d4d">nextfl</a>(:) = 1</div><div class="line"><a name="l01226"></a><span class="lineno"> 1226</span>&#160;</div><div class="line"><a name="l01227"></a><span class="lineno"> 1227</span>&#160;     <span class="comment">!*          Alloc arrays needed for BLAS... analyses and initialize them </span></div><div class="line"><a name="l01228"></a><span class="lineno"> 1228</span>&#160;</div><div class="line"><a name="l01229"></a><span class="lineno"> 1229</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a21400200658d24cbf7484b5eb177c911">nbofld</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01230"></a><span class="lineno"> 1230</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: nbofld allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01231"></a><span class="lineno"> 1231</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#af0c7b1e7e49159c6b9c0dc3663264346">nbnfld</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01232"></a><span class="lineno"> 1232</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: nbnfld allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01233"></a><span class="lineno"> 1233</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a21400200658d24cbf7484b5eb177c911">nbofld</a>(:) = 1</div><div class="line"><a name="l01234"></a><span class="lineno"> 1234</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#af0c7b1e7e49159c6b9c0dc3663264346">nbnfld</a>(:) = 1</div><div class="line"><a name="l01235"></a><span class="lineno"> 1235</span>&#160;</div><div class="line"><a name="l01236"></a><span class="lineno"> 1236</span>&#160;     <span class="comment">!*          Alloc arrays needed for MOZAIC and initialize them</span></div><div class="line"><a name="l01237"></a><span class="lineno"> 1237</span>&#160;</div><div class="line"><a name="l01238"></a><span class="lineno"> 1238</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#adb1f8ce6bf94f488c10ef36b3afb8eca">nmapvoi</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01239"></a><span class="lineno"> 1239</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: nmapvoi allocation of  &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01240"></a><span class="lineno"> 1240</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac623e3e0906f57983efc1ab912ce9674">nmapfl</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01241"></a><span class="lineno"> 1241</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: nmapfl allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01242"></a><span class="lineno"> 1242</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#adb1f8ce6bf94f488c10ef36b3afb8eca">nmapvoi</a>(:) = 1</div><div class="line"><a name="l01243"></a><span class="lineno"> 1243</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#ac623e3e0906f57983efc1ab912ce9674">nmapfl</a>(:) = 1</div><div class="line"><a name="l01244"></a><span class="lineno"> 1244</span>&#160;</div><div class="line"><a name="l01245"></a><span class="lineno"> 1245</span>&#160;     <span class="comment">!*          Alloc arrays needed for SUBGRID and initialize them</span></div><div class="line"><a name="l01246"></a><span class="lineno"> 1246</span>&#160;</div><div class="line"><a name="l01247"></a><span class="lineno"> 1247</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a6a94577996b440c31cac5b7d39e7f47a">nsubfl</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01248"></a><span class="lineno"> 1248</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: nsubfl allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01249"></a><span class="lineno"> 1249</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a0f31605257bfe125aafb6488a5065d4d">nsubvoi</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01250"></a><span class="lineno"> 1250</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: nsubvoi allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01251"></a><span class="lineno"> 1251</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a6a94577996b440c31cac5b7d39e7f47a">nsubfl</a>(:) = 1</div><div class="line"><a name="l01252"></a><span class="lineno"> 1252</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a0f31605257bfe125aafb6488a5065d4d">nsubvoi</a>(:) = 1</div><div class="line"><a name="l01253"></a><span class="lineno"> 1253</span>&#160;</div><div class="line"><a name="l01254"></a><span class="lineno"> 1254</span>&#160;     <span class="comment">!*          Alloc arrays needed for GLORED and REDGLO and initialize them </span></div><div class="line"><a name="l01255"></a><span class="lineno"> 1255</span>&#160;</div><div class="line"><a name="l01256"></a><span class="lineno"> 1256</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#aaf9fd5eaa5d115f2548b8f78cdcd172d">ntronca</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01257"></a><span class="lineno"> 1257</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: ntronca allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01258"></a><span class="lineno"> 1258</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#aaf9fd5eaa5d115f2548b8f78cdcd172d">ntronca</a>(:) = 0</div><div class="line"><a name="l01259"></a><span class="lineno"> 1259</span>&#160;</div><div class="line"><a name="l01260"></a><span class="lineno"> 1260</span>&#160;     <span class="comment">!*          Alloc array needed for analyses parameters </span></div><div class="line"><a name="l01261"></a><span class="lineno"> 1261</span>&#160;</div><div class="line"><a name="l01262"></a><span class="lineno"> 1262</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a9e90e47fd11ff4dd95c61dcf3ec872ff">cficbf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01263"></a><span class="lineno"> 1263</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: cficbf allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01264"></a><span class="lineno"> 1264</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a9e90e47fd11ff4dd95c61dcf3ec872ff">cficbf</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01265"></a><span class="lineno"> 1265</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a9b3c7c879a3ff2b5eb15cbcaf5a8a1d9">cficaf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01266"></a><span class="lineno"> 1266</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: cficaf allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01267"></a><span class="lineno"> 1267</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a9b3c7c879a3ff2b5eb15cbcaf5a8a1d9">cficaf</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01268"></a><span class="lineno"> 1268</span>&#160;</div><div class="line"><a name="l01269"></a><span class="lineno"> 1269</span>&#160;      <span class="comment">!*         Alloc arrays needed for grid dimensions of direct fields and </span></div><div class="line"><a name="l01270"></a><span class="lineno"> 1270</span>&#160;      <span class="comment">!*         indirect fields</span></div><div class="line"><a name="l01271"></a><span class="lineno"> 1271</span>&#160;</div><div class="line"><a name="l01272"></a><span class="lineno"> 1272</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a6e774d31f16b513b1d604e72a82dff40">nlonbf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01273"></a><span class="lineno"> 1273</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: nlonbf allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01274"></a><span class="lineno"> 1274</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a6e774d31f16b513b1d604e72a82dff40">nlonbf</a>(:)=0</div><div class="line"><a name="l01275"></a><span class="lineno"> 1275</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a9b09ac96dad78313003a9436fe2f9aec">nlatbf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01276"></a><span class="lineno"> 1276</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: nlatbf allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01277"></a><span class="lineno"> 1277</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a9b09ac96dad78313003a9436fe2f9aec">nlatbf</a>(:)=0</div><div class="line"><a name="l01278"></a><span class="lineno"> 1278</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ae413f2dc402b7c018e341081b8d6e208">nlonaf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01279"></a><span class="lineno"> 1279</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: nlonaf allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01280"></a><span class="lineno"> 1280</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#ae413f2dc402b7c018e341081b8d6e208">nlonaf</a>(:)=0</div><div class="line"><a name="l01281"></a><span class="lineno"> 1281</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a80d81b2f026a2d0dc2de27b9ee04f7af">nlataf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01282"></a><span class="lineno"> 1282</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: nlataf allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01283"></a><span class="lineno"> 1283</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a80d81b2f026a2d0dc2de27b9ee04f7af">nlataf</a>(:)=0</div><div class="line"><a name="l01284"></a><span class="lineno"> 1284</span>&#160;</div><div class="line"><a name="l01285"></a><span class="lineno"> 1285</span>&#160;     <span class="comment">!*         Alloc arrays needed for grid number associated to each field</span></div><div class="line"><a name="l01286"></a><span class="lineno"> 1286</span>&#160;</div><div class="line"><a name="l01287"></a><span class="lineno"> 1287</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ae81f2e658bbaeae20badef0fad425a69">ig_grid_nbrbf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01288"></a><span class="lineno"> 1288</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: ig_grid_nbrbf allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01289"></a><span class="lineno"> 1289</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#ae81f2e658bbaeae20badef0fad425a69">ig_grid_nbrbf</a>(:)=0</div><div class="line"><a name="l01290"></a><span class="lineno"> 1290</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a8e8c38746c6c35b13d2d9b934835188c">ig_grid_nbraf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01291"></a><span class="lineno"> 1291</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: ig_grid_nbraf allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01292"></a><span class="lineno"> 1292</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a8e8c38746c6c35b13d2d9b934835188c">ig_grid_nbraf</a>(:)=0</div><div class="line"><a name="l01293"></a><span class="lineno"> 1293</span>&#160;</div><div class="line"><a name="l01294"></a><span class="lineno"> 1294</span>&#160;     <span class="comment">!*          Alloc number of analyses array </span></div><div class="line"><a name="l01295"></a><span class="lineno"> 1295</span>&#160;</div><div class="line"><a name="l01296"></a><span class="lineno"> 1296</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac4549f9f5bbb37fce3edc9a208e0d48b">ig_ntrans</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01297"></a><span class="lineno"> 1297</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: ig_ntrans allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01298"></a><span class="lineno"> 1298</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#ac4549f9f5bbb37fce3edc9a208e0d48b">ig_ntrans</a>(:)=0</div><div class="line"><a name="l01299"></a><span class="lineno"> 1299</span>&#160;     <span class="keywordflow">DO</span> ib = 1, <a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a></div><div class="line"><a name="l01300"></a><span class="lineno"> 1300</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(ib)) <a class="code" href="namespacemod__oasis__namcouple.html#ac4549f9f5bbb37fce3edc9a208e0d48b">ig_ntrans</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(ib))=<a class="code" href="namespacemod__oasis__namcouple.html#abbd7bd184bb2a3860063dbb9f109f427">ig_total_ntrans</a>(ib)</div><div class="line"><a name="l01301"></a><span class="lineno"> 1301</span>&#160;<span class="keywordflow">     ENDDO</span></div><div class="line"><a name="l01302"></a><span class="lineno"> 1302</span>&#160;</div><div class="line"><a name="l01303"></a><span class="lineno"> 1303</span>&#160;     <span class="comment">!*          Maximum number of analyses </span></div><div class="line"><a name="l01304"></a><span class="lineno"> 1304</span>&#160;</div><div class="line"><a name="l01305"></a><span class="lineno"> 1305</span>&#160;     il_maxanal = maxval(<a class="code" href="namespacemod__oasis__namcouple.html#ac4549f9f5bbb37fce3edc9a208e0d48b">ig_ntrans</a>)</div><div class="line"><a name="l01306"></a><span class="lineno"> 1306</span>&#160;</div><div class="line"><a name="l01307"></a><span class="lineno"> 1307</span>&#160;     <span class="comment">!*          Alloc array of restart file names</span></div><div class="line"><a name="l01308"></a><span class="lineno"> 1308</span>&#160;</div><div class="line"><a name="l01309"></a><span class="lineno"> 1309</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#af17e746f51dcf0110428ebe55f6d7285">cficinp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01310"></a><span class="lineno"> 1310</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: cficinp allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01311"></a><span class="lineno"> 1311</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#af17e746f51dcf0110428ebe55f6d7285">cficinp</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01312"></a><span class="lineno"> 1312</span>&#160;     <span class="keywordflow">DO</span> ib = 1, <a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a></div><div class="line"><a name="l01313"></a><span class="lineno"> 1313</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(ib)) <a class="code" href="namespacemod__oasis__namcouple.html#af17e746f51dcf0110428ebe55f6d7285">cficinp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(ib))=<a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a>(ib)</div><div class="line"><a name="l01314"></a><span class="lineno"> 1314</span>&#160;<span class="keywordflow">     ENDDO</span></div><div class="line"><a name="l01315"></a><span class="lineno"> 1315</span>&#160;<span class="preprocessor">#ifdef use_netCDF</span></div><div class="line"><a name="l01316"></a><span class="lineno"> 1316</span>&#160;<span class="preprocessor"></span>     <span class="comment">!tcx?</span></div><div class="line"><a name="l01317"></a><span class="lineno"> 1317</span>&#160;     <span class="comment">!            istatus=NF_OPEN(cg_restart_file(1), NF_NOWRITE, il_id)</span></div><div class="line"><a name="l01318"></a><span class="lineno"> 1318</span>&#160;     <span class="comment">!            IF (istatus .eq. NF_NOERR) THEN</span></div><div class="line"><a name="l01319"></a><span class="lineno"> 1319</span>&#160;     <span class="comment">!                lncdfrst = .true.</span></div><div class="line"><a name="l01320"></a><span class="lineno"> 1320</span>&#160;     <span class="comment">!            ELSE</span></div><div class="line"><a name="l01321"></a><span class="lineno"> 1321</span>&#160;<span class="preprocessor">#endif</span></div><div class="line"><a name="l01322"></a><span class="lineno"> 1322</span>&#160;<span class="preprocessor"></span>     <a class="code" href="namespacemod__oasis__namcouple.html#a645168dae20a0c24786c3e6dcea9f2ab">lncdfrst</a> = .false.</div><div class="line"><a name="l01323"></a><span class="lineno"> 1323</span>&#160;<span class="preprocessor">#ifdef use_netCDF</span></div><div class="line"><a name="l01324"></a><span class="lineno"> 1324</span>&#160;<span class="preprocessor"></span>     <span class="comment">!            ENDIF</span></div><div class="line"><a name="l01325"></a><span class="lineno"> 1325</span>&#160;     <span class="comment">!            istatus=NF_CLOSE(il_id)</span></div><div class="line"><a name="l01326"></a><span class="lineno"> 1326</span>&#160;<span class="preprocessor">#endif</span></div><div class="line"><a name="l01327"></a><span class="lineno"> 1327</span>&#160;<span class="preprocessor"></span>     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01328"></a><span class="lineno"> 1328</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>, *) <span class="stringliteral">&#39;lncdfrst =&#39;</span>, <a class="code" href="namespacemod__oasis__namcouple.html#a645168dae20a0c24786c3e6dcea9f2ab">lncdfrst</a></div><div class="line"><a name="l01329"></a><span class="lineno"> 1329</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l01330"></a><span class="lineno"> 1330</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l01331"></a><span class="lineno"> 1331</span>&#160;</div><div class="line"><a name="l01332"></a><span class="lineno"> 1332</span>&#160;     <span class="comment">!*          Alloc array needed to get analysis names</span></div><div class="line"><a name="l01333"></a><span class="lineno"> 1333</span>&#160;</div><div class="line"><a name="l01334"></a><span class="lineno"> 1334</span>&#160;     <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(il_maxanal,<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l01335"></a><span class="lineno"> 1335</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error: canal allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l01336"></a><span class="lineno"> 1336</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(:,:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01337"></a><span class="lineno"> 1337</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l01338"></a><span class="lineno"> 1338</span>&#160;</div><div class="line"><a name="l01339"></a><span class="lineno"> 1339</span>&#160;  <span class="comment">!*      Get analysis parameters </span></div><div class="line"><a name="l01340"></a><span class="lineno"> 1340</span>&#160;</div><div class="line"><a name="l01341"></a><span class="lineno"> 1341</span>&#160;  keyword = <a class="code" href="namespacemod__oasis__namcouple.html#a4dde076bf8cce410eebbd878f791e32e">clstring</a></div><div class="line"><a name="l01342"></a><span class="lineno"> 1342</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, clline, found)</div><div class="line"><a name="l01343"></a><span class="lineno"> 1343</span>&#160;  <span class="keywordflow">IF</span> (.not.found) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01344"></a><span class="lineno"> 1344</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) trim(keyword)//<span class="stringliteral">&#39; not found&#39;</span></div><div class="line"><a name="l01345"></a><span class="lineno"> 1345</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l01346"></a><span class="lineno"> 1346</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l01347"></a><span class="lineno"> 1347</span>&#160;</div><div class="line"><a name="l01348"></a><span class="lineno"> 1348</span>&#160;  <span class="comment">!*      Loop on total number of fields (NoF)</span></div><div class="line"><a name="l01349"></a><span class="lineno"> 1349</span>&#160;</div><div class="line"><a name="l01350"></a><span class="lineno"> 1350</span>&#160;  <span class="keywordflow">DO</span> jf=1,<a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a></div><div class="line"><a name="l01351"></a><span class="lineno"> 1351</span>&#160;</div><div class="line"><a name="l01352"></a><span class="lineno"> 1352</span>&#160;     <span class="comment">!*        Initialization</span></div><div class="line"><a name="l01353"></a><span class="lineno"> 1353</span>&#160;</div><div class="line"><a name="l01354"></a><span class="lineno"> 1354</span>&#160;     nlonbf_notnc = 0</div><div class="line"><a name="l01355"></a><span class="lineno"> 1355</span>&#160;     nlatbf_notnc = 0</div><div class="line"><a name="l01356"></a><span class="lineno"> 1356</span>&#160;     nlonaf_notnc = 0</div><div class="line"><a name="l01357"></a><span class="lineno"> 1357</span>&#160;     nlataf_notnc = 0</div><div class="line"><a name="l01358"></a><span class="lineno"> 1358</span>&#160;</div><div class="line"><a name="l01359"></a><span class="lineno"> 1359</span>&#160;     <span class="comment">!*        Skip first line read before</span></div><div class="line"><a name="l01360"></a><span class="lineno"> 1360</span>&#160;</div><div class="line"><a name="l01361"></a><span class="lineno"> 1361</span>&#160;     <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01362"></a><span class="lineno"> 1362</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01363"></a><span class="lineno"> 1363</span>&#160;</div><div class="line"><a name="l01364"></a><span class="lineno"> 1364</span>&#160;     <span class="comment">!* Second line</span></div><div class="line"><a name="l01365"></a><span class="lineno"> 1365</span>&#160;</div><div class="line"><a name="l01366"></a><span class="lineno"> 1366</span>&#160;     <span class="comment">!* In the indirect case, reading of second, third, fourth line and analyses </span></div><div class="line"><a name="l01367"></a><span class="lineno"> 1367</span>&#160;     <span class="comment">!* lines</span></div><div class="line"><a name="l01368"></a><span class="lineno"> 1368</span>&#160;</div><div class="line"><a name="l01369"></a><span class="lineno"> 1369</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) .NE. <a class="code" href="namespacemod__oasis__parameters.html#a6a7bcd0e3a33573729f94098ecd9a922">ip_input</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01370"></a><span class="lineno"> 1370</span>&#160;        <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01371"></a><span class="lineno"> 1371</span>&#160;        <span class="comment">!*            First determine what information is on the line</span></div><div class="line"><a name="l01372"></a><span class="lineno"> 1372</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01373"></a><span class="lineno"> 1373</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 3, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01374"></a><span class="lineno"> 1374</span>&#160;        <span class="keywordflow">IF</span> (ilen .LT. 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01375"></a><span class="lineno"> 1375</span>&#160;           <span class="comment">!*                IF only two words on the line, THEN they are the locator </span></div><div class="line"><a name="l01376"></a><span class="lineno"> 1376</span>&#160;           <span class="comment">!*                prefixes and the grids file must be in NetCDF format       </span></div><div class="line"><a name="l01377"></a><span class="lineno"> 1377</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01378"></a><span class="lineno"> 1378</span>&#160;           <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <a class="code" href="namespacemod__oasis__namcouple.html#a9e90e47fd11ff4dd95c61dcf3ec872ff">cficbf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = clvari</div><div class="line"><a name="l01379"></a><span class="lineno"> 1379</span>&#160;           <a class="code" href="namespacemod__oasis__namcouple.html#ac22155599e9b49d57514dd1f7dc9928a">cga_locatorbf</a>(jf) = clvari(1:4)</div><div class="line"><a name="l01380"></a><span class="lineno"> 1380</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 2, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01381"></a><span class="lineno"> 1381</span>&#160;           <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <a class="code" href="namespacemod__oasis__namcouple.html#a9b3c7c879a3ff2b5eb15cbcaf5a8a1d9">cficaf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = clvari</div><div class="line"><a name="l01382"></a><span class="lineno"> 1382</span>&#160;           <a class="code" href="namespacemod__oasis__namcouple.html#a6f4080d45f0b9be5a0466967f535b83b">cga_locatoraf</a>(jf) = clvari(1:4)</div><div class="line"><a name="l01383"></a><span class="lineno"> 1383</span>&#160;           <a class="code" href="namespacemod__oasis__namcouple.html#a5d6add8b958acc8b865b898d9e54ac73">lncdfgrd</a> = .true.</div><div class="line"><a name="l01384"></a><span class="lineno"> 1384</span>&#160;        <span class="keywordflow">ELSE</span> </div><div class="line"><a name="l01385"></a><span class="lineno"> 1385</span>&#160;           <span class="keyword">READ</span>(clvari, fmt=2010) clind, clequa, iind</div><div class="line"><a name="l01386"></a><span class="lineno"> 1386</span>&#160;           <span class="keywordflow">IF</span> (clind .EQ. <span class="stringliteral">&#39;SEQ&#39;</span> .OR. clind .EQ. <span class="stringliteral">&#39;LAG&#39;</span> .AND. clequa .EQ. <span class="stringliteral">&#39;=&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01387"></a><span class="lineno"> 1387</span>&#160;              <span class="comment">!*                    If 3rd word is an index, THEN first two words are </span></div><div class="line"><a name="l01388"></a><span class="lineno"> 1388</span>&#160;              <span class="comment">!*                    locator prefixes and grids file must be NetCDF format</span></div><div class="line"><a name="l01389"></a><span class="lineno"> 1389</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__) </div><div class="line"><a name="l01390"></a><span class="lineno"> 1390</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <a class="code" href="namespacemod__oasis__namcouple.html#a9e90e47fd11ff4dd95c61dcf3ec872ff">cficbf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = clvari </div><div class="line"><a name="l01391"></a><span class="lineno"> 1391</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#ac22155599e9b49d57514dd1f7dc9928a">cga_locatorbf</a>(jf) = clvari(1:4)</div><div class="line"><a name="l01392"></a><span class="lineno"> 1392</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 2, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01393"></a><span class="lineno"> 1393</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <a class="code" href="namespacemod__oasis__namcouple.html#a9b3c7c879a3ff2b5eb15cbcaf5a8a1d9">cficaf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = clvari</div><div class="line"><a name="l01394"></a><span class="lineno"> 1394</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a6f4080d45f0b9be5a0466967f535b83b">cga_locatoraf</a>(jf) = clvari(1:4)</div><div class="line"><a name="l01395"></a><span class="lineno"> 1395</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a5d6add8b958acc8b865b898d9e54ac73">lncdfgrd</a> = .true.</div><div class="line"><a name="l01396"></a><span class="lineno"> 1396</span>&#160;           <span class="keywordflow">ELSE</span></div><div class="line"><a name="l01397"></a><span class="lineno"> 1397</span>&#160;              <span class="comment">!*              If not, the first 4 words are grid dimensions and next</span></div><div class="line"><a name="l01398"></a><span class="lineno"> 1398</span>&#160;              <span class="comment">!*              2 words are locator prefixes, and grids file may be or</span></div><div class="line"><a name="l01399"></a><span class="lineno"> 1399</span>&#160;              <span class="comment">!*              not in NetCDF format </span></div><div class="line"><a name="l01400"></a><span class="lineno"> 1400</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01401"></a><span class="lineno"> 1401</span>&#160;              <span class="comment">!*                    Get number of longitudes for initial field</span></div><div class="line"><a name="l01402"></a><span class="lineno"> 1402</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01403"></a><span class="lineno"> 1403</span>&#160;                 <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*)<span class="stringliteral">&#39;CLVARI=&#39;</span>,trim(clvari)</div><div class="line"><a name="l01404"></a><span class="lineno"> 1404</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>) </div><div class="line"><a name="l01405"></a><span class="lineno"> 1405</span>&#160;<span class="keywordflow">              ENDIF</span></div><div class="line"><a name="l01406"></a><span class="lineno"> 1406</span>&#160;              <span class="keyword">READ</span>(clvari, fmt=2004) nlonbf_notnc</div><div class="line"><a name="l01407"></a><span class="lineno"> 1407</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 2, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01408"></a><span class="lineno"> 1408</span>&#160;              <span class="comment">!*                    Get number of latitudes for initial field</span></div><div class="line"><a name="l01409"></a><span class="lineno"> 1409</span>&#160;              <span class="keyword">READ</span>(clvari, fmt=2004) nlatbf_notnc</div><div class="line"><a name="l01410"></a><span class="lineno"> 1410</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 3, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01411"></a><span class="lineno"> 1411</span>&#160;              <span class="comment">!*                    Get number of longitudes for final field</span></div><div class="line"><a name="l01412"></a><span class="lineno"> 1412</span>&#160;              <span class="keyword">READ</span>(clvari, fmt=2004) nlonaf_notnc</div><div class="line"><a name="l01413"></a><span class="lineno"> 1413</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 4, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01414"></a><span class="lineno"> 1414</span>&#160;              <span class="comment">!*                    Get number of latitudes for final field</span></div><div class="line"><a name="l01415"></a><span class="lineno"> 1415</span>&#160;              <span class="keyword">READ</span>(clvari, fmt=2004) nlataf_notnc</div><div class="line"><a name="l01416"></a><span class="lineno"> 1416</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 5, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01417"></a><span class="lineno"> 1417</span>&#160;              <span class="comment">!*                    Get root name grid-related files (initial field)</span></div><div class="line"><a name="l01418"></a><span class="lineno"> 1418</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <a class="code" href="namespacemod__oasis__namcouple.html#a9e90e47fd11ff4dd95c61dcf3ec872ff">cficbf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = clvari</div><div class="line"><a name="l01419"></a><span class="lineno"> 1419</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#ac22155599e9b49d57514dd1f7dc9928a">cga_locatorbf</a>(jf) = clvari(1:4)</div><div class="line"><a name="l01420"></a><span class="lineno"> 1420</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 6, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01421"></a><span class="lineno"> 1421</span>&#160;              <span class="comment">!*                    Get root name for grid-related files (final field)</span></div><div class="line"><a name="l01422"></a><span class="lineno"> 1422</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <a class="code" href="namespacemod__oasis__namcouple.html#a9b3c7c879a3ff2b5eb15cbcaf5a8a1d9">cficaf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = clvari</div><div class="line"><a name="l01423"></a><span class="lineno"> 1423</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a6f4080d45f0b9be5a0466967f535b83b">cga_locatoraf</a>(jf) = clvari(1:4)</div><div class="line"><a name="l01424"></a><span class="lineno"> 1424</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a6e774d31f16b513b1d604e72a82dff40">nlonbf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = nlonbf_notnc</div><div class="line"><a name="l01425"></a><span class="lineno"> 1425</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a9b09ac96dad78313003a9436fe2f9aec">nlatbf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = nlatbf_notnc</div><div class="line"><a name="l01426"></a><span class="lineno"> 1426</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#ae413f2dc402b7c018e341081b8d6e208">nlonaf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = nlonaf_notnc</div><div class="line"><a name="l01427"></a><span class="lineno"> 1427</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a80d81b2f026a2d0dc2de27b9ee04f7af">nlataf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = nlataf_notnc</div><div class="line"><a name="l01428"></a><span class="lineno"> 1428</span>&#160;</div><div class="line"><a name="l01429"></a><span class="lineno"> 1429</span>&#160;<span class="keywordflow">           ENDIF</span></div><div class="line"><a name="l01430"></a><span class="lineno"> 1430</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01431"></a><span class="lineno"> 1431</span>&#160;          </div><div class="line"><a name="l01432"></a><span class="lineno"> 1432</span>&#160;        <span class="comment">!*           Read the P 2 P 0 line for exported, expout or auxilary</span></div><div class="line"><a name="l01433"></a><span class="lineno"> 1433</span>&#160;          </div><div class="line"><a name="l01434"></a><span class="lineno"> 1434</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01435"></a><span class="lineno"> 1435</span>&#160;           <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01436"></a><span class="lineno"> 1436</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01437"></a><span class="lineno"> 1437</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01438"></a><span class="lineno"> 1438</span>&#160; </div><div class="line"><a name="l01439"></a><span class="lineno"> 1439</span>&#160;        <span class="comment">!*            Read next line of strings</span></div><div class="line"><a name="l01440"></a><span class="lineno"> 1440</span>&#160;        <span class="comment">!             ---&gt;&gt;&gt; Stuff related to field transformation</span></div><div class="line"><a name="l01441"></a><span class="lineno"> 1441</span>&#160;</div><div class="line"><a name="l01442"></a><span class="lineno"> 1442</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#abbd7bd184bb2a3860063dbb9f109f427">ig_total_ntrans</a>(jf) .GT. 0) <span class="keywordflow">THEN</span> </div><div class="line"><a name="l01443"></a><span class="lineno"> 1443</span>&#160;           <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01444"></a><span class="lineno"> 1444</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01445"></a><span class="lineno"> 1445</span>&#160;           <span class="keywordflow">DO</span> ja = 1, <a class="code" href="namespacemod__oasis__namcouple.html#abbd7bd184bb2a3860063dbb9f109f427">ig_total_ntrans</a>(jf)</div><div class="line"><a name="l01446"></a><span class="lineno"> 1446</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, ja, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01447"></a><span class="lineno"> 1447</span>&#160;              <span class="comment">!*              Get the whole set of analysis to be performed</span></div><div class="line"><a name="l01448"></a><span class="lineno"> 1448</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = clvari</div><div class="line"><a name="l01449"></a><span class="lineno"> 1449</span>&#160;<span class="keywordflow">           ENDDO</span></div><div class="line"><a name="l01450"></a><span class="lineno"> 1450</span>&#160;</div><div class="line"><a name="l01451"></a><span class="lineno"> 1451</span>&#160;           <span class="keywordflow">DO</span> ja = 1, <a class="code" href="namespacemod__oasis__namcouple.html#abbd7bd184bb2a3860063dbb9f109f427">ig_total_ntrans</a>(jf)</div><div class="line"><a name="l01452"></a><span class="lineno"> 1452</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01453"></a><span class="lineno"> 1453</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a8a7387f27c409ea27aa53b616805f0fa">cg_c</a>=<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l01454"></a><span class="lineno"> 1454</span>&#160;                 <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01455"></a><span class="lineno"> 1455</span>&#160;                    <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*)<span class="stringliteral">&#39;LG_STATE cg_c=&#39;</span>, trim(clline)</div><div class="line"><a name="l01456"></a><span class="lineno"> 1456</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l01457"></a><span class="lineno"> 1457</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l01458"></a><span class="lineno"> 1458</span>&#160;                 <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a8a7387f27c409ea27aa53b616805f0fa">cg_c</a> .EQ. <span class="stringliteral">&#39;NOINTERP&#39;</span> .OR. <a class="code" href="namespacemod__oasis__namcouple.html#a8a7387f27c409ea27aa53b616805f0fa">cg_c</a> .EQ. <span class="stringliteral">&#39;REDGLO&#39;</span> .OR. <a class="code" href="namespacemod__oasis__namcouple.html#a8a7387f27c409ea27aa53b616805f0fa">cg_c</a> .EQ. <span class="stringliteral">&#39;INVERT&#39;</span> .OR. &amp;</div><div class="line"><a name="l01459"></a><span class="lineno"> 1459</span>&#160;                     <a class="code" href="namespacemod__oasis__namcouple.html#a8a7387f27c409ea27aa53b616805f0fa">cg_c</a> .EQ. <span class="stringliteral">&#39;MASK&#39;</span> .OR. <a class="code" href="namespacemod__oasis__namcouple.html#a8a7387f27c409ea27aa53b616805f0fa">cg_c</a> .EQ. <span class="stringliteral">&#39;EXTRAP&#39;</span> .OR. <a class="code" href="namespacemod__oasis__namcouple.html#a8a7387f27c409ea27aa53b616805f0fa">cg_c</a> .EQ. <span class="stringliteral">&#39;CORRECT&#39;</span> .OR. &amp;</div><div class="line"><a name="l01460"></a><span class="lineno"> 1460</span>&#160;                     <a class="code" href="namespacemod__oasis__namcouple.html#a8a7387f27c409ea27aa53b616805f0fa">cg_c</a> .EQ. <span class="stringliteral">&#39;REDGLO&#39;</span> .OR. <a class="code" href="namespacemod__oasis__namcouple.html#a8a7387f27c409ea27aa53b616805f0fa">cg_c</a> .EQ. <span class="stringliteral">&#39;INTERP&#39;</span> .OR. <a class="code" href="namespacemod__oasis__namcouple.html#a8a7387f27c409ea27aa53b616805f0fa">cg_c</a> .EQ. <span class="stringliteral">&#39;MOZAIC&#39;</span> .OR. &amp;</div><div class="line"><a name="l01461"></a><span class="lineno"> 1461</span>&#160;                     <a class="code" href="namespacemod__oasis__namcouple.html#a8a7387f27c409ea27aa53b616805f0fa">cg_c</a> .EQ. <span class="stringliteral">&#39;FILLING&#39;</span> .OR. <a class="code" href="namespacemod__oasis__namcouple.html#a8a7387f27c409ea27aa53b616805f0fa">cg_c</a> .EQ. <span class="stringliteral">&#39;MASKP&#39;</span> .OR. <a class="code" href="namespacemod__oasis__namcouple.html#a8a7387f27c409ea27aa53b616805f0fa">cg_c</a> .EQ. <span class="stringliteral">&#39;REVERSE&#39;</span> .OR. &amp;</div><div class="line"><a name="l01462"></a><span class="lineno"> 1462</span>&#160;                     <a class="code" href="namespacemod__oasis__namcouple.html#a8a7387f27c409ea27aa53b616805f0fa">cg_c</a> .EQ. <span class="stringliteral">&#39;GLORED&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01463"></a><span class="lineno"> 1463</span>&#160;                    <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*)<span class="stringliteral">&#39; OBSOLETE OPERATION= &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#a8a7387f27c409ea27aa53b616805f0fa">cg_c</a>),<span class="stringliteral">&#39; specified in namcouple&#39;</span></div><div class="line"><a name="l01464"></a><span class="lineno"> 1464</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l01465"></a><span class="lineno"> 1465</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l01466"></a><span class="lineno"> 1466</span>&#160;                 <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01467"></a><span class="lineno"> 1467</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01468"></a><span class="lineno"> 1468</span>&#160;                 <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;SCRIPR&#39;</span>)<span class="keywordflow">THEN</span></div><div class="line"><a name="l01469"></a><span class="lineno"> 1469</span>&#160;                    <span class="comment">!* Get field type (scalar/vector)</span></div><div class="line"><a name="l01470"></a><span class="lineno"> 1470</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 3, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01471"></a><span class="lineno"> 1471</span>&#160;                    <span class="keyword">READ</span>(clvari, fmt=2009) clstrg</div><div class="line"><a name="l01472"></a><span class="lineno"> 1472</span>&#160;                 <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;BLASOLD&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01473"></a><span class="lineno"> 1473</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 2, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01474"></a><span class="lineno"> 1474</span>&#160;                    <span class="comment">!* Get number of additional fields in linear formula</span></div><div class="line"><a name="l01475"></a><span class="lineno"> 1475</span>&#160;                    <span class="keyword">READ</span>(clvari, fmt=2003) <a class="code" href="namespacemod__oasis__namcouple.html#a21400200658d24cbf7484b5eb177c911">nbofld</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l01476"></a><span class="lineno"> 1476</span>&#160;                    <span class="keywordflow">DO</span> ib = 1,<a class="code" href="namespacemod__oasis__namcouple.html#a21400200658d24cbf7484b5eb177c911">nbofld</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l01477"></a><span class="lineno"> 1477</span>&#160;                       <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01478"></a><span class="lineno"> 1478</span>&#160;                       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01479"></a><span class="lineno"> 1479</span>&#160;<span class="keywordflow">                    ENDDO</span></div><div class="line"><a name="l01480"></a><span class="lineno"> 1480</span>&#160;                 <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;BLASNEW&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01481"></a><span class="lineno"> 1481</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 2, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01482"></a><span class="lineno"> 1482</span>&#160;                    <span class="comment">!* Get number of additional fields in linear formula</span></div><div class="line"><a name="l01483"></a><span class="lineno"> 1483</span>&#160;                    <span class="keyword">READ</span>(clvari, fmt=2003) <a class="code" href="namespacemod__oasis__namcouple.html#af0c7b1e7e49159c6b9c0dc3663264346">nbnfld</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l01484"></a><span class="lineno"> 1484</span>&#160;                    <span class="keywordflow">DO</span> ib = 1,<a class="code" href="namespacemod__oasis__namcouple.html#af0c7b1e7e49159c6b9c0dc3663264346">nbnfld</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l01485"></a><span class="lineno"> 1485</span>&#160;                       <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01486"></a><span class="lineno"> 1486</span>&#160;                       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01487"></a><span class="lineno"> 1487</span>&#160;<span class="keywordflow">                    ENDDO</span></div><div class="line"><a name="l01488"></a><span class="lineno"> 1488</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l01489"></a><span class="lineno"> 1489</span>&#160;              <span class="keywordflow">ELSE</span></div><div class="line"><a name="l01490"></a><span class="lineno"> 1490</span>&#160;                 <span class="comment">! For IGNORED, IGNOUT and OUTPUT, only one line for LOCTRANS</span></div><div class="line"><a name="l01491"></a><span class="lineno"> 1491</span>&#160;                 <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01492"></a><span class="lineno"> 1492</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01493"></a><span class="lineno"> 1493</span>&#160;                 <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01494"></a><span class="lineno"> 1494</span>&#160;                    <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*)<span class="stringliteral">&#39;OUTPUT clline=&#39;</span>, trim(clline)</div><div class="line"><a name="l01495"></a><span class="lineno"> 1495</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l01496"></a><span class="lineno"> 1496</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l01497"></a><span class="lineno"> 1497</span>&#160;<span class="keywordflow">              ENDIF</span></div><div class="line"><a name="l01498"></a><span class="lineno"> 1498</span>&#160;<span class="keywordflow">           ENDDO</span>   <span class="comment">! DO ja</span></div><div class="line"><a name="l01499"></a><span class="lineno"> 1499</span>&#160;<span class="keywordflow">        ENDIF</span>   <span class="comment">! IF (ig_total_ntrans(jf) .GT. 0) THEN </span></div><div class="line"><a name="l01500"></a><span class="lineno"> 1500</span>&#160;<span class="keywordflow">     ENDIF</span>   <span class="comment">!IF (ig_total_state(jf) .NE. ip_input) THEN</span></div><div class="line"><a name="l01501"></a><span class="lineno"> 1501</span>&#160;<span class="keywordflow">  ENDDO</span>   <span class="comment">! DO jf</span></div><div class="line"><a name="l01502"></a><span class="lineno"> 1502</span>&#160;</div><div class="line"><a name="l01503"></a><span class="lineno"> 1503</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#aaf6b923ffc7763fd37a5c4c72bdfa34d">lg_oasis_field</a>) <span class="keywordflow">THEN</span> </div><div class="line"><a name="l01504"></a><span class="lineno"> 1504</span>&#160;</div><div class="line"><a name="l01505"></a><span class="lineno"> 1505</span>&#160;     <span class="comment">!*       Search maximum number of fields to be combined in the BLASxxx analyses</span></div><div class="line"><a name="l01506"></a><span class="lineno"> 1506</span>&#160;</div><div class="line"><a name="l01507"></a><span class="lineno"> 1507</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#abba00866a740567bc1d93cf5850042fd">ig_maxcomb</a> = maxval(<a class="code" href="namespacemod__oasis__namcouple.html#a21400200658d24cbf7484b5eb177c911">nbofld</a>)</div><div class="line"><a name="l01508"></a><span class="lineno"> 1508</span>&#160;     <span class="keywordflow">IF</span> (maxval(<a class="code" href="namespacemod__oasis__namcouple.html#af0c7b1e7e49159c6b9c0dc3663264346">nbnfld</a>).GT.<a class="code" href="namespacemod__oasis__namcouple.html#abba00866a740567bc1d93cf5850042fd">ig_maxcomb</a>) <a class="code" href="namespacemod__oasis__namcouple.html#abba00866a740567bc1d93cf5850042fd">ig_maxcomb</a> = maxval(<a class="code" href="namespacemod__oasis__namcouple.html#af0c7b1e7e49159c6b9c0dc3663264346">nbnfld</a>)</div><div class="line"><a name="l01509"></a><span class="lineno"> 1509</span>&#160;</div><div class="line"><a name="l01510"></a><span class="lineno"> 1510</span>&#160;     <span class="comment">!*          Search maximum number of neighbors for GAUSSIAN interpolation</span></div><div class="line"><a name="l01511"></a><span class="lineno"> 1511</span>&#160;</div><div class="line"><a name="l01512"></a><span class="lineno"> 1512</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#ae66cf9f63b6c440406c9b675caef7759">ig_maxnoa</a> = maxval(<a class="code" href="namespacemod__oasis__namcouple.html#a87c0bb7c0a2cccbb673dcaf35e3dec50">naisgvoi</a>)</div><div class="line"><a name="l01513"></a><span class="lineno"> 1513</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01514"></a><span class="lineno"> 1514</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) <span class="stringliteral">&#39;Max number of neighbors for GAUSSIAN interp : &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#ae66cf9f63b6c440406c9b675caef7759">ig_maxnoa</a></div><div class="line"><a name="l01515"></a><span class="lineno"> 1515</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*)<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01516"></a><span class="lineno"> 1516</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l01517"></a><span class="lineno"> 1517</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l01518"></a><span class="lineno"> 1518</span>&#160;</div><div class="line"><a name="l01519"></a><span class="lineno"> 1519</span>&#160;     <span class="comment">!*          Search maximum number of different GAUSSIAN interpolations</span></div><div class="line"><a name="l01520"></a><span class="lineno"> 1520</span>&#160;</div><div class="line"><a name="l01521"></a><span class="lineno"> 1521</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#aab2d4bcc2dc767df51f99f907f4f3e6e">ig_maxnfg</a> = maxval(<a class="code" href="namespacemod__oasis__namcouple.html#ada0ad7614eba9cc3a1e168484a520c33">naisgfl</a>)</div><div class="line"><a name="l01522"></a><span class="lineno"> 1522</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01523"></a><span class="lineno"> 1523</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) <span class="stringliteral">&#39;Maximum number of different GAUSSIAN interpolations : &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#aab2d4bcc2dc767df51f99f907f4f3e6e">ig_maxnfg</a></div><div class="line"><a name="l01524"></a><span class="lineno"> 1524</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*)<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01525"></a><span class="lineno"> 1525</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l01526"></a><span class="lineno"> 1526</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l01527"></a><span class="lineno"> 1527</span>&#160;</div><div class="line"><a name="l01528"></a><span class="lineno"> 1528</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l01529"></a><span class="lineno"> 1529</span>&#160;</div><div class="line"><a name="l01530"></a><span class="lineno"> 1530</span>&#160;  <span class="comment">!*    Formats</span></div><div class="line"><a name="l01531"></a><span class="lineno"> 1531</span>&#160;</div><div class="line"><a name="l01532"></a><span class="lineno"> 1532</span>&#160;2001    <span class="keyword">FORMAT</span>(a9)</div><div class="line"><a name="l01533"></a><span class="lineno"> 1533</span>&#160;2003    <span class="keyword">FORMAT</span>(i4)</div><div class="line"><a name="l01534"></a><span class="lineno"> 1534</span>&#160;2004    <span class="keyword">FORMAT</span>(i8)</div><div class="line"><a name="l01535"></a><span class="lineno"> 1535</span>&#160;2009    <span class="keyword">FORMAT</span>(a8)</div><div class="line"><a name="l01536"></a><span class="lineno"> 1536</span>&#160;2010    <span class="keyword">FORMAT</span>(a3,a1,i2)</div><div class="line"><a name="l01537"></a><span class="lineno"> 1537</span>&#160;</div><div class="line"><a name="l01538"></a><span class="lineno"> 1538</span>&#160;  <span class="comment">!*    3. End of routine</span></div><div class="line"><a name="l01539"></a><span class="lineno"> 1539</span>&#160;  <span class="comment">!        --------------</span></div><div class="line"><a name="l01540"></a><span class="lineno"> 1540</span>&#160;    </div><div class="line"><a name="l01541"></a><span class="lineno"> 1541</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mpi_rank_global</a> == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01542"></a><span class="lineno"> 1542</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*)<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01543"></a><span class="lineno"> 1543</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>,*) subname,<span class="stringliteral">&#39;-- End of ROUTINE --&#39;</span></div><div class="line"><a name="l01544"></a><span class="lineno"> 1544</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">oasis_flush</a> (<a class="code" href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">nulprt1</a>)</div><div class="line"><a name="l01545"></a><span class="lineno"> 1545</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l01546"></a><span class="lineno"> 1546</span>&#160;</div><div class="line"><a name="l01547"></a><span class="lineno"> 1547</span>&#160;<span class="comment">!      CALL oasis_debug_exit(subname)</span></div><div class="line"><a name="l01548"></a><span class="lineno"> 1548</span>&#160;  <span class="keywordflow">RETURN</span></div><div class="line"><a name="l01549"></a><span class="lineno"> 1549</span>&#160;</div><div class="line"><a name="l01550"></a><span class="lineno"> 1550</span>&#160;<span class="keyword">END SUBROUTINE </span><a class="code" href="namespacemod__oasis__namcouple.html#acb43892c17b5f8c8b360effb5a811c27">inipar_alloc</a></div><div class="line"><a name="l01551"></a><span class="lineno"> 1551</span>&#160;</div><div class="line"><a name="l01552"></a><span class="lineno"> 1552</span>&#160;<span class="comment">!===============================================================================</span></div><div class="line"><a name="l01553"></a><span class="lineno"> 1553</span>&#160;<span class="comment"></span></div><div class="line"><a name="l01554"></a><span class="lineno"> 1554</span>&#160;<span class="comment">!&gt; Reads, sets, and prints the namcouple file</span></div><div class="line"><a name="l01555"></a><span class="lineno"> 1555</span>&#160;</div><div class="line"><a name="l01556"></a><span class="lineno"> 1556</span>&#160;<span class="keyword">SUBROUTINE </span><a class="code" href="namespacemod__oasis__namcouple.html#a6da9d2285766ceb22ea8449f55201d84">inipar</a></div><div class="line"><a name="l01557"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a6da9d2285766ceb22ea8449f55201d84"> 1557</a></span>&#160;</div><div class="line"><a name="l01558"></a><span class="lineno"> 1558</span>&#160;<span class="comment">!****</span></div><div class="line"><a name="l01559"></a><span class="lineno"> 1559</span>&#160;<span class="comment">!               *****************************</span></div><div class="line"><a name="l01560"></a><span class="lineno"> 1560</span>&#160;<span class="comment">!               * OASIS ROUTINE  -  LEVEL 0 *</span></div><div class="line"><a name="l01561"></a><span class="lineno"> 1561</span>&#160;<span class="comment">!               * -------------     ------- *</span></div><div class="line"><a name="l01562"></a><span class="lineno"> 1562</span>&#160;<span class="comment">!               *****************************</span></div><div class="line"><a name="l01563"></a><span class="lineno"> 1563</span>&#160;</div><div class="line"><a name="l01564"></a><span class="lineno"> 1564</span>&#160;<span class="comment">!**** *inipar*  - Get run parameters</span></div><div class="line"><a name="l01565"></a><span class="lineno"> 1565</span>&#160;</div><div class="line"><a name="l01566"></a><span class="lineno"> 1566</span>&#160;<span class="comment">!     Purpose:</span></div><div class="line"><a name="l01567"></a><span class="lineno"> 1567</span>&#160;<span class="comment">!     -------</span></div><div class="line"><a name="l01568"></a><span class="lineno"> 1568</span>&#160;<span class="comment">!     Reads and prints out run parameters.</span></div><div class="line"><a name="l01569"></a><span class="lineno"> 1569</span>&#160;</div><div class="line"><a name="l01570"></a><span class="lineno"> 1570</span>&#160;<span class="comment">!**   Interface:</span></div><div class="line"><a name="l01571"></a><span class="lineno"> 1571</span>&#160;<span class="comment">!     ---------</span></div><div class="line"><a name="l01572"></a><span class="lineno"> 1572</span>&#160;<span class="comment">!       *CALL*  *inipar*</span></div><div class="line"><a name="l01573"></a><span class="lineno"> 1573</span>&#160;</div><div class="line"><a name="l01574"></a><span class="lineno"> 1574</span>&#160;<span class="comment">!     Input:</span></div><div class="line"><a name="l01575"></a><span class="lineno"> 1575</span>&#160;<span class="comment">!     -----</span></div><div class="line"><a name="l01576"></a><span class="lineno"> 1576</span>&#160;<span class="comment">!     None</span></div><div class="line"><a name="l01577"></a><span class="lineno"> 1577</span>&#160;</div><div class="line"><a name="l01578"></a><span class="lineno"> 1578</span>&#160;<span class="comment">!     Output:</span></div><div class="line"><a name="l01579"></a><span class="lineno"> 1579</span>&#160;<span class="comment">!     ------</span></div><div class="line"><a name="l01580"></a><span class="lineno"> 1580</span>&#160;<span class="comment">!     None</span></div><div class="line"><a name="l01581"></a><span class="lineno"> 1581</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l01582"></a><span class="lineno"> 1582</span>&#160;<span class="comment">! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%</span></div><div class="line"><a name="l01583"></a><span class="lineno"> 1583</span>&#160;</div><div class="line"><a name="l01584"></a><span class="lineno"> 1584</span>&#160;  <span class="keywordtype">IMPLICIT NONE</span></div><div class="line"><a name="l01585"></a><span class="lineno"> 1585</span>&#160;</div><div class="line"><a name="l01586"></a><span class="lineno"> 1586</span>&#160;<span class="comment">!* ---------------------------- Local declarations --------------------</span></div><div class="line"><a name="l01587"></a><span class="lineno"> 1587</span>&#160;  </div><div class="line"><a name="l01588"></a><span class="lineno"> 1588</span>&#160;  <span class="keywordtype">CHARACTER*5000</span> clline, clvari</div><div class="line"><a name="l01589"></a><span class="lineno"> 1589</span>&#160;  <span class="keywordtype">CHARACTER*9</span> clword</div><div class="line"><a name="l01590"></a><span class="lineno"> 1590</span>&#160;  <span class="keywordtype">CHARACTER*8</span> cl_print_trans, cl_print_state</div><div class="line"><a name="l01591"></a><span class="lineno"> 1591</span>&#160;  <span class="keywordtype">CHARACTER*3</span> clinfo, clind</div><div class="line"><a name="l01592"></a><span class="lineno"> 1592</span>&#160;  <span class="keywordtype">CHARACTER*1</span> clequa</div><div class="line"><a name="l01593"></a><span class="lineno"> 1593</span>&#160;  <span class="keywordtype">CHARACTER*64</span> cl_cfname,cl_cfunit</div><div class="line"><a name="l01594"></a><span class="lineno"> 1594</span>&#160;  <span class="keywordtype">CHARACTER(len=15)</span> :: cvarmul,cafldcobo,cabocoef,cafldcobn,cabncoef</div><div class="line"><a name="l01595"></a><span class="lineno"> 1595</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> iind, il_aux</div><div class="line"><a name="l01596"></a><span class="lineno"> 1596</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> il_file_unit, id_error</div><div class="line"><a name="l01597"></a><span class="lineno"> 1597</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> il_max_entry_id, il_no_of_entries</div><div class="line"><a name="l01598"></a><span class="lineno"> 1598</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> il_i, il_pos</div><div class="line"><a name="l01599"></a><span class="lineno"> 1599</span>&#160;  <span class="keywordtype">LOGICAL</span> llseq, lllag, ll_exist</div><div class="line"><a name="l01600"></a><span class="lineno"> 1600</span>&#160;  <span class="keywordtype">INTEGER</span> lastplace</div><div class="line"><a name="l01601"></a><span class="lineno"> 1601</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: ib,ilind1,ilind2,ilind</div><div class="line"><a name="l01602"></a><span class="lineno"> 1602</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: ja,jf,jfn,jz,jm,ilen,idum</div><div class="line"><a name="l01603"></a><span class="lineno"> 1603</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: ifca,ifcb,ilab,jff,jc</div><div class="line"><a name="l01604"></a><span class="lineno"> 1604</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: icofld,imodel, ios</div><div class="line"><a name="l01605"></a><span class="lineno"> 1605</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span> :: ivarmul,iafldcobo,iabocoef,iafldcobn,iabncoef</div><div class="line"><a name="l01606"></a><span class="lineno"> 1606</span>&#160;  <span class="keywordtype">CHARACTER(len=32)</span> :: keyword</div><div class="line"><a name="l01607"></a><span class="lineno"> 1607</span>&#160;  <span class="keywordtype">LOGICAL</span> :: found</div><div class="line"><a name="l01608"></a><span class="lineno"> 1608</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">parameter</span> :: subname=<span class="stringliteral">&#39;(mod_oasis_namcouple:inipar)&#39;</span></div><div class="line"><a name="l01609"></a><span class="lineno"> 1609</span>&#160;</div><div class="line"><a name="l01610"></a><span class="lineno"> 1610</span>&#160;<span class="comment">!* ---------------------------- Poema verses --------------------------</span></div><div class="line"><a name="l01611"></a><span class="lineno"> 1611</span>&#160;</div><div class="line"><a name="l01612"></a><span class="lineno"> 1612</span>&#160;<span class="comment">!  CALL oasis_debug_enter(subname)</span></div><div class="line"><a name="l01613"></a><span class="lineno"> 1613</span>&#160;</div><div class="line"><a name="l01614"></a><span class="lineno"> 1614</span>&#160;<span class="comment">! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%</span></div><div class="line"><a name="l01615"></a><span class="lineno"> 1615</span>&#160;</div><div class="line"><a name="l01616"></a><span class="lineno"> 1616</span>&#160;<span class="comment">!*    1. Get basic info for the simulation </span></div><div class="line"><a name="l01617"></a><span class="lineno"> 1617</span>&#160;<span class="comment">!        ---------------------------------</span></div><div class="line"><a name="l01618"></a><span class="lineno"> 1618</span>&#160;</div><div class="line"><a name="l01619"></a><span class="lineno"> 1619</span>&#160;  <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01620"></a><span class="lineno"> 1620</span>&#160;     <span class="keyword">WRITE</span>(nulprt1,*)<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01621"></a><span class="lineno"> 1621</span>&#160;     <span class="keyword">WRITE</span>(nulprt1,*) trim(subname)</div><div class="line"><a name="l01622"></a><span class="lineno"> 1622</span>&#160;     <span class="keyword">WRITE</span>(nulprt1,*)<span class="stringliteral">&#39;   ROUTINE inipar  -  Level 0&#39;</span></div><div class="line"><a name="l01623"></a><span class="lineno"> 1623</span>&#160;     <span class="keyword">WRITE</span>(nulprt1,*)<span class="stringliteral">&#39;   **************     *******&#39;</span></div><div class="line"><a name="l01624"></a><span class="lineno"> 1624</span>&#160;     <span class="keyword">WRITE</span>(nulprt1,*)<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01625"></a><span class="lineno"> 1625</span>&#160;     <span class="keyword">WRITE</span>(nulprt1,*)<span class="stringliteral">&#39;   Initialization of run parameters&#39;</span></div><div class="line"><a name="l01626"></a><span class="lineno"> 1626</span>&#160;     <span class="keyword">WRITE</span>(nulprt1,*)<span class="stringliteral">&#39;   Reading input file namcouple&#39;</span></div><div class="line"><a name="l01627"></a><span class="lineno"> 1627</span>&#160;     <span class="keyword">WRITE</span>(nulprt1,*)<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01628"></a><span class="lineno"> 1628</span>&#160;     <span class="keyword">CALL </span>oasis_flush(nulprt1)</div><div class="line"><a name="l01629"></a><span class="lineno"> 1629</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l01630"></a><span class="lineno"> 1630</span>&#160;</div><div class="line"><a name="l01631"></a><span class="lineno"> 1631</span>&#160;<span class="comment">!* Initialize CHARACTER keywords to locate appropriate input</span></div><div class="line"><a name="l01632"></a><span class="lineno"> 1632</span>&#160;</div><div class="line"><a name="l01633"></a><span class="lineno"> 1633</span>&#160;  <span class="comment">!* Initialize some variables </span></div><div class="line"><a name="l01634"></a><span class="lineno"> 1634</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a8a962108487c3ca092633bd4292dbfd6">ntime</a> = 0 ; <a class="code" href="namespacemod__oasis__namcouple.html#a6246780a56635119fd8f7935456b06cf">niter</a> = 5 </div><div class="line"><a name="l01635"></a><span class="lineno"> 1635</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a66c36f23a77081749dc9e7993b0277f3">nstep</a> = 86400 ; <a class="code" href="namespacemod__oasis__namcouple.html#a1e5b5efd046e5ab959fba026bd645945">nitfn</a>=4</div><div class="line"><a name="l01636"></a><span class="lineno"> 1636</span>&#160;</div><div class="line"><a name="l01637"></a><span class="lineno"> 1637</span>&#160;  <span class="comment">!* First get experiment name </span></div><div class="line"><a name="l01638"></a><span class="lineno"> 1638</span>&#160;</div><div class="line"><a name="l01639"></a><span class="lineno"> 1639</span>&#160;  keyword = <a class="code" href="namespacemod__oasis__namcouple.html#afbdcab2dcd637c9c70db27c8c46bd2d7">cljob</a></div><div class="line"><a name="l01640"></a><span class="lineno"> 1640</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, clline, found)</div><div class="line"><a name="l01641"></a><span class="lineno"> 1641</span>&#160;  <span class="keywordflow">IF</span> (found .and. mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01642"></a><span class="lineno"> 1642</span>&#160;     <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; ***WARNING*** &#39;</span>//trim(keyword)//<span class="stringliteral">&#39; is obsolete in OASIS3-MCT&#39;</span></div><div class="line"><a name="l01643"></a><span class="lineno"> 1643</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l01644"></a><span class="lineno"> 1644</span>&#160;  </div><div class="line"><a name="l01645"></a><span class="lineno"> 1645</span>&#160;  <span class="comment">!* Get number of models involved in this simulation</span></div><div class="line"><a name="l01646"></a><span class="lineno"> 1646</span>&#160;  </div><div class="line"><a name="l01647"></a><span class="lineno"> 1647</span>&#160;  keyword = <a class="code" href="namespacemod__oasis__namcouple.html#aa5cc4d0530b3e755441ef9ef70d8083b">clmod</a></div><div class="line"><a name="l01648"></a><span class="lineno"> 1648</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, clline, found)</div><div class="line"><a name="l01649"></a><span class="lineno"> 1649</span>&#160;  <span class="keywordflow">IF</span> (found .and. mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01650"></a><span class="lineno"> 1650</span>&#160;     <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; ***WARNING*** &#39;</span>//trim(keyword)//<span class="stringliteral">&#39; is obsolete in OASIS3-MCT&#39;</span></div><div class="line"><a name="l01651"></a><span class="lineno"> 1651</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l01652"></a><span class="lineno"> 1652</span>&#160;</div><div class="line"><a name="l01653"></a><span class="lineno"> 1653</span>&#160;  <span class="comment">!* Get hardware info for this OASIS simulation</span></div><div class="line"><a name="l01654"></a><span class="lineno"> 1654</span>&#160;</div><div class="line"><a name="l01655"></a><span class="lineno"> 1655</span>&#160;  keyword = <a class="code" href="namespacemod__oasis__namcouple.html#ac0ead9ca992504e9b580db2678926b68">clchan</a></div><div class="line"><a name="l01656"></a><span class="lineno"> 1656</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, clline, found)</div><div class="line"><a name="l01657"></a><span class="lineno"> 1657</span>&#160;  <span class="keywordflow">IF</span> (found .and. mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01658"></a><span class="lineno"> 1658</span>&#160;     <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; ***WARNING*** &#39;</span>//trim(keyword)//<span class="stringliteral">&#39; is obsolete in OASIS3-MCT&#39;</span></div><div class="line"><a name="l01659"></a><span class="lineno"> 1659</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l01660"></a><span class="lineno"> 1660</span>&#160;</div><div class="line"><a name="l01661"></a><span class="lineno"> 1661</span>&#160;  <span class="comment">!* Get total time for this simulation</span></div><div class="line"><a name="l01662"></a><span class="lineno"> 1662</span>&#160;</div><div class="line"><a name="l01663"></a><span class="lineno"> 1663</span>&#160;  keyword = <a class="code" href="namespacemod__oasis__namcouple.html#a21a2ef5048e9fc9551821e8a0b8dec0b">cltime</a></div><div class="line"><a name="l01664"></a><span class="lineno"> 1664</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, clline, found)</div><div class="line"><a name="l01665"></a><span class="lineno"> 1665</span>&#160;  <span class="keywordflow">IF</span> (found) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01666"></a><span class="lineno"> 1666</span>&#160;     <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01667"></a><span class="lineno"> 1667</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01668"></a><span class="lineno"> 1668</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a> (clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01669"></a><span class="lineno"> 1669</span>&#160;     <span class="keywordflow">IF</span> (ilen &gt; 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01670"></a><span class="lineno"> 1670</span>&#160;        <span class="keyword">READ</span>(clvari, fmt=1004) <a class="code" href="namespacemod__oasis__namcouple.html#a8a962108487c3ca092633bd4292dbfd6">ntime</a></div><div class="line"><a name="l01671"></a><span class="lineno"> 1671</span>&#160;     <span class="keywordflow">ELSE</span></div><div class="line"><a name="l01672"></a><span class="lineno"> 1672</span>&#160;        <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39; ERROR with value associated with &#39;</span>//trim(keyword)</div><div class="line"><a name="l01673"></a><span class="lineno"> 1673</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l01674"></a><span class="lineno"> 1674</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l01675"></a><span class="lineno"> 1675</span>&#160;  <span class="keywordflow">ELSE</span></div><div class="line"><a name="l01676"></a><span class="lineno"> 1676</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) trim(keyword)//<span class="stringliteral">&#39; not found in namcouple&#39;</span></div><div class="line"><a name="l01677"></a><span class="lineno"> 1677</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l01678"></a><span class="lineno"> 1678</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l01679"></a><span class="lineno"> 1679</span>&#160;</div><div class="line"><a name="l01680"></a><span class="lineno"> 1680</span>&#160;  <span class="comment">!* Print out total time</span></div><div class="line"><a name="l01681"></a><span class="lineno"> 1681</span>&#160;</div><div class="line"><a name="l01682"></a><span class="lineno"> 1682</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;The total time for this run is ntime =&#39;</span>, <a class="code" href="namespacemod__oasis__namcouple.html#a8a962108487c3ca092633bd4292dbfd6">ntime</a>, 1)</div><div class="line"><a name="l01683"></a><span class="lineno"> 1683</span>&#160;</div><div class="line"><a name="l01684"></a><span class="lineno"> 1684</span>&#160;  <span class="comment">!* Get initial date for this simulation</span></div><div class="line"><a name="l01685"></a><span class="lineno"> 1685</span>&#160;</div><div class="line"><a name="l01686"></a><span class="lineno"> 1686</span>&#160;  keyword = <a class="code" href="namespacemod__oasis__namcouple.html#a0f2d8d935f9088aec74c4dda3e9f5d9c">cldate</a></div><div class="line"><a name="l01687"></a><span class="lineno"> 1687</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, clline, found)</div><div class="line"><a name="l01688"></a><span class="lineno"> 1688</span>&#160;  <span class="keywordflow">IF</span> (found .and. mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01689"></a><span class="lineno"> 1689</span>&#160;     <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; ***WARNING*** &#39;</span>//trim(keyword)//<span class="stringliteral">&#39; is obsolete in OASIS3-MCT&#39;</span></div><div class="line"><a name="l01690"></a><span class="lineno"> 1690</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l01691"></a><span class="lineno"> 1691</span>&#160;</div><div class="line"><a name="l01692"></a><span class="lineno"> 1692</span>&#160;   <span class="comment">!* Get number of sequential models involved in this simulation</span></div><div class="line"><a name="l01693"></a><span class="lineno"> 1693</span>&#160;</div><div class="line"><a name="l01694"></a><span class="lineno"> 1694</span>&#160;  keyword = <a class="code" href="namespacemod__oasis__namcouple.html#a0d0b7fa2be2a8202344c0ef9085c1309">clseq</a></div><div class="line"><a name="l01695"></a><span class="lineno"> 1695</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, clline, found)</div><div class="line"><a name="l01696"></a><span class="lineno"> 1696</span>&#160;  <span class="keywordflow">IF</span> (found .and. mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01697"></a><span class="lineno"> 1697</span>&#160;     <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; ***WARNING*** &#39;</span>//trim(keyword)//<span class="stringliteral">&#39; is obsolete in OASIS3-MCT&#39;</span></div><div class="line"><a name="l01698"></a><span class="lineno"> 1698</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l01699"></a><span class="lineno"> 1699</span>&#160;</div><div class="line"><a name="l01700"></a><span class="lineno"> 1700</span>&#160;  <span class="comment">!* Get the information mode for this simulation</span></div><div class="line"><a name="l01701"></a><span class="lineno"> 1701</span>&#160;</div><div class="line"><a name="l01702"></a><span class="lineno"> 1702</span>&#160;  keyword = <a class="code" href="namespacemod__oasis__namcouple.html#a15338be5483b1b392e3e5580be75704d">clhead</a></div><div class="line"><a name="l01703"></a><span class="lineno"> 1703</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, clline, found)</div><div class="line"><a name="l01704"></a><span class="lineno"> 1704</span>&#160;  <span class="keywordflow">IF</span> (found .and. mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01705"></a><span class="lineno"> 1705</span>&#160;     <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; ***WARNING*** &#39;</span>//trim(keyword)//<span class="stringliteral">&#39; is obsolete in OASIS3-MCT&#39;</span></div><div class="line"><a name="l01706"></a><span class="lineno"> 1706</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l01707"></a><span class="lineno"> 1707</span>&#160;</div><div class="line"><a name="l01708"></a><span class="lineno"> 1708</span>&#160;  <span class="comment">!* Get the printing level for this simulation</span></div><div class="line"><a name="l01709"></a><span class="lineno"> 1709</span>&#160;</div><div class="line"><a name="l01710"></a><span class="lineno"> 1710</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a7b8c924fdea622759b99d8f61e03ade5">nlogprt</a> = 2</div><div class="line"><a name="l01711"></a><span class="lineno"> 1711</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a49bd874b06648257f7ce70da19a678b4">ntlogprt</a>=0</div><div class="line"><a name="l01712"></a><span class="lineno"> 1712</span>&#160;  keyword = <a class="code" href="namespacemod__oasis__namcouple.html#aeaab03598b6067fbecd8d8fc0c54443e">clprint</a></div><div class="line"><a name="l01713"></a><span class="lineno"> 1713</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, clline, found)</div><div class="line"><a name="l01714"></a><span class="lineno"> 1714</span>&#160;  <span class="keywordflow">IF</span> (found) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01715"></a><span class="lineno"> 1715</span>&#160;     <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01716"></a><span class="lineno"> 1716</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01717"></a><span class="lineno"> 1717</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a> (clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01718"></a><span class="lineno"> 1718</span>&#160;</div><div class="line"><a name="l01719"></a><span class="lineno"> 1719</span>&#160;     <span class="keywordflow">IF</span> (ilen .LE. 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01720"></a><span class="lineno"> 1720</span>&#160;        <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01721"></a><span class="lineno"> 1721</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;        ***WARNING*** Nothing on input for &#39;</span>//trim(keyword)</div><div class="line"><a name="l01722"></a><span class="lineno"> 1722</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; Default value 2 will be used &#39;</span></div><div class="line"><a name="l01723"></a><span class="lineno"> 1723</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01724"></a><span class="lineno"> 1724</span>&#160;           <span class="keyword">CALL </span>oasis_flush(nulprt1)</div><div class="line"><a name="l01725"></a><span class="lineno"> 1725</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01726"></a><span class="lineno"> 1726</span>&#160;     <span class="keywordflow">ELSE</span></div><div class="line"><a name="l01727"></a><span class="lineno"> 1727</span>&#160;        <span class="keyword">READ</span>(clvari, fmt=1004) <a class="code" href="namespacemod__oasis__namcouple.html#a7b8c924fdea622759b99d8f61e03ade5">nlogprt</a></div><div class="line"><a name="l01728"></a><span class="lineno"> 1728</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a> (clline, clvari, 2, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01729"></a><span class="lineno"> 1729</span>&#160;        <span class="keywordflow">IF</span> (ilen &gt; 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01730"></a><span class="lineno"> 1730</span>&#160;           <span class="keyword">READ</span>(clvari, fmt=1004) <a class="code" href="namespacemod__oasis__namcouple.html#a49bd874b06648257f7ce70da19a678b4">ntlogprt</a></div><div class="line"><a name="l01731"></a><span class="lineno"> 1731</span>&#160;        <span class="keywordflow">ELSE</span></div><div class="line"><a name="l01732"></a><span class="lineno"> 1732</span>&#160;           <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01733"></a><span class="lineno"> 1733</span>&#160;              <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;        ***WARNING*** Nothing on input for time statistic for &#39;</span>//trim(keyword)</div><div class="line"><a name="l01734"></a><span class="lineno"> 1734</span>&#160;              <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; Default value 0 will be used &#39;</span></div><div class="line"><a name="l01735"></a><span class="lineno"> 1735</span>&#160;              <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01736"></a><span class="lineno"> 1736</span>&#160;              <span class="keyword">CALL </span>oasis_flush(nulprt1)</div><div class="line"><a name="l01737"></a><span class="lineno"> 1737</span>&#160;<span class="keywordflow">           ENDIF</span></div><div class="line"><a name="l01738"></a><span class="lineno"> 1738</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01739"></a><span class="lineno"> 1739</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l01740"></a><span class="lineno"> 1740</span>&#160;<span class="keywordflow">  ENDIF</span>   <span class="comment">! found</span></div><div class="line"><a name="l01741"></a><span class="lineno"> 1741</span>&#160;</div><div class="line"><a name="l01742"></a><span class="lineno"> 1742</span>&#160;  <span class="comment">!* Print out the printing level</span></div><div class="line"><a name="l01743"></a><span class="lineno"> 1743</span>&#160;</div><div class="line"><a name="l01744"></a><span class="lineno"> 1744</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;The printing level is nlogprt =&#39;</span>, <a class="code" href="namespacemod__oasis__namcouple.html#a7b8c924fdea622759b99d8f61e03ade5">nlogprt</a>, 1)</div><div class="line"><a name="l01745"></a><span class="lineno"> 1745</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;The time statistics level is ntlogprt =&#39;</span>, <a class="code" href="namespacemod__oasis__namcouple.html#a49bd874b06648257f7ce70da19a678b4">ntlogprt</a>, 1)</div><div class="line"><a name="l01746"></a><span class="lineno"> 1746</span>&#160;</div><div class="line"><a name="l01747"></a><span class="lineno"> 1747</span>&#160;  <span class="comment">!* Get the calendar type for this simulation</span></div><div class="line"><a name="l01748"></a><span class="lineno"> 1748</span>&#160;</div><div class="line"><a name="l01749"></a><span class="lineno"> 1749</span>&#160;  keyword = <a class="code" href="namespacemod__oasis__namcouple.html#ad027273d67834ba44518cd9825f933b8">clcal</a></div><div class="line"><a name="l01750"></a><span class="lineno"> 1750</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, clline, found)</div><div class="line"><a name="l01751"></a><span class="lineno"> 1751</span>&#160;  <span class="keywordflow">IF</span> (found .and. mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01752"></a><span class="lineno"> 1752</span>&#160;     <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; ***WARNING*** &#39;</span>//trim(keyword)//<span class="stringliteral">&#39; is obsolete in OASIS3-MCT&#39;</span></div><div class="line"><a name="l01753"></a><span class="lineno"> 1753</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l01754"></a><span class="lineno"> 1754</span>&#160;</div><div class="line"><a name="l01755"></a><span class="lineno"> 1755</span>&#160;  <span class="comment">!* Get the allow no restart flag value</span></div><div class="line"><a name="l01756"></a><span class="lineno"> 1756</span>&#160;</div><div class="line"><a name="l01757"></a><span class="lineno"> 1757</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#adb02545191d2ca9c1daff1a3ced2223f">nnorest</a> = .false.</div><div class="line"><a name="l01758"></a><span class="lineno"> 1758</span>&#160;  keyword = <a class="code" href="namespacemod__oasis__namcouple.html#a283471addd7aefe719c8eb6bc45072b0">clrest</a></div><div class="line"><a name="l01759"></a><span class="lineno"> 1759</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, clline, found)</div><div class="line"><a name="l01760"></a><span class="lineno"> 1760</span>&#160;  <span class="keywordflow">IF</span> (found) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01761"></a><span class="lineno"> 1761</span>&#160;     <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01762"></a><span class="lineno"> 1762</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01763"></a><span class="lineno"> 1763</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a> (clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01764"></a><span class="lineno"> 1764</span>&#160;     <span class="keywordflow">IF</span> (ilen .LE. 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01765"></a><span class="lineno"> 1765</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#adb02545191d2ca9c1daff1a3ced2223f">nnorest</a> = .false.</div><div class="line"><a name="l01766"></a><span class="lineno"> 1766</span>&#160;        <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01767"></a><span class="lineno"> 1767</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;        ***WARNING*** Nothing on input for &#39;</span>//trim(keyword)</div><div class="line"><a name="l01768"></a><span class="lineno"> 1768</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; Default value false will be used &#39;</span></div><div class="line"><a name="l01769"></a><span class="lineno"> 1769</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01770"></a><span class="lineno"> 1770</span>&#160;           <span class="keyword">CALL </span>oasis_flush(nulprt1)</div><div class="line"><a name="l01771"></a><span class="lineno"> 1771</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01772"></a><span class="lineno"> 1772</span>&#160;     <span class="keywordflow">ELSE</span></div><div class="line"><a name="l01773"></a><span class="lineno"> 1773</span>&#160;        <span class="keywordflow">IF</span> (clvari(1:1) == <span class="stringliteral">&#39;t&#39;</span> .or. clvari(1:1) == <span class="stringliteral">&#39;T&#39;</span> .or. &amp;</div><div class="line"><a name="l01774"></a><span class="lineno"> 1774</span>&#160;            clvari(1:2) == <span class="stringliteral">&#39;.t&#39;</span> .or. clvari(1:2) == <span class="stringliteral">&#39;.T&#39;</span>) <span class="keywordflow">then</span></div><div class="line"><a name="l01775"></a><span class="lineno"> 1775</span>&#160;           <a class="code" href="namespacemod__oasis__namcouple.html#adb02545191d2ca9c1daff1a3ced2223f">nnorest</a> = .true.</div><div class="line"><a name="l01776"></a><span class="lineno"> 1776</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01777"></a><span class="lineno"> 1777</span>&#160;        <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01778"></a><span class="lineno"> 1778</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; read &#39;</span>//trim(clvari)//<span class="stringliteral">&#39; for &#39;</span>//trim(keyword)</div><div class="line"><a name="l01779"></a><span class="lineno"> 1779</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; set value to &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#adb02545191d2ca9c1daff1a3ced2223f">nnorest</a></div><div class="line"><a name="l01780"></a><span class="lineno"> 1780</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01781"></a><span class="lineno"> 1781</span>&#160;           <span class="keyword">CALL </span>oasis_flush(nulprt1)</div><div class="line"><a name="l01782"></a><span class="lineno"> 1782</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01783"></a><span class="lineno"> 1783</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l01784"></a><span class="lineno"> 1784</span>&#160;<span class="keywordflow">  ENDIF</span>  <span class="comment">! found</span></div><div class="line"><a name="l01785"></a><span class="lineno"> 1785</span>&#160;</div><div class="line"><a name="l01786"></a><span class="lineno"> 1786</span>&#160;  <span class="comment">!* Print out the allow no restart flag</span></div><div class="line"><a name="l01787"></a><span class="lineno"> 1787</span>&#160;</div><div class="line"><a name="l01788"></a><span class="lineno"> 1788</span>&#160;  <span class="keywordflow">if</span> (<a class="code" href="namespacemod__oasis__namcouple.html#adb02545191d2ca9c1daff1a3ced2223f">nnorest</a>) <span class="keywordflow">then</span></div><div class="line"><a name="l01789"></a><span class="lineno"> 1789</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;The allow_no_restart flag is set to true  &#39;</span>,1,1)</div><div class="line"><a name="l01790"></a><span class="lineno"> 1790</span>&#160;  <span class="keywordflow">else</span></div><div class="line"><a name="l01791"></a><span class="lineno"> 1791</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;The allow_no_restart flag is set to false &#39;</span>,0,1)</div><div class="line"><a name="l01792"></a><span class="lineno"> 1792</span>&#160;<span class="keywordflow">  endif</span></div><div class="line"><a name="l01793"></a><span class="lineno"> 1793</span>&#160;</div><div class="line"><a name="l01794"></a><span class="lineno"> 1794</span>&#160;  rewind <a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a></div><div class="line"><a name="l01795"></a><span class="lineno"> 1795</span>&#160;</div><div class="line"><a name="l01796"></a><span class="lineno"> 1796</span>&#160;  <span class="comment">!* Get the unit map decomp value</span></div><div class="line"><a name="l01797"></a><span class="lineno"> 1797</span>&#160;</div><div class="line"><a name="l01798"></a><span class="lineno"> 1798</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#af56d31837b48a43e234bccbf1a3e2954">nmapdec</a> = <a class="code" href="namespacemod__oasis__namcouple.html#a88ddb8ab5304da53ddf232e72b31cd45">nmapdec_default</a></div><div class="line"><a name="l01799"></a><span class="lineno"> 1799</span>&#160;  keyword = <a class="code" href="namespacemod__oasis__namcouple.html#acb6d787969090bd3c10b20775abf6531">clmapdec</a></div><div class="line"><a name="l01800"></a><span class="lineno"> 1800</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, clline, found)</div><div class="line"><a name="l01801"></a><span class="lineno"> 1801</span>&#160;  <span class="keywordflow">IF</span> (found) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01802"></a><span class="lineno"> 1802</span>&#160;     <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01803"></a><span class="lineno"> 1803</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01804"></a><span class="lineno"> 1804</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a> (clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01805"></a><span class="lineno"> 1805</span>&#160;     <span class="keywordflow">IF</span> (ilen .LE. 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01806"></a><span class="lineno"> 1806</span>&#160;        <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01807"></a><span class="lineno"> 1807</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;        ***WARNING*** Nothing on input for &#39;</span>//trim(keyword)</div><div class="line"><a name="l01808"></a><span class="lineno"> 1808</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; Default value wght will be used &#39;</span></div><div class="line"><a name="l01809"></a><span class="lineno"> 1809</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01810"></a><span class="lineno"> 1810</span>&#160;           <span class="keyword">CALL </span>oasis_flush(nulprt1)</div><div class="line"><a name="l01811"></a><span class="lineno"> 1811</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01812"></a><span class="lineno"> 1812</span>&#160;     <span class="keywordflow">ELSE</span></div><div class="line"><a name="l01813"></a><span class="lineno"> 1813</span>&#160;        <span class="keywordflow">IF</span> (trim(clvari) == <span class="stringliteral">&#39;decomp_1d&#39;</span>    .or. &amp;</div><div class="line"><a name="l01814"></a><span class="lineno"> 1814</span>&#160;            trim(clvari) == <span class="stringliteral">&#39;decomp_wghtfile&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01815"></a><span class="lineno"> 1815</span>&#160;           <a class="code" href="namespacemod__oasis__namcouple.html#af56d31837b48a43e234bccbf1a3e2954">nmapdec</a> = clvari</div><div class="line"><a name="l01816"></a><span class="lineno"> 1816</span>&#160;        <span class="keywordflow">ELSE</span></div><div class="line"><a name="l01817"></a><span class="lineno"> 1817</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;ERROR in namcouple &#39;</span>//trim(keyword)//<span class="stringliteral">&#39; argument&#39;</span>,jf,1)</div><div class="line"><a name="l01818"></a><span class="lineno"> 1818</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39;ERROR in namcouple &#39;</span>//trim(keyword)//<span class="stringliteral">&#39; argument &#39;</span>//trim(clvari)</div><div class="line"><a name="l01819"></a><span class="lineno"> 1819</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l01820"></a><span class="lineno"> 1820</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01821"></a><span class="lineno"> 1821</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l01822"></a><span class="lineno"> 1822</span>&#160;<span class="keywordflow">  ENDIF</span>   <span class="comment">! found</span></div><div class="line"><a name="l01823"></a><span class="lineno"> 1823</span>&#160;</div><div class="line"><a name="l01824"></a><span class="lineno"> 1824</span>&#160;  <span class="comment">!* Print out the mapdec value</span></div><div class="line"><a name="l01825"></a><span class="lineno"> 1825</span>&#160;</div><div class="line"><a name="l01826"></a><span class="lineno"> 1826</span>&#160;  <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01827"></a><span class="lineno"> 1827</span>&#160;     <span class="keyword">write</span>(nulprt1,*) <span class="stringliteral">&#39; The mapdec value is nmapdec = &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#af56d31837b48a43e234bccbf1a3e2954">nmapdec</a>)</div><div class="line"><a name="l01828"></a><span class="lineno"> 1828</span>&#160;<span class="keywordflow">  endif</span></div><div class="line"><a name="l01829"></a><span class="lineno"> 1829</span>&#160;</div><div class="line"><a name="l01830"></a><span class="lineno"> 1830</span>&#160;  <span class="comment">!* Get the unit matrix read value</span></div><div class="line"><a name="l01831"></a><span class="lineno"> 1831</span>&#160;</div><div class="line"><a name="l01832"></a><span class="lineno"> 1832</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a7cb9d88a57224d84d97afc29b0e606bf">nmatxrd</a> = <a class="code" href="namespacemod__oasis__namcouple.html#a81f8b2668d8970564e85db2ac2465866">nmatxrd_default</a></div><div class="line"><a name="l01833"></a><span class="lineno"> 1833</span>&#160;  keyword = <a class="code" href="namespacemod__oasis__namcouple.html#ab529642a54ad832b85c11fe4bd843314">clmatxrd</a></div><div class="line"><a name="l01834"></a><span class="lineno"> 1834</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, clline, found)</div><div class="line"><a name="l01835"></a><span class="lineno"> 1835</span>&#160;  <span class="keywordflow">IF</span> (found) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01836"></a><span class="lineno"> 1836</span>&#160;     <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01837"></a><span class="lineno"> 1837</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01838"></a><span class="lineno"> 1838</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a> (clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01839"></a><span class="lineno"> 1839</span>&#160;     <span class="keywordflow">IF</span> (ilen .LE. 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01840"></a><span class="lineno"> 1840</span>&#160;        <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01841"></a><span class="lineno"> 1841</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;        ***WARNING*** Nothing on input for &#39;</span>//trim(keyword)</div><div class="line"><a name="l01842"></a><span class="lineno"> 1842</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; Default value wght will be used &#39;</span></div><div class="line"><a name="l01843"></a><span class="lineno"> 1843</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01844"></a><span class="lineno"> 1844</span>&#160;           <span class="keyword">CALL </span>oasis_flush(nulprt1)</div><div class="line"><a name="l01845"></a><span class="lineno"> 1845</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01846"></a><span class="lineno"> 1846</span>&#160;     <span class="keywordflow">ELSE</span></div><div class="line"><a name="l01847"></a><span class="lineno"> 1847</span>&#160;        <span class="keywordflow">IF</span> (trim(clvari) == <span class="stringliteral">&#39;orig&#39;</span>    .or. &amp;</div><div class="line"><a name="l01848"></a><span class="lineno"> 1848</span>&#160;            trim(clvari) == <span class="stringliteral">&#39;ceg&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01849"></a><span class="lineno"> 1849</span>&#160;           <a class="code" href="namespacemod__oasis__namcouple.html#a7cb9d88a57224d84d97afc29b0e606bf">nmatxrd</a> = clvari</div><div class="line"><a name="l01850"></a><span class="lineno"> 1850</span>&#160;        <span class="keywordflow">ELSE</span></div><div class="line"><a name="l01851"></a><span class="lineno"> 1851</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;ERROR in namcouple &#39;</span>//trim(keyword)//<span class="stringliteral">&#39; argument&#39;</span>,jf,1)</div><div class="line"><a name="l01852"></a><span class="lineno"> 1852</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39;ERROR in namcouple &#39;</span>//trim(keyword)//<span class="stringliteral">&#39; argument &#39;</span>//trim(clvari)</div><div class="line"><a name="l01853"></a><span class="lineno"> 1853</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l01854"></a><span class="lineno"> 1854</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01855"></a><span class="lineno"> 1855</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l01856"></a><span class="lineno"> 1856</span>&#160;<span class="keywordflow">  ENDIF</span>   <span class="comment">! found</span></div><div class="line"><a name="l01857"></a><span class="lineno"> 1857</span>&#160;</div><div class="line"><a name="l01858"></a><span class="lineno"> 1858</span>&#160;  <span class="comment">!* Print out the matxrd value</span></div><div class="line"><a name="l01859"></a><span class="lineno"> 1859</span>&#160;</div><div class="line"><a name="l01860"></a><span class="lineno"> 1860</span>&#160;  <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01861"></a><span class="lineno"> 1861</span>&#160;     <span class="keyword">write</span>(nulprt1,*) <span class="stringliteral">&#39; The matxrd value is nmatxrd = &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#a7cb9d88a57224d84d97afc29b0e606bf">nmatxrd</a>)</div><div class="line"><a name="l01862"></a><span class="lineno"> 1862</span>&#160;<span class="keywordflow">  endif</span></div><div class="line"><a name="l01863"></a><span class="lineno"> 1863</span>&#160;</div><div class="line"><a name="l01864"></a><span class="lineno"> 1864</span>&#160;  <span class="comment">!* Get the unit weights handling option</span></div><div class="line"><a name="l01865"></a><span class="lineno"> 1865</span>&#160;</div><div class="line"><a name="l01866"></a><span class="lineno"> 1866</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ad7829e2434eb8214b599ba49395c9fc5">nwgtopt</a> = <a class="code" href="namespacemod__oasis__namcouple.html#a3b0f98a2f8fc07f944af7fc650ea3eff">nwgtopt_default</a></div><div class="line"><a name="l01867"></a><span class="lineno"> 1867</span>&#160;  keyword = <a class="code" href="namespacemod__oasis__namcouple.html#a5ddab80f5f002c5cee81e3bbcfcda6be">clwgtopt</a></div><div class="line"><a name="l01868"></a><span class="lineno"> 1868</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, clline, found)</div><div class="line"><a name="l01869"></a><span class="lineno"> 1869</span>&#160;  <span class="keywordflow">IF</span> (found) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01870"></a><span class="lineno"> 1870</span>&#160;     <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01871"></a><span class="lineno"> 1871</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01872"></a><span class="lineno"> 1872</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a> (clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01873"></a><span class="lineno"> 1873</span>&#160;     <span class="keywordflow">IF</span> (ilen .LE. 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01874"></a><span class="lineno"> 1874</span>&#160;        <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01875"></a><span class="lineno"> 1875</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;        ***WARNING*** Nothing on input for &#39;</span>//trim(keyword)</div><div class="line"><a name="l01876"></a><span class="lineno"> 1876</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; Default value wght will be used &#39;</span></div><div class="line"><a name="l01877"></a><span class="lineno"> 1877</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01878"></a><span class="lineno"> 1878</span>&#160;           <span class="keyword">CALL </span>oasis_flush(nulprt1)</div><div class="line"><a name="l01879"></a><span class="lineno"> 1879</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01880"></a><span class="lineno"> 1880</span>&#160;     <span class="keywordflow">ELSE</span></div><div class="line"><a name="l01881"></a><span class="lineno"> 1881</span>&#160;        <span class="keywordflow">IF</span> (trim(clvari) == <span class="stringliteral">&#39;abort_on_bad_index&#39;</span> .or. &amp;</div><div class="line"><a name="l01882"></a><span class="lineno"> 1882</span>&#160;            trim(clvari) == <span class="stringliteral">&#39;ignore_bad_index&#39;</span> .or. &amp;</div><div class="line"><a name="l01883"></a><span class="lineno"> 1883</span>&#160;            trim(clvari) == <span class="stringliteral">&#39;ignore_bad_index_silently&#39;</span> .or. &amp;</div><div class="line"><a name="l01884"></a><span class="lineno"> 1884</span>&#160;            trim(clvari) == <span class="stringliteral">&#39;use_bad_index&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01885"></a><span class="lineno"> 1885</span>&#160;           <a class="code" href="namespacemod__oasis__namcouple.html#ad7829e2434eb8214b599ba49395c9fc5">nwgtopt</a> = clvari</div><div class="line"><a name="l01886"></a><span class="lineno"> 1886</span>&#160;        <span class="keywordflow">ELSE</span></div><div class="line"><a name="l01887"></a><span class="lineno"> 1887</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;ERROR in namcouple &#39;</span>//trim(keyword)//<span class="stringliteral">&#39; argument&#39;</span>,jf,1)</div><div class="line"><a name="l01888"></a><span class="lineno"> 1888</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39;ERROR in namcouple &#39;</span>//trim(keyword)//<span class="stringliteral">&#39; argument &#39;</span>//trim(clvari)</div><div class="line"><a name="l01889"></a><span class="lineno"> 1889</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l01890"></a><span class="lineno"> 1890</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01891"></a><span class="lineno"> 1891</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l01892"></a><span class="lineno"> 1892</span>&#160;<span class="keywordflow">  ENDIF</span>   <span class="comment">! found</span></div><div class="line"><a name="l01893"></a><span class="lineno"> 1893</span>&#160;</div><div class="line"><a name="l01894"></a><span class="lineno"> 1894</span>&#160;  <span class="comment">!* Print out the wgtopt value</span></div><div class="line"><a name="l01895"></a><span class="lineno"> 1895</span>&#160;</div><div class="line"><a name="l01896"></a><span class="lineno"> 1896</span>&#160;  <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01897"></a><span class="lineno"> 1897</span>&#160;     <span class="keyword">write</span>(nulprt1,*) <span class="stringliteral">&#39; The wgtopt value is nwgtopt = &#39;</span>,trim(<a class="code" href="namespacemod__oasis__namcouple.html#ad7829e2434eb8214b599ba49395c9fc5">nwgtopt</a>)</div><div class="line"><a name="l01898"></a><span class="lineno"> 1898</span>&#160;<span class="keywordflow">  endif</span></div><div class="line"><a name="l01899"></a><span class="lineno"> 1899</span>&#160;</div><div class="line"><a name="l01900"></a><span class="lineno"> 1900</span>&#160;  <span class="comment">!* Get the unit min/max values</span></div><div class="line"><a name="l01901"></a><span class="lineno"> 1901</span>&#160;</div><div class="line"><a name="l01902"></a><span class="lineno"> 1902</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a9add83d816dc5cdb41c84747f4ee8962">nuntmin</a> = 1024</div><div class="line"><a name="l01903"></a><span class="lineno"> 1903</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ab47490a015fa09cf75a760dadfeb0ff9">nuntmax</a> = 9999</div><div class="line"><a name="l01904"></a><span class="lineno"> 1904</span>&#160;  keyword = <a class="code" href="namespacemod__oasis__namcouple.html#a003e41234b67967593d94b3dca1a69c3">clunit</a></div><div class="line"><a name="l01905"></a><span class="lineno"> 1905</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, clline, found)</div><div class="line"><a name="l01906"></a><span class="lineno"> 1906</span>&#160;  <span class="keywordflow">IF</span> (found) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01907"></a><span class="lineno"> 1907</span>&#160;     <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01908"></a><span class="lineno"> 1908</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01909"></a><span class="lineno"> 1909</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a> (clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01910"></a><span class="lineno"> 1910</span>&#160;     <span class="keywordflow">IF</span> (ilen .LE. 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01911"></a><span class="lineno"> 1911</span>&#160;        <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01912"></a><span class="lineno"> 1912</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;        ***WARNING*** Nothing on input for &#39;</span>//trim(keyword)</div><div class="line"><a name="l01913"></a><span class="lineno"> 1913</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; Default values 1024 and 9999 will be used &#39;</span></div><div class="line"><a name="l01914"></a><span class="lineno"> 1914</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01915"></a><span class="lineno"> 1915</span>&#160;           <span class="keyword">CALL </span>oasis_flush(nulprt1)</div><div class="line"><a name="l01916"></a><span class="lineno"> 1916</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01917"></a><span class="lineno"> 1917</span>&#160;     <span class="keywordflow">ELSE</span></div><div class="line"><a name="l01918"></a><span class="lineno"> 1918</span>&#160;        <span class="keyword">READ</span>(clvari, fmt=1004) <a class="code" href="namespacemod__oasis__namcouple.html#a9add83d816dc5cdb41c84747f4ee8962">nuntmin</a></div><div class="line"><a name="l01919"></a><span class="lineno"> 1919</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a> (clline, clvari, 2, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01920"></a><span class="lineno"> 1920</span>&#160;        <span class="keywordflow">IF</span> (ilen &gt; 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01921"></a><span class="lineno"> 1921</span>&#160;           <span class="keyword">READ</span>(clvari, fmt=1004) <a class="code" href="namespacemod__oasis__namcouple.html#ab47490a015fa09cf75a760dadfeb0ff9">nuntmax</a></div><div class="line"><a name="l01922"></a><span class="lineno"> 1922</span>&#160;        <span class="keywordflow">ELSE</span></div><div class="line"><a name="l01923"></a><span class="lineno"> 1923</span>&#160;           <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01924"></a><span class="lineno"> 1924</span>&#160;              <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;        ***WARNING*** Nothing on input for &#39;</span>//trim(keyword)//<span class="stringliteral">&#39; max&#39;</span></div><div class="line"><a name="l01925"></a><span class="lineno"> 1925</span>&#160;              <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; Default value 9999 will be used &#39;</span></div><div class="line"><a name="l01926"></a><span class="lineno"> 1926</span>&#160;              <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l01927"></a><span class="lineno"> 1927</span>&#160;              <span class="keyword">CALL </span>oasis_flush(nulprt1)</div><div class="line"><a name="l01928"></a><span class="lineno"> 1928</span>&#160;<span class="keywordflow">           ENDIF</span></div><div class="line"><a name="l01929"></a><span class="lineno"> 1929</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l01930"></a><span class="lineno"> 1930</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l01931"></a><span class="lineno"> 1931</span>&#160;<span class="keywordflow">  ENDIF</span>   <span class="comment">! found</span></div><div class="line"><a name="l01932"></a><span class="lineno"> 1932</span>&#160;</div><div class="line"><a name="l01933"></a><span class="lineno"> 1933</span>&#160;  <span class="comment">!* Print out the unit number values</span></div><div class="line"><a name="l01934"></a><span class="lineno"> 1934</span>&#160;</div><div class="line"><a name="l01935"></a><span class="lineno"> 1935</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;The min IO unit number is nuntmin =&#39;</span>, <a class="code" href="namespacemod__oasis__namcouple.html#a9add83d816dc5cdb41c84747f4ee8962">nuntmin</a>, 1)</div><div class="line"><a name="l01936"></a><span class="lineno"> 1936</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;The max IO unit number is nuntmax =&#39;</span>, <a class="code" href="namespacemod__oasis__namcouple.html#ab47490a015fa09cf75a760dadfeb0ff9">nuntmax</a>, 1)</div><div class="line"><a name="l01937"></a><span class="lineno"> 1937</span>&#160;</div><div class="line"><a name="l01938"></a><span class="lineno"> 1938</span>&#160;  rewind <a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a></div><div class="line"><a name="l01939"></a><span class="lineno"> 1939</span>&#160;</div><div class="line"><a name="l01940"></a><span class="lineno"> 1940</span>&#160;  <span class="comment">!* Formats</span></div><div class="line"><a name="l01941"></a><span class="lineno"> 1941</span>&#160;</div><div class="line"><a name="l01942"></a><span class="lineno"> 1942</span>&#160;1004 <span class="keyword">FORMAT</span>(i12)</div><div class="line"><a name="l01943"></a><span class="lineno"> 1943</span>&#160;</div><div class="line"><a name="l01944"></a><span class="lineno"> 1944</span>&#160;  <span class="comment">!*    2. Get field information</span></div><div class="line"><a name="l01945"></a><span class="lineno"> 1945</span>&#160;  <span class="comment">!        ---------------------</span></div><div class="line"><a name="l01946"></a><span class="lineno"> 1946</span>&#160;</div><div class="line"><a name="l01947"></a><span class="lineno"> 1947</span>&#160;  <span class="comment">!* Init. array needed for local transformation  </span></div><div class="line"><a name="l01948"></a><span class="lineno"> 1948</span>&#160;</div><div class="line"><a name="l01949"></a><span class="lineno"> 1949</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a>(:) = ip_instant</div><div class="line"><a name="l01950"></a><span class="lineno"> 1950</span>&#160;</div><div class="line"><a name="l01951"></a><span class="lineno"> 1951</span>&#160;<span class="comment">!SV More cleaning is needed form here on.</span></div><div class="line"><a name="l01952"></a><span class="lineno"> 1952</span>&#160;</div><div class="line"><a name="l01953"></a><span class="lineno"> 1953</span>&#160;<span class="comment">!* Init. arrays needed for ANAIS(G-M),mapping and subgrid interpolation</span></div><div class="line"><a name="l01954"></a><span class="lineno"> 1954</span>&#160;</div><div class="line"><a name="l01955"></a><span class="lineno"> 1955</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#aaf6b923ffc7763fd37a5c4c72bdfa34d">lg_oasis_field</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01956"></a><span class="lineno"> 1956</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a7657e0f9b495e291f26dc31b4f6145aa">lcoast</a> = .true.</div><div class="line"><a name="l01957"></a><span class="lineno"> 1957</span>&#160;     <span class="keywordflow">DO</span> jz = 1, <a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a></div><div class="line"><a name="l01958"></a><span class="lineno"> 1958</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#ac124af3aecadc7ba436f2ee6caffee9a">linit</a>(jz) = .true.</div><div class="line"><a name="l01959"></a><span class="lineno"> 1959</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#a8eca7c715a39c523e00ed2be0612950d">lmapp</a>(jz) = .true.</div><div class="line"><a name="l01960"></a><span class="lineno"> 1960</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#acda1605129987d656360e1ed81e8d199">lsubg</a>(jz) = .true.</div><div class="line"><a name="l01961"></a><span class="lineno"> 1961</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#a2febd0d97dea9ecc3ce4a8c5088a8d1f">lextra</a>(jz) = .true.</div><div class="line"><a name="l01962"></a><span class="lineno"> 1962</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#ab7c38fd6bd90bb8e6ebfb539ead1f1a9">varmul</a>(jz) = 1.</div><div class="line"><a name="l01963"></a><span class="lineno"> 1963</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#a902fe007f6c2505858bf72dbc64e43a2">lsurf</a>(jz) = .false.</div><div class="line"><a name="l01964"></a><span class="lineno"> 1964</span>&#160;<span class="keywordflow">     ENDDO</span></div><div class="line"><a name="l01965"></a><span class="lineno"> 1965</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l01966"></a><span class="lineno"> 1966</span>&#160;</div><div class="line"><a name="l01967"></a><span class="lineno"> 1967</span>&#160;<span class="comment">!* Get the SSCS for all fields</span></div><div class="line"><a name="l01968"></a><span class="lineno"> 1968</span>&#160;</div><div class="line"><a name="l01969"></a><span class="lineno"> 1969</span>&#160;  keyword = <a class="code" href="namespacemod__oasis__namcouple.html#a4dde076bf8cce410eebbd878f791e32e">clstring</a></div><div class="line"><a name="l01970"></a><span class="lineno"> 1970</span>&#160;  <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, clline, found)</div><div class="line"><a name="l01971"></a><span class="lineno"> 1971</span>&#160;  <span class="keywordflow">IF</span> (.not.found) <span class="keywordflow">THEN</span></div><div class="line"><a name="l01972"></a><span class="lineno"> 1972</span>&#160;     <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) trim(keyword)//<span class="stringliteral">&#39; not found in namcouple&#39;</span></div><div class="line"><a name="l01973"></a><span class="lineno"> 1973</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l01974"></a><span class="lineno"> 1974</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l01975"></a><span class="lineno"> 1975</span>&#160;</div><div class="line"><a name="l01976"></a><span class="lineno"> 1976</span>&#160;<span class="comment">!  Initialize restart name index</span></div><div class="line"><a name="l01977"></a><span class="lineno"> 1977</span>&#160;</div><div class="line"><a name="l01978"></a><span class="lineno"> 1978</span>&#160;  il_aux = 0</div><div class="line"><a name="l01979"></a><span class="lineno"> 1979</span>&#160;</div><div class="line"><a name="l01980"></a><span class="lineno"> 1980</span>&#160;<span class="comment">!* Loop on total number of fields (NoF)</span></div><div class="line"><a name="l01981"></a><span class="lineno"> 1981</span>&#160;</div><div class="line"><a name="l01982"></a><span class="lineno"> 1982</span>&#160;  <span class="keywordflow">DO</span> jf = 1, <a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a></div><div class="line"><a name="l01983"></a><span class="lineno"> 1983</span>&#160;</div><div class="line"><a name="l01984"></a><span class="lineno"> 1984</span>&#160;<span class="comment">!* Read first two lines of strings for field n = 1,2...,ig_final_nfield</span></div><div class="line"><a name="l01985"></a><span class="lineno"> 1985</span>&#160;<span class="comment">!      ---&gt;&gt;&gt; Main CHARACTERistics of fields</span></div><div class="line"><a name="l01986"></a><span class="lineno"> 1986</span>&#160;</div><div class="line"><a name="l01987"></a><span class="lineno"> 1987</span>&#160;<span class="comment">!* First line</span></div><div class="line"><a name="l01988"></a><span class="lineno"> 1988</span>&#160;     <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l01989"></a><span class="lineno"> 1989</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l01990"></a><span class="lineno"> 1990</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01991"></a><span class="lineno"> 1991</span>&#160;<span class="comment">!* Get output field symbolic name</span></div><div class="line"><a name="l01992"></a><span class="lineno"> 1992</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#aad4d4857b4c424e1b0f0bcc0a01aa6e3">cg_input_field</a>(jf) = clvari</div><div class="line"><a name="l01993"></a><span class="lineno"> 1993</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <a class="code" href="namespacemod__oasis__namcouple.html#a1f6ff08cee0c3c5deb262c1447d88328">cnaminp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = <a class="code" href="namespacemod__oasis__namcouple.html#aad4d4857b4c424e1b0f0bcc0a01aa6e3">cg_input_field</a>(jf)</div><div class="line"><a name="l01994"></a><span class="lineno"> 1994</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <a class="code" href="namespacemod__oasis__namcouple.html#a71ba84b9a7a813ca2551bcde99a0b5b5">cnamout</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = <a class="code" href="namespacemod__oasis__namcouple.html#a1b680bf476776f3db085dc1f0009736c">cg_output_field</a>(jf)</div><div class="line"><a name="l01995"></a><span class="lineno"> 1995</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 3, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l01996"></a><span class="lineno"> 1996</span>&#160;<span class="comment">!* Get field label number</span></div><div class="line"><a name="l01997"></a><span class="lineno"> 1997</span>&#160;     <span class="keyword">READ</span>(clvari, fmt=2003) <a class="code" href="namespacemod__oasis__namcouple.html#ab0b9a7822ec44010e8652ed2d6abc0db">ig_numlab</a>(jf)</div><div class="line"><a name="l01998"></a><span class="lineno"> 1998</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <a class="code" href="namespacemod__oasis__namcouple.html#a12e1621f5697a0cdbde11d3e25f43b54">numlab</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = <a class="code" href="namespacemod__oasis__namcouple.html#ab0b9a7822ec44010e8652ed2d6abc0db">ig_numlab</a>(jf)</div><div class="line"><a name="l01999"></a><span class="lineno"> 1999</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 4, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02000"></a><span class="lineno"> 2000</span>&#160;<span class="comment">!* Get field exchange frequency</span></div><div class="line"><a name="l02001"></a><span class="lineno"> 2001</span>&#160;     <span class="keywordflow">IF</span> (clvari(1:4) .EQ. <span class="stringliteral">&#39;ONCE&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02002"></a><span class="lineno"> 2002</span>&#160;</div><div class="line"><a name="l02003"></a><span class="lineno"> 2003</span>&#160;<span class="comment">!* The case &#39;ONCE&#39; means that the coupling period will be equal to the </span></div><div class="line"><a name="l02004"></a><span class="lineno"> 2004</span>&#160;<span class="comment">!* time of the simulation</span></div><div class="line"><a name="l02005"></a><span class="lineno"> 2005</span>&#160;</div><div class="line"><a name="l02006"></a><span class="lineno"> 2006</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#affa727bb033c0f4d09962f2b4d1b4ab5">ig_freq</a>(jf) = <a class="code" href="namespacemod__oasis__namcouple.html#a8a962108487c3ca092633bd4292dbfd6">ntime</a></div><div class="line"><a name="l02007"></a><span class="lineno"> 2007</span>&#160;     <span class="keywordflow">ELSE</span></div><div class="line"><a name="l02008"></a><span class="lineno"> 2008</span>&#160;        <span class="keyword">READ</span>(clvari, fmt=2004) <a class="code" href="namespacemod__oasis__namcouple.html#affa727bb033c0f4d09962f2b4d1b4ab5">ig_freq</a>(jf)</div><div class="line"><a name="l02009"></a><span class="lineno"> 2009</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#affa727bb033c0f4d09962f2b4d1b4ab5">ig_freq</a>(jf) .EQ. 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02010"></a><span class="lineno"> 2010</span>&#160;</div><div class="line"><a name="l02011"></a><span class="lineno"> 2011</span>&#160;           <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02012"></a><span class="lineno"> 2012</span>&#160;              <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02013"></a><span class="lineno"> 2013</span>&#160;<span class="keywordflow">           ENDIF</span></div><div class="line"><a name="l02014"></a><span class="lineno"> 2014</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;ERROR in namcouple for field&#39;</span>, jf, 1)</div><div class="line"><a name="l02015"></a><span class="lineno"> 2015</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39;The coupling period must not be 0 !&#39;</span></div><div class="line"><a name="l02016"></a><span class="lineno"> 2016</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a675d6fc398ff3a060fbd9949fde4d0e2">tmpstr2</a>,*) <span class="stringliteral">&#39;If you DO not want to exchange this field at all&#39;</span></div><div class="line"><a name="l02017"></a><span class="lineno"> 2017</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a5564b823ced851e25d198f2c300dc138">tmpstr3</a>,*) <span class="stringliteral">&#39;give a coupling period longer than the total run time.&#39;</span></div><div class="line"><a name="l02018"></a><span class="lineno"> 2018</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,<a class="code" href="namespacemod__oasis__namcouple.html#a675d6fc398ff3a060fbd9949fde4d0e2">tmpstr2</a>,<a class="code" href="namespacemod__oasis__namcouple.html#a5564b823ced851e25d198f2c300dc138">tmpstr3</a>)</div><div class="line"><a name="l02019"></a><span class="lineno"> 2019</span>&#160;</div><div class="line"><a name="l02020"></a><span class="lineno"> 2020</span>&#160;        <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#affa727bb033c0f4d09962f2b4d1b4ab5">ig_freq</a>(jf) .gt. <a class="code" href="namespacemod__oasis__namcouple.html#a8a962108487c3ca092633bd4292dbfd6">ntime</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02021"></a><span class="lineno"> 2021</span>&#160;           <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02022"></a><span class="lineno"> 2022</span>&#160;              <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;        ***WARNING*** The coupling period of the field &#39;</span>,jf</div><div class="line"><a name="l02023"></a><span class="lineno"> 2023</span>&#160;              <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;  is greater than the time of the simulation &#39;</span></div><div class="line"><a name="l02024"></a><span class="lineno"> 2024</span>&#160;              <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;  This field will not be exchanged !&#39;</span></div><div class="line"><a name="l02025"></a><span class="lineno"> 2025</span>&#160;              <span class="keyword">CALL </span>oasis_flush(nulprt1)</div><div class="line"><a name="l02026"></a><span class="lineno"> 2026</span>&#160;<span class="keywordflow">           ENDIF</span></div><div class="line"><a name="l02027"></a><span class="lineno"> 2027</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l02028"></a><span class="lineno"> 2028</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l02029"></a><span class="lineno"> 2029</span>&#160;</div><div class="line"><a name="l02030"></a><span class="lineno"> 2030</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <a class="code" href="namespacemod__oasis__namcouple.html#ac6216c78a2779e49f90a9a95a39c27d7">nfexch</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = <a class="code" href="namespacemod__oasis__namcouple.html#affa727bb033c0f4d09962f2b4d1b4ab5">ig_freq</a>(jf)</div><div class="line"><a name="l02031"></a><span class="lineno"> 2031</span>&#160;<span class="comment">!* Fill up restart file number and restart file name arrays</span></div><div class="line"><a name="l02032"></a><span class="lineno"> 2032</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a>(jf).ne.<span class="stringliteral">&#39; &#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02033"></a><span class="lineno"> 2033</span>&#160;        <span class="keywordflow">IF</span> (jf.eq.1) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02034"></a><span class="lineno"> 2034</span>&#160;           il_aux = il_aux + 1</div><div class="line"><a name="l02035"></a><span class="lineno"> 2035</span>&#160;           <a class="code" href="namespacemod__oasis__namcouple.html#a1cc3d37d7819c112f14b6cec03266561">ig_no_rstfile</a>(jf) = il_aux</div><div class="line"><a name="l02036"></a><span class="lineno"> 2036</span>&#160;           <a class="code" href="namespacemod__oasis__namcouple.html#ac79429a9522aabddbe4ed68fd9571bec">cg_name_rstfile</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a1cc3d37d7819c112f14b6cec03266561">ig_no_rstfile</a>(jf)) = <a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a>(jf)</div><div class="line"><a name="l02037"></a><span class="lineno"> 2037</span>&#160;        <span class="keywordflow">ELSEIF</span> (jf.gt.1) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02038"></a><span class="lineno"> 2038</span>&#160;           <span class="keywordflow">IF</span> (all(<a class="code" href="namespacemod__oasis__namcouple.html#ac79429a9522aabddbe4ed68fd9571bec">cg_name_rstfile</a>.ne.<a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a>(jf))) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02039"></a><span class="lineno"> 2039</span>&#160;              il_aux = il_aux + 1</div><div class="line"><a name="l02040"></a><span class="lineno"> 2040</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a1cc3d37d7819c112f14b6cec03266561">ig_no_rstfile</a>(jf) = il_aux</div><div class="line"><a name="l02041"></a><span class="lineno"> 2041</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#ac79429a9522aabddbe4ed68fd9571bec">cg_name_rstfile</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a1cc3d37d7819c112f14b6cec03266561">ig_no_rstfile</a>(jf)) = <a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a>(jf)</div><div class="line"><a name="l02042"></a><span class="lineno"> 2042</span>&#160;           <span class="keywordflow">ELSE</span> </div><div class="line"><a name="l02043"></a><span class="lineno"> 2043</span>&#160;              <span class="keywordflow">DO</span> ib = 1, jf - 1 </div><div class="line"><a name="l02044"></a><span class="lineno"> 2044</span>&#160;                 <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac79429a9522aabddbe4ed68fd9571bec">cg_name_rstfile</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a1cc3d37d7819c112f14b6cec03266561">ig_no_rstfile</a>(ib)).eq.<a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a>(jf)) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02045"></a><span class="lineno"> 2045</span>&#160;                     <a class="code" href="namespacemod__oasis__namcouple.html#a1cc3d37d7819c112f14b6cec03266561">ig_no_rstfile</a>(jf) = <a class="code" href="namespacemod__oasis__namcouple.html#a1cc3d37d7819c112f14b6cec03266561">ig_no_rstfile</a>(ib)</div><div class="line"><a name="l02046"></a><span class="lineno"> 2046</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l02047"></a><span class="lineno"> 2047</span>&#160;<span class="keywordflow">              ENDDO</span></div><div class="line"><a name="l02048"></a><span class="lineno"> 2048</span>&#160;<span class="keywordflow">           ENDIF</span></div><div class="line"><a name="l02049"></a><span class="lineno"> 2049</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l02050"></a><span class="lineno"> 2050</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l02051"></a><span class="lineno"> 2051</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 7, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02052"></a><span class="lineno"> 2052</span>&#160;<span class="comment">!*</span></div><div class="line"><a name="l02053"></a><span class="lineno"> 2053</span>&#160;<span class="comment">!* Get the field STATUS</span></div><div class="line"><a name="l02054"></a><span class="lineno"> 2054</span>&#160;     <span class="keywordflow">IF</span> (clvari(1:8).eq.<span class="stringliteral">&#39;EXPORTED&#39;</span> .or.  &amp;</div><div class="line"><a name="l02055"></a><span class="lineno"> 2055</span>&#160;         clvari(1:8).eq.<span class="stringliteral">&#39;AUXILARY&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02056"></a><span class="lineno"> 2056</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#a4b507ab44ad62713c9e3d83ded6be3f4">cstate</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = clvari</div><div class="line"><a name="l02057"></a><span class="lineno"> 2057</span>&#160;     <span class="keywordflow">ELSEIF</span> (clvari(1:6) .eq. <span class="stringliteral">&#39;EXPOUT&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02058"></a><span class="lineno"> 2058</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#a4b507ab44ad62713c9e3d83ded6be3f4">cstate</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = <span class="stringliteral">&#39;EXPORTED&#39;</span></div><div class="line"><a name="l02059"></a><span class="lineno"> 2059</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l02060"></a><span class="lineno"> 2060</span>&#160;<span class="comment">!*</span></div><div class="line"><a name="l02061"></a><span class="lineno"> 2061</span>&#160;<span class="comment">!* Second line</span></div><div class="line"><a name="l02062"></a><span class="lineno"> 2062</span>&#160;<span class="comment">! XXX Modif Graham ?</span></div><div class="line"><a name="l02063"></a><span class="lineno"> 2063</span>&#160;</div><div class="line"><a name="l02064"></a><span class="lineno"> 2064</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) .ne. ip_input) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02065"></a><span class="lineno"> 2065</span>&#160;        <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l02066"></a><span class="lineno"> 2066</span>&#160;<span class="comment">!     *      First determine what information is on the line</span></div><div class="line"><a name="l02067"></a><span class="lineno"> 2067</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l02068"></a><span class="lineno"> 2068</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 3, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02069"></a><span class="lineno"> 2069</span>&#160;        <span class="keywordflow">IF</span> (ilen .lt. 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02070"></a><span class="lineno"> 2070</span>&#160;<span class="comment">!     *          IF only two words on the line, THEN they are the locator </span></div><div class="line"><a name="l02071"></a><span class="lineno"> 2071</span>&#160;<span class="comment">!     *          prefixes and the grids file must be in NetCDF format       </span></div><div class="line"><a name="l02072"></a><span class="lineno"> 2072</span>&#160;           <a class="code" href="namespacemod__oasis__namcouple.html#ae2c74692147a54b3f7534301d509f766">ig_lag</a>(jf)=0</div><div class="line"><a name="l02073"></a><span class="lineno"> 2073</span>&#160;           <a class="code" href="namespacemod__oasis__namcouple.html#a09ed8be682296ef584f0d5777b2c6482">ig_total_nseqn</a>(jf)=1</div><div class="line"><a name="l02074"></a><span class="lineno"> 2074</span>&#160;           <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02075"></a><span class="lineno"> 2075</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a20e9486f3e8bbdcee0de935e9be3a2e8">nseqn</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = 1</div><div class="line"><a name="l02076"></a><span class="lineno"> 2076</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#aad06af35c92de78d71671d39bcbb1690">nlagn</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = 0</div><div class="line"><a name="l02077"></a><span class="lineno"> 2077</span>&#160;<span class="keywordflow">           ENDIF</span></div><div class="line"><a name="l02078"></a><span class="lineno"> 2078</span>&#160;           llseq=.false.</div><div class="line"><a name="l02079"></a><span class="lineno"> 2079</span>&#160;           lllag=.false.</div><div class="line"><a name="l02080"></a><span class="lineno"> 2080</span>&#160;           <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02081"></a><span class="lineno"> 2081</span>&#160;              <span class="keyword">WRITE</span>(nulprt1, fmt=3043) jf</div><div class="line"><a name="l02082"></a><span class="lineno"> 2082</span>&#160;<span class="keywordflow">           ENDIF</span></div><div class="line"><a name="l02083"></a><span class="lineno"> 2083</span>&#160;        <span class="keywordflow">ELSE</span> </div><div class="line"><a name="l02084"></a><span class="lineno"> 2084</span>&#160;           <span class="keyword">READ</span>(clvari, fmt=2011) clind, clequa, iind</div><div class="line"><a name="l02085"></a><span class="lineno"> 2085</span>&#160;           <span class="keywordflow">IF</span> (clind .EQ. <span class="stringliteral">&#39;SEQ&#39;</span> .or. clind .EQ. <span class="stringliteral">&#39;LAG&#39;</span> .and. &amp;</div><div class="line"><a name="l02086"></a><span class="lineno"> 2086</span>&#160;               clequa .EQ. <span class="stringliteral">&#39;=&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02087"></a><span class="lineno"> 2087</span>&#160;<span class="comment">!     *              If 3rd word is an index, THEN first two words are </span></div><div class="line"><a name="l02088"></a><span class="lineno"> 2088</span>&#160;<span class="comment">!     *              locator prefixes and grids file must be NetCDF format</span></div><div class="line"><a name="l02089"></a><span class="lineno"> 2089</span>&#160;              ilind1=3</div><div class="line"><a name="l02090"></a><span class="lineno"> 2090</span>&#160;              ilind2=6</div><div class="line"><a name="l02091"></a><span class="lineno"> 2091</span>&#160;           <span class="keywordflow">ELSE</span></div><div class="line"><a name="l02092"></a><span class="lineno"> 2092</span>&#160;<span class="comment">!     *              If not, the first 4 words are grid dimensions and next</span></div><div class="line"><a name="l02093"></a><span class="lineno"> 2093</span>&#160;<span class="comment">!     *              2 words are locator prefixes, and grids file may be or</span></div><div class="line"><a name="l02094"></a><span class="lineno"> 2094</span>&#160;<span class="comment">!     *              not in NetCDF FORMAT.</span></div><div class="line"><a name="l02095"></a><span class="lineno"> 2095</span>&#160;              ilind1=7</div><div class="line"><a name="l02096"></a><span class="lineno"> 2096</span>&#160;              ilind2=10</div><div class="line"><a name="l02097"></a><span class="lineno"> 2097</span>&#160;<span class="keywordflow">           ENDIF</span></div><div class="line"><a name="l02098"></a><span class="lineno"> 2098</span>&#160;<span class="comment">!     *          Get possibly additional indices</span></div><div class="line"><a name="l02099"></a><span class="lineno"> 2099</span>&#160;           <a class="code" href="namespacemod__oasis__namcouple.html#ae2c74692147a54b3f7534301d509f766">ig_lag</a>(jf)=0</div><div class="line"><a name="l02100"></a><span class="lineno"> 2100</span>&#160;           <a class="code" href="namespacemod__oasis__namcouple.html#a09ed8be682296ef584f0d5777b2c6482">ig_total_nseqn</a>(jf)=1</div><div class="line"><a name="l02101"></a><span class="lineno"> 2101</span>&#160;           <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02102"></a><span class="lineno"> 2102</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a20e9486f3e8bbdcee0de935e9be3a2e8">nseqn</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = 1</div><div class="line"><a name="l02103"></a><span class="lineno"> 2103</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#aad06af35c92de78d71671d39bcbb1690">nlagn</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = 0</div><div class="line"><a name="l02104"></a><span class="lineno"> 2104</span>&#160;<span class="keywordflow">           ENDIF</span></div><div class="line"><a name="l02105"></a><span class="lineno"> 2105</span>&#160;           llseq=.false.</div><div class="line"><a name="l02106"></a><span class="lineno"> 2106</span>&#160;           lllag=.false.</div><div class="line"><a name="l02107"></a><span class="lineno"> 2107</span>&#160;</div><div class="line"><a name="l02108"></a><span class="lineno"> 2108</span>&#160;           <span class="keywordflow">DO</span> ilind=ilind1, ilind2</div><div class="line"><a name="l02109"></a><span class="lineno"> 2109</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, ilind, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02110"></a><span class="lineno"> 2110</span>&#160;              <span class="keywordflow">IF</span> (ilen .eq. -1) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02111"></a><span class="lineno"> 2111</span>&#160;                 <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02112"></a><span class="lineno"> 2112</span>&#160;                    <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7b8c924fdea622759b99d8f61e03ade5">nlogprt</a> .GE. 0) <span class="keywordflow">THEN</span> </div><div class="line"><a name="l02113"></a><span class="lineno"> 2113</span>&#160;                       <span class="keywordflow">IF</span> (.NOT. lllag) <span class="keyword">WRITE</span>(nulprt1, fmt=3043) jf</div><div class="line"><a name="l02114"></a><span class="lineno"> 2114</span>&#160;<span class="keywordflow">                    ENDIF</span></div><div class="line"><a name="l02115"></a><span class="lineno"> 2115</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l02116"></a><span class="lineno"> 2116</span>&#160;                 <span class="keywordflow">GO TO</span> 247</div><div class="line"><a name="l02117"></a><span class="lineno"> 2117</span>&#160;              <span class="keywordflow">ELSE</span></div><div class="line"><a name="l02118"></a><span class="lineno"> 2118</span>&#160;                 <span class="keyword">READ</span>(clvari, fmt=2011) clind, clequa, iind</div><div class="line"><a name="l02119"></a><span class="lineno"> 2119</span>&#160;                 <span class="keywordflow">IF</span> (clind .EQ. <span class="stringliteral">&#39;SEQ&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02120"></a><span class="lineno"> 2120</span>&#160;                    <a class="code" href="namespacemod__oasis__namcouple.html#a09ed8be682296ef584f0d5777b2c6482">ig_total_nseqn</a>(jf)=iind</div><div class="line"><a name="l02121"></a><span class="lineno"> 2121</span>&#160;                    <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <a class="code" href="namespacemod__oasis__namcouple.html#a20e9486f3e8bbdcee0de935e9be3a2e8">nseqn</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = iind</div><div class="line"><a name="l02122"></a><span class="lineno"> 2122</span>&#160;                    llseq=.true.</div><div class="line"><a name="l02123"></a><span class="lineno"> 2123</span>&#160;                 <span class="keywordflow">ELSEIF</span> (clind .eq. <span class="stringliteral">&#39;LAG&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02124"></a><span class="lineno"> 2124</span>&#160;                    <a class="code" href="namespacemod__oasis__namcouple.html#ae2c74692147a54b3f7534301d509f766">ig_lag</a>(jf)=iind</div><div class="line"><a name="l02125"></a><span class="lineno"> 2125</span>&#160;                    <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <a class="code" href="namespacemod__oasis__namcouple.html#aad06af35c92de78d71671d39bcbb1690">nlagn</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = iind</div><div class="line"><a name="l02126"></a><span class="lineno"> 2126</span>&#160;                    lllag=.true.</div><div class="line"><a name="l02127"></a><span class="lineno"> 2127</span>&#160;                    <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02128"></a><span class="lineno"> 2128</span>&#160;                       <span class="keyword">WRITE</span>(nulprt1, fmt=3044)jf,<a class="code" href="namespacemod__oasis__namcouple.html#ae2c74692147a54b3f7534301d509f766">ig_lag</a>(jf)</div><div class="line"><a name="l02129"></a><span class="lineno"> 2129</span>&#160;<span class="keywordflow">                    ENDIF</span></div><div class="line"><a name="l02130"></a><span class="lineno"> 2130</span>&#160;<span class="keywordflow">                 ENDIF</span>              </div><div class="line"><a name="l02131"></a><span class="lineno"> 2131</span>&#160;<span class="keywordflow">              ENDIF</span></div><div class="line"><a name="l02132"></a><span class="lineno"> 2132</span>&#160;<span class="keywordflow">           ENDDO</span>  <span class="comment">! DO ilind</span></div><div class="line"><a name="l02133"></a><span class="lineno"> 2133</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l02134"></a><span class="lineno"> 2134</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l02135"></a><span class="lineno"> 2135</span>&#160;</div><div class="line"><a name="l02136"></a><span class="lineno"> 2136</span>&#160; 247 <span class="keywordflow">CONTINUE</span></div><div class="line"><a name="l02137"></a><span class="lineno"> 2137</span>&#160;</div><div class="line"><a name="l02138"></a><span class="lineno"> 2138</span>&#160;<span class="comment">!* Third line</span></div><div class="line"><a name="l02139"></a><span class="lineno"> 2139</span>&#160;</div><div class="line"><a name="l02140"></a><span class="lineno"> 2140</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02141"></a><span class="lineno"> 2141</span>&#160;        <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l02142"></a><span class="lineno"> 2142</span>&#160;        <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02143"></a><span class="lineno"> 2143</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) subname,<span class="stringliteral">&#39;9 Read line: &#39;</span>,trim(clline)</div><div class="line"><a name="l02144"></a><span class="lineno"> 2144</span>&#160;           <span class="keyword">CALL </span>oasis_flush(nulprt1)</div><div class="line"><a name="l02145"></a><span class="lineno"> 2145</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l02146"></a><span class="lineno"> 2146</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l02147"></a><span class="lineno"> 2147</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02148"></a><span class="lineno"> 2148</span>&#160;        <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02149"></a><span class="lineno"> 2149</span>&#160;           <span class="keyword">WRITE</span>(nulprt1,*) subname,<span class="stringliteral">&#39;9 Read line :&#39;</span>,trim(clline),<span class="stringliteral">&#39;  clvari in 1 position: &#39;</span>,trim(clvari)</div><div class="line"><a name="l02150"></a><span class="lineno"> 2150</span>&#160;           <span class="keyword">CALL </span>oasis_flush(nulprt1)</div><div class="line"><a name="l02151"></a><span class="lineno"> 2151</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l02152"></a><span class="lineno"> 2152</span>&#160;        <span class="comment">!     * Get source grid periodicity type</span></div><div class="line"><a name="l02153"></a><span class="lineno"> 2153</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#a348612422a03e478041ca5bdfd7201ae">csper</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = clvari</div><div class="line"><a name="l02154"></a><span class="lineno"> 2154</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a348612422a03e478041ca5bdfd7201ae">csper</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .NE. <span class="stringliteral">&#39;P&#39;</span> .AND.  &amp;</div><div class="line"><a name="l02155"></a><span class="lineno"> 2155</span>&#160;            <a class="code" href="namespacemod__oasis__namcouple.html#a348612422a03e478041ca5bdfd7201ae">csper</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .NE. <span class="stringliteral">&#39;R&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02156"></a><span class="lineno"> 2156</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;ERROR in namcouple for source grid type of field&#39;</span>, jf, 1)</div><div class="line"><a name="l02157"></a><span class="lineno"> 2157</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39;==&gt; must be P or R&#39;</span></div><div class="line"><a name="l02158"></a><span class="lineno"> 2158</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l02159"></a><span class="lineno"> 2159</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l02160"></a><span class="lineno"> 2160</span>&#160;</div><div class="line"><a name="l02161"></a><span class="lineno"> 2161</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 2, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02162"></a><span class="lineno"> 2162</span>&#160;<span class="comment">!     * Get nbr of overlapped longitudes for the Periodic type source grid</span></div><div class="line"><a name="l02163"></a><span class="lineno"> 2163</span>&#160;        <span class="keyword">READ</span>(clvari, fmt=2005) <a class="code" href="namespacemod__oasis__namcouple.html#a484a71c213c89416924a0e23cfd46269">nosper</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02164"></a><span class="lineno"> 2164</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 3, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02165"></a><span class="lineno"> 2165</span>&#160;<span class="comment">!     * Get target grid periodicity type</span></div><div class="line"><a name="l02166"></a><span class="lineno"> 2166</span>&#160;        <a class="code" href="namespacemod__oasis__namcouple.html#aa179b0a473551b48ef895497515d021c">ctper</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = clvari</div><div class="line"><a name="l02167"></a><span class="lineno"> 2167</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#aa179b0a473551b48ef895497515d021c">ctper</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .NE. <span class="stringliteral">&#39;P&#39;</span> .AND.  &amp;</div><div class="line"><a name="l02168"></a><span class="lineno"> 2168</span>&#160;            <a class="code" href="namespacemod__oasis__namcouple.html#aa179b0a473551b48ef895497515d021c">ctper</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .NE. <span class="stringliteral">&#39;R&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02169"></a><span class="lineno"> 2169</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;ERROR in namcouple for target grid type of field&#39;</span>, jf, 1)</div><div class="line"><a name="l02170"></a><span class="lineno"> 2170</span>&#160;           <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39;==&gt; must be P or R&#39;</span></div><div class="line"><a name="l02171"></a><span class="lineno"> 2171</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l02172"></a><span class="lineno"> 2172</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l02173"></a><span class="lineno"> 2173</span>&#160;</div><div class="line"><a name="l02174"></a><span class="lineno"> 2174</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 4, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02175"></a><span class="lineno"> 2175</span>&#160;<span class="comment">!     * Get nbr of overlapped longitudes for the Periodic type target grid</span></div><div class="line"><a name="l02176"></a><span class="lineno"> 2176</span>&#160;        <span class="keyword">READ</span>(clvari, fmt=2005) <a class="code" href="namespacemod__oasis__namcouple.html#ac154fc90756832bc90d02ea21f7c7e17">notper</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02177"></a><span class="lineno"> 2177</span>&#160;<span class="comment">!     </span></div><div class="line"><a name="l02178"></a><span class="lineno"> 2178</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l02179"></a><span class="lineno"> 2179</span>&#160;</div><div class="line"><a name="l02180"></a><span class="lineno"> 2180</span>&#160;     <span class="comment">!* Get the local transformation</span></div><div class="line"><a name="l02181"></a><span class="lineno"> 2181</span>&#160;</div><div class="line"><a name="l02182"></a><span class="lineno"> 2182</span>&#160;     <span class="keywordflow">IF</span> (.NOT. <a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02183"></a><span class="lineno"> 2183</span>&#160;        <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) .ne. ip_input .and.  &amp;</div><div class="line"><a name="l02184"></a><span class="lineno"> 2184</span>&#160;            <a class="code" href="namespacemod__oasis__namcouple.html#abbd7bd184bb2a3860063dbb9f109f427">ig_total_ntrans</a>(jf) .gt. 0 ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02185"></a><span class="lineno"> 2185</span>&#160;           <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l02186"></a><span class="lineno"> 2186</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l02187"></a><span class="lineno"> 2187</span>&#160;           <span class="keywordflow">DO</span> ja=1,<a class="code" href="namespacemod__oasis__namcouple.html#abbd7bd184bb2a3860063dbb9f109f427">ig_total_ntrans</a>(jf)</div><div class="line"><a name="l02188"></a><span class="lineno"> 2188</span>&#160;              <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline </div><div class="line"><a name="l02189"></a><span class="lineno"> 2189</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l02190"></a><span class="lineno"> 2190</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02191"></a><span class="lineno"> 2191</span>&#160;              <span class="keywordflow">IF</span> (clvari(1:7) .eq. <span class="stringliteral">&#39;INSTANT&#39;</span>) <span class="keywordflow">THEN</span> </div><div class="line"><a name="l02192"></a><span class="lineno"> 2192</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a>(jf) = ip_instant</div><div class="line"><a name="l02193"></a><span class="lineno"> 2193</span>&#160;              <span class="keywordflow">ELSEIF</span> (clvari(1:7) .eq. <span class="stringliteral">&#39;AVERAGE&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02194"></a><span class="lineno"> 2194</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a>(jf) = ip_average</div><div class="line"><a name="l02195"></a><span class="lineno"> 2195</span>&#160;              <span class="keywordflow">ELSEIF</span> (clvari(1:7) .eq. <span class="stringliteral">&#39;ACCUMUL&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02196"></a><span class="lineno"> 2196</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a>(jf) = ip_accumul</div><div class="line"><a name="l02197"></a><span class="lineno"> 2197</span>&#160;              <span class="keywordflow">ELSEIF</span> (clvari(1:5) .eq. <span class="stringliteral">&#39;T_MIN&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02198"></a><span class="lineno"> 2198</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a>(jf) = ip_min</div><div class="line"><a name="l02199"></a><span class="lineno"> 2199</span>&#160;              <span class="keywordflow">ELSEIF</span> (clvari(1:5) .eq. <span class="stringliteral">&#39;T_MAX&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02200"></a><span class="lineno"> 2200</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a>(jf) = ip_max   </div><div class="line"><a name="l02201"></a><span class="lineno"> 2201</span>&#160;              <span class="keywordflow">ELSE</span></div><div class="line"><a name="l02202"></a><span class="lineno"> 2202</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;ERROR in namcouple for local transformations of field&#39;</span>, jf, 1)</div><div class="line"><a name="l02203"></a><span class="lineno"> 2203</span>&#160;                 <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39;==&gt; Must be INSTANT, AVERAGE, ACCUMUL, T_MIN or T_MAX&#39;</span></div><div class="line"><a name="l02204"></a><span class="lineno"> 2204</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l02205"></a><span class="lineno"> 2205</span>&#160;<span class="keywordflow">              ENDIF</span></div><div class="line"><a name="l02206"></a><span class="lineno"> 2206</span>&#160;<span class="keywordflow">           ENDDO</span>  <span class="comment">! ja</span></div><div class="line"><a name="l02207"></a><span class="lineno"> 2207</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l02208"></a><span class="lineno"> 2208</span>&#160;     <span class="keywordflow">ELSE</span></div><div class="line"><a name="l02209"></a><span class="lineno"> 2209</span>&#160;<span class="comment">! MODIF LC</span></div><div class="line"><a name="l02210"></a><span class="lineno"> 2210</span>&#160;         <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#abbd7bd184bb2a3860063dbb9f109f427">ig_total_ntrans</a>(jf) .GT. 0 ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02211"></a><span class="lineno"> 2211</span>&#160;        <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l02212"></a><span class="lineno"> 2212</span>&#160;        <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l02213"></a><span class="lineno"> 2213</span>&#160;</div><div class="line"><a name="l02214"></a><span class="lineno"> 2214</span>&#160;<span class="comment">!     * Now read specifics for each transformation</span></div><div class="line"><a name="l02215"></a><span class="lineno"> 2215</span>&#160; </div><div class="line"><a name="l02216"></a><span class="lineno"> 2216</span>&#160;        <span class="keywordflow">DO</span> ja = 1, <a class="code" href="namespacemod__oasis__namcouple.html#ac4549f9f5bbb37fce3edc9a208e0d48b">ig_ntrans</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02217"></a><span class="lineno"> 2217</span>&#160;</div><div class="line"><a name="l02218"></a><span class="lineno"> 2218</span>&#160;<span class="comment">!     * Read next line unless if analysis is NOINTERP (no input)</span></div><div class="line"><a name="l02219"></a><span class="lineno"> 2219</span>&#160;</div><div class="line"><a name="l02220"></a><span class="lineno"> 2220</span>&#160;           <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline</div><div class="line"><a name="l02221"></a><span class="lineno"> 2221</span>&#160;           <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l02222"></a><span class="lineno"> 2222</span>&#160;           <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;LOCTRANS&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02223"></a><span class="lineno"> 2223</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02224"></a><span class="lineno"> 2224</span>&#160;              <span class="keywordflow">IF</span> (clvari(1:7) .eq. <span class="stringliteral">&#39;INSTANT&#39;</span>) <span class="keywordflow">THEN</span> </div><div class="line"><a name="l02225"></a><span class="lineno"> 2225</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a>(jf) = ip_instant</div><div class="line"><a name="l02226"></a><span class="lineno"> 2226</span>&#160;              <span class="keywordflow">ELSEIF</span> (clvari(1:7) .eq. <span class="stringliteral">&#39;AVERAGE&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02227"></a><span class="lineno"> 2227</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a>(jf) = ip_average</div><div class="line"><a name="l02228"></a><span class="lineno"> 2228</span>&#160;              <span class="keywordflow">ELSEIF</span> (clvari(1:7) .eq. <span class="stringliteral">&#39;ACCUMUL&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02229"></a><span class="lineno"> 2229</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a>(jf) = ip_accumul</div><div class="line"><a name="l02230"></a><span class="lineno"> 2230</span>&#160;              <span class="keywordflow">ELSEIF</span> (clvari(1:5) .eq. <span class="stringliteral">&#39;T_MIN&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02231"></a><span class="lineno"> 2231</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a>(jf) = ip_min</div><div class="line"><a name="l02232"></a><span class="lineno"> 2232</span>&#160;              <span class="keywordflow">ELSEIF</span> (clvari(1:5) .eq. <span class="stringliteral">&#39;T_MAX&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02233"></a><span class="lineno"> 2233</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a>(jf) = ip_max   </div><div class="line"><a name="l02234"></a><span class="lineno"> 2234</span>&#160;              <span class="keywordflow">ELSE</span></div><div class="line"><a name="l02235"></a><span class="lineno"> 2235</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;ERROR in namcouple for local transformations of field&#39;</span>, jf, 1)</div><div class="line"><a name="l02236"></a><span class="lineno"> 2236</span>&#160;                 <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39;==&gt; Must be INSTANT, AVERAGE, ACCUMUL, T_MIN or T_MAX&#39;</span></div><div class="line"><a name="l02237"></a><span class="lineno"> 2237</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l02238"></a><span class="lineno"> 2238</span>&#160;<span class="keywordflow">              ENDIF</span></div><div class="line"><a name="l02239"></a><span class="lineno"> 2239</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;CHECKIN&#39;</span>)<span class="keywordflow">THEN</span></div><div class="line"><a name="l02240"></a><span class="lineno"> 2240</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02241"></a><span class="lineno"> 2241</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;CHECKOUT&#39;</span>)  <span class="keywordflow">THEN</span></div><div class="line"><a name="l02242"></a><span class="lineno"> 2242</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02243"></a><span class="lineno"> 2243</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;MAPPING&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02244"></a><span class="lineno"> 2244</span>&#160;<span class="comment">!* Get mapping filename</span></div><div class="line"><a name="l02245"></a><span class="lineno"> 2245</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02246"></a><span class="lineno"> 2246</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a6dbd7bccbfa28b209a4bc58131f8cf11">cmap_file</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = trim(clvari)</div><div class="line"><a name="l02247"></a><span class="lineno"> 2247</span>&#160;<span class="comment">!* Get mapping location and/or mapping optimization; src (default), dst; bfb (default), sum, opt</span></div><div class="line"><a name="l02248"></a><span class="lineno"> 2248</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a82b32aa4c78713443daf65a3dfbc75dc">cmaptyp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = <span class="stringliteral">&#39;src&#39;</span></div><div class="line"><a name="l02249"></a><span class="lineno"> 2249</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a3d7b34ed13d4ad8f86bbab3ad9956b6b">cmapopt</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = <span class="stringliteral">&#39;bfb&#39;</span></div><div class="line"><a name="l02250"></a><span class="lineno"> 2250</span>&#160;              <span class="keywordflow">DO</span> idum = 2,3</div><div class="line"><a name="l02251"></a><span class="lineno"> 2251</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, idum, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02252"></a><span class="lineno"> 2252</span>&#160;                 <span class="keywordflow">IF</span> (ilen &gt; 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02253"></a><span class="lineno"> 2253</span>&#160;                    <span class="keywordflow">IF</span> (trim(clvari) == <span class="stringliteral">&#39;src&#39;</span> .or. trim(clvari) == <span class="stringliteral">&#39;dst&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02254"></a><span class="lineno"> 2254</span>&#160;                       <a class="code" href="namespacemod__oasis__namcouple.html#a82b32aa4c78713443daf65a3dfbc75dc">cmaptyp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = trim(clvari)</div><div class="line"><a name="l02255"></a><span class="lineno"> 2255</span>&#160;                    <span class="keywordflow">ELSEIF</span> (trim(clvari) == <span class="stringliteral">&#39;opt&#39;</span> .or. trim(clvari) == <span class="stringliteral">&#39;bfb&#39;</span> .or. &amp;</div><div class="line"><a name="l02256"></a><span class="lineno"> 2256</span>&#160;                            trim(clvari) == <span class="stringliteral">&#39;sum&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02257"></a><span class="lineno"> 2257</span>&#160;                       <a class="code" href="namespacemod__oasis__namcouple.html#a3d7b34ed13d4ad8f86bbab3ad9956b6b">cmapopt</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = trim(clvari)</div><div class="line"><a name="l02258"></a><span class="lineno"> 2258</span>&#160;                    <span class="keywordflow">ELSE</span></div><div class="line"><a name="l02259"></a><span class="lineno"> 2259</span>&#160;                       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;ERROR in namcouple mapping argument&#39;</span>,jf,1)</div><div class="line"><a name="l02260"></a><span class="lineno"> 2260</span>&#160;                       <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39;ERROR in namcouple mapping argument &#39;</span>,trim(clvari),<span class="stringliteral">&#39; cmaptyp or loc&#39;</span></div><div class="line"><a name="l02261"></a><span class="lineno"> 2261</span>&#160;                       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l02262"></a><span class="lineno"> 2262</span>&#160;<span class="keywordflow">                    ENDIF</span></div><div class="line"><a name="l02263"></a><span class="lineno"> 2263</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l02264"></a><span class="lineno"> 2264</span>&#160;<span class="keywordflow">              ENDDO</span>  <span class="comment">! DO idum</span></div><div class="line"><a name="l02265"></a><span class="lineno"> 2265</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;SCRIPR&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02266"></a><span class="lineno"> 2266</span>&#160;<span class="comment">!* Get Scrip remapping method</span></div><div class="line"><a name="l02267"></a><span class="lineno"> 2267</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02268"></a><span class="lineno"> 2268</span>&#160;              <span class="keyword">READ</span>(clvari, fmt=2009) <a class="code" href="namespacemod__oasis__namcouple.html#ac8c1f0014f2c3cbe0cc4fcb09e54dde3">cmap_method</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02269"></a><span class="lineno"> 2269</span>&#160;<span class="comment">!* Get source grid type</span></div><div class="line"><a name="l02270"></a><span class="lineno"> 2270</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 2, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02271"></a><span class="lineno"> 2271</span>&#160;              <span class="keyword">READ</span>(clvari, fmt=2009) <a class="code" href="namespacemod__oasis__namcouple.html#a795db0909c85ffadb601b744b5189ff5">cgrdtyp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02272"></a><span class="lineno"> 2272</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac8c1f0014f2c3cbe0cc4fcb09e54dde3">cmap_method</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .eq. <span class="stringliteral">&#39;BICUBIC&#39;</span>  &amp;</div><div class="line"><a name="l02273"></a><span class="lineno"> 2273</span>&#160;                  .and. <a class="code" href="namespacemod__oasis__namcouple.html#a795db0909c85ffadb601b744b5189ff5">cgrdtyp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .ne. <span class="stringliteral">&#39;LR&#39;</span> &amp;</div><div class="line"><a name="l02274"></a><span class="lineno"> 2274</span>&#160;                  .and. <a class="code" href="namespacemod__oasis__namcouple.html#a795db0909c85ffadb601b744b5189ff5">cgrdtyp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .ne. <span class="stringliteral">&#39;D&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02275"></a><span class="lineno"> 2275</span>&#160;                 <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02276"></a><span class="lineno"> 2276</span>&#160;                    <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;    &#39;</span></div><div class="line"><a name="l02277"></a><span class="lineno"> 2277</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l02278"></a><span class="lineno"> 2278</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;ERROR in namcouple for type of field&#39;</span>, jf, 1)</div><div class="line"><a name="l02279"></a><span class="lineno"> 2279</span>&#160;                 <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39;BICUBIC interpolation cannot be used if grid is not LR or D&#39;</span></div><div class="line"><a name="l02280"></a><span class="lineno"> 2280</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l02281"></a><span class="lineno"> 2281</span>&#160;<span class="keywordflow">              ENDIF</span></div><div class="line"><a name="l02282"></a><span class="lineno"> 2282</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac8c1f0014f2c3cbe0cc4fcb09e54dde3">cmap_method</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .eq. <span class="stringliteral">&#39;BILINEAR&#39;</span>  &amp;</div><div class="line"><a name="l02283"></a><span class="lineno"> 2283</span>&#160;                  .and. <a class="code" href="namespacemod__oasis__namcouple.html#a795db0909c85ffadb601b744b5189ff5">cgrdtyp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .ne. <span class="stringliteral">&#39;LR&#39;</span> &amp;</div><div class="line"><a name="l02284"></a><span class="lineno"> 2284</span>&#160;                  .and. <a class="code" href="namespacemod__oasis__namcouple.html#a795db0909c85ffadb601b744b5189ff5">cgrdtyp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .ne. <span class="stringliteral">&#39;D&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02285"></a><span class="lineno"> 2285</span>&#160;                 <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02286"></a><span class="lineno"> 2286</span>&#160;                    <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;    &#39;</span></div><div class="line"><a name="l02287"></a><span class="lineno"> 2287</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l02288"></a><span class="lineno"> 2288</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;ERROR in namcouple for type of field&#39;</span>, jf, 1)</div><div class="line"><a name="l02289"></a><span class="lineno"> 2289</span>&#160;                 <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39;BILINEAR interpolation cannot be used if grid is not LR or D&#39;</span></div><div class="line"><a name="l02290"></a><span class="lineno"> 2290</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l02291"></a><span class="lineno"> 2291</span>&#160;<span class="keywordflow">              ENDIF</span></div><div class="line"><a name="l02292"></a><span class="lineno"> 2292</span>&#160;<span class="comment">!* Get field type (scalar/vector)</span></div><div class="line"><a name="l02293"></a><span class="lineno"> 2293</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 3, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02294"></a><span class="lineno"> 2294</span>&#160;              <span class="keyword">READ</span>(clvari, fmt=2009) <a class="code" href="namespacemod__oasis__namcouple.html#af6d77b87036aa40faa1ae1ed1b2a0866">cfldtype</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02295"></a><span class="lineno"> 2295</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#af6d77b87036aa40faa1ae1ed1b2a0866">cfldtype</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;VECTOR&#39;</span>) <a class="code" href="namespacemod__oasis__namcouple.html#af6d77b87036aa40faa1ae1ed1b2a0866">cfldtype</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))=<span class="stringliteral">&#39;SCALAR&#39;</span></div><div class="line"><a name="l02296"></a><span class="lineno"> 2296</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#af6d77b87036aa40faa1ae1ed1b2a0866">cfldtype</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .NE. <span class="stringliteral">&#39;SCALAR&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02297"></a><span class="lineno"> 2297</span>&#160;                 <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02298"></a><span class="lineno"> 2298</span>&#160;                    <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;    &#39;</span></div><div class="line"><a name="l02299"></a><span class="lineno"> 2299</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l02300"></a><span class="lineno"> 2300</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;ERROR in namcouple for type of field&#39;</span>, jf, 1)</div><div class="line"><a name="l02301"></a><span class="lineno"> 2301</span>&#160;                 <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39;==&gt; must be SCALAR, VECTOR&#39;</span></div><div class="line"><a name="l02302"></a><span class="lineno"> 2302</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l02303"></a><span class="lineno"> 2303</span>&#160;<span class="keywordflow">              ENDIF</span></div><div class="line"><a name="l02304"></a><span class="lineno"> 2304</span>&#160;<span class="comment">!* Get restriction type for SCRIP search</span></div><div class="line"><a name="l02305"></a><span class="lineno"> 2305</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 4, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02306"></a><span class="lineno"> 2306</span>&#160;              <span class="keyword">READ</span>(clvari, fmt=2009) <a class="code" href="namespacemod__oasis__namcouple.html#a7cbf27327f01748c4f87803ccff71b61">crsttype</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02307"></a><span class="lineno"> 2307</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a795db0909c85ffadb601b744b5189ff5">cgrdtyp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;D&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02308"></a><span class="lineno"> 2308</span>&#160;                 <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac8c1f0014f2c3cbe0cc4fcb09e54dde3">cmap_method</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;BILINEAR&#39;</span> .or. &amp;</div><div class="line"><a name="l02309"></a><span class="lineno"> 2309</span>&#160;                     <a class="code" href="namespacemod__oasis__namcouple.html#ac8c1f0014f2c3cbe0cc4fcb09e54dde3">cmap_method</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;BICUBIC&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02310"></a><span class="lineno"> 2310</span>&#160;                    <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7cbf27327f01748c4f87803ccff71b61">crsttype</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .NE. <span class="stringliteral">&#39;LATITUDE&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02311"></a><span class="lineno"> 2311</span>&#160;                       <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02312"></a><span class="lineno"> 2312</span>&#160;                          <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;    &#39;</span></div><div class="line"><a name="l02313"></a><span class="lineno"> 2313</span>&#160;<span class="keywordflow">                       ENDIF</span></div><div class="line"><a name="l02314"></a><span class="lineno"> 2314</span>&#160;                       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;ERROR in namcouple for restriction of field&#39;</span>,jf,1)</div><div class="line"><a name="l02315"></a><span class="lineno"> 2315</span>&#160;                       <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39;==&gt; LATITUDE must be chosen for reduced grids (D)&#39;</span></div><div class="line"><a name="l02316"></a><span class="lineno"> 2316</span>&#160;                       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l02317"></a><span class="lineno"> 2317</span>&#160;                    <span class="keywordflow">ELSE</span>  </div><div class="line"><a name="l02318"></a><span class="lineno"> 2318</span>&#160;                       <a class="code" href="namespacemod__oasis__namcouple.html#a7cbf27327f01748c4f87803ccff71b61">crsttype</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = <span class="stringliteral">&#39;REDUCED&#39;</span></div><div class="line"><a name="l02319"></a><span class="lineno"> 2319</span>&#160;<span class="keywordflow">                    ENDIF</span></div><div class="line"><a name="l02320"></a><span class="lineno"> 2320</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l02321"></a><span class="lineno"> 2321</span>&#160;<span class="keywordflow">              ENDIF</span></div><div class="line"><a name="l02322"></a><span class="lineno"> 2322</span>&#160;</div><div class="line"><a name="l02323"></a><span class="lineno"> 2323</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7cbf27327f01748c4f87803ccff71b61">crsttype</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .NE. <span class="stringliteral">&#39;LATITUDE&#39;</span> .AND.  &amp;</div><div class="line"><a name="l02324"></a><span class="lineno"> 2324</span>&#160;                  <a class="code" href="namespacemod__oasis__namcouple.html#a7cbf27327f01748c4f87803ccff71b61">crsttype</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .NE. <span class="stringliteral">&#39;LATLON&#39;</span> .AND. &amp;</div><div class="line"><a name="l02325"></a><span class="lineno"> 2325</span>&#160;                  <a class="code" href="namespacemod__oasis__namcouple.html#a7cbf27327f01748c4f87803ccff71b61">crsttype</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .NE. <span class="stringliteral">&#39;REDUCED&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02326"></a><span class="lineno"> 2326</span>&#160;                 <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02327"></a><span class="lineno"> 2327</span>&#160;                    <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;    &#39;</span></div><div class="line"><a name="l02328"></a><span class="lineno"> 2328</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l02329"></a><span class="lineno"> 2329</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;ERROR in namcouple for restriction of field&#39;</span>,jf,1)</div><div class="line"><a name="l02330"></a><span class="lineno"> 2330</span>&#160;                 <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39;==&gt; must be LATITUDE or LATLON&#39;</span></div><div class="line"><a name="l02331"></a><span class="lineno"> 2331</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l02332"></a><span class="lineno"> 2332</span>&#160;<span class="keywordflow">              ENDIF</span></div><div class="line"><a name="l02333"></a><span class="lineno"> 2333</span>&#160;<span class="comment">!*</span></div><div class="line"><a name="l02334"></a><span class="lineno"> 2334</span>&#160;<span class="comment">!* Get number of search bins for SCRIP search</span></div><div class="line"><a name="l02335"></a><span class="lineno"> 2335</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 5, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02336"></a><span class="lineno"> 2336</span>&#160;              <span class="keyword">READ</span>(clvari, fmt=2003) <a class="code" href="namespacemod__oasis__namcouple.html#a4c609c48a20205e1d2aa9938d7babc92">nbins</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02337"></a><span class="lineno"> 2337</span>&#160;<span class="comment">!* Get normalize option for CONSERV</span></div><div class="line"><a name="l02338"></a><span class="lineno"> 2338</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac8c1f0014f2c3cbe0cc4fcb09e54dde3">cmap_method</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;CONSERV&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02339"></a><span class="lineno"> 2339</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 6, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02340"></a><span class="lineno"> 2340</span>&#160;                 <span class="keyword">READ</span>(clvari, fmt=2009)<a class="code" href="namespacemod__oasis__namcouple.html#a205e8ba5863c6bf6de5c8450fb060c7a">cnorm_opt</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02341"></a><span class="lineno"> 2341</span>&#160;                 <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a205e8ba5863c6bf6de5c8450fb060c7a">cnorm_opt</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .NE. <span class="stringliteral">&#39;FRACAREA&#39;</span> .AND. &amp;</div><div class="line"><a name="l02342"></a><span class="lineno"> 2342</span>&#160;                     <a class="code" href="namespacemod__oasis__namcouple.html#a205e8ba5863c6bf6de5c8450fb060c7a">cnorm_opt</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .NE. <span class="stringliteral">&#39;DESTAREA&#39;</span> .AND.  &amp;</div><div class="line"><a name="l02343"></a><span class="lineno"> 2343</span>&#160;                     <a class="code" href="namespacemod__oasis__namcouple.html#a205e8ba5863c6bf6de5c8450fb060c7a">cnorm_opt</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .NE. <span class="stringliteral">&#39;FRACNNEI&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02344"></a><span class="lineno"> 2344</span>&#160;                    <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02345"></a><span class="lineno"> 2345</span>&#160;                       <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;    &#39;</span></div><div class="line"><a name="l02346"></a><span class="lineno"> 2346</span>&#160;<span class="keywordflow">                    ENDIF</span></div><div class="line"><a name="l02347"></a><span class="lineno"> 2347</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;ERROR in namcouple for normalize option of field&#39;</span>,jf,1)</div><div class="line"><a name="l02348"></a><span class="lineno"> 2348</span>&#160;                    <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>, *) <span class="stringliteral">&#39;==&gt; must be FRACAREA, DESTAREA, or FRACNNEI&#39;</span></div><div class="line"><a name="l02349"></a><span class="lineno"> 2349</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l02350"></a><span class="lineno"> 2350</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l02351"></a><span class="lineno"> 2351</span>&#160;<span class="comment">!* Get order of remapping for CONSERV</span></div><div class="line"><a name="l02352"></a><span class="lineno"> 2352</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 7, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02353"></a><span class="lineno"> 2353</span>&#160;                 <span class="keywordflow">IF</span> (ilen .LE. 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02354"></a><span class="lineno"> 2354</span>&#160;                    <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02355"></a><span class="lineno"> 2355</span>&#160;                       <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;    &#39;</span></div><div class="line"><a name="l02356"></a><span class="lineno"> 2356</span>&#160;<span class="keywordflow">                    ENDIF</span></div><div class="line"><a name="l02357"></a><span class="lineno"> 2357</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;ERROR in namcouple for CONSERV for field&#39;</span>,jf,1)</div><div class="line"><a name="l02358"></a><span class="lineno"> 2358</span>&#160;                    <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39;==&gt; FIRST must be indicated at end of line&#39;</span></div><div class="line"><a name="l02359"></a><span class="lineno"> 2359</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l02360"></a><span class="lineno"> 2360</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l02361"></a><span class="lineno"> 2361</span>&#160;                 <span class="keyword">READ</span>(clvari, fmt=2009) <a class="code" href="namespacemod__oasis__namcouple.html#a070f65b97986d1075f1deed9224cd89b">corder</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))                   </div><div class="line"><a name="l02362"></a><span class="lineno"> 2362</span>&#160;              <span class="keywordflow">ELSE</span></div><div class="line"><a name="l02363"></a><span class="lineno"> 2363</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a205e8ba5863c6bf6de5c8450fb060c7a">cnorm_opt</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))=<span class="stringliteral">&#39;NONORM&#39;</span></div><div class="line"><a name="l02364"></a><span class="lineno"> 2364</span>&#160;<span class="keywordflow">              ENDIF</span></div><div class="line"><a name="l02365"></a><span class="lineno"> 2365</span>&#160;<span class="comment">!* Get number of neighbours for DISTWGT and GAUSWGT</span></div><div class="line"><a name="l02366"></a><span class="lineno"> 2366</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac8c1f0014f2c3cbe0cc4fcb09e54dde3">cmap_method</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;DISTWGT&#39;</span> .or. &amp;</div><div class="line"><a name="l02367"></a><span class="lineno"> 2367</span>&#160;                  <a class="code" href="namespacemod__oasis__namcouple.html#ac8c1f0014f2c3cbe0cc4fcb09e54dde3">cmap_method</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;GAUSWGT&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02368"></a><span class="lineno"> 2368</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 6, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02369"></a><span class="lineno"> 2369</span>&#160;                 <span class="keywordflow">IF</span> (ilen .LE. 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02370"></a><span class="lineno"> 2370</span>&#160;                    <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02371"></a><span class="lineno"> 2371</span>&#160;                       <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;    &#39;</span></div><div class="line"><a name="l02372"></a><span class="lineno"> 2372</span>&#160;<span class="keywordflow">                    ENDIF</span></div><div class="line"><a name="l02373"></a><span class="lineno"> 2373</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;ERROR in namcouple for field&#39;</span>,jf,1)</div><div class="line"><a name="l02374"></a><span class="lineno"> 2374</span>&#160;                    <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39;==&gt; Number of neighbours must be indicated on the line&#39;</span></div><div class="line"><a name="l02375"></a><span class="lineno"> 2375</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l02376"></a><span class="lineno"> 2376</span>&#160;                 <span class="keywordflow">ELSE</span></div><div class="line"><a name="l02377"></a><span class="lineno"> 2377</span>&#160;                    <span class="keyword">READ</span>(clvari, fmt=2003)<a class="code" href="namespacemod__oasis__namcouple.html#abb6f67bfba2cba424dabee3a465fdfd5">nscripvoi</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02378"></a><span class="lineno"> 2378</span>&#160;<span class="keywordflow">                 ENDIF</span> </div><div class="line"><a name="l02379"></a><span class="lineno"> 2379</span>&#160;<span class="keywordflow">              ENDIF</span></div><div class="line"><a name="l02380"></a><span class="lineno"> 2380</span>&#160;<span class="comment">!* Get gaussian variance for GAUSWGT</span></div><div class="line"><a name="l02381"></a><span class="lineno"> 2381</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac8c1f0014f2c3cbe0cc4fcb09e54dde3">cmap_method</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;GAUSWGT&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02382"></a><span class="lineno"> 2382</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 7, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02383"></a><span class="lineno"> 2383</span>&#160;                 <span class="keywordflow">IF</span> (ilen .LE. 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02384"></a><span class="lineno"> 2384</span>&#160;                    <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02385"></a><span class="lineno"> 2385</span>&#160;                       <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;    &#39;</span></div><div class="line"><a name="l02386"></a><span class="lineno"> 2386</span>&#160;<span class="keywordflow">                    ENDIF</span></div><div class="line"><a name="l02387"></a><span class="lineno"> 2387</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;ERROR in namcouple for GAUSWGT for field&#39;</span>,jf,1)</div><div class="line"><a name="l02388"></a><span class="lineno"> 2388</span>&#160;                    <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39;==&gt; Variance must be indicated at end of line&#39;</span></div><div class="line"><a name="l02389"></a><span class="lineno"> 2389</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l02390"></a><span class="lineno"> 2390</span>&#160;                 <span class="keywordflow">ELSE</span></div><div class="line"><a name="l02391"></a><span class="lineno"> 2391</span>&#160;                    <span class="comment">! Read a string</span></div><div class="line"><a name="l02392"></a><span class="lineno"> 2392</span>&#160;                    <span class="keyword">READ</span>(clvari, fmt=2012) cvarmul</div><div class="line"><a name="l02393"></a><span class="lineno"> 2393</span>&#160;                    <span class="comment">! and convert it accordingly</span></div><div class="line"><a name="l02394"></a><span class="lineno"> 2394</span>&#160;                    <span class="keywordflow">IF</span> ( index(cvarmul,<span class="stringliteral">&#39;.&#39;</span>) == 0 ) <span class="keywordflow">then</span></div><div class="line"><a name="l02395"></a><span class="lineno"> 2395</span>&#160;                       <span class="keyword">READ</span>(cvarmul,fmt=2013) ivarmul</div><div class="line"><a name="l02396"></a><span class="lineno"> 2396</span>&#160;                       <a class="code" href="namespacemod__oasis__namcouple.html#ab7c38fd6bd90bb8e6ebfb539ead1f1a9">varmul</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = <span class="keywordtype">REAL</span>(ivarmul)</div><div class="line"><a name="l02397"></a><span class="lineno"> 2397</span>&#160;                    <span class="keywordflow">ELSE</span></div><div class="line"><a name="l02398"></a><span class="lineno"> 2398</span>&#160;                       <span class="keyword">READ</span>(cvarmul,fmt=2006) <a class="code" href="namespacemod__oasis__namcouple.html#ab7c38fd6bd90bb8e6ebfb539ead1f1a9">varmul</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02399"></a><span class="lineno"> 2399</span>&#160;<span class="keywordflow">                    ENDIF</span>                    </div><div class="line"><a name="l02400"></a><span class="lineno"> 2400</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l02401"></a><span class="lineno"> 2401</span>&#160;<span class="keywordflow">              ENDIF</span></div><div class="line"><a name="l02402"></a><span class="lineno"> 2402</span>&#160;</div><div class="line"><a name="l02403"></a><span class="lineno"> 2403</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;FILLING&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02404"></a><span class="lineno"> 2404</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02405"></a><span class="lineno"> 2405</span>&#160;<span class="comment">!     * Get data file name (used to complete the initial field array)</span></div><div class="line"><a name="l02406"></a><span class="lineno"> 2406</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a6a69d927924d3fa391fdc3ec6cb78197">cfilfic</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = clvari</div><div class="line"><a name="l02407"></a><span class="lineno"> 2407</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 2, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02408"></a><span class="lineno"> 2408</span>&#160;<span class="comment">!     * Get logical unit connected to previous file</span></div><div class="line"><a name="l02409"></a><span class="lineno"> 2409</span>&#160;              <span class="keyword">READ</span>(clvari, fmt=2005) <a class="code" href="namespacemod__oasis__namcouple.html#a31f62f64cbcf344e529d0576386d0751">nlufil</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02410"></a><span class="lineno"> 2410</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 3, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02411"></a><span class="lineno"> 2411</span>&#160;<span class="comment">!     * Get filling method</span></div><div class="line"><a name="l02412"></a><span class="lineno"> 2412</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#adf402f22f61893178fadcefe43b91102">cfilmet</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = clvari</div><div class="line"><a name="l02413"></a><span class="lineno"> 2413</span>&#160;<span class="comment">!     * If current field is SST</span></div><div class="line"><a name="l02414"></a><span class="lineno"> 2414</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#adf402f22f61893178fadcefe43b91102">cfilmet</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))(4:6) .EQ. <span class="stringliteral">&#39;SST&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02415"></a><span class="lineno"> 2415</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 4, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02416"></a><span class="lineno"> 2416</span>&#160;<span class="comment">!     * Get flag for coast mismatch correction</span></div><div class="line"><a name="l02417"></a><span class="lineno"> 2417</span>&#160;                 <span class="keyword">READ</span>(clvari, fmt=2005) <a class="code" href="namespacemod__oasis__namcouple.html#a57f1b6f111a5257a4d6f5a4b18fa6250">nfcoast</a></div><div class="line"><a name="l02418"></a><span class="lineno"> 2418</span>&#160;                 <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#adf402f22f61893178fadcefe43b91102">cfilmet</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))(1:3) .EQ. <span class="stringliteral">&#39;SMO&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02419"></a><span class="lineno"> 2419</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 5, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02420"></a><span class="lineno"> 2420</span>&#160;<span class="comment">!     * Get field name for flux corrective term </span></div><div class="line"><a name="l02421"></a><span class="lineno"> 2421</span>&#160;                    <a class="code" href="namespacemod__oasis__namcouple.html#a5e1d0d9b3d9f438102623d9643fbc704">cfldcor</a> = clvari</div><div class="line"><a name="l02422"></a><span class="lineno"> 2422</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 6, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02423"></a><span class="lineno"> 2423</span>&#160;<span class="comment">!     * Get logical unit used to write flux corrective term</span></div><div class="line"><a name="l02424"></a><span class="lineno"> 2424</span>&#160;                    <span class="keyword">READ</span>(clvari, fmt=2005) <a class="code" href="namespacemod__oasis__namcouple.html#aee9f6849ec644ee40f465976bc6c7b96">nlucor</a></div><div class="line"><a name="l02425"></a><span class="lineno"> 2425</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l02426"></a><span class="lineno"> 2426</span>&#160;<span class="keywordflow">              ENDIF</span> </div><div class="line"><a name="l02427"></a><span class="lineno"> 2427</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;CONSERV&#39;</span>) <span class="keywordflow">THEN</span>            </div><div class="line"><a name="l02428"></a><span class="lineno"> 2428</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02429"></a><span class="lineno"> 2429</span>&#160;<span class="comment">!     * Get conservation method</span></div><div class="line"><a name="l02430"></a><span class="lineno"> 2430</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a535fadd17426c228698e3a51fd54b605">cconmet</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = clvari</div><div class="line"><a name="l02431"></a><span class="lineno"> 2431</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a902fe007f6c2505858bf72dbc64e43a2">lsurf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = .true.</div><div class="line"><a name="l02432"></a><span class="lineno"> 2432</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 2, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02433"></a><span class="lineno"> 2433</span>&#160;              <a class="code" href="namespacemod__oasis__namcouple.html#a240979dfe7369da899b0cfe2aeba4f9d">cconopt</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = <span class="stringliteral">&#39;bfb&#39;</span></div><div class="line"><a name="l02434"></a><span class="lineno"> 2434</span>&#160;              <span class="keywordflow">IF</span> (ilen &gt; 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02435"></a><span class="lineno"> 2435</span>&#160;                 <span class="keywordflow">IF</span> (trim(clvari) == <span class="stringliteral">&#39;bfb&#39;</span>    .or. trim(clvari) == <span class="stringliteral">&#39;opt&#39;</span>    .or. &amp;</div><div class="line"><a name="l02436"></a><span class="lineno"> 2436</span>&#160;                     trim(clvari) == <span class="stringliteral">&#39;lsum8&#39;</span>  .or. trim(clvari) == <span class="stringliteral">&#39;lsum16&#39;</span> .or. &amp;</div><div class="line"><a name="l02437"></a><span class="lineno"> 2437</span>&#160;                     trim(clvari) == <span class="stringliteral">&#39;gather&#39;</span> .or. trim(clvari) == <span class="stringliteral">&#39;ddpdd&#39;</span>  .or. &amp;</div><div class="line"><a name="l02438"></a><span class="lineno"> 2438</span>&#160;                     trim(clvari) == <span class="stringliteral">&#39;reprosum&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02439"></a><span class="lineno"> 2439</span>&#160;                    <a class="code" href="namespacemod__oasis__namcouple.html#a240979dfe7369da899b0cfe2aeba4f9d">cconopt</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = clvari</div><div class="line"><a name="l02440"></a><span class="lineno"> 2440</span>&#160;                 <span class="keywordflow">ELSE</span></div><div class="line"><a name="l02441"></a><span class="lineno"> 2441</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;ERROR in namcouple conserv argument&#39;</span>,jf,1)</div><div class="line"><a name="l02442"></a><span class="lineno"> 2442</span>&#160;                    <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39;ERROR in namcouple conserv argument &#39;</span>//trim(clvari)</div><div class="line"><a name="l02443"></a><span class="lineno"> 2443</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l02444"></a><span class="lineno"> 2444</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l02445"></a><span class="lineno"> 2445</span>&#160;<span class="keywordflow">              ENDIF</span></div><div class="line"><a name="l02446"></a><span class="lineno"> 2446</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;BLASOLD&#39;</span>)<span class="keywordflow">THEN</span></div><div class="line"><a name="l02447"></a><span class="lineno"> 2447</span>&#160;<span class="comment">!     * Get linear combination parameters for initial fields</span></div><div class="line"><a name="l02448"></a><span class="lineno"> 2448</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02449"></a><span class="lineno"> 2449</span>&#160;<span class="comment">!     * Get main field multiplicative coefficient</span></div><div class="line"><a name="l02450"></a><span class="lineno"> 2450</span>&#160;              <span class="keyword">READ</span>(clvari, fmt=2012) cafldcobo</div><div class="line"><a name="l02451"></a><span class="lineno"> 2451</span>&#160;              <span class="comment">! and convert it accordingly</span></div><div class="line"><a name="l02452"></a><span class="lineno"> 2452</span>&#160;              <span class="keywordflow">IF</span> ( index(cafldcobo,<span class="stringliteral">&#39;.&#39;</span>) == 0 ) <span class="keywordflow">then</span></div><div class="line"><a name="l02453"></a><span class="lineno"> 2453</span>&#160;                  <span class="keyword">READ</span>(cafldcobo,fmt=2013) iafldcobo</div><div class="line"><a name="l02454"></a><span class="lineno"> 2454</span>&#160;                  <a class="code" href="namespacemod__oasis__namcouple.html#aa9d178659282698ffb6c186ff48bed3c">afldcobo</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = <span class="keywordtype">REAL</span>(iafldcobo)</div><div class="line"><a name="l02455"></a><span class="lineno"> 2455</span>&#160;               <span class="keywordflow">ELSE</span></div><div class="line"><a name="l02456"></a><span class="lineno"> 2456</span>&#160;                  <span class="keyword">READ</span>(cafldcobo,fmt=2006) <a class="code" href="namespacemod__oasis__namcouple.html#aa9d178659282698ffb6c186ff48bed3c">afldcobo</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02457"></a><span class="lineno"> 2457</span>&#160;<span class="keywordflow">               ENDIF</span></div><div class="line"><a name="l02458"></a><span class="lineno"> 2458</span>&#160;              <span class="keywordflow">DO</span> jc = 1, <a class="code" href="namespacemod__oasis__namcouple.html#a21400200658d24cbf7484b5eb177c911">nbofld</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02459"></a><span class="lineno"> 2459</span>&#160;                 <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline   </div><div class="line"><a name="l02460"></a><span class="lineno"> 2460</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>)</div><div class="line"><a name="l02461"></a><span class="lineno"> 2461</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02462"></a><span class="lineno"> 2462</span>&#160;<span class="comment">!     * Get symbolic names for additional fields</span></div><div class="line"><a name="l02463"></a><span class="lineno"> 2463</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#ab0f93bb917e445dc4e55fc2326168a42">cbofld</a>(jc,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = clvari</div><div class="line"><a name="l02464"></a><span class="lineno"> 2464</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 2, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02465"></a><span class="lineno"> 2465</span>&#160;<span class="comment">!     * Get multiplicative coefficients for  additional fields</span></div><div class="line"><a name="l02466"></a><span class="lineno"> 2466</span>&#160;                 <span class="keyword">READ</span>(clvari, fmt=2012) cabocoef</div><div class="line"><a name="l02467"></a><span class="lineno"> 2467</span>&#160;                 <span class="keywordflow">IF</span> ( index(cabocoef,<span class="stringliteral">&#39;.&#39;</span>) == 0 ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02468"></a><span class="lineno"> 2468</span>&#160;                  <span class="keyword">READ</span>(cabocoef,fmt=2013) iabocoef</div><div class="line"><a name="l02469"></a><span class="lineno"> 2469</span>&#160;                  <a class="code" href="namespacemod__oasis__namcouple.html#a1b3f80e8e19f950b806636caadeb704b">abocoef</a>(jc,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = <span class="keywordtype">REAL</span>(iabocoef)</div><div class="line"><a name="l02470"></a><span class="lineno"> 2470</span>&#160;               <span class="keywordflow">ELSE</span></div><div class="line"><a name="l02471"></a><span class="lineno"> 2471</span>&#160;                  <span class="keyword">READ</span>(cabocoef,fmt=2006) <a class="code" href="namespacemod__oasis__namcouple.html#a1b3f80e8e19f950b806636caadeb704b">abocoef</a>(jc,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02472"></a><span class="lineno"> 2472</span>&#160;<span class="keywordflow">               ENDIF</span></div><div class="line"><a name="l02473"></a><span class="lineno"> 2473</span>&#160;<span class="keywordflow">              ENDDO</span>  <span class="comment">! DO jc</span></div><div class="line"><a name="l02474"></a><span class="lineno"> 2474</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;BLASNEW&#39;</span>)<span class="keywordflow">THEN</span></div><div class="line"><a name="l02475"></a><span class="lineno"> 2475</span>&#160;<span class="comment">!     * Get linear combination parameters for final fields</span></div><div class="line"><a name="l02476"></a><span class="lineno"> 2476</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02477"></a><span class="lineno"> 2477</span>&#160;<span class="comment">!     * Get main field multiplicative coefficient</span></div><div class="line"><a name="l02478"></a><span class="lineno"> 2478</span>&#160;              <span class="keyword">READ</span>(clvari, fmt=2012) cafldcobn</div><div class="line"><a name="l02479"></a><span class="lineno"> 2479</span>&#160;              <span class="comment">! and convert it accordingly</span></div><div class="line"><a name="l02480"></a><span class="lineno"> 2480</span>&#160;              <span class="keywordflow">IF</span> ( index(cafldcobn,<span class="stringliteral">&#39;.&#39;</span>) == 0 ) <span class="keywordflow">then</span></div><div class="line"><a name="l02481"></a><span class="lineno"> 2481</span>&#160;                  <span class="keyword">READ</span>(cafldcobn,fmt=2013) iafldcobn</div><div class="line"><a name="l02482"></a><span class="lineno"> 2482</span>&#160;                  <a class="code" href="namespacemod__oasis__namcouple.html#a207709166cd4d719d65d76e6c043fd6c">afldcobn</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = <span class="keywordtype">REAL</span>(iafldcobn)</div><div class="line"><a name="l02483"></a><span class="lineno"> 2483</span>&#160;               <span class="keywordflow">ELSE</span></div><div class="line"><a name="l02484"></a><span class="lineno"> 2484</span>&#160;                  <span class="keyword">READ</span>(cafldcobn,fmt=2006) <a class="code" href="namespacemod__oasis__namcouple.html#a207709166cd4d719d65d76e6c043fd6c">afldcobn</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02485"></a><span class="lineno"> 2485</span>&#160;<span class="keywordflow">               ENDIF</span>              </div><div class="line"><a name="l02486"></a><span class="lineno"> 2486</span>&#160;              <span class="keywordflow">DO</span> jc = 1, <a class="code" href="namespacemod__oasis__namcouple.html#af0c7b1e7e49159c6b9c0dc3663264346">nbnfld</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02487"></a><span class="lineno"> 2487</span>&#160;                 <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>) clline   </div><div class="line"><a name="l02488"></a><span class="lineno"> 2488</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>)</div><div class="line"><a name="l02489"></a><span class="lineno"> 2489</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02490"></a><span class="lineno"> 2490</span>&#160;<span class="comment">!     * Get symbolic names for additional fields</span></div><div class="line"><a name="l02491"></a><span class="lineno"> 2491</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#af5bfb0fe58a77461130b9967fa7a4d5e">cbnfld</a>(jc,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = clvari</div><div class="line"><a name="l02492"></a><span class="lineno"> 2492</span>&#160;                 <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 2, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l02493"></a><span class="lineno"> 2493</span>&#160;<span class="comment">!     * Get multiplicative coefficients for  additional fields</span></div><div class="line"><a name="l02494"></a><span class="lineno"> 2494</span>&#160;                 <span class="keyword">READ</span>(clvari, fmt=2012) cabncoef</div><div class="line"><a name="l02495"></a><span class="lineno"> 2495</span>&#160;                 <span class="keywordflow">IF</span> ( index(cabncoef,<span class="stringliteral">&#39;.&#39;</span>) == 0 ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02496"></a><span class="lineno"> 2496</span>&#160;                  <span class="keyword">READ</span>(cabncoef,fmt=2013) iabncoef</div><div class="line"><a name="l02497"></a><span class="lineno"> 2497</span>&#160;                  <a class="code" href="namespacemod__oasis__namcouple.html#a211c98282b89859bee6da0ef60f0d484">abncoef</a>(jc,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) = <span class="keywordtype">REAL</span>(iabncoef)</div><div class="line"><a name="l02498"></a><span class="lineno"> 2498</span>&#160;               <span class="keywordflow">ELSE</span></div><div class="line"><a name="l02499"></a><span class="lineno"> 2499</span>&#160;                  <span class="keyword">READ</span>(cabncoef,fmt=2006) <a class="code" href="namespacemod__oasis__namcouple.html#a211c98282b89859bee6da0ef60f0d484">abncoef</a>(jc,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02500"></a><span class="lineno"> 2500</span>&#160;<span class="keywordflow">               ENDIF</span></div><div class="line"><a name="l02501"></a><span class="lineno"> 2501</span>&#160;<span class="keywordflow">              ENDDO</span>  <span class="comment">! DO jc</span></div><div class="line"><a name="l02502"></a><span class="lineno"> 2502</span>&#160;           <span class="keywordflow">ELSE</span> </div><div class="line"><a name="l02503"></a><span class="lineno"> 2503</span>&#160;              <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39; Type of analysis not implemented yet &#39;</span></div><div class="line"><a name="l02504"></a><span class="lineno"> 2504</span>&#160;              <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a675d6fc398ff3a060fbd9949fde4d0e2">tmpstr2</a>,*) <span class="stringliteral">&#39; The analysis required in OASIS is :&#39;</span></div><div class="line"><a name="l02505"></a><span class="lineno"> 2505</span>&#160;              <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a5564b823ced851e25d198f2c300dc138">tmpstr3</a>,*) <span class="stringliteral">&#39; canal = &#39;</span>, <a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02506"></a><span class="lineno"> 2506</span>&#160;              <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#ada1acbaf7e666b7220e3b7fb8d0f2549">tmpstr4</a>,*) <span class="stringliteral">&#39; with ja = &#39;</span>, ja, <span class="stringliteral">&#39; jf = &#39;</span>, jf</div><div class="line"><a name="l02507"></a><span class="lineno"> 2507</span>&#160;              <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,<a class="code" href="namespacemod__oasis__namcouple.html#a675d6fc398ff3a060fbd9949fde4d0e2">tmpstr2</a>,<a class="code" href="namespacemod__oasis__namcouple.html#a5564b823ced851e25d198f2c300dc138">tmpstr3</a>,<a class="code" href="namespacemod__oasis__namcouple.html#ada1acbaf7e666b7220e3b7fb8d0f2549">tmpstr4</a>)</div><div class="line"><a name="l02508"></a><span class="lineno"> 2508</span>&#160;<span class="keywordflow">           ENDIF</span></div><div class="line"><a name="l02509"></a><span class="lineno"> 2509</span>&#160;<span class="keywordflow">        ENDDO</span>  <span class="comment">! DO ja</span></div><div class="line"><a name="l02510"></a><span class="lineno"> 2510</span>&#160;<span class="comment">! MODIF LC</span></div><div class="line"><a name="l02511"></a><span class="lineno"> 2511</span>&#160;<span class="keywordflow">       ENDIF</span></div><div class="line"><a name="l02512"></a><span class="lineno"> 2512</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l02513"></a><span class="lineno"> 2513</span>&#160;</div><div class="line"><a name="l02514"></a><span class="lineno"> 2514</span>&#160;<span class="comment">!* End of loop on NoF</span></div><div class="line"><a name="l02515"></a><span class="lineno"> 2515</span>&#160; </div><div class="line"><a name="l02516"></a><span class="lineno"> 2516</span>&#160;<span class="keywordflow">  ENDDO</span>  <span class="comment">! DO jf</span></div><div class="line"><a name="l02517"></a><span class="lineno"> 2517</span>&#160;</div><div class="line"><a name="l02518"></a><span class="lineno"> 2518</span>&#160;<span class="comment">!* Minimum coupling period</span></div><div class="line"><a name="l02519"></a><span class="lineno"> 2519</span>&#160;</div><div class="line"><a name="l02520"></a><span class="lineno"> 2520</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a839912711f8d2f44a825689e2673d0dd">ig_total_frqmin</a> = minval(<a class="code" href="namespacemod__oasis__namcouple.html#affa727bb033c0f4d09962f2b4d1b4ab5">ig_freq</a>)</div><div class="line"><a name="l02521"></a><span class="lineno"> 2521</span>&#160;</div><div class="line"><a name="l02522"></a><span class="lineno"> 2522</span>&#160;<span class="comment">!* Formats</span></div><div class="line"><a name="l02523"></a><span class="lineno"> 2523</span>&#160;</div><div class="line"><a name="l02524"></a><span class="lineno"> 2524</span>&#160;2001 <span class="keyword">FORMAT</span>(a9)</div><div class="line"><a name="l02525"></a><span class="lineno"> 2525</span>&#160;2003 <span class="keyword">FORMAT</span>(i4)</div><div class="line"><a name="l02526"></a><span class="lineno"> 2526</span>&#160;2004 <span class="keyword">FORMAT</span>(i8)</div><div class="line"><a name="l02527"></a><span class="lineno"> 2527</span>&#160;2005 <span class="keyword">FORMAT</span>(i2)</div><div class="line"><a name="l02528"></a><span class="lineno"> 2528</span>&#160;2006 <span class="keyword">FORMAT</span>(e15.6)</div><div class="line"><a name="l02529"></a><span class="lineno"> 2529</span>&#160;2008 <span class="keyword">FORMAT</span>(a2,i4)</div><div class="line"><a name="l02530"></a><span class="lineno"> 2530</span>&#160;2009 <span class="keyword">FORMAT</span>(a8)</div><div class="line"><a name="l02531"></a><span class="lineno"> 2531</span>&#160;2010 <span class="keyword">FORMAT</span>(a3,a1,i2)</div><div class="line"><a name="l02532"></a><span class="lineno"> 2532</span>&#160;2011 <span class="keyword">FORMAT</span>(a3,a1,i8)</div><div class="line"><a name="l02533"></a><span class="lineno"> 2533</span>&#160;2012 <span class="keyword">FORMAT</span>(a15)</div><div class="line"><a name="l02534"></a><span class="lineno"> 2534</span>&#160;2013 <span class="keyword">FORMAT</span>(i10)</div><div class="line"><a name="l02535"></a><span class="lineno"> 2535</span>&#160;</div><div class="line"><a name="l02536"></a><span class="lineno"> 2536</span>&#160;<span class="comment">!*    3. Printing</span></div><div class="line"><a name="l02537"></a><span class="lineno"> 2537</span>&#160;<span class="comment">!        --------</span></div><div class="line"><a name="l02538"></a><span class="lineno"> 2538</span>&#160;  <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02539"></a><span class="lineno"> 2539</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7b8c924fdea622759b99d8f61e03ade5">nlogprt</a> .GE. 0) <span class="keywordflow">THEN</span> </div><div class="line"><a name="l02540"></a><span class="lineno"> 2540</span>&#160;        <span class="keywordflow">DO</span> jf = 1, <a class="code" href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">ig_final_nfield</a></div><div class="line"><a name="l02541"></a><span class="lineno"> 2541</span>&#160;           <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) .eq. ip_exported ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02542"></a><span class="lineno"> 2542</span>&#160;              cl_print_state = <span class="stringliteral">&#39;EXPORTED&#39;</span></div><div class="line"><a name="l02543"></a><span class="lineno"> 2543</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) .eq. ip_ignored ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02544"></a><span class="lineno"> 2544</span>&#160;              cl_print_state = <span class="stringliteral">&#39;IGNORED&#39;</span></div><div class="line"><a name="l02545"></a><span class="lineno"> 2545</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) .eq. ip_ignout ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02546"></a><span class="lineno"> 2546</span>&#160;              cl_print_state = <span class="stringliteral">&#39;IGNOUT&#39;</span></div><div class="line"><a name="l02547"></a><span class="lineno"> 2547</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) .eq. ip_expout ) <span class="keywordflow">THEN</span> </div><div class="line"><a name="l02548"></a><span class="lineno"> 2548</span>&#160;              cl_print_state = <span class="stringliteral">&#39;EXPOUT&#39;</span></div><div class="line"><a name="l02549"></a><span class="lineno"> 2549</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) .eq. ip_input ) <span class="keywordflow">THEN</span> </div><div class="line"><a name="l02550"></a><span class="lineno"> 2550</span>&#160;              cl_print_state = <span class="stringliteral">&#39;INPUT&#39;</span></div><div class="line"><a name="l02551"></a><span class="lineno"> 2551</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) .eq. ip_output ) <span class="keywordflow">THEN</span> </div><div class="line"><a name="l02552"></a><span class="lineno"> 2552</span>&#160;              cl_print_state = <span class="stringliteral">&#39;OUTPUT&#39;</span></div><div class="line"><a name="l02553"></a><span class="lineno"> 2553</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) .eq. ip_auxilary ) <span class="keywordflow">THEN</span> </div><div class="line"><a name="l02554"></a><span class="lineno"> 2554</span>&#160;              cl_print_state = <span class="stringliteral">&#39;AUXILARY&#39;</span></div><div class="line"><a name="l02555"></a><span class="lineno"> 2555</span>&#160;<span class="keywordflow">           ENDIF</span></div><div class="line"><a name="l02556"></a><span class="lineno"> 2556</span>&#160;</div><div class="line"><a name="l02557"></a><span class="lineno"> 2557</span>&#160;           <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a>(jf) .eq. ip_instant) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02558"></a><span class="lineno"> 2558</span>&#160;              cl_print_trans = <span class="stringliteral">&#39;INSTANT&#39;</span></div><div class="line"><a name="l02559"></a><span class="lineno"> 2559</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a>(jf) .eq. ip_average) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02560"></a><span class="lineno"> 2560</span>&#160;               cl_print_trans = <span class="stringliteral">&#39;AVERAGE&#39;</span></div><div class="line"><a name="l02561"></a><span class="lineno"> 2561</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a>(jf) .eq. ip_accumul) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02562"></a><span class="lineno"> 2562</span>&#160;              cl_print_trans = <span class="stringliteral">&#39;ACCUMUL&#39;</span></div><div class="line"><a name="l02563"></a><span class="lineno"> 2563</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a>(jf) .eq. ip_min) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02564"></a><span class="lineno"> 2564</span>&#160;              cl_print_trans = <span class="stringliteral">&#39;T_MIN&#39;</span></div><div class="line"><a name="l02565"></a><span class="lineno"> 2565</span>&#160;           <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a>(jf) .eq. ip_max) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02566"></a><span class="lineno"> 2566</span>&#160;              cl_print_trans = <span class="stringliteral">&#39;T_MAX&#39;</span>   </div><div class="line"><a name="l02567"></a><span class="lineno"> 2567</span>&#160;<span class="keywordflow">           ENDIF</span></div><div class="line"><a name="l02568"></a><span class="lineno"> 2568</span>&#160;</div><div class="line"><a name="l02569"></a><span class="lineno"> 2569</span>&#160;<span class="comment">!* Local indexes</span></div><div class="line"><a name="l02570"></a><span class="lineno"> 2570</span>&#160;           <span class="keywordflow">IF</span> (.NOT. <a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02571"></a><span class="lineno"> 2571</span>&#160;              ilab = <a class="code" href="namespacemod__oasis__namcouple.html#ab0b9a7822ec44010e8652ed2d6abc0db">ig_numlab</a>(jf)</div><div class="line"><a name="l02572"></a><span class="lineno"> 2572</span>&#160;              <span class="keyword">WRITE</span>(nulprt1, fmt=3001) jf</div><div class="line"><a name="l02573"></a><span class="lineno"> 2573</span>&#160;              <span class="keyword">WRITE</span>(nulprt1, fmt=3002)</div><div class="line"><a name="l02574"></a><span class="lineno"> 2574</span>&#160;              <span class="keyword">WRITE</span>(nulprt1, fmt=3003)</div><div class="line"><a name="l02575"></a><span class="lineno"> 2575</span>&#160;              <span class="keyword">WRITE</span>(nulprt1, fmt=3004)</div><div class="line"><a name="l02576"></a><span class="lineno"> 2576</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) .eq. ip_input .or.  &amp;</div><div class="line"><a name="l02577"></a><span class="lineno"> 2577</span>&#160;                  <a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) .eq. ip_output) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02578"></a><span class="lineno"> 2578</span>&#160;                 <span class="keyword">WRITE</span>(nulprt1, fmt=3121) &amp;</div><div class="line"><a name="l02579"></a><span class="lineno"> 2579</span>&#160;                    <a class="code" href="namespacemod__oasis__namcouple.html#aad4d4857b4c424e1b0f0bcc0a01aa6e3">cg_input_field</a>(jf), <a class="code" href="namespacemod__oasis__namcouple.html#a1b680bf476776f3db085dc1f0009736c">cg_output_field</a>(jf),  &amp;</div><div class="line"><a name="l02580"></a><span class="lineno"> 2580</span>&#160;                    <a class="code" href="namespacemod__oasis__namcouple.html#affa727bb033c0f4d09962f2b4d1b4ab5">ig_freq</a>(jf), cl_print_trans, &amp;</div><div class="line"><a name="l02581"></a><span class="lineno"> 2581</span>&#160;                    cl_print_state, <a class="code" href="namespacemod__oasis__namcouple.html#abbd7bd184bb2a3860063dbb9f109f427">ig_total_ntrans</a>(jf)</div><div class="line"><a name="l02582"></a><span class="lineno"> 2582</span>&#160;              <span class="keywordflow">ELSE</span>  </div><div class="line"><a name="l02583"></a><span class="lineno"> 2583</span>&#160;                 <span class="keyword">WRITE</span>(nulprt1, fmt=3116) &amp;</div><div class="line"><a name="l02584"></a><span class="lineno"> 2584</span>&#160;                    <a class="code" href="namespacemod__oasis__namcouple.html#aad4d4857b4c424e1b0f0bcc0a01aa6e3">cg_input_field</a>(jf), <a class="code" href="namespacemod__oasis__namcouple.html#a1b680bf476776f3db085dc1f0009736c">cg_output_field</a>(jf),  &amp;</div><div class="line"><a name="l02585"></a><span class="lineno"> 2585</span>&#160;                    <a class="code" href="namespacemod__oasis__namcouple.html#affa727bb033c0f4d09962f2b4d1b4ab5">ig_freq</a>(jf), cl_print_trans, <a class="code" href="namespacemod__oasis__namcouple.html#a09ed8be682296ef584f0d5777b2c6482">ig_total_nseqn</a>(jf),  &amp;</div><div class="line"><a name="l02586"></a><span class="lineno"> 2586</span>&#160;                    <a class="code" href="namespacemod__oasis__namcouple.html#ae2c74692147a54b3f7534301d509f766">ig_lag</a>(jf), cl_print_state, <a class="code" href="namespacemod__oasis__namcouple.html#abbd7bd184bb2a3860063dbb9f109f427">ig_total_ntrans</a>(jf)</div><div class="line"><a name="l02587"></a><span class="lineno"> 2587</span>&#160;<span class="keywordflow">              ENDIF</span></div><div class="line"><a name="l02588"></a><span class="lineno"> 2588</span>&#160;           <span class="keywordflow">ELSE</span></div><div class="line"><a name="l02589"></a><span class="lineno"> 2589</span>&#160;              ilab = <a class="code" href="namespacemod__oasis__namcouple.html#a12e1621f5697a0cdbde11d3e25f43b54">numlab</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02590"></a><span class="lineno"> 2590</span>&#160;              ifcb = len_trim(<a class="code" href="namespacemod__oasis__namcouple.html#a9e90e47fd11ff4dd95c61dcf3ec872ff">cficbf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)))</div><div class="line"><a name="l02591"></a><span class="lineno"> 2591</span>&#160;              ifca = len_trim(<a class="code" href="namespacemod__oasis__namcouple.html#a9b3c7c879a3ff2b5eb15cbcaf5a8a1d9">cficaf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)))</div><div class="line"><a name="l02592"></a><span class="lineno"> 2592</span>&#160;              <span class="keyword">WRITE</span>(nulprt1, fmt=3001) jf</div><div class="line"><a name="l02593"></a><span class="lineno"> 2593</span>&#160;              <span class="keyword">WRITE</span>(nulprt1, fmt=3002)</div><div class="line"><a name="l02594"></a><span class="lineno"> 2594</span>&#160;              <span class="keyword">WRITE</span>(nulprt1, fmt=3003)</div><div class="line"><a name="l02595"></a><span class="lineno"> 2595</span>&#160;              <span class="keyword">WRITE</span>(nulprt1, fmt=3004) </div><div class="line"><a name="l02596"></a><span class="lineno"> 2596</span>&#160;              <span class="keyword">WRITE</span>(nulprt1, fmt=3005) &amp;</div><div class="line"><a name="l02597"></a><span class="lineno"> 2597</span>&#160;                 trim(<a class="code" href="namespacemod__oasis__namcouple.html#a1f6ff08cee0c3c5deb262c1447d88328">cnaminp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))),  &amp;</div><div class="line"><a name="l02598"></a><span class="lineno"> 2598</span>&#160;                 trim(<a class="code" href="namespacemod__oasis__namcouple.html#a71ba84b9a7a813ca2551bcde99a0b5b5">cnamout</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))), &amp;</div><div class="line"><a name="l02599"></a><span class="lineno"> 2599</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#ac6216c78a2779e49f90a9a95a39c27d7">nfexch</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)), &amp;</div><div class="line"><a name="l02600"></a><span class="lineno"> 2600</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a20e9486f3e8bbdcee0de935e9be3a2e8">nseqn</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)), &amp;</div><div class="line"><a name="l02601"></a><span class="lineno"> 2601</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#ae2c74692147a54b3f7534301d509f766">ig_lag</a>(jf), &amp;</div><div class="line"><a name="l02602"></a><span class="lineno"> 2602</span>&#160;                 cl_print_state, &amp;</div><div class="line"><a name="l02603"></a><span class="lineno"> 2603</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#ac4549f9f5bbb37fce3edc9a208e0d48b">ig_ntrans</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02604"></a><span class="lineno"> 2604</span>&#160;<span class="keywordflow">           ENDIF</span></div><div class="line"><a name="l02605"></a><span class="lineno"> 2605</span>&#160;</div><div class="line"><a name="l02606"></a><span class="lineno"> 2606</span>&#160;           <span class="keywordflow">IF</span> (.not. <a class="code" href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">lg_state</a>(jf)) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02607"></a><span class="lineno"> 2607</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) .eq. ip_ignored .or.  &amp;</div><div class="line"><a name="l02608"></a><span class="lineno"> 2608</span>&#160;                  <a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) .eq. ip_ignout ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02609"></a><span class="lineno"> 2609</span>&#160;                 <span class="keyword">WRITE</span>(nulprt1, fmt=3117) <a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a>(jf)</div><div class="line"><a name="l02610"></a><span class="lineno"> 2610</span>&#160;              <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) .eq. ip_input) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02611"></a><span class="lineno"> 2611</span>&#160;                 <span class="keyword">WRITE</span>(nulprt1, fmt=3118) <a class="code" href="namespacemod__oasis__namcouple.html#a24f56cf88d79190f229d3fd1d62d17de">cg_input_file</a>(jf)</div><div class="line"><a name="l02612"></a><span class="lineno"> 2612</span>&#160;<span class="keywordflow">              ENDIF</span></div><div class="line"><a name="l02613"></a><span class="lineno"> 2613</span>&#160;           <span class="keywordflow">ELSE</span></div><div class="line"><a name="l02614"></a><span class="lineno"> 2614</span>&#160;              <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) .eq. ip_exported .or.  &amp;</div><div class="line"><a name="l02615"></a><span class="lineno"> 2615</span>&#160;                  <a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) .eq. ip_expout .or.  &amp;</div><div class="line"><a name="l02616"></a><span class="lineno"> 2616</span>&#160;                  <a class="code" href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">ig_total_state</a>(jf) .eq. ip_auxilary ) &amp;</div><div class="line"><a name="l02617"></a><span class="lineno"> 2617</span>&#160;                 <span class="keyword">WRITE</span>(nulprt1, fmt=3117) <a class="code" href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">cg_restart_file</a>(jf)</div><div class="line"><a name="l02618"></a><span class="lineno"> 2618</span>&#160;</div><div class="line"><a name="l02619"></a><span class="lineno"> 2619</span>&#160;              <span class="keyword">WRITE</span>(nulprt1, fmt=3007) &amp;</div><div class="line"><a name="l02620"></a><span class="lineno"> 2620</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a348612422a03e478041ca5bdfd7201ae">csper</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)), <a class="code" href="namespacemod__oasis__namcouple.html#a484a71c213c89416924a0e23cfd46269">nosper</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)),  &amp;</div><div class="line"><a name="l02621"></a><span class="lineno"> 2621</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#aa179b0a473551b48ef895497515d021c">ctper</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)), <a class="code" href="namespacemod__oasis__namcouple.html#ac154fc90756832bc90d02ea21f7c7e17">notper</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02622"></a><span class="lineno"> 2622</span>&#160;              <span class="keyword">WRITE</span>(nulprt1, fmt=3008) &amp;</div><div class="line"><a name="l02623"></a><span class="lineno"> 2623</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a9e90e47fd11ff4dd95c61dcf3ec872ff">cficbf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))(1:ifcb)//<a class="code" href="namespacemod__oasis__namcouple.html#ac1a557cecb41295e7d5cb004a7937ea4">cglonsuf</a>,  &amp;</div><div class="line"><a name="l02624"></a><span class="lineno"> 2624</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a9e90e47fd11ff4dd95c61dcf3ec872ff">cficbf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))(1:ifcb)//<a class="code" href="namespacemod__oasis__namcouple.html#a2036218f05c62fc672bd07ece34f26db">cglatsuf</a>, &amp;</div><div class="line"><a name="l02625"></a><span class="lineno"> 2625</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a9e90e47fd11ff4dd95c61dcf3ec872ff">cficbf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))(1:ifcb)//<a class="code" href="namespacemod__oasis__namcouple.html#aeea3ba680d5ba05a432c12d64c68c8af">cmsksuf</a>,  &amp;</div><div class="line"><a name="l02626"></a><span class="lineno"> 2626</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a9e90e47fd11ff4dd95c61dcf3ec872ff">cficbf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))(1:ifcb)//<a class="code" href="namespacemod__oasis__namcouple.html#adf2c151a84c37bd7cd93867305b4f70b">csursuf</a>, &amp;</div><div class="line"><a name="l02627"></a><span class="lineno"> 2627</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a9b3c7c879a3ff2b5eb15cbcaf5a8a1d9">cficaf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))(1:ifca)//<a class="code" href="namespacemod__oasis__namcouple.html#ac1a557cecb41295e7d5cb004a7937ea4">cglonsuf</a>,  &amp;</div><div class="line"><a name="l02628"></a><span class="lineno"> 2628</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a9b3c7c879a3ff2b5eb15cbcaf5a8a1d9">cficaf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))(1:ifca)//<a class="code" href="namespacemod__oasis__namcouple.html#a2036218f05c62fc672bd07ece34f26db">cglatsuf</a>, &amp;</div><div class="line"><a name="l02629"></a><span class="lineno"> 2629</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a9b3c7c879a3ff2b5eb15cbcaf5a8a1d9">cficaf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))(1:ifca)//<a class="code" href="namespacemod__oasis__namcouple.html#aeea3ba680d5ba05a432c12d64c68c8af">cmsksuf</a>,  &amp;</div><div class="line"><a name="l02630"></a><span class="lineno"> 2630</span>&#160;                 <a class="code" href="namespacemod__oasis__namcouple.html#a9b3c7c879a3ff2b5eb15cbcaf5a8a1d9">cficaf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))(1:ifca)//<a class="code" href="namespacemod__oasis__namcouple.html#adf2c151a84c37bd7cd93867305b4f70b">csursuf</a></div><div class="line"><a name="l02631"></a><span class="lineno"> 2631</span>&#160;              <span class="keyword">WRITE</span>(nulprt1, fmt=3009) </div><div class="line"><a name="l02632"></a><span class="lineno"> 2632</span>&#160;              <span class="keyword">WRITE</span>(nulprt1, fmt=3010)</div><div class="line"><a name="l02633"></a><span class="lineno"> 2633</span>&#160;              <span class="keywordflow">DO</span> ja = 1, <a class="code" href="namespacemod__oasis__namcouple.html#ac4549f9f5bbb37fce3edc9a208e0d48b">ig_ntrans</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02634"></a><span class="lineno"> 2634</span>&#160;                 <span class="keyword">WRITE</span>(nulprt1, fmt=3011) ja, <a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02635"></a><span class="lineno"> 2635</span>&#160;                 <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;MAPPING&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02636"></a><span class="lineno"> 2636</span>&#160;                    <span class="keyword">write</span>(nulprt1, fmt=3048) &amp;</div><div class="line"><a name="l02637"></a><span class="lineno"> 2637</span>&#160;                       trim(<a class="code" href="namespacemod__oasis__namcouple.html#a6dbd7bccbfa28b209a4bc58131f8cf11">cmap_file</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))), &amp;</div><div class="line"><a name="l02638"></a><span class="lineno"> 2638</span>&#160;                       trim(<a class="code" href="namespacemod__oasis__namcouple.html#a82b32aa4c78713443daf65a3dfbc75dc">cmaptyp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))), &amp;</div><div class="line"><a name="l02639"></a><span class="lineno"> 2639</span>&#160;                       trim(<a class="code" href="namespacemod__oasis__namcouple.html#a3d7b34ed13d4ad8f86bbab3ad9956b6b">cmapopt</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)))</div><div class="line"><a name="l02640"></a><span class="lineno"> 2640</span>&#160;                 <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;SCRIPR&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02641"></a><span class="lineno"> 2641</span>&#160;                    <span class="keyword">WRITE</span>(nulprt1, fmt=3045)  &amp;</div><div class="line"><a name="l02642"></a><span class="lineno"> 2642</span>&#160;                       <a class="code" href="namespacemod__oasis__namcouple.html#ac8c1f0014f2c3cbe0cc4fcb09e54dde3">cmap_method</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)),  &amp;</div><div class="line"><a name="l02643"></a><span class="lineno"> 2643</span>&#160;                       <a class="code" href="namespacemod__oasis__namcouple.html#af6d77b87036aa40faa1ae1ed1b2a0866">cfldtype</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)),  &amp;</div><div class="line"><a name="l02644"></a><span class="lineno"> 2644</span>&#160;                       <a class="code" href="namespacemod__oasis__namcouple.html#a205e8ba5863c6bf6de5c8450fb060c7a">cnorm_opt</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)), &amp;</div><div class="line"><a name="l02645"></a><span class="lineno"> 2645</span>&#160;                       <a class="code" href="namespacemod__oasis__namcouple.html#a7cbf27327f01748c4f87803ccff71b61">crsttype</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)),  &amp;</div><div class="line"><a name="l02646"></a><span class="lineno"> 2646</span>&#160;                       <a class="code" href="namespacemod__oasis__namcouple.html#a4c609c48a20205e1d2aa9938d7babc92">nbins</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02647"></a><span class="lineno"> 2647</span>&#160;                    <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac8c1f0014f2c3cbe0cc4fcb09e54dde3">cmap_method</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;CONSERV&#39;</span>) <span class="keywordflow">THEN</span> </div><div class="line"><a name="l02648"></a><span class="lineno"> 2648</span>&#160;                       <span class="keyword">WRITE</span>(nulprt1, fmt=3046) <a class="code" href="namespacemod__oasis__namcouple.html#a070f65b97986d1075f1deed9224cd89b">corder</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02649"></a><span class="lineno"> 2649</span>&#160;<span class="keywordflow">                    ENDIF</span>  </div><div class="line"><a name="l02650"></a><span class="lineno"> 2650</span>&#160;                 <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;CONSERV&#39;</span>) <span class="keywordflow">THEN</span>            </div><div class="line"><a name="l02651"></a><span class="lineno"> 2651</span>&#160;                    <span class="keyword">WRITE</span>(nulprt1, fmt=3025)  &amp;</div><div class="line"><a name="l02652"></a><span class="lineno"> 2652</span>&#160;                       <a class="code" href="namespacemod__oasis__namcouple.html#a535fadd17426c228698e3a51fd54b605">cconmet</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)),  &amp;</div><div class="line"><a name="l02653"></a><span class="lineno"> 2653</span>&#160;                       <a class="code" href="namespacemod__oasis__namcouple.html#a240979dfe7369da899b0cfe2aeba4f9d">cconopt</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02654"></a><span class="lineno"> 2654</span>&#160;                 <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;BLASOLD&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02655"></a><span class="lineno"> 2655</span>&#160;                    <span class="keyword">WRITE</span>(nulprt1, fmt=3027)  &amp;</div><div class="line"><a name="l02656"></a><span class="lineno"> 2656</span>&#160;                       trim(<a class="code" href="namespacemod__oasis__namcouple.html#a1f6ff08cee0c3c5deb262c1447d88328">cnaminp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))),  &amp;</div><div class="line"><a name="l02657"></a><span class="lineno"> 2657</span>&#160;                       <a class="code" href="namespacemod__oasis__namcouple.html#aa9d178659282698ffb6c186ff48bed3c">afldcobo</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02658"></a><span class="lineno"> 2658</span>&#160;                    <span class="keyword">WRITE</span>(nulprt1, fmt=3028) <a class="code" href="namespacemod__oasis__namcouple.html#a21400200658d24cbf7484b5eb177c911">nbofld</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02659"></a><span class="lineno"> 2659</span>&#160;                    <span class="keywordflow">DO</span> jc = 1, <a class="code" href="namespacemod__oasis__namcouple.html#a21400200658d24cbf7484b5eb177c911">nbofld</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02660"></a><span class="lineno"> 2660</span>&#160;                       <span class="keyword">WRITE</span>(nulprt1, fmt=3030)  &amp;</div><div class="line"><a name="l02661"></a><span class="lineno"> 2661</span>&#160;                          <a class="code" href="namespacemod__oasis__namcouple.html#ab0f93bb917e445dc4e55fc2326168a42">cbofld</a>(jc,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)),  &amp;</div><div class="line"><a name="l02662"></a><span class="lineno"> 2662</span>&#160;                          <a class="code" href="namespacemod__oasis__namcouple.html#a1b3f80e8e19f950b806636caadeb704b">abocoef</a>(jc,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02663"></a><span class="lineno"> 2663</span>&#160;<span class="keywordflow">                    ENDDO</span></div><div class="line"><a name="l02664"></a><span class="lineno"> 2664</span>&#160;                 <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;BLASNEW&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02665"></a><span class="lineno"> 2665</span>&#160;                    <span class="keyword">WRITE</span>(nulprt1, fmt=3027)  &amp;</div><div class="line"><a name="l02666"></a><span class="lineno"> 2666</span>&#160;                       trim(<a class="code" href="namespacemod__oasis__namcouple.html#a71ba84b9a7a813ca2551bcde99a0b5b5">cnamout</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))),  &amp;</div><div class="line"><a name="l02667"></a><span class="lineno"> 2667</span>&#160;                       <a class="code" href="namespacemod__oasis__namcouple.html#a207709166cd4d719d65d76e6c043fd6c">afldcobn</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02668"></a><span class="lineno"> 2668</span>&#160;                    <span class="keyword">WRITE</span>(nulprt1, fmt=3028) <a class="code" href="namespacemod__oasis__namcouple.html#af0c7b1e7e49159c6b9c0dc3663264346">nbnfld</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02669"></a><span class="lineno"> 2669</span>&#160;                    <span class="keywordflow">DO</span> jc = 1, <a class="code" href="namespacemod__oasis__namcouple.html#af0c7b1e7e49159c6b9c0dc3663264346">nbnfld</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02670"></a><span class="lineno"> 2670</span>&#160;                       <span class="keyword">WRITE</span>(nulprt1, fmt=3030)  &amp;</div><div class="line"><a name="l02671"></a><span class="lineno"> 2671</span>&#160;                          <a class="code" href="namespacemod__oasis__namcouple.html#af5bfb0fe58a77461130b9967fa7a4d5e">cbnfld</a>(jc,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)),  &amp;</div><div class="line"><a name="l02672"></a><span class="lineno"> 2672</span>&#160;                          <a class="code" href="namespacemod__oasis__namcouple.html#a211c98282b89859bee6da0ef60f0d484">abncoef</a>(jc,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02673"></a><span class="lineno"> 2673</span>&#160;<span class="keywordflow">                    ENDDO</span></div><div class="line"><a name="l02674"></a><span class="lineno"> 2674</span>&#160;                 <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;CHECKIN&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02675"></a><span class="lineno"> 2675</span>&#160;                    <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;   &#39;</span></div><div class="line"><a name="l02676"></a><span class="lineno"> 2676</span>&#160;                 <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;CHECKOUT&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02677"></a><span class="lineno"> 2677</span>&#160;                    <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39;   &#39;</span></div><div class="line"><a name="l02678"></a><span class="lineno"> 2678</span>&#160;                 <span class="keywordflow">ELSEIF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf)) .EQ. <span class="stringliteral">&#39;LOCTRANS&#39;</span>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02679"></a><span class="lineno"> 2679</span>&#160;                    <span class="keyword">WRITE</span>(nulprt1, fmt=3047) cl_print_trans</div><div class="line"><a name="l02680"></a><span class="lineno"> 2680</span>&#160;                 <span class="keywordflow">ELSE</span> </div><div class="line"><a name="l02681"></a><span class="lineno"> 2681</span>&#160;                    <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) <span class="stringliteral">&#39; Type of analysis not implemented yet &#39;</span></div><div class="line"><a name="l02682"></a><span class="lineno"> 2682</span>&#160;                    <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a675d6fc398ff3a060fbd9949fde4d0e2">tmpstr2</a>,*) <span class="stringliteral">&#39; The analysis required in OASIS is :&#39;</span></div><div class="line"><a name="l02683"></a><span class="lineno"> 2683</span>&#160;                    <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a5564b823ced851e25d198f2c300dc138">tmpstr3</a>,*) <span class="stringliteral">&#39; canal = &#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">canal</a>(ja,<a class="code" href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">ig_number_field</a>(jf))</div><div class="line"><a name="l02684"></a><span class="lineno"> 2684</span>&#160;                    <span class="keyword">WRITE</span>(<a class="code" href="namespacemod__oasis__namcouple.html#ada1acbaf7e666b7220e3b7fb8d0f2549">tmpstr4</a>,*) <span class="stringliteral">&#39; with ja = &#39;</span>, ja, <span class="stringliteral">&#39; jf = &#39;</span>, jf</div><div class="line"><a name="l02685"></a><span class="lineno"> 2685</span>&#160;                    <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,<a class="code" href="namespacemod__oasis__namcouple.html#a675d6fc398ff3a060fbd9949fde4d0e2">tmpstr2</a>,<a class="code" href="namespacemod__oasis__namcouple.html#a5564b823ced851e25d198f2c300dc138">tmpstr3</a>,<a class="code" href="namespacemod__oasis__namcouple.html#ada1acbaf7e666b7220e3b7fb8d0f2549">tmpstr4</a>)</div><div class="line"><a name="l02686"></a><span class="lineno"> 2686</span>&#160;<span class="keywordflow">                 ENDIF</span></div><div class="line"><a name="l02687"></a><span class="lineno"> 2687</span>&#160;<span class="keywordflow">              ENDDO</span>  <span class="comment">! DO ja</span></div><div class="line"><a name="l02688"></a><span class="lineno"> 2688</span>&#160;<span class="keywordflow">           ENDIF</span></div><div class="line"><a name="l02689"></a><span class="lineno"> 2689</span>&#160;<span class="keywordflow">        ENDDO</span>  <span class="comment">! DO jf</span></div><div class="line"><a name="l02690"></a><span class="lineno"> 2690</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l02691"></a><span class="lineno"> 2691</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l02692"></a><span class="lineno"> 2692</span>&#160;</div><div class="line"><a name="l02693"></a><span class="lineno"> 2693</span>&#160;<span class="comment">!*    4. End of routine</span></div><div class="line"><a name="l02694"></a><span class="lineno"> 2694</span>&#160;<span class="comment">!        --------------</span></div><div class="line"><a name="l02695"></a><span class="lineno"> 2695</span>&#160;</div><div class="line"><a name="l02696"></a><span class="lineno"> 2696</span>&#160;  <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02697"></a><span class="lineno"> 2697</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7b8c924fdea622759b99d8f61e03ade5">nlogprt</a> .GE. 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l02698"></a><span class="lineno"> 2698</span>&#160;        <span class="keyword">WRITE</span>(nulprt1,*)<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02699"></a><span class="lineno"> 2699</span>&#160;        <span class="keyword">WRITE</span>(nulprt1,*) subname,<span class="stringliteral">&#39;-- End of ROUTINE --&#39;</span></div><div class="line"><a name="l02700"></a><span class="lineno"> 2700</span>&#160;        <span class="keyword">CALL </span>oasis_flush (nulprt1)</div><div class="line"><a name="l02701"></a><span class="lineno"> 2701</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l02702"></a><span class="lineno"> 2702</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l02703"></a><span class="lineno"> 2703</span>&#160;<span class="comment">!  CALL oasis_debug_exit(subname)</span></div><div class="line"><a name="l02704"></a><span class="lineno"> 2704</span>&#160;  <span class="keywordflow">RETURN</span></div><div class="line"><a name="l02705"></a><span class="lineno"> 2705</span>&#160;</div><div class="line"><a name="l02706"></a><span class="lineno"> 2706</span>&#160;<span class="comment">!* Formats</span></div><div class="line"><a name="l02707"></a><span class="lineno"> 2707</span>&#160;</div><div class="line"><a name="l02708"></a><span class="lineno"> 2708</span>&#160; 3001 <span class="keyword">FORMAT</span>(//,15x,<span class="stringliteral">&#39;  FIELD NUMBER &#39;</span>,i3)</div><div class="line"><a name="l02709"></a><span class="lineno"> 2709</span>&#160; 3002 <span class="keyword">FORMAT</span>(15x,<span class="stringliteral">&#39;  ************  &#39;</span>)</div><div class="line"><a name="l02710"></a><span class="lineno"> 2710</span>&#160; 3003 <span class="keyword">FORMAT</span>(/,10x,<span class="stringliteral">&#39;  Field parameters &#39;</span>)</div><div class="line"><a name="l02711"></a><span class="lineno"> 2711</span>&#160; 3004 <span class="keyword">FORMAT</span>(10x,<span class="stringliteral">&#39;  ****************  &#39;</span>,/)</div><div class="line"><a name="l02712"></a><span class="lineno"> 2712</span>&#160; 3005 <span class="keyword">FORMAT</span>(/,10x,<span class="stringliteral">&#39;  Input field symbolic name       = &#39;</span>,a, &amp;</div><div class="line"><a name="l02713"></a><span class="lineno"> 2713</span>&#160;             /,10x,<span class="stringliteral">&#39;  Output field symbolic name      = &#39;</span>,a, &amp;</div><div class="line"><a name="l02714"></a><span class="lineno"> 2714</span>&#160;             /,10x,<span class="stringliteral">&#39;  Field exchange frequency        = &#39;</span>,i8, &amp;</div><div class="line"><a name="l02715"></a><span class="lineno"> 2715</span>&#160;             /,10x,<span class="stringliteral">&#39;  Model sequential index          = &#39;</span>,i2, &amp;</div><div class="line"><a name="l02716"></a><span class="lineno"> 2716</span>&#160;             /,10x,<span class="stringliteral">&#39;  Field Lag                       = &#39;</span>,i8, &amp;</div><div class="line"><a name="l02717"></a><span class="lineno"> 2717</span>&#160;             /,10x,<span class="stringliteral">&#39;  Field I/O status                = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02718"></a><span class="lineno"> 2718</span>&#160;             /,10x,<span class="stringliteral">&#39;  Number of basic operations      = &#39;</span>,i4, /)</div><div class="line"><a name="l02719"></a><span class="lineno"> 2719</span>&#160; 3116 <span class="keyword">FORMAT</span>(/,10x,<span class="stringliteral">&#39;  Input field symbolic name       = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02720"></a><span class="lineno"> 2720</span>&#160;             /,10x,<span class="stringliteral">&#39;  Output field symbolic name      = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02721"></a><span class="lineno"> 2721</span>&#160;             /,10x,<span class="stringliteral">&#39;  Field exchange frequency        = &#39;</span>,i8, &amp;</div><div class="line"><a name="l02722"></a><span class="lineno"> 2722</span>&#160;             /,10x,<span class="stringliteral">&#39;  Local transformation            = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02723"></a><span class="lineno"> 2723</span>&#160;             /,10x,<span class="stringliteral">&#39;  Model sequential index          = &#39;</span>,i2, &amp;</div><div class="line"><a name="l02724"></a><span class="lineno"> 2724</span>&#160;             /,10x,<span class="stringliteral">&#39;  Field Lag                       = &#39;</span>,i8,  &amp;</div><div class="line"><a name="l02725"></a><span class="lineno"> 2725</span>&#160;             /,10x,<span class="stringliteral">&#39;  Field I/O status                = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02726"></a><span class="lineno"> 2726</span>&#160;             /,10x,<span class="stringliteral">&#39;  Number of basic operations      = &#39;</span>,i4,/)</div><div class="line"><a name="l02727"></a><span class="lineno"> 2727</span>&#160; 3117 <span class="keyword">FORMAT</span>(/,10x,<span class="stringliteral">&#39;  Restart file name               = &#39;</span>,a32,/)</div><div class="line"><a name="l02728"></a><span class="lineno"> 2728</span>&#160; 3118 <span class="keyword">FORMAT</span>(/,10x,<span class="stringliteral">&#39;  Input file name                 = &#39;</span>,a32,/)</div><div class="line"><a name="l02729"></a><span class="lineno"> 2729</span>&#160; 3121 <span class="keyword">FORMAT</span>(/,10x,<span class="stringliteral">&#39;  Input field symbolic name       = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02730"></a><span class="lineno"> 2730</span>&#160;             /,10x,<span class="stringliteral">&#39;  Output field symbolic name      = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02731"></a><span class="lineno"> 2731</span>&#160;             /,10x,<span class="stringliteral">&#39;  Field exchange frequency        = &#39;</span>,i8, &amp;</div><div class="line"><a name="l02732"></a><span class="lineno"> 2732</span>&#160;             /,10x,<span class="stringliteral">&#39;  Local transformation            = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02733"></a><span class="lineno"> 2733</span>&#160;             /,10x,<span class="stringliteral">&#39;  Field I/O status                = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02734"></a><span class="lineno"> 2734</span>&#160;             /,10x,<span class="stringliteral">&#39;  Number of basic operations      = &#39;</span>,i4,/)</div><div class="line"><a name="l02735"></a><span class="lineno"> 2735</span>&#160; 3007 <span class="keyword">FORMAT</span>( &amp;</div><div class="line"><a name="l02736"></a><span class="lineno"> 2736</span>&#160;             /,10x,<span class="stringliteral">&#39;  Source grid periodicity type is      = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02737"></a><span class="lineno"> 2737</span>&#160;             /,10x,<span class="stringliteral">&#39;  Number of overlapped grid points is  = &#39;</span>,i2, &amp;</div><div class="line"><a name="l02738"></a><span class="lineno"> 2738</span>&#160;             /,10x,<span class="stringliteral">&#39;  Target grid periodicity type is      = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02739"></a><span class="lineno"> 2739</span>&#160;             /,10x,<span class="stringliteral">&#39;  Number of overlapped grid points is  = &#39;</span>,i2,/)</div><div class="line"><a name="l02740"></a><span class="lineno"> 2740</span>&#160; 3008 <span class="keyword">FORMAT</span>(/,10x,<span class="stringliteral">&#39;  Source longitude file string    = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02741"></a><span class="lineno"> 2741</span>&#160;             /,10x,<span class="stringliteral">&#39;  Source latitude file string     = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02742"></a><span class="lineno"> 2742</span>&#160;             /,10x,<span class="stringliteral">&#39;  Source mask file string         = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02743"></a><span class="lineno"> 2743</span>&#160;             /,10x,<span class="stringliteral">&#39;  Source surface file string      = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02744"></a><span class="lineno"> 2744</span>&#160;             /,10x,<span class="stringliteral">&#39;  Target longitude file string    = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02745"></a><span class="lineno"> 2745</span>&#160;             /,10x,<span class="stringliteral">&#39;  Target latitude file string     = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02746"></a><span class="lineno"> 2746</span>&#160;             /,10x,<span class="stringliteral">&#39;  Target mask file string         = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02747"></a><span class="lineno"> 2747</span>&#160;             /,10x,<span class="stringliteral">&#39;  Target surface file string      = &#39;</span>,a8,/)</div><div class="line"><a name="l02748"></a><span class="lineno"> 2748</span>&#160; 3009 <span class="keyword">FORMAT</span>(/,10x,<span class="stringliteral">&#39;  ANALYSIS PARAMETERS &#39;</span>)</div><div class="line"><a name="l02749"></a><span class="lineno"> 2749</span>&#160; 3010 <span class="keyword">FORMAT</span>(10x,<span class="stringliteral">&#39;  ******************* &#39;</span>,/)</div><div class="line"><a name="l02750"></a><span class="lineno"> 2750</span>&#160; 3011 <span class="keyword">FORMAT</span>(/,5x,<span class="stringliteral">&#39;  ANALYSIS number &#39;</span>,i2,<span class="stringliteral">&#39; is &#39;</span>,a8, &amp;</div><div class="line"><a name="l02751"></a><span class="lineno"> 2751</span>&#160;             /,5x,<span class="stringliteral">&#39;  ***************  &#39;</span>,/)</div><div class="line"><a name="l02752"></a><span class="lineno"> 2752</span>&#160; 3025 <span class="keyword">FORMAT</span>(5x,<span class="stringliteral">&#39; Conservation method for field is  = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02753"></a><span class="lineno"> 2753</span>&#160;           /,5x,<span class="stringliteral">&#39; Conservation option is            = &#39;</span>,a8)</div><div class="line"><a name="l02754"></a><span class="lineno"> 2754</span>&#160; 3027 <span class="keyword">FORMAT</span>(5x,<span class="stringliteral">&#39; Field &#39;</span>,a,<span class="stringliteral">&#39; is multiplied by Cst = &#39;</span>,e15.6)</div><div class="line"><a name="l02755"></a><span class="lineno"> 2755</span>&#160; 3028 <span class="keyword">FORMAT</span>(5x,<span class="stringliteral">&#39; It is combined with N fields    N = &#39;</span>,i2)</div><div class="line"><a name="l02756"></a><span class="lineno"> 2756</span>&#160; 3030 <span class="keyword">FORMAT</span>(5x,<span class="stringliteral">&#39;   With field &#39;</span>,a8,<span class="stringliteral">&#39;   coefficient = &#39;</span>,e15.6)</div><div class="line"><a name="l02757"></a><span class="lineno"> 2757</span>&#160; 3043 <span class="keyword">FORMAT</span>(/,5x,<span class="stringliteral">&#39;No lag in namcouple for the field&#39;</span>, i3, &amp;</div><div class="line"><a name="l02758"></a><span class="lineno"> 2758</span>&#160;          /,5x,<span class="stringliteral">&#39; Default value LAG=0 will be used &#39;</span>)</div><div class="line"><a name="l02759"></a><span class="lineno"> 2759</span>&#160; 3044 <span class="keyword">FORMAT</span>(/,5x,<span class="stringliteral">&#39;The lag for the field &#39;</span>,i3,3x,<span class="stringliteral">&#39;is : &#39;</span>,i8)</div><div class="line"><a name="l02760"></a><span class="lineno"> 2760</span>&#160; 3045 <span class="keyword">FORMAT</span>(5x,<span class="stringliteral">&#39; Remapping method is               = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02761"></a><span class="lineno"> 2761</span>&#160;           /,5x,<span class="stringliteral">&#39; Field type is                     = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02762"></a><span class="lineno"> 2762</span>&#160;           /,5x,<span class="stringliteral">&#39; Normalization option is           = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02763"></a><span class="lineno"> 2763</span>&#160;           /,5x,<span class="stringliteral">&#39; Seach restriction type is         = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02764"></a><span class="lineno"> 2764</span>&#160;           /,5x,<span class="stringliteral">&#39; Number of search bins is          = &#39;</span>,i4)</div><div class="line"><a name="l02765"></a><span class="lineno"> 2765</span>&#160; 3046 <span class="keyword">FORMAT</span>(5x,<span class="stringliteral">&#39; Order of remapping is             = &#39;</span>,a8)</div><div class="line"><a name="l02766"></a><span class="lineno"> 2766</span>&#160; 3047 <span class="keyword">FORMAT</span>(5x,<span class="stringliteral">&#39; Local transformation  = &#39;</span>,a8) </div><div class="line"><a name="l02767"></a><span class="lineno"> 2767</span>&#160; 3048 <span class="keyword">FORMAT</span>(5x,<span class="stringliteral">&#39; Remapping filename is             = &#39;</span>,a, &amp;</div><div class="line"><a name="l02768"></a><span class="lineno"> 2768</span>&#160;           /,5x,<span class="stringliteral">&#39; Mapping location is               = &#39;</span>,a8, &amp;</div><div class="line"><a name="l02769"></a><span class="lineno"> 2769</span>&#160;           /,5x,<span class="stringliteral">&#39; Mapping optimization is           = &#39;</span>,a8)</div><div class="line"><a name="l02770"></a><span class="lineno"> 2770</span>&#160;</div><div class="line"><a name="l02771"></a><span class="lineno"> 2771</span>&#160;<span class="keyword">END SUBROUTINE </span><a class="code" href="namespacemod__oasis__namcouple.html#a6da9d2285766ceb22ea8449f55201d84">inipar</a></div><div class="line"><a name="l02772"></a><span class="lineno"> 2772</span>&#160;</div><div class="line"><a name="l02773"></a><span class="lineno"> 2773</span>&#160;<span class="comment">!===============================================================================</span></div><div class="line"><a name="l02774"></a><span class="lineno"> 2774</span>&#160; <span class="comment"></span></div><div class="line"><a name="l02775"></a><span class="lineno"> 2775</span>&#160;<span class="comment">!&gt; Allocates temporary arrays for namcouple input</span></div><div class="line"><a name="l02776"></a><span class="lineno"> 2776</span>&#160;</div><div class="line"><a name="l02777"></a><span class="lineno"> 2777</span>&#160;<span class="keyword">SUBROUTINE </span><a class="code" href="namespacemod__oasis__namcouple.html#a0d85a5dcb3fab17a680cceed332b9668">alloc</a>()</div><div class="line"><a name="l02778"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a0d85a5dcb3fab17a680cceed332b9668"> 2778</a></span>&#160;</div><div class="line"><a name="l02779"></a><span class="lineno"> 2779</span>&#160;  <span class="keywordtype">IMPLICIT NONE</span></div><div class="line"><a name="l02780"></a><span class="lineno"> 2780</span>&#160;</div><div class="line"><a name="l02781"></a><span class="lineno"> 2781</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">parameter</span> :: subname=<span class="stringliteral">&#39;(mod_oasis_namcouple:alloc)&#39;</span></div><div class="line"><a name="l02782"></a><span class="lineno"> 2782</span>&#160;</div><div class="line"><a name="l02783"></a><span class="lineno"> 2783</span>&#160;<span class="comment">!  CALL oasis_debug_enter(subname)</span></div><div class="line"><a name="l02784"></a><span class="lineno"> 2784</span>&#160;</div><div class="line"><a name="l02785"></a><span class="lineno"> 2785</span>&#160;  <span class="comment">!--- alloc_anais1</span></div><div class="line"><a name="l02786"></a><span class="lineno"> 2786</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ab7c38fd6bd90bb8e6ebfb539ead1f1a9">varmul</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02787"></a><span class="lineno"> 2787</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;varmul&quot;allocation of anais module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02788"></a><span class="lineno"> 2788</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ab7c38fd6bd90bb8e6ebfb539ead1f1a9">varmul</a>(:)=0.</div><div class="line"><a name="l02789"></a><span class="lineno"> 2789</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a90e4ce86f77bf89c71a9277ff9b5dcbb">niwtm</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02790"></a><span class="lineno"> 2790</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;niwtm&quot;allocation of anais module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02791"></a><span class="lineno"> 2791</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a90e4ce86f77bf89c71a9277ff9b5dcbb">niwtm</a>(:)=0</div><div class="line"><a name="l02792"></a><span class="lineno"> 2792</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a28e887d61cc4b10c00c33a7d0f51a275">niwtg</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02793"></a><span class="lineno"> 2793</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;niwtg&quot;allocation of anais module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02794"></a><span class="lineno"> 2794</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a28e887d61cc4b10c00c33a7d0f51a275">niwtg</a>(:)=0</div><div class="line"><a name="l02795"></a><span class="lineno"> 2795</span>&#160;  <span class="keyword">allocate</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac124af3aecadc7ba436f2ee6caffee9a">linit</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02796"></a><span class="lineno"> 2796</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.ne.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;error in &quot;linit&quot;allocation of anais module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02797"></a><span class="lineno"> 2797</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ac124af3aecadc7ba436f2ee6caffee9a">linit</a>(:)=.false.</div><div class="line"><a name="l02798"></a><span class="lineno"> 2798</span>&#160;</div><div class="line"><a name="l02799"></a><span class="lineno"> 2799</span>&#160;  <span class="comment">!--- alloc_analysis</span></div><div class="line"><a name="l02800"></a><span class="lineno"> 2800</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a9f8a2a4f44b1c56860fef8df014339d3">ncofld</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02801"></a><span class="lineno"> 2801</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ncofld&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02802"></a><span class="lineno"> 2802</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a9f8a2a4f44b1c56860fef8df014339d3">ncofld</a>(:)=0</div><div class="line"><a name="l02803"></a><span class="lineno"> 2803</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a883d88938c50264711c53af2b555c3db">neighborg</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02804"></a><span class="lineno"> 2804</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;neighborg&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02805"></a><span class="lineno"> 2805</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a883d88938c50264711c53af2b555c3db">neighborg</a>(:)=0</div><div class="line"><a name="l02806"></a><span class="lineno"> 2806</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#abb7c2cd3a371bbb8ccd6a272d0e9b60f">nludat</a>(<a class="code" href="namespacemod__oasis__namcouple.html#abba00866a740567bc1d93cf5850042fd">ig_maxcomb</a>,<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02807"></a><span class="lineno"> 2807</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nludat&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02808"></a><span class="lineno"> 2808</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#abb7c2cd3a371bbb8ccd6a272d0e9b60f">nludat</a>(:,:)=0</div><div class="line"><a name="l02809"></a><span class="lineno"> 2809</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a31f62f64cbcf344e529d0576386d0751">nlufil</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02810"></a><span class="lineno"> 2810</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nlufil&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02811"></a><span class="lineno"> 2811</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a31f62f64cbcf344e529d0576386d0751">nlufil</a>(:)=0</div><div class="line"><a name="l02812"></a><span class="lineno"> 2812</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a42367b4984c6ac4c69cbdcd315cb54e6">nlumap</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02813"></a><span class="lineno"> 2813</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nlumap&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02814"></a><span class="lineno"> 2814</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a42367b4984c6ac4c69cbdcd315cb54e6">nlumap</a>(:)=0</div><div class="line"><a name="l02815"></a><span class="lineno"> 2815</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#aefed5eaa9924d249e979a5a772a46979">nlusub</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02816"></a><span class="lineno"> 2816</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nlusub&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02817"></a><span class="lineno"> 2817</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#aefed5eaa9924d249e979a5a772a46979">nlusub</a>(:)=0</div><div class="line"><a name="l02818"></a><span class="lineno"> 2818</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7510ecfe3d0f141252450e4ba66209ba">nluext</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02819"></a><span class="lineno"> 2819</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nluext&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02820"></a><span class="lineno"> 2820</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a7510ecfe3d0f141252450e4ba66209ba">nluext</a>(:)=0</div><div class="line"><a name="l02821"></a><span class="lineno"> 2821</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a484a71c213c89416924a0e23cfd46269">nosper</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02822"></a><span class="lineno"> 2822</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nosper&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02823"></a><span class="lineno"> 2823</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a484a71c213c89416924a0e23cfd46269">nosper</a>(:)=0</div><div class="line"><a name="l02824"></a><span class="lineno"> 2824</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac154fc90756832bc90d02ea21f7c7e17">notper</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02825"></a><span class="lineno"> 2825</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;notper&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02826"></a><span class="lineno"> 2826</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ac154fc90756832bc90d02ea21f7c7e17">notper</a>(:)=0</div><div class="line"><a name="l02827"></a><span class="lineno"> 2827</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a92d43fa5eaaff81f0e3f73b303377c02">amskval</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02828"></a><span class="lineno"> 2828</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;amskval&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02829"></a><span class="lineno"> 2829</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a92d43fa5eaaff81f0e3f73b303377c02">amskval</a>(:)=0</div><div class="line"><a name="l02830"></a><span class="lineno"> 2830</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a3598202174da65117caf675065f8b160">amskvalnew</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02831"></a><span class="lineno"> 2831</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;amskvalnew&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02832"></a><span class="lineno"> 2832</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a3598202174da65117caf675065f8b160">amskvalnew</a>(:)=0</div><div class="line"><a name="l02833"></a><span class="lineno"> 2833</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a115cdfe0e05679107363605a992c6386">acocoef</a>(<a class="code" href="namespacemod__oasis__namcouple.html#abba00866a740567bc1d93cf5850042fd">ig_maxcomb</a>,<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02834"></a><span class="lineno"> 2834</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;acocoef&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02835"></a><span class="lineno"> 2835</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a115cdfe0e05679107363605a992c6386">acocoef</a>(:,:)=0</div><div class="line"><a name="l02836"></a><span class="lineno"> 2836</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a1b3f80e8e19f950b806636caadeb704b">abocoef</a>(<a class="code" href="namespacemod__oasis__namcouple.html#abba00866a740567bc1d93cf5850042fd">ig_maxcomb</a>,<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02837"></a><span class="lineno"> 2837</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;abocoef&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02838"></a><span class="lineno"> 2838</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a1b3f80e8e19f950b806636caadeb704b">abocoef</a>(:,:)=0</div><div class="line"><a name="l02839"></a><span class="lineno"> 2839</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a211c98282b89859bee6da0ef60f0d484">abncoef</a>(<a class="code" href="namespacemod__oasis__namcouple.html#abba00866a740567bc1d93cf5850042fd">ig_maxcomb</a>,<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02840"></a><span class="lineno"> 2840</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;abncoef&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02841"></a><span class="lineno"> 2841</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a211c98282b89859bee6da0ef60f0d484">abncoef</a>(:,:)=0</div><div class="line"><a name="l02842"></a><span class="lineno"> 2842</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a19fb86d643bb8761d5a8e32d645d5963">afldcoef</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02843"></a><span class="lineno"> 2843</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;afldcoef&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02844"></a><span class="lineno"> 2844</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a19fb86d643bb8761d5a8e32d645d5963">afldcoef</a>(:)=0</div><div class="line"><a name="l02845"></a><span class="lineno"> 2845</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#aa9d178659282698ffb6c186ff48bed3c">afldcobo</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02846"></a><span class="lineno"> 2846</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;afldcobo&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02847"></a><span class="lineno"> 2847</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#aa9d178659282698ffb6c186ff48bed3c">afldcobo</a>(:)=0</div><div class="line"><a name="l02848"></a><span class="lineno"> 2848</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a207709166cd4d719d65d76e6c043fd6c">afldcobn</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02849"></a><span class="lineno"> 2849</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;afldcobn&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02850"></a><span class="lineno"> 2850</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a207709166cd4d719d65d76e6c043fd6c">afldcobn</a>(:)=0</div><div class="line"><a name="l02851"></a><span class="lineno"> 2851</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a2ee5f8ec71ebae64c3d14445345d7545">cxordbf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02852"></a><span class="lineno"> 2852</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cxordbf&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02853"></a><span class="lineno"> 2853</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a2ee5f8ec71ebae64c3d14445345d7545">cxordbf</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02854"></a><span class="lineno"> 2854</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ae1debe43f1c5cffeeb1d0d9ab563f4c4">cyordbf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02855"></a><span class="lineno"> 2855</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cyordbf&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02856"></a><span class="lineno"> 2856</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ae1debe43f1c5cffeeb1d0d9ab563f4c4">cyordbf</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02857"></a><span class="lineno"> 2857</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ab52bc27bf5898cc85dce0fc60feb9320">cxordaf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02858"></a><span class="lineno"> 2858</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cxordaf&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02859"></a><span class="lineno"> 2859</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ab52bc27bf5898cc85dce0fc60feb9320">cxordaf</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02860"></a><span class="lineno"> 2860</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a68de802180c51365e7d4bcc5180ac93b">cyordaf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02861"></a><span class="lineno"> 2861</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cyordaf&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02862"></a><span class="lineno"> 2862</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a68de802180c51365e7d4bcc5180ac93b">cyordaf</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02863"></a><span class="lineno"> 2863</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a795db0909c85ffadb601b744b5189ff5">cgrdtyp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02864"></a><span class="lineno"> 2864</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cgrdtyp&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02865"></a><span class="lineno"> 2865</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a795db0909c85ffadb601b744b5189ff5">cgrdtyp</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02866"></a><span class="lineno"> 2866</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ab139e7bad0413c79a5ad8e0837d3e0ef">cfldtyp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02867"></a><span class="lineno"> 2867</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cfldtyp&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02868"></a><span class="lineno"> 2868</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ab139e7bad0413c79a5ad8e0837d3e0ef">cfldtyp</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02869"></a><span class="lineno"> 2869</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a6a69d927924d3fa391fdc3ec6cb78197">cfilfic</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02870"></a><span class="lineno"> 2870</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cfilfic&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02871"></a><span class="lineno"> 2871</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a6a69d927924d3fa391fdc3ec6cb78197">cfilfic</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02872"></a><span class="lineno"> 2872</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#adf402f22f61893178fadcefe43b91102">cfilmet</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02873"></a><span class="lineno"> 2873</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cfilmet&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02874"></a><span class="lineno"> 2874</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#adf402f22f61893178fadcefe43b91102">cfilmet</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02875"></a><span class="lineno"> 2875</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a535fadd17426c228698e3a51fd54b605">cconmet</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02876"></a><span class="lineno"> 2876</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cconmet&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02877"></a><span class="lineno"> 2877</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a535fadd17426c228698e3a51fd54b605">cconmet</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02878"></a><span class="lineno"> 2878</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a240979dfe7369da899b0cfe2aeba4f9d">cconopt</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02879"></a><span class="lineno"> 2879</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cconopt&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02880"></a><span class="lineno"> 2880</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a240979dfe7369da899b0cfe2aeba4f9d">cconopt</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02881"></a><span class="lineno"> 2881</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#af3a308fee2e4b00a1380035e41113d36">cfldcoa</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02882"></a><span class="lineno"> 2882</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cfldcoa&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02883"></a><span class="lineno"> 2883</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#af3a308fee2e4b00a1380035e41113d36">cfldcoa</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02884"></a><span class="lineno"> 2884</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#aa387fcfde8c2538e22897b243ff5024c">cfldfin</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02885"></a><span class="lineno"> 2885</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cfldfin&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02886"></a><span class="lineno"> 2886</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#aa387fcfde8c2538e22897b243ff5024c">cfldfin</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02887"></a><span class="lineno"> 2887</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#af8d81a53bd28ddf6bfe19f5e05f1d867">ccofld</a>(<a class="code" href="namespacemod__oasis__namcouple.html#abba00866a740567bc1d93cf5850042fd">ig_maxcomb</a>,<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02888"></a><span class="lineno"> 2888</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ccofld&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02889"></a><span class="lineno"> 2889</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#af8d81a53bd28ddf6bfe19f5e05f1d867">ccofld</a>(:,:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02890"></a><span class="lineno"> 2890</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ab0f93bb917e445dc4e55fc2326168a42">cbofld</a>(<a class="code" href="namespacemod__oasis__namcouple.html#abba00866a740567bc1d93cf5850042fd">ig_maxcomb</a>,<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02891"></a><span class="lineno"> 2891</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cbofld&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02892"></a><span class="lineno"> 2892</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ab0f93bb917e445dc4e55fc2326168a42">cbofld</a>(:,:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02893"></a><span class="lineno"> 2893</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#af5bfb0fe58a77461130b9967fa7a4d5e">cbnfld</a>(<a class="code" href="namespacemod__oasis__namcouple.html#abba00866a740567bc1d93cf5850042fd">ig_maxcomb</a>,<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02894"></a><span class="lineno"> 2894</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cbnfld&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02895"></a><span class="lineno"> 2895</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#af5bfb0fe58a77461130b9967fa7a4d5e">cbnfld</a>(:,:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02896"></a><span class="lineno"> 2896</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a009543dda4495ab9b5ac3fcf15767682">ccofic</a>(<a class="code" href="namespacemod__oasis__namcouple.html#abba00866a740567bc1d93cf5850042fd">ig_maxcomb</a>,<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02897"></a><span class="lineno"> 2897</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ccofic&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02898"></a><span class="lineno"> 2898</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a009543dda4495ab9b5ac3fcf15767682">ccofic</a>(:,:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02899"></a><span class="lineno"> 2899</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a9c5a3b3a864f3feb95eddc08616b998e">cdqdt</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02900"></a><span class="lineno"> 2900</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cdqdt&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02901"></a><span class="lineno"> 2901</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a9c5a3b3a864f3feb95eddc08616b998e">cdqdt</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02902"></a><span class="lineno"> 2902</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#affa01947af89e5cdad5f33fba2a53d22">cgrdmap</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02903"></a><span class="lineno"> 2903</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cgrdmap&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02904"></a><span class="lineno"> 2904</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#affa01947af89e5cdad5f33fba2a53d22">cgrdmap</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02905"></a><span class="lineno"> 2905</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a28c3f9e076a686c8ef916221e8fe4e10">cmskrd</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02906"></a><span class="lineno"> 2906</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cmskrd&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02907"></a><span class="lineno"> 2907</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a28c3f9e076a686c8ef916221e8fe4e10">cmskrd</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02908"></a><span class="lineno"> 2908</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac7f3cff3406912fe6e48c3cc7cf5436b">cgrdsub</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02909"></a><span class="lineno"> 2909</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cgrdsub&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02910"></a><span class="lineno"> 2910</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ac7f3cff3406912fe6e48c3cc7cf5436b">cgrdsub</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02911"></a><span class="lineno"> 2911</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ad8f8aca3a6fa885e4edf027b79a93305">ctypsub</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02912"></a><span class="lineno"> 2912</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ctypsub&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02913"></a><span class="lineno"> 2913</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ad8f8aca3a6fa885e4edf027b79a93305">ctypsub</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02914"></a><span class="lineno"> 2914</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5db101d0bffaf6fbd5ae10d1d0069108">cgrdext</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02915"></a><span class="lineno"> 2915</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cgrdext&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02916"></a><span class="lineno"> 2916</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a5db101d0bffaf6fbd5ae10d1d0069108">cgrdext</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02917"></a><span class="lineno"> 2917</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a348612422a03e478041ca5bdfd7201ae">csper</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02918"></a><span class="lineno"> 2918</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;csper&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02919"></a><span class="lineno"> 2919</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a348612422a03e478041ca5bdfd7201ae">csper</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02920"></a><span class="lineno"> 2920</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#aa179b0a473551b48ef895497515d021c">ctper</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02921"></a><span class="lineno"> 2921</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ctper&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02922"></a><span class="lineno"> 2922</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#aa179b0a473551b48ef895497515d021c">ctper</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02923"></a><span class="lineno"> 2923</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a902fe007f6c2505858bf72dbc64e43a2">lsurf</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02924"></a><span class="lineno"> 2924</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;lsurf&quot;allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02925"></a><span class="lineno"> 2925</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a902fe007f6c2505858bf72dbc64e43a2">lsurf</a>(:)=.false.</div><div class="line"><a name="l02926"></a><span class="lineno"> 2926</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#abb6f67bfba2cba424dabee3a465fdfd5">nscripvoi</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02927"></a><span class="lineno"> 2927</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in nscripvoi allocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02928"></a><span class="lineno"> 2928</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#abb6f67bfba2cba424dabee3a465fdfd5">nscripvoi</a>(:)=0</div><div class="line"><a name="l02929"></a><span class="lineno"> 2929</span>&#160;<span class="comment">! </span></div><div class="line"><a name="l02930"></a><span class="lineno"> 2930</span>&#160;<span class="comment">!* Alloc array needed for SCRIP </span></div><div class="line"><a name="l02931"></a><span class="lineno"> 2931</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l02932"></a><span class="lineno"> 2932</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac8c1f0014f2c3cbe0cc4fcb09e54dde3">cmap_method</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02933"></a><span class="lineno"> 2933</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cmap_method&quot; allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02934"></a><span class="lineno"> 2934</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ac8c1f0014f2c3cbe0cc4fcb09e54dde3">cmap_method</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02935"></a><span class="lineno"> 2935</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a6dbd7bccbfa28b209a4bc58131f8cf11">cmap_file</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02936"></a><span class="lineno"> 2936</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cmap_file&quot; allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02937"></a><span class="lineno"> 2937</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a6dbd7bccbfa28b209a4bc58131f8cf11">cmap_file</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02938"></a><span class="lineno"> 2938</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a82b32aa4c78713443daf65a3dfbc75dc">cmaptyp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02939"></a><span class="lineno"> 2939</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cmaptyp&quot; allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02940"></a><span class="lineno"> 2940</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a82b32aa4c78713443daf65a3dfbc75dc">cmaptyp</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02941"></a><span class="lineno"> 2941</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a3d7b34ed13d4ad8f86bbab3ad9956b6b">cmapopt</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02942"></a><span class="lineno"> 2942</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cmapopt&quot; allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02943"></a><span class="lineno"> 2943</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a3d7b34ed13d4ad8f86bbab3ad9956b6b">cmapopt</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02944"></a><span class="lineno"> 2944</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#af6d77b87036aa40faa1ae1ed1b2a0866">cfldtype</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02945"></a><span class="lineno"> 2945</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cfldtype&quot;allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02946"></a><span class="lineno"> 2946</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#af6d77b87036aa40faa1ae1ed1b2a0866">cfldtype</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02947"></a><span class="lineno"> 2947</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7cbf27327f01748c4f87803ccff71b61">crsttype</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02948"></a><span class="lineno"> 2948</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;crsttype&quot;allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02949"></a><span class="lineno"> 2949</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a7cbf27327f01748c4f87803ccff71b61">crsttype</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02950"></a><span class="lineno"> 2950</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a4c609c48a20205e1d2aa9938d7babc92">nbins</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02951"></a><span class="lineno"> 2951</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nbins&quot;allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02952"></a><span class="lineno"> 2952</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a4c609c48a20205e1d2aa9938d7babc92">nbins</a>(:)=0</div><div class="line"><a name="l02953"></a><span class="lineno"> 2953</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a205e8ba5863c6bf6de5c8450fb060c7a">cnorm_opt</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02954"></a><span class="lineno"> 2954</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cnorm_opt&quot;allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02955"></a><span class="lineno"> 2955</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a205e8ba5863c6bf6de5c8450fb060c7a">cnorm_opt</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02956"></a><span class="lineno"> 2956</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a070f65b97986d1075f1deed9224cd89b">corder</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>),stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02957"></a><span class="lineno"> 2957</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;corder&quot;allocation of &#39;</span>//trim(subname),<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02958"></a><span class="lineno"> 2958</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a070f65b97986d1075f1deed9224cd89b">corder</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02959"></a><span class="lineno"> 2959</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l02960"></a><span class="lineno"> 2960</span>&#160;  <span class="comment">!--- alloc_extrapol1</span></div><div class="line"><a name="l02961"></a><span class="lineno"> 2961</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a63c2f2977f9cc4839f6bdec7bbbc5fa7">niwtn</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02962"></a><span class="lineno"> 2962</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;niwtn&quot;allocation of extrapol module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02963"></a><span class="lineno"> 2963</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a63c2f2977f9cc4839f6bdec7bbbc5fa7">niwtn</a>(:)=0</div><div class="line"><a name="l02964"></a><span class="lineno"> 2964</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a3379333e7d0f24b776c81b1087f3a3b4">niwtng</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02965"></a><span class="lineno"> 2965</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;niwtng&quot;allocation of extrapol module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02966"></a><span class="lineno"> 2966</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a3379333e7d0f24b776c81b1087f3a3b4">niwtng</a>(:)=0</div><div class="line"><a name="l02967"></a><span class="lineno"> 2967</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a2febd0d97dea9ecc3ce4a8c5088a8d1f">lextra</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02968"></a><span class="lineno"> 2968</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;lextra&quot;allocation of extrapol module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02969"></a><span class="lineno"> 2969</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a2febd0d97dea9ecc3ce4a8c5088a8d1f">lextra</a>(:)=.false.</div><div class="line"><a name="l02970"></a><span class="lineno"> 2970</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a8d88d0c1b22ea43a9429f9e3a653a64b">lweight</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02971"></a><span class="lineno"> 2971</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;lweight&quot;allocation of extrapol module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02972"></a><span class="lineno"> 2972</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a8d88d0c1b22ea43a9429f9e3a653a64b">lweight</a>(:)=.false.</div><div class="line"><a name="l02973"></a><span class="lineno"> 2973</span>&#160;</div><div class="line"><a name="l02974"></a><span class="lineno"> 2974</span>&#160;  <span class="comment">!--- alloc_rainbow1</span></div><div class="line"><a name="l02975"></a><span class="lineno"> 2975</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a8eca7c715a39c523e00ed2be0612950d">lmapp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02976"></a><span class="lineno"> 2976</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;lmapp&quot;allocation of rainbow module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02977"></a><span class="lineno"> 2977</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a8eca7c715a39c523e00ed2be0612950d">lmapp</a>(:)=.false.</div><div class="line"><a name="l02978"></a><span class="lineno"> 2978</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#acda1605129987d656360e1ed81e8d199">lsubg</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02979"></a><span class="lineno"> 2979</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;lsubg&quot;allocation of rainbow module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02980"></a><span class="lineno"> 2980</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#acda1605129987d656360e1ed81e8d199">lsubg</a>(:)=.false.</div><div class="line"><a name="l02981"></a><span class="lineno"> 2981</span>&#160;</div><div class="line"><a name="l02982"></a><span class="lineno"> 2982</span>&#160;  <span class="comment">!--- alloc_string</span></div><div class="line"><a name="l02983"></a><span class="lineno"> 2983</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac79429a9522aabddbe4ed68fd9571bec">cg_name_rstfile</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a05148b30ca97c536b40a896153c8921f">ig_nbr_rstfile</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02984"></a><span class="lineno"> 2984</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cg_name_rstfile&quot;allocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02985"></a><span class="lineno"> 2985</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ac79429a9522aabddbe4ed68fd9571bec">cg_name_rstfile</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02986"></a><span class="lineno"> 2986</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ae2c74692147a54b3f7534301d509f766">ig_lag</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02987"></a><span class="lineno"> 2987</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ig_lag&quot;allocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1) </div><div class="line"><a name="l02988"></a><span class="lineno"> 2988</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ae2c74692147a54b3f7534301d509f766">ig_lag</a>(:)=0</div><div class="line"><a name="l02989"></a><span class="lineno"> 2989</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a1cc3d37d7819c112f14b6cec03266561">ig_no_rstfile</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02990"></a><span class="lineno"> 2990</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ig_no_rstfile&quot;allocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02991"></a><span class="lineno"> 2991</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a1cc3d37d7819c112f14b6cec03266561">ig_no_rstfile</a>(:)=1</div><div class="line"><a name="l02992"></a><span class="lineno"> 2992</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#aad4d4857b4c424e1b0f0bcc0a01aa6e3">cg_input_field</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02993"></a><span class="lineno"> 2993</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cg_input_field&quot;allocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02994"></a><span class="lineno"> 2994</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#aad4d4857b4c424e1b0f0bcc0a01aa6e3">cg_input_field</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l02995"></a><span class="lineno"> 2995</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ab0b9a7822ec44010e8652ed2d6abc0db">ig_numlab</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02996"></a><span class="lineno"> 2996</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ig_numlab&quot;allocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l02997"></a><span class="lineno"> 2997</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ab0b9a7822ec44010e8652ed2d6abc0db">ig_numlab</a>(:)=0</div><div class="line"><a name="l02998"></a><span class="lineno"> 2998</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#affa727bb033c0f4d09962f2b4d1b4ab5">ig_freq</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l02999"></a><span class="lineno"> 2999</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ig_freq&quot;allocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03000"></a><span class="lineno"> 3000</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#affa727bb033c0f4d09962f2b4d1b4ab5">ig_freq</a>(:)=0</div><div class="line"><a name="l03001"></a><span class="lineno"> 3001</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a09ed8be682296ef584f0d5777b2c6482">ig_total_nseqn</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03002"></a><span class="lineno"> 3002</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ig_total_nseqn&quot;allocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03003"></a><span class="lineno"> 3003</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a09ed8be682296ef584f0d5777b2c6482">ig_total_nseqn</a>(:)=0</div><div class="line"><a name="l03004"></a><span class="lineno"> 3004</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03005"></a><span class="lineno"> 3005</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ig_local_trans&quot;allocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03006"></a><span class="lineno"> 3006</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a>(:)=0</div><div class="line"><a name="l03007"></a><span class="lineno"> 3007</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a0b8948452bbd8cf1dc9f0fccc17c344d">ig_invert</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03008"></a><span class="lineno"> 3008</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ig_invert&quot; allocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1) </div><div class="line"><a name="l03009"></a><span class="lineno"> 3009</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a0b8948452bbd8cf1dc9f0fccc17c344d">ig_invert</a>(:)=0</div><div class="line"><a name="l03010"></a><span class="lineno"> 3010</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#adc4dcf30da2b88fb1798dd02e7833bc1">ig_reverse</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">ig_total_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03011"></a><span class="lineno"> 3011</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ig_reverse&quot; allocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1) </div><div class="line"><a name="l03012"></a><span class="lineno"> 3012</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#adc4dcf30da2b88fb1798dd02e7833bc1">ig_reverse</a>(:)=0</div><div class="line"><a name="l03013"></a><span class="lineno"> 3013</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03014"></a><span class="lineno"> 3014</span>&#160;<span class="comment">!** + Allocate following arrays only if one field (at least) goes</span></div><div class="line"><a name="l03015"></a><span class="lineno"> 3015</span>&#160;<span class="comment">!     through Oasis</span></div><div class="line"><a name="l03016"></a><span class="lineno"> 3016</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03017"></a><span class="lineno"> 3017</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#aaf6b923ffc7763fd37a5c4c72bdfa34d">lg_oasis_field</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l03018"></a><span class="lineno"> 3018</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a12e1621f5697a0cdbde11d3e25f43b54">numlab</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03019"></a><span class="lineno"> 3019</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;numlab&quot;allocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03020"></a><span class="lineno"> 3020</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a12e1621f5697a0cdbde11d3e25f43b54">numlab</a>(:)=0</div><div class="line"><a name="l03021"></a><span class="lineno"> 3021</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac6216c78a2779e49f90a9a95a39c27d7">nfexch</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03022"></a><span class="lineno"> 3022</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nfexch&quot;allocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03023"></a><span class="lineno"> 3023</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#ac6216c78a2779e49f90a9a95a39c27d7">nfexch</a>(:)=0</div><div class="line"><a name="l03024"></a><span class="lineno"> 3024</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a20e9486f3e8bbdcee0de935e9be3a2e8">nseqn</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03025"></a><span class="lineno"> 3025</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nseqn&quot;allocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03026"></a><span class="lineno"> 3026</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a20e9486f3e8bbdcee0de935e9be3a2e8">nseqn</a>(:)=0</div><div class="line"><a name="l03027"></a><span class="lineno"> 3027</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#aad06af35c92de78d71671d39bcbb1690">nlagn</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03028"></a><span class="lineno"> 3028</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nlagn&quot; allocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03029"></a><span class="lineno"> 3029</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#aad06af35c92de78d71671d39bcbb1690">nlagn</a>(:)=0</div><div class="line"><a name="l03030"></a><span class="lineno"> 3030</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a1f6ff08cee0c3c5deb262c1447d88328">cnaminp</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03031"></a><span class="lineno"> 3031</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cnaminp&quot;allocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03032"></a><span class="lineno"> 3032</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a1f6ff08cee0c3c5deb262c1447d88328">cnaminp</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l03033"></a><span class="lineno"> 3033</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a71ba84b9a7a813ca2551bcde99a0b5b5">cnamout</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03034"></a><span class="lineno"> 3034</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cnamout&quot;allocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03035"></a><span class="lineno"> 3035</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a71ba84b9a7a813ca2551bcde99a0b5b5">cnamout</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l03036"></a><span class="lineno"> 3036</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a62f96a372f013fc37713f8ba1728e3de">cficout</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03037"></a><span class="lineno"> 3037</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cficout&quot;allocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03038"></a><span class="lineno"> 3038</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a62f96a372f013fc37713f8ba1728e3de">cficout</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l03039"></a><span class="lineno"> 3039</span>&#160;  <span class="keyword">ALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a4b507ab44ad62713c9e3d83ded6be3f4">cstate</a>(<a class="code" href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">ig_nfield</a>), stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03040"></a><span class="lineno"> 3040</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cstate&quot;allocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03041"></a><span class="lineno"> 3041</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a4b507ab44ad62713c9e3d83ded6be3f4">cstate</a>(:)=<span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l03042"></a><span class="lineno"> 3042</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l03043"></a><span class="lineno"> 3043</span>&#160;</div><div class="line"><a name="l03044"></a><span class="lineno"> 3044</span>&#160;<span class="comment">!  CALL oasis_debug_exit(subname)</span></div><div class="line"><a name="l03045"></a><span class="lineno"> 3045</span>&#160;</div><div class="line"><a name="l03046"></a><span class="lineno"> 3046</span>&#160;<span class="keyword">END SUBROUTINE </span><a class="code" href="namespacemod__oasis__namcouple.html#a0d85a5dcb3fab17a680cceed332b9668">alloc</a></div><div class="line"><a name="l03047"></a><span class="lineno"> 3047</span>&#160;</div><div class="line"><a name="l03048"></a><span class="lineno"> 3048</span>&#160;<span class="comment">!===============================================================================</span></div><div class="line"><a name="l03049"></a><span class="lineno"> 3049</span>&#160;<span class="comment"></span></div><div class="line"><a name="l03050"></a><span class="lineno"> 3050</span>&#160;<span class="comment">!&gt; Deallocates temporary arrays for namcouple input</span></div><div class="line"><a name="l03051"></a><span class="lineno"> 3051</span>&#160;</div><div class="line"><a name="l03052"></a><span class="lineno"> 3052</span>&#160;<span class="keyword">SUBROUTINE </span><a class="code" href="namespacemod__oasis__namcouple.html#abf09a0e902f44f77874a75bb4a7fba33">dealloc</a>()</div><div class="line"><a name="l03053"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#abf09a0e902f44f77874a75bb4a7fba33"> 3053</a></span>&#160;</div><div class="line"><a name="l03054"></a><span class="lineno"> 3054</span>&#160;  <span class="keywordtype">IMPLICIT NONE</span></div><div class="line"><a name="l03055"></a><span class="lineno"> 3055</span>&#160;</div><div class="line"><a name="l03056"></a><span class="lineno"> 3056</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">parameter</span> :: subname=<span class="stringliteral">&#39;(mod_oasis_namcouple:dealloc)&#39;</span></div><div class="line"><a name="l03057"></a><span class="lineno"> 3057</span>&#160;</div><div class="line"><a name="l03058"></a><span class="lineno"> 3058</span>&#160;  <span class="comment">!--- alloc_anais1</span></div><div class="line"><a name="l03059"></a><span class="lineno"> 3059</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ab7c38fd6bd90bb8e6ebfb539ead1f1a9">varmul</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03060"></a><span class="lineno"> 3060</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;varmul&quot;deallocation of anais module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03061"></a><span class="lineno"> 3061</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a90e4ce86f77bf89c71a9277ff9b5dcbb">niwtm</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03062"></a><span class="lineno"> 3062</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;niwtm&quot;deallocation of anais module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03063"></a><span class="lineno"> 3063</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a28e887d61cc4b10c00c33a7d0f51a275">niwtg</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03064"></a><span class="lineno"> 3064</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;niwtg&quot;deallocation of anais module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03065"></a><span class="lineno"> 3065</span>&#160;  <span class="keyword">deallocate</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac124af3aecadc7ba436f2ee6caffee9a">linit</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03066"></a><span class="lineno"> 3066</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.ne.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;error in &quot;linit&quot;deallocation of anais module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03067"></a><span class="lineno"> 3067</span>&#160;</div><div class="line"><a name="l03068"></a><span class="lineno"> 3068</span>&#160;  <span class="comment">!--- alloc_analysis</span></div><div class="line"><a name="l03069"></a><span class="lineno"> 3069</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a9f8a2a4f44b1c56860fef8df014339d3">ncofld</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03070"></a><span class="lineno"> 3070</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ncofld&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03071"></a><span class="lineno"> 3071</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a883d88938c50264711c53af2b555c3db">neighborg</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03072"></a><span class="lineno"> 3072</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;neighborg&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03073"></a><span class="lineno"> 3073</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#abb7c2cd3a371bbb8ccd6a272d0e9b60f">nludat</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03074"></a><span class="lineno"> 3074</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nludat&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03075"></a><span class="lineno"> 3075</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a31f62f64cbcf344e529d0576386d0751">nlufil</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03076"></a><span class="lineno"> 3076</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nlufil&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03077"></a><span class="lineno"> 3077</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a42367b4984c6ac4c69cbdcd315cb54e6">nlumap</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03078"></a><span class="lineno"> 3078</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nlumap&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03079"></a><span class="lineno"> 3079</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#aefed5eaa9924d249e979a5a772a46979">nlusub</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03080"></a><span class="lineno"> 3080</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nlusub&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03081"></a><span class="lineno"> 3081</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7510ecfe3d0f141252450e4ba66209ba">nluext</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03082"></a><span class="lineno"> 3082</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nluext&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03083"></a><span class="lineno"> 3083</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a484a71c213c89416924a0e23cfd46269">nosper</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03084"></a><span class="lineno"> 3084</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nosper&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03085"></a><span class="lineno"> 3085</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac154fc90756832bc90d02ea21f7c7e17">notper</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03086"></a><span class="lineno"> 3086</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;notper&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03087"></a><span class="lineno"> 3087</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a92d43fa5eaaff81f0e3f73b303377c02">amskval</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03088"></a><span class="lineno"> 3088</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;amskval&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03089"></a><span class="lineno"> 3089</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a3598202174da65117caf675065f8b160">amskvalnew</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03090"></a><span class="lineno"> 3090</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;amskvalnew&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03091"></a><span class="lineno"> 3091</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a115cdfe0e05679107363605a992c6386">acocoef</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03092"></a><span class="lineno"> 3092</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;acocoef&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03093"></a><span class="lineno"> 3093</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a1b3f80e8e19f950b806636caadeb704b">abocoef</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03094"></a><span class="lineno"> 3094</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;abocoef&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03095"></a><span class="lineno"> 3095</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a211c98282b89859bee6da0ef60f0d484">abncoef</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03096"></a><span class="lineno"> 3096</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;abncoef&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03097"></a><span class="lineno"> 3097</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a19fb86d643bb8761d5a8e32d645d5963">afldcoef</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03098"></a><span class="lineno"> 3098</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;afldcoef&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03099"></a><span class="lineno"> 3099</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#aa9d178659282698ffb6c186ff48bed3c">afldcobo</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03100"></a><span class="lineno"> 3100</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;afldcobo&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03101"></a><span class="lineno"> 3101</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a207709166cd4d719d65d76e6c043fd6c">afldcobn</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03102"></a><span class="lineno"> 3102</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;afldcobn&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03103"></a><span class="lineno"> 3103</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a2ee5f8ec71ebae64c3d14445345d7545">cxordbf</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03104"></a><span class="lineno"> 3104</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cxordbf&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03105"></a><span class="lineno"> 3105</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ae1debe43f1c5cffeeb1d0d9ab563f4c4">cyordbf</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03106"></a><span class="lineno"> 3106</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cyordbf&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03107"></a><span class="lineno"> 3107</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ab52bc27bf5898cc85dce0fc60feb9320">cxordaf</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03108"></a><span class="lineno"> 3108</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cxordaf&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03109"></a><span class="lineno"> 3109</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a68de802180c51365e7d4bcc5180ac93b">cyordaf</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03110"></a><span class="lineno"> 3110</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cyordaf&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03111"></a><span class="lineno"> 3111</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a795db0909c85ffadb601b744b5189ff5">cgrdtyp</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03112"></a><span class="lineno"> 3112</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cgrdtyp&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03113"></a><span class="lineno"> 3113</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ab139e7bad0413c79a5ad8e0837d3e0ef">cfldtyp</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03114"></a><span class="lineno"> 3114</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cfldtyp&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03115"></a><span class="lineno"> 3115</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a6a69d927924d3fa391fdc3ec6cb78197">cfilfic</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03116"></a><span class="lineno"> 3116</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cfilfic&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03117"></a><span class="lineno"> 3117</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#adf402f22f61893178fadcefe43b91102">cfilmet</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03118"></a><span class="lineno"> 3118</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cfilmet&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03119"></a><span class="lineno"> 3119</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a535fadd17426c228698e3a51fd54b605">cconmet</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03120"></a><span class="lineno"> 3120</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cconmet&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03121"></a><span class="lineno"> 3121</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a240979dfe7369da899b0cfe2aeba4f9d">cconopt</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03122"></a><span class="lineno"> 3122</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cconopt&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03123"></a><span class="lineno"> 3123</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#af3a308fee2e4b00a1380035e41113d36">cfldcoa</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03124"></a><span class="lineno"> 3124</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cfldcoa&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03125"></a><span class="lineno"> 3125</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#aa387fcfde8c2538e22897b243ff5024c">cfldfin</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03126"></a><span class="lineno"> 3126</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cfldfin&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03127"></a><span class="lineno"> 3127</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#af8d81a53bd28ddf6bfe19f5e05f1d867">ccofld</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03128"></a><span class="lineno"> 3128</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ccofld&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03129"></a><span class="lineno"> 3129</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ab0f93bb917e445dc4e55fc2326168a42">cbofld</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03130"></a><span class="lineno"> 3130</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cbofld&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03131"></a><span class="lineno"> 3131</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#af5bfb0fe58a77461130b9967fa7a4d5e">cbnfld</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03132"></a><span class="lineno"> 3132</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cbnfld&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03133"></a><span class="lineno"> 3133</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a009543dda4495ab9b5ac3fcf15767682">ccofic</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03134"></a><span class="lineno"> 3134</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ccofic&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03135"></a><span class="lineno"> 3135</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a9c5a3b3a864f3feb95eddc08616b998e">cdqdt</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03136"></a><span class="lineno"> 3136</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cdqdt&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03137"></a><span class="lineno"> 3137</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#affa01947af89e5cdad5f33fba2a53d22">cgrdmap</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03138"></a><span class="lineno"> 3138</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cgrdmap&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03139"></a><span class="lineno"> 3139</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a28c3f9e076a686c8ef916221e8fe4e10">cmskrd</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03140"></a><span class="lineno"> 3140</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cmskrd&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03141"></a><span class="lineno"> 3141</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac7f3cff3406912fe6e48c3cc7cf5436b">cgrdsub</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03142"></a><span class="lineno"> 3142</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cgrdsub&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03143"></a><span class="lineno"> 3143</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ad8f8aca3a6fa885e4edf027b79a93305">ctypsub</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03144"></a><span class="lineno"> 3144</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ctypsub&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03145"></a><span class="lineno"> 3145</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a5db101d0bffaf6fbd5ae10d1d0069108">cgrdext</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03146"></a><span class="lineno"> 3146</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cgrdext&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03147"></a><span class="lineno"> 3147</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a348612422a03e478041ca5bdfd7201ae">csper</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03148"></a><span class="lineno"> 3148</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;csper&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03149"></a><span class="lineno"> 3149</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#aa179b0a473551b48ef895497515d021c">ctper</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03150"></a><span class="lineno"> 3150</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ctper&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03151"></a><span class="lineno"> 3151</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a902fe007f6c2505858bf72dbc64e43a2">lsurf</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03152"></a><span class="lineno"> 3152</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;lsurf&quot;deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03153"></a><span class="lineno"> 3153</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#abb6f67bfba2cba424dabee3a465fdfd5">nscripvoi</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03154"></a><span class="lineno"> 3154</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in nscripvoi deallocation of analysis module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03155"></a><span class="lineno"> 3155</span>&#160;<span class="comment">! </span></div><div class="line"><a name="l03156"></a><span class="lineno"> 3156</span>&#160;<span class="comment">!* Alloc array needed for SCRIP </span></div><div class="line"><a name="l03157"></a><span class="lineno"> 3157</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03158"></a><span class="lineno"> 3158</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac8c1f0014f2c3cbe0cc4fcb09e54dde3">cmap_method</a>,stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03159"></a><span class="lineno"> 3159</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cmap_method&quot; deallocation of scrip module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03160"></a><span class="lineno"> 3160</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a6dbd7bccbfa28b209a4bc58131f8cf11">cmap_file</a>,stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03161"></a><span class="lineno"> 3161</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cmap_file&quot; deallocation of scrip module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03162"></a><span class="lineno"> 3162</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a82b32aa4c78713443daf65a3dfbc75dc">cmaptyp</a>,stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03163"></a><span class="lineno"> 3163</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cmaptyp&quot; deallocation of scrip module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03164"></a><span class="lineno"> 3164</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a3d7b34ed13d4ad8f86bbab3ad9956b6b">cmapopt</a>,stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03165"></a><span class="lineno"> 3165</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cmapopt&quot; deallocation of scrip module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03166"></a><span class="lineno"> 3166</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#af6d77b87036aa40faa1ae1ed1b2a0866">cfldtype</a>,stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03167"></a><span class="lineno"> 3167</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cfldtype&quot;deallocation of scrip module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03168"></a><span class="lineno"> 3168</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a7cbf27327f01748c4f87803ccff71b61">crsttype</a>,stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03169"></a><span class="lineno"> 3169</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;crsttype&quot;deallocation of scrip module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03170"></a><span class="lineno"> 3170</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a4c609c48a20205e1d2aa9938d7babc92">nbins</a>,stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03171"></a><span class="lineno"> 3171</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nbins&quot;deallocation of scrip module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03172"></a><span class="lineno"> 3172</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a205e8ba5863c6bf6de5c8450fb060c7a">cnorm_opt</a>,stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03173"></a><span class="lineno"> 3173</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cnorm_opt&quot;deallocation of scrip module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03174"></a><span class="lineno"> 3174</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a070f65b97986d1075f1deed9224cd89b">corder</a>,stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03175"></a><span class="lineno"> 3175</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;corder&quot;deallocation of scrip module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03176"></a><span class="lineno"> 3176</span>&#160;  <span class="comment">!</span></div><div class="line"><a name="l03177"></a><span class="lineno"> 3177</span>&#160;  <span class="comment">!--- alloc_extrapol1</span></div><div class="line"><a name="l03178"></a><span class="lineno"> 3178</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a63c2f2977f9cc4839f6bdec7bbbc5fa7">niwtn</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03179"></a><span class="lineno"> 3179</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;niwtn&quot;deallocation of extrapol module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03180"></a><span class="lineno"> 3180</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a3379333e7d0f24b776c81b1087f3a3b4">niwtng</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03181"></a><span class="lineno"> 3181</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;niwtng&quot;deallocation of extrapol module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03182"></a><span class="lineno"> 3182</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a2febd0d97dea9ecc3ce4a8c5088a8d1f">lextra</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03183"></a><span class="lineno"> 3183</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;lextra&quot;deallocation of extrapol module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03184"></a><span class="lineno"> 3184</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a8d88d0c1b22ea43a9429f9e3a653a64b">lweight</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03185"></a><span class="lineno"> 3185</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;lweight&quot;deallocation of extrapol module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03186"></a><span class="lineno"> 3186</span>&#160;</div><div class="line"><a name="l03187"></a><span class="lineno"> 3187</span>&#160;  <span class="comment">!--- alloc_rainbow1</span></div><div class="line"><a name="l03188"></a><span class="lineno"> 3188</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a8eca7c715a39c523e00ed2be0612950d">lmapp</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03189"></a><span class="lineno"> 3189</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;lmapp&quot;deallocation of rainbow module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03190"></a><span class="lineno"> 3190</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#acda1605129987d656360e1ed81e8d199">lsubg</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03191"></a><span class="lineno"> 3191</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;lsubg&quot;deallocation of rainbow module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03192"></a><span class="lineno"> 3192</span>&#160;</div><div class="line"><a name="l03193"></a><span class="lineno"> 3193</span>&#160;  <span class="comment">!--- alloc_string</span></div><div class="line"><a name="l03194"></a><span class="lineno"> 3194</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac79429a9522aabddbe4ed68fd9571bec">cg_name_rstfile</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03195"></a><span class="lineno"> 3195</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cg_name_rstfile&quot;deallocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03196"></a><span class="lineno"> 3196</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ae2c74692147a54b3f7534301d509f766">ig_lag</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03197"></a><span class="lineno"> 3197</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ig_lag&quot;deallocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1) </div><div class="line"><a name="l03198"></a><span class="lineno"> 3198</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a1cc3d37d7819c112f14b6cec03266561">ig_no_rstfile</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03199"></a><span class="lineno"> 3199</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ig_no_rstfile&quot;deallocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03200"></a><span class="lineno"> 3200</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#aad4d4857b4c424e1b0f0bcc0a01aa6e3">cg_input_field</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03201"></a><span class="lineno"> 3201</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cg_input_field&quot;deallocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03202"></a><span class="lineno"> 3202</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ab0b9a7822ec44010e8652ed2d6abc0db">ig_numlab</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03203"></a><span class="lineno"> 3203</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ig_numlab&quot;deallocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03204"></a><span class="lineno"> 3204</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#affa727bb033c0f4d09962f2b4d1b4ab5">ig_freq</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03205"></a><span class="lineno"> 3205</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ig_freq&quot;deallocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03206"></a><span class="lineno"> 3206</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a09ed8be682296ef584f0d5777b2c6482">ig_total_nseqn</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03207"></a><span class="lineno"> 3207</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ig_total_nseqn&quot;deallocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03208"></a><span class="lineno"> 3208</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">ig_local_trans</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03209"></a><span class="lineno"> 3209</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ig_local_trans&quot;deallocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03210"></a><span class="lineno"> 3210</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a0b8948452bbd8cf1dc9f0fccc17c344d">ig_invert</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03211"></a><span class="lineno"> 3211</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ig_invert&quot; deallocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1) </div><div class="line"><a name="l03212"></a><span class="lineno"> 3212</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#adc4dcf30da2b88fb1798dd02e7833bc1">ig_reverse</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03213"></a><span class="lineno"> 3213</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;ig_reverse&quot; deallocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1) </div><div class="line"><a name="l03214"></a><span class="lineno"> 3214</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03215"></a><span class="lineno"> 3215</span>&#160;<span class="comment">!** + Deallocate following arrays only if one field (at least) goes</span></div><div class="line"><a name="l03216"></a><span class="lineno"> 3216</span>&#160;<span class="comment">!     through Oasis</span></div><div class="line"><a name="l03217"></a><span class="lineno"> 3217</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03218"></a><span class="lineno"> 3218</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#aaf6b923ffc7763fd37a5c4c72bdfa34d">lg_oasis_field</a>) <span class="keywordflow">THEN</span></div><div class="line"><a name="l03219"></a><span class="lineno"> 3219</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a12e1621f5697a0cdbde11d3e25f43b54">numlab</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03220"></a><span class="lineno"> 3220</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;numlab&quot;deallocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03221"></a><span class="lineno"> 3221</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#ac6216c78a2779e49f90a9a95a39c27d7">nfexch</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03222"></a><span class="lineno"> 3222</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nfexch&quot;deallocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03223"></a><span class="lineno"> 3223</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a20e9486f3e8bbdcee0de935e9be3a2e8">nseqn</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03224"></a><span class="lineno"> 3224</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nseqn&quot;deallocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03225"></a><span class="lineno"> 3225</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#aad06af35c92de78d71671d39bcbb1690">nlagn</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03226"></a><span class="lineno"> 3226</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;nlagn&quot; deallocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03227"></a><span class="lineno"> 3227</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a1f6ff08cee0c3c5deb262c1447d88328">cnaminp</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03228"></a><span class="lineno"> 3228</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cnaminp&quot;deallocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03229"></a><span class="lineno"> 3229</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a71ba84b9a7a813ca2551bcde99a0b5b5">cnamout</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03230"></a><span class="lineno"> 3230</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cnamout&quot;deallocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03231"></a><span class="lineno"> 3231</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a62f96a372f013fc37713f8ba1728e3de">cficout</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03232"></a><span class="lineno"> 3232</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cficout&quot;deallocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03233"></a><span class="lineno"> 3233</span>&#160;  <span class="keyword">DEALLOCATE</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a4b507ab44ad62713c9e3d83ded6be3f4">cstate</a>, stat=<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>)</div><div class="line"><a name="l03234"></a><span class="lineno"> 3234</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>.NE.0) <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(<span class="stringliteral">&#39;Error in &quot;cstate&quot;deallocation of string module&#39;</span>,<a class="code" href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">il_err</a>,1)</div><div class="line"><a name="l03235"></a><span class="lineno"> 3235</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l03236"></a><span class="lineno"> 3236</span>&#160;</div><div class="line"><a name="l03237"></a><span class="lineno"> 3237</span>&#160;<span class="comment">!  CALL oasis_debug_exit(subname)</span></div><div class="line"><a name="l03238"></a><span class="lineno"> 3238</span>&#160;</div><div class="line"><a name="l03239"></a><span class="lineno"> 3239</span>&#160;<span class="keyword">END SUBROUTINE </span><a class="code" href="namespacemod__oasis__namcouple.html#abf09a0e902f44f77874a75bb4a7fba33">dealloc</a></div><div class="line"><a name="l03240"></a><span class="lineno"> 3240</span>&#160;</div><div class="line"><a name="l03241"></a><span class="lineno"> 3241</span>&#160;<span class="comment">!===============================================================================</span></div><div class="line"><a name="l03242"></a><span class="lineno"> 3242</span>&#160;<span class="comment"></span></div><div class="line"><a name="l03243"></a><span class="lineno"> 3243</span>&#160;<span class="comment">!&gt; Prints information passed by argument</span></div><div class="line"><a name="l03244"></a><span class="lineno"> 3244</span>&#160;</div><div class="line"><a name="l03245"></a><span class="lineno"> 3245</span>&#160;<span class="keyword">SUBROUTINE </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a>(cdtext, kvalue, kstyle)</div><div class="line"><a name="l03246"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc"> 3246</a></span>&#160;</div><div class="line"><a name="l03247"></a><span class="lineno"> 3247</span>&#160;<span class="comment">!****</span></div><div class="line"><a name="l03248"></a><span class="lineno"> 3248</span>&#160;<span class="comment">!               *****************************</span></div><div class="line"><a name="l03249"></a><span class="lineno"> 3249</span>&#160;<span class="comment">!               * OASIS ROUTINE  -  LEVEL 1 *</span></div><div class="line"><a name="l03250"></a><span class="lineno"> 3250</span>&#160;<span class="comment">!               * -------------     ------- *</span></div><div class="line"><a name="l03251"></a><span class="lineno"> 3251</span>&#160;<span class="comment">!               *****************************</span></div><div class="line"><a name="l03252"></a><span class="lineno"> 3252</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03253"></a><span class="lineno"> 3253</span>&#160;<span class="comment">!**** *prtout*  - Print output</span></div><div class="line"><a name="l03254"></a><span class="lineno"> 3254</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03255"></a><span class="lineno"> 3255</span>&#160;<span class="comment">!     Purpose:</span></div><div class="line"><a name="l03256"></a><span class="lineno"> 3256</span>&#160;<span class="comment">!     -------</span></div><div class="line"><a name="l03257"></a><span class="lineno"> 3257</span>&#160;<span class="comment">!     Print out CHARACTER string and one INTEGER value</span></div><div class="line"><a name="l03258"></a><span class="lineno"> 3258</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03259"></a><span class="lineno"> 3259</span>&#160;<span class="comment">!**   Interface:</span></div><div class="line"><a name="l03260"></a><span class="lineno"> 3260</span>&#160;<span class="comment">!     ---------</span></div><div class="line"><a name="l03261"></a><span class="lineno"> 3261</span>&#160;<span class="comment">!       *CALL*  *prtout(cdtext, kvalue, kstyle)*</span></div><div class="line"><a name="l03262"></a><span class="lineno"> 3262</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03263"></a><span class="lineno"> 3263</span>&#160;<span class="comment">!     Input:</span></div><div class="line"><a name="l03264"></a><span class="lineno"> 3264</span>&#160;<span class="comment">!     -----</span></div><div class="line"><a name="l03265"></a><span class="lineno"> 3265</span>&#160;<span class="comment">!                cdtext : CHARACTER string to be printed</span></div><div class="line"><a name="l03266"></a><span class="lineno"> 3266</span>&#160;<span class="comment">!                kvalue : INTEGER variable to be printed</span></div><div class="line"><a name="l03267"></a><span class="lineno"> 3267</span>&#160;<span class="comment">!                kstyle : printing style</span></div><div class="line"><a name="l03268"></a><span class="lineno"> 3268</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03269"></a><span class="lineno"> 3269</span>&#160;<span class="comment">!     Output:</span></div><div class="line"><a name="l03270"></a><span class="lineno"> 3270</span>&#160;<span class="comment">!     ------</span></div><div class="line"><a name="l03271"></a><span class="lineno"> 3271</span>&#160;<span class="comment">!     None</span></div><div class="line"><a name="l03272"></a><span class="lineno"> 3272</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03273"></a><span class="lineno"> 3273</span>&#160;<span class="comment">!     Workspace:</span></div><div class="line"><a name="l03274"></a><span class="lineno"> 3274</span>&#160;<span class="comment">!     ---------</span></div><div class="line"><a name="l03275"></a><span class="lineno"> 3275</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03276"></a><span class="lineno"> 3276</span>&#160;<span class="comment">!     Externals:</span></div><div class="line"><a name="l03277"></a><span class="lineno"> 3277</span>&#160;<span class="comment">!     ---------</span></div><div class="line"><a name="l03278"></a><span class="lineno"> 3278</span>&#160;<span class="comment">!     None</span></div><div class="line"><a name="l03279"></a><span class="lineno"> 3279</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03280"></a><span class="lineno"> 3280</span>&#160;<span class="comment">!     Reference:</span></div><div class="line"><a name="l03281"></a><span class="lineno"> 3281</span>&#160;<span class="comment">!     ---------</span></div><div class="line"><a name="l03282"></a><span class="lineno"> 3282</span>&#160;<span class="comment">!     See OASIS manual (1995) </span></div><div class="line"><a name="l03283"></a><span class="lineno"> 3283</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03284"></a><span class="lineno"> 3284</span>&#160;<span class="comment">!     History:</span></div><div class="line"><a name="l03285"></a><span class="lineno"> 3285</span>&#160;<span class="comment">!     -------</span></div><div class="line"><a name="l03286"></a><span class="lineno"> 3286</span>&#160;<span class="comment">!       Version   Programmer     Date      Description</span></div><div class="line"><a name="l03287"></a><span class="lineno"> 3287</span>&#160;<span class="comment">!       -------   ----------     ----      -----------  </span></div><div class="line"><a name="l03288"></a><span class="lineno"> 3288</span>&#160;<span class="comment">!       2.0       L. Terray      95/10/01  created</span></div><div class="line"><a name="l03289"></a><span class="lineno"> 3289</span>&#160;<span class="comment">!       2.3       L. Terray      99/02/24  modified: X format for NEC</span></div><div class="line"><a name="l03290"></a><span class="lineno"> 3290</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03291"></a><span class="lineno"> 3291</span>&#160;<span class="comment">! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%</span></div><div class="line"><a name="l03292"></a><span class="lineno"> 3292</span>&#160;</div><div class="line"><a name="l03293"></a><span class="lineno"> 3293</span>&#160;  <span class="keywordtype">IMPLICIT NONE</span></div><div class="line"><a name="l03294"></a><span class="lineno"> 3294</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03295"></a><span class="lineno"> 3295</span>&#160;<span class="comment">!* ---------------------------- Include files ---------------------------</span></div><div class="line"><a name="l03296"></a><span class="lineno"> 3296</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03297"></a><span class="lineno"> 3297</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03298"></a><span class="lineno"> 3298</span>&#160;<span class="comment">!* ---------------------------- Argument declarations ----------------------</span></div><div class="line"><a name="l03299"></a><span class="lineno"> 3299</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03300"></a><span class="lineno"> 3300</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">intent(in)</span> :: cdtext<span class="comment">  !&lt; character string to be printed</span></div><div class="line"><a name="l03301"></a><span class="lineno"> 3301</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">intent(in)</span> :: kvalue<span class="comment">  !&lt; integer to be printed</span></div><div class="line"><a name="l03302"></a><span class="lineno"> 3302</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">intent(in)</span> :: kstyle<span class="comment">  !&lt; printing style</span></div><div class="line"><a name="l03303"></a><span class="lineno"> 3303</span>&#160;</div><div class="line"><a name="l03304"></a><span class="lineno"> 3304</span>&#160;<span class="comment">!* ---------------------------- Local declarations ----------------------</span></div><div class="line"><a name="l03305"></a><span class="lineno"> 3305</span>&#160;</div><div class="line"><a name="l03306"></a><span class="lineno"> 3306</span>&#160;  <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span> :: ilen,jl</div><div class="line"><a name="l03307"></a><span class="lineno"> 3307</span>&#160;  <span class="keywordtype">CHARACTER*69</span> cline</div><div class="line"><a name="l03308"></a><span class="lineno"> 3308</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">PARAMETER</span> :: cbase = <span class="stringliteral">&#39;-&#39;</span></div><div class="line"><a name="l03309"></a><span class="lineno"> 3309</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">PARAMETER</span> :: cprpt = <span class="stringliteral">&#39;* ===&gt;&gt;&gt; :&#39;</span></div><div class="line"><a name="l03310"></a><span class="lineno"> 3310</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">PARAMETER</span> :: cdots = <span class="stringliteral">&#39;  ------  &#39;</span></div><div class="line"><a name="l03311"></a><span class="lineno"> 3311</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">parameter</span> :: subname=<span class="stringliteral">&#39;(mod_oasis_namcouple:prtout)&#39;</span></div><div class="line"><a name="l03312"></a><span class="lineno"> 3312</span>&#160;</div><div class="line"><a name="l03313"></a><span class="lineno"> 3313</span>&#160;<span class="comment">!* ---------------------------- Poema verses ----------------------------</span></div><div class="line"><a name="l03314"></a><span class="lineno"> 3314</span>&#160;</div><div class="line"><a name="l03315"></a><span class="lineno"> 3315</span>&#160;<span class="comment">!  CALL oasis_debug_enter(subname)</span></div><div class="line"><a name="l03316"></a><span class="lineno"> 3316</span>&#160;</div><div class="line"><a name="l03317"></a><span class="lineno"> 3317</span>&#160;<span class="comment">! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%</span></div><div class="line"><a name="l03318"></a><span class="lineno"> 3318</span>&#160;</div><div class="line"><a name="l03319"></a><span class="lineno"> 3319</span>&#160;<span class="comment">!*    1. Print CHARACTER string + INTEGER value</span></div><div class="line"><a name="l03320"></a><span class="lineno"> 3320</span>&#160;<span class="comment">!        --------------------------------------</span></div><div class="line"><a name="l03321"></a><span class="lineno"> 3321</span>&#160;</div><div class="line"><a name="l03322"></a><span class="lineno"> 3322</span>&#160;  <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l03323"></a><span class="lineno"> 3323</span>&#160;     <span class="keywordflow">IF</span> ( kstyle .EQ. 1 .OR. kstyle .EQ. 2) <span class="keywordflow">THEN</span></div><div class="line"><a name="l03324"></a><span class="lineno"> 3324</span>&#160;        cline = <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l03325"></a><span class="lineno"> 3325</span>&#160;        ilen = len(cdtext)</div><div class="line"><a name="l03326"></a><span class="lineno"> 3326</span>&#160;        <span class="keywordflow">DO</span> jl = 1, ilen</div><div class="line"><a name="l03327"></a><span class="lineno"> 3327</span>&#160;           cline(jl:jl) = cbase</div><div class="line"><a name="l03328"></a><span class="lineno"> 3328</span>&#160;<span class="keywordflow">        ENDDO</span></div><div class="line"><a name="l03329"></a><span class="lineno"> 3329</span>&#160;          </div><div class="line"><a name="l03330"></a><span class="lineno"> 3330</span>&#160;        <span class="keywordflow">IF</span> ( kstyle .EQ. 2 ) <span class="keywordflow">THEN</span></div><div class="line"><a name="l03331"></a><span class="lineno"> 3331</span>&#160;           <span class="keyword">WRITE</span>(nulprt1, fmt=<span class="stringliteral">&#39;(/,A,1X,A)&#39;</span>) cdots, cline</div><div class="line"><a name="l03332"></a><span class="lineno"> 3332</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l03333"></a><span class="lineno"> 3333</span>&#160;        <span class="keyword">WRITE</span>(nulprt1, fmt=<span class="stringliteral">&#39;(A,1X,A,1X,I18)&#39;</span>) cprpt, cdtext, kvalue</div><div class="line"><a name="l03334"></a><span class="lineno"> 3334</span>&#160;        <span class="keyword">WRITE</span>(nulprt1, fmt=<span class="stringliteral">&#39;(A,1X,A,/)&#39;</span>) cdots, cline</div><div class="line"><a name="l03335"></a><span class="lineno"> 3335</span>&#160;     <span class="keywordflow">ELSE</span></div><div class="line"><a name="l03336"></a><span class="lineno"> 3336</span>&#160;        <span class="keyword">WRITE</span>(nulprt1, fmt=<span class="stringliteral">&#39;(/,A,1X,A,1X,I18,/)&#39;</span>) cprpt, cdtext, kvalue</div><div class="line"><a name="l03337"></a><span class="lineno"> 3337</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l03338"></a><span class="lineno"> 3338</span>&#160;</div><div class="line"><a name="l03339"></a><span class="lineno"> 3339</span>&#160;<span class="comment">!*    2. End of routine</span></div><div class="line"><a name="l03340"></a><span class="lineno"> 3340</span>&#160;<span class="comment">!        --------------</span></div><div class="line"><a name="l03341"></a><span class="lineno"> 3341</span>&#160;</div><div class="line"><a name="l03342"></a><span class="lineno"> 3342</span>&#160;     <span class="keyword">CALL </span>oasis_flush(nulprt1)</div><div class="line"><a name="l03343"></a><span class="lineno"> 3343</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l03344"></a><span class="lineno"> 3344</span>&#160;</div><div class="line"><a name="l03345"></a><span class="lineno"> 3345</span>&#160;<span class="comment">!  CALL oasis_debug_exit(subname)</span></div><div class="line"><a name="l03346"></a><span class="lineno"> 3346</span>&#160;</div><div class="line"><a name="l03347"></a><span class="lineno"> 3347</span>&#160;<span class="keyword">END SUBROUTINE </span><a class="code" href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">prtout</a></div><div class="line"><a name="l03348"></a><span class="lineno"> 3348</span>&#160;</div><div class="line"><a name="l03349"></a><span class="lineno"> 3349</span>&#160;<span class="comment">!===============================================================================</span></div><div class="line"><a name="l03350"></a><span class="lineno"> 3350</span>&#160;<span class="comment"></span></div><div class="line"><a name="l03351"></a><span class="lineno"> 3351</span>&#160;<span class="comment">!&gt; Searches for a particular keyword in the namcouple file</span></div><div class="line"><a name="l03352"></a><span class="lineno"> 3352</span>&#160;</div><div class="line"><a name="l03353"></a><span class="lineno"> 3353</span>&#160;<span class="keyword">SUBROUTINE </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a> (keyword, line, found)</div><div class="line"><a name="l03354"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080"> 3354</a></span>&#160;</div><div class="line"><a name="l03355"></a><span class="lineno"> 3355</span>&#160;<span class="comment">!****</span></div><div class="line"><a name="l03356"></a><span class="lineno"> 3356</span>&#160;<span class="comment">!               *****************************</span></div><div class="line"><a name="l03357"></a><span class="lineno"> 3357</span>&#160;<span class="comment">!               * OASIS ROUTINE  -  LEVEL T *</span></div><div class="line"><a name="l03358"></a><span class="lineno"> 3358</span>&#160;<span class="comment">!               * -------------     ------- *</span></div><div class="line"><a name="l03359"></a><span class="lineno"> 3359</span>&#160;<span class="comment">!               *****************************</span></div><div class="line"><a name="l03360"></a><span class="lineno"> 3360</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03361"></a><span class="lineno"> 3361</span>&#160;<span class="comment">!**** *findkeyword*  - Searches for a particular keyword in the namcouple file</span></div><div class="line"><a name="l03362"></a><span class="lineno"> 3362</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03363"></a><span class="lineno"> 3363</span>&#160;<span class="comment">!     Purpose:</span></div><div class="line"><a name="l03364"></a><span class="lineno"> 3364</span>&#160;<span class="comment">!     -------</span></div><div class="line"><a name="l03365"></a><span class="lineno"> 3365</span>&#160;<span class="comment">!     Find the line with the specified keyword</span></div><div class="line"><a name="l03366"></a><span class="lineno"> 3366</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03367"></a><span class="lineno"> 3367</span>&#160;<span class="comment">!**   Interface:</span></div><div class="line"><a name="l03368"></a><span class="lineno"> 3368</span>&#160;<span class="comment">!     ---------</span></div><div class="line"><a name="l03369"></a><span class="lineno"> 3369</span>&#160;<span class="comment">!       *CALL*  *findkeyword (keyword, line, found) *</span></div><div class="line"><a name="l03370"></a><span class="lineno"> 3370</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03371"></a><span class="lineno"> 3371</span>&#160;<span class="comment">!     Input:</span></div><div class="line"><a name="l03372"></a><span class="lineno"> 3372</span>&#160;<span class="comment">!     -----</span></div><div class="line"><a name="l03373"></a><span class="lineno"> 3373</span>&#160;<span class="comment">!                keyword : string to search for (CHARACTER string)</span></div><div class="line"><a name="l03374"></a><span class="lineno"> 3374</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03375"></a><span class="lineno"> 3375</span>&#160;<span class="comment">!     Output:</span></div><div class="line"><a name="l03376"></a><span class="lineno"> 3376</span>&#160;<span class="comment">!     ------</span></div><div class="line"><a name="l03377"></a><span class="lineno"> 3377</span>&#160;<span class="comment">!                line    : full line that contains the keyword (CHARACTER string)</span></div><div class="line"><a name="l03378"></a><span class="lineno"> 3378</span>&#160;<span class="comment">!                found   : flag indicating whether keyword was found (logical)</span></div><div class="line"><a name="l03379"></a><span class="lineno"> 3379</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03380"></a><span class="lineno"> 3380</span>&#160;<span class="comment">!     History:</span></div><div class="line"><a name="l03381"></a><span class="lineno"> 3381</span>&#160;<span class="comment">!     -------</span></div><div class="line"><a name="l03382"></a><span class="lineno"> 3382</span>&#160;<span class="comment">!       Version   Programmer     Date      Description</span></div><div class="line"><a name="l03383"></a><span class="lineno"> 3383</span>&#160;<span class="comment">!       -------   ----------     ----      -----------  </span></div><div class="line"><a name="l03384"></a><span class="lineno"> 3384</span>&#160;<span class="comment">!       3.3       T. Craig     2016/08/02  created</span></div><div class="line"><a name="l03385"></a><span class="lineno"> 3385</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03386"></a><span class="lineno"> 3386</span>&#160;<span class="comment">! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%</span></div><div class="line"><a name="l03387"></a><span class="lineno"> 3387</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03388"></a><span class="lineno"> 3388</span>&#160;  <span class="keywordtype">IMPLICIT NONE</span></div><div class="line"><a name="l03389"></a><span class="lineno"> 3389</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03390"></a><span class="lineno"> 3390</span>&#160;<span class="comment">!* ---------------------------- Include files ---------------------------</span></div><div class="line"><a name="l03391"></a><span class="lineno"> 3391</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03392"></a><span class="lineno"> 3392</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03393"></a><span class="lineno"> 3393</span>&#160;<span class="comment">!* ---------------------------- Argument declarations -------------------</span></div><div class="line"><a name="l03394"></a><span class="lineno"> 3394</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03395"></a><span class="lineno"> 3395</span>&#160;  <span class="keywordtype">CHARACTER (len=*)</span>        , <span class="keywordtype">INTENT ( in)</span> :: keyword<span class="comment">  !&lt; keyword string</span></div><div class="line"><a name="l03396"></a><span class="lineno"> 3396</span>&#160;  <span class="keywordtype">CHARACTER (len=*)</span>        , <span class="keywordtype">INTENT (out)</span> :: line<span class="comment">     !&lt; line containing keyword</span></div><div class="line"><a name="l03397"></a><span class="lineno"> 3397</span>&#160;  <span class="keywordtype">LOGICAL</span>                  , <span class="keywordtype">INTENT (out)</span> :: found<span class="comment">    !&lt; flag if keyword was found</span></div><div class="line"><a name="l03398"></a><span class="lineno"> 3398</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03399"></a><span class="lineno"> 3399</span>&#160;<span class="comment">!* ---------------------------- Local declarations -------------------</span></div><div class="line"><a name="l03400"></a><span class="lineno"> 3400</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03401"></a><span class="lineno"> 3401</span>&#160;  <span class="keywordtype">CHARACTER (len=jpeighty)</span> :: clline</div><div class="line"><a name="l03402"></a><span class="lineno"> 3402</span>&#160;  <span class="keywordtype">CHARACTER (len=jpeighty)</span> :: clvari</div><div class="line"><a name="l03403"></a><span class="lineno"> 3403</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>:: ILEN, ios, ios2</div><div class="line"><a name="l03404"></a><span class="lineno"> 3404</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">parameter</span> :: subname=<span class="stringliteral">&#39;(mod_oasis_namcouple:findkeyword)&#39;</span></div><div class="line"><a name="l03405"></a><span class="lineno"> 3405</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03406"></a><span class="lineno"> 3406</span>&#160;<span class="comment">!* ---------------------------- Poema verses ----------------------------</span></div><div class="line"><a name="l03407"></a><span class="lineno"> 3407</span>&#160;</div><div class="line"><a name="l03408"></a><span class="lineno"> 3408</span>&#160;<span class="comment">! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%</span></div><div class="line"><a name="l03409"></a><span class="lineno"> 3409</span>&#160;</div><div class="line"><a name="l03410"></a><span class="lineno"> 3410</span>&#160;<span class="comment">!  CALL oasis_debug_enter(subname)</span></div><div class="line"><a name="l03411"></a><span class="lineno"> 3411</span>&#160;</div><div class="line"><a name="l03412"></a><span class="lineno"> 3412</span>&#160;  found = .false.</div><div class="line"><a name="l03413"></a><span class="lineno"> 3413</span>&#160;  ios2 = 0 </div><div class="line"><a name="l03414"></a><span class="lineno"> 3414</span>&#160;</div><div class="line"><a name="l03415"></a><span class="lineno"> 3415</span>&#160;  rewind <a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a></div><div class="line"><a name="l03416"></a><span class="lineno"> 3416</span>&#160;  <span class="keywordflow">DO</span> <span class="keywordflow">WHILE</span> (.not.found)</div><div class="line"><a name="l03417"></a><span class="lineno"> 3417</span>&#160;     <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>, end=110, iostat=ios2) clline</div><div class="line"><a name="l03418"></a><span class="lineno"> 3418</span>&#160;     <span class="keywordflow">if</span> (ios2 == 0) <span class="keywordflow">then</span></div><div class="line"><a name="l03419"></a><span class="lineno"> 3419</span>&#160;       <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a>(clline,<a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ios=ios)</div><div class="line"><a name="l03420"></a><span class="lineno"> 3420</span>&#160;<span class="comment">!      write(nulprt1,*) trim(subname),&#39;tcx1: &#39;,trim(clline)</span></div><div class="line"><a name="l03421"></a><span class="lineno"> 3421</span>&#160;       <span class="keywordflow">IF</span> (ios == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l03422"></a><span class="lineno"> 3422</span>&#160;         <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a>(clline, clvari, 1, <a class="code" href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">jpeighty</a>, ilen, __line__)</div><div class="line"><a name="l03423"></a><span class="lineno"> 3423</span>&#160;<span class="comment">!        write(nulprt1,*) trim(subname),&#39;tcx2: &#39;,trim(clvari),trim(keyword)</span></div><div class="line"><a name="l03424"></a><span class="lineno"> 3424</span>&#160;         <span class="keywordflow">IF</span> (clvari == adjustl(keyword)) <span class="keywordflow">THEN</span></div><div class="line"><a name="l03425"></a><span class="lineno"> 3425</span>&#160;             line = clline</div><div class="line"><a name="l03426"></a><span class="lineno"> 3426</span>&#160;             found = .true.</div><div class="line"><a name="l03427"></a><span class="lineno"> 3427</span>&#160;<span class="keywordflow">         ENDIF</span></div><div class="line"><a name="l03428"></a><span class="lineno"> 3428</span>&#160;<span class="keywordflow">       ENDIF</span></div><div class="line"><a name="l03429"></a><span class="lineno"> 3429</span>&#160;     <span class="keywordflow">else</span></div><div class="line"><a name="l03430"></a><span class="lineno"> 3430</span>&#160;       <span class="keywordflow">goto</span> 110</div><div class="line"><a name="l03431"></a><span class="lineno"> 3431</span>&#160;<span class="keywordflow">     endif</span></div><div class="line"><a name="l03432"></a><span class="lineno"> 3432</span>&#160;<span class="keywordflow">  ENDDO</span></div><div class="line"><a name="l03433"></a><span class="lineno"> 3433</span>&#160;</div><div class="line"><a name="l03434"></a><span class="lineno"> 3434</span>&#160;110 <span class="keywordflow">CONTINUE</span></div><div class="line"><a name="l03435"></a><span class="lineno"> 3435</span>&#160;</div><div class="line"><a name="l03436"></a><span class="lineno"> 3436</span>&#160;<span class="comment">!  CALL oasis_debug_exit(subname)</span></div><div class="line"><a name="l03437"></a><span class="lineno"> 3437</span>&#160;  <span class="keywordflow">return</span></div><div class="line"><a name="l03438"></a><span class="lineno"> 3438</span>&#160;</div><div class="line"><a name="l03439"></a><span class="lineno"> 3439</span>&#160;<span class="keyword">END SUBROUTINE </span><a class="code" href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">findkeyword</a></div><div class="line"><a name="l03440"></a><span class="lineno"> 3440</span>&#160;</div><div class="line"><a name="l03441"></a><span class="lineno"> 3441</span>&#160;<span class="comment">!===============================================================================</span></div><div class="line"><a name="l03442"></a><span class="lineno"> 3442</span>&#160;</div><div class="line"><a name="l03443"></a><span class="lineno"> 3443</span>&#160;<span class="comment">!&lt; Checks whether a line is a comment line</span></div><div class="line"><a name="l03444"></a><span class="lineno"> 3444</span>&#160;</div><div class="line"><a name="l03445"></a><span class="lineno"> 3445</span>&#160;<span class="keyword">LOGICAL </span><span class="keyword">FUNCTION </span><a class="code" href="namespacemod__oasis__namcouple.html#a4551fbe4bcd69bc6d0d4f6e1ee52ea86">checkcomment</a> (line)</div><div class="line"><a name="l03446"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a4551fbe4bcd69bc6d0d4f6e1ee52ea86"> 3446</a></span>&#160;</div><div class="line"><a name="l03447"></a><span class="lineno"> 3447</span>&#160;<span class="comment">!****</span></div><div class="line"><a name="l03448"></a><span class="lineno"> 3448</span>&#160;<span class="comment">!               *****************************</span></div><div class="line"><a name="l03449"></a><span class="lineno"> 3449</span>&#160;<span class="comment">!               * OASIS ROUTINE  -  LEVEL T *</span></div><div class="line"><a name="l03450"></a><span class="lineno"> 3450</span>&#160;<span class="comment">!               * -------------     ------- *</span></div><div class="line"><a name="l03451"></a><span class="lineno"> 3451</span>&#160;<span class="comment">!               *****************************</span></div><div class="line"><a name="l03452"></a><span class="lineno"> 3452</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03453"></a><span class="lineno"> 3453</span>&#160;<span class="comment">!**** *checkcomment*  - Checks whether the line is a comment line (starts with # or is blank)</span></div><div class="line"><a name="l03454"></a><span class="lineno"> 3454</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03455"></a><span class="lineno"> 3455</span>&#160;<span class="comment">!     Purpose:</span></div><div class="line"><a name="l03456"></a><span class="lineno"> 3456</span>&#160;<span class="comment">!     -------</span></div><div class="line"><a name="l03457"></a><span class="lineno"> 3457</span>&#160;<span class="comment">!     Check whether a line is a comment line or a blank line</span></div><div class="line"><a name="l03458"></a><span class="lineno"> 3458</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03459"></a><span class="lineno"> 3459</span>&#160;<span class="comment">!**   Interface:</span></div><div class="line"><a name="l03460"></a><span class="lineno"> 3460</span>&#160;<span class="comment">!     ---------</span></div><div class="line"><a name="l03461"></a><span class="lineno"> 3461</span>&#160;<span class="comment">!       flag = checkcomment (line) *</span></div><div class="line"><a name="l03462"></a><span class="lineno"> 3462</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03463"></a><span class="lineno"> 3463</span>&#160;<span class="comment">!     Input:</span></div><div class="line"><a name="l03464"></a><span class="lineno"> 3464</span>&#160;<span class="comment">!     -----</span></div><div class="line"><a name="l03465"></a><span class="lineno"> 3465</span>&#160;<span class="comment">!                line : full line to test</span></div><div class="line"><a name="l03466"></a><span class="lineno"> 3466</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03467"></a><span class="lineno"> 3467</span>&#160;<span class="comment">!     Output:</span></div><div class="line"><a name="l03468"></a><span class="lineno"> 3468</span>&#160;<span class="comment">!     ------</span></div><div class="line"><a name="l03469"></a><span class="lineno"> 3469</span>&#160;<span class="comment">!                checkcomment : flag indicating whether line is a comment line or not</span></div><div class="line"><a name="l03470"></a><span class="lineno"> 3470</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03471"></a><span class="lineno"> 3471</span>&#160;<span class="comment">!     History:</span></div><div class="line"><a name="l03472"></a><span class="lineno"> 3472</span>&#160;<span class="comment">!     -------</span></div><div class="line"><a name="l03473"></a><span class="lineno"> 3473</span>&#160;<span class="comment">!       Version   Programmer     Date      Description</span></div><div class="line"><a name="l03474"></a><span class="lineno"> 3474</span>&#160;<span class="comment">!       -------   ----------     ----      -----------  </span></div><div class="line"><a name="l03475"></a><span class="lineno"> 3475</span>&#160;<span class="comment">!       3.3       T. Craig     2016/08/02  created</span></div><div class="line"><a name="l03476"></a><span class="lineno"> 3476</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03477"></a><span class="lineno"> 3477</span>&#160;<span class="comment">! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%</span></div><div class="line"><a name="l03478"></a><span class="lineno"> 3478</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03479"></a><span class="lineno"> 3479</span>&#160;  <span class="keywordtype">IMPLICIT NONE</span></div><div class="line"><a name="l03480"></a><span class="lineno"> 3480</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03481"></a><span class="lineno"> 3481</span>&#160;<span class="comment">!* ---------------------------- Include files ---------------------------</span></div><div class="line"><a name="l03482"></a><span class="lineno"> 3482</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03483"></a><span class="lineno"> 3483</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03484"></a><span class="lineno"> 3484</span>&#160;<span class="comment">!* ---------------------------- Argument declarations -------------------</span></div><div class="line"><a name="l03485"></a><span class="lineno"> 3485</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03486"></a><span class="lineno"> 3486</span>&#160;  <span class="keywordtype">CHARACTER (len=*)</span>        , <span class="keywordtype">INTENT (in)</span> :: line<span class="comment">  !&lt; input character line</span></div><div class="line"><a name="l03487"></a><span class="lineno"> 3487</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03488"></a><span class="lineno"> 3488</span>&#160;<span class="comment">!* ---------------------------- Local declarations -------------------</span></div><div class="line"><a name="l03489"></a><span class="lineno"> 3489</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03490"></a><span class="lineno"> 3490</span>&#160;  <span class="keywordtype">CHARACTER (len=jpeighty)</span> :: clline</div><div class="line"><a name="l03491"></a><span class="lineno"> 3491</span>&#160;  <span class="keywordtype">CHARACTER (len=1)</span>, <span class="keywordtype">SAVE</span> :: clblank = <span class="stringliteral">&#39; &#39;</span>, clcmt = <span class="stringliteral">&#39;#&#39;</span></div><div class="line"><a name="l03492"></a><span class="lineno"> 3492</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">parameter</span> :: subname=<span class="stringliteral">&#39;(mod_oasis_namcouple:checkcomment)&#39;</span></div><div class="line"><a name="l03493"></a><span class="lineno"> 3493</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03494"></a><span class="lineno"> 3494</span>&#160;<span class="comment">!* ---------------------------- Poema verses ----------------------------</span></div><div class="line"><a name="l03495"></a><span class="lineno"> 3495</span>&#160;</div><div class="line"><a name="l03496"></a><span class="lineno"> 3496</span>&#160;<span class="comment">! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%</span></div><div class="line"><a name="l03497"></a><span class="lineno"> 3497</span>&#160;</div><div class="line"><a name="l03498"></a><span class="lineno"> 3498</span>&#160;<span class="comment">!  CALL oasis_debug_enter(subname)</span></div><div class="line"><a name="l03499"></a><span class="lineno"> 3499</span>&#160;</div><div class="line"><a name="l03500"></a><span class="lineno"> 3500</span>&#160;  <a class="code" href="namespacemod__oasis__namcouple.html#a4551fbe4bcd69bc6d0d4f6e1ee52ea86">checkcomment</a> = .false.</div><div class="line"><a name="l03501"></a><span class="lineno"> 3501</span>&#160;</div><div class="line"><a name="l03502"></a><span class="lineno"> 3502</span>&#160;  clline = adjustl(line)</div><div class="line"><a name="l03503"></a><span class="lineno"> 3503</span>&#160;  <span class="keywordflow">IF</span> (clline(1:1) == clcmt .or. len_trim(clline) == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l03504"></a><span class="lineno"> 3504</span>&#160;     <a class="code" href="namespacemod__oasis__namcouple.html#a4551fbe4bcd69bc6d0d4f6e1ee52ea86">checkcomment</a> = .true.</div><div class="line"><a name="l03505"></a><span class="lineno"> 3505</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l03506"></a><span class="lineno"> 3506</span>&#160;</div><div class="line"><a name="l03507"></a><span class="lineno"> 3507</span>&#160;<span class="comment">!  CALL oasis_debug_exit(subname)</span></div><div class="line"><a name="l03508"></a><span class="lineno"> 3508</span>&#160;  <span class="keywordflow">return</span></div><div class="line"><a name="l03509"></a><span class="lineno"> 3509</span>&#160;</div><div class="line"><a name="l03510"></a><span class="lineno"> 3510</span>&#160;<span class="keyword">END FUNCTION </span><a class="code" href="namespacemod__oasis__namcouple.html#a4551fbe4bcd69bc6d0d4f6e1ee52ea86">checkcomment</a></div><div class="line"><a name="l03511"></a><span class="lineno"> 3511</span>&#160;</div><div class="line"><a name="l03512"></a><span class="lineno"> 3512</span>&#160;<span class="comment">!===============================================================================</span></div><div class="line"><a name="l03513"></a><span class="lineno"> 3513</span>&#160;<span class="comment"></span></div><div class="line"><a name="l03514"></a><span class="lineno"> 3514</span>&#160;<span class="comment">!&gt; Subroutine to parse string</span></div><div class="line"><a name="l03515"></a><span class="lineno"> 3515</span>&#160;</div><div class="line"><a name="l03516"></a><span class="lineno"> 3516</span>&#160;<span class="keyword">SUBROUTINE </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a> (cdone, cdtwo, knumb, klen, kleng, line)</div><div class="line"><a name="l03517"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c"> 3517</a></span>&#160;</div><div class="line"><a name="l03518"></a><span class="lineno"> 3518</span>&#160;<span class="comment">!****</span></div><div class="line"><a name="l03519"></a><span class="lineno"> 3519</span>&#160;<span class="comment">!               *****************************</span></div><div class="line"><a name="l03520"></a><span class="lineno"> 3520</span>&#160;<span class="comment">!               * OASIS ROUTINE  -  LEVEL T *</span></div><div class="line"><a name="l03521"></a><span class="lineno"> 3521</span>&#160;<span class="comment">!               * -------------     ------- *</span></div><div class="line"><a name="l03522"></a><span class="lineno"> 3522</span>&#160;<span class="comment">!               *****************************</span></div><div class="line"><a name="l03523"></a><span class="lineno"> 3523</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03524"></a><span class="lineno"> 3524</span>&#160;<span class="comment">!**** *parse*  - Parsing routine</span></div><div class="line"><a name="l03525"></a><span class="lineno"> 3525</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03526"></a><span class="lineno"> 3526</span>&#160;<span class="comment">!     Purpose:</span></div><div class="line"><a name="l03527"></a><span class="lineno"> 3527</span>&#160;<span class="comment">!     -------</span></div><div class="line"><a name="l03528"></a><span class="lineno"> 3528</span>&#160;<span class="comment">!     Find the knumb&#39;th string in cdone and put it in cdtwo.</span></div><div class="line"><a name="l03529"></a><span class="lineno"> 3529</span>&#160;<span class="comment">!     A string is defined as a continuous set of non-blanks CHARACTERs</span></div><div class="line"><a name="l03530"></a><span class="lineno"> 3530</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03531"></a><span class="lineno"> 3531</span>&#160;<span class="comment">!**   Interface:</span></div><div class="line"><a name="l03532"></a><span class="lineno"> 3532</span>&#160;<span class="comment">!     ---------</span></div><div class="line"><a name="l03533"></a><span class="lineno"> 3533</span>&#160;<span class="comment">!       *CALL*  *parse (cdone, cdtwo, knumb, klen, kleng)*</span></div><div class="line"><a name="l03534"></a><span class="lineno"> 3534</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03535"></a><span class="lineno"> 3535</span>&#160;<span class="comment">!     Input:</span></div><div class="line"><a name="l03536"></a><span class="lineno"> 3536</span>&#160;<span class="comment">!     -----</span></div><div class="line"><a name="l03537"></a><span class="lineno"> 3537</span>&#160;<span class="comment">!                cdone : line to be parsed (char string)</span></div><div class="line"><a name="l03538"></a><span class="lineno"> 3538</span>&#160;<span class="comment">!                knumb : rank within the line of the extracted string (INTEGER)</span></div><div class="line"><a name="l03539"></a><span class="lineno"> 3539</span>&#160;<span class="comment">!                klen  : length of the input line (INTEGER)</span></div><div class="line"><a name="l03540"></a><span class="lineno"> 3540</span>&#160;<span class="comment">!                line  : line where parse is called (INTEGER)</span></div><div class="line"><a name="l03541"></a><span class="lineno"> 3541</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03542"></a><span class="lineno"> 3542</span>&#160;<span class="comment">!     Output:</span></div><div class="line"><a name="l03543"></a><span class="lineno"> 3543</span>&#160;<span class="comment">!     ------</span></div><div class="line"><a name="l03544"></a><span class="lineno"> 3544</span>&#160;<span class="comment">!                cdtwo : extracted CHARACTER string (char string)</span></div><div class="line"><a name="l03545"></a><span class="lineno"> 3545</span>&#160;<span class="comment">!                kleng : length of the extracted string (INTEGER)</span></div><div class="line"><a name="l03546"></a><span class="lineno"> 3546</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03547"></a><span class="lineno"> 3547</span>&#160;<span class="comment">!     Workspace:</span></div><div class="line"><a name="l03548"></a><span class="lineno"> 3548</span>&#160;<span class="comment">!     ---------</span></div><div class="line"><a name="l03549"></a><span class="lineno"> 3549</span>&#160;<span class="comment">!     None</span></div><div class="line"><a name="l03550"></a><span class="lineno"> 3550</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03551"></a><span class="lineno"> 3551</span>&#160;<span class="comment">!     Externals:</span></div><div class="line"><a name="l03552"></a><span class="lineno"> 3552</span>&#160;<span class="comment">!     ---------</span></div><div class="line"><a name="l03553"></a><span class="lineno"> 3553</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03554"></a><span class="lineno"> 3554</span>&#160;<span class="comment">!     Reference:</span></div><div class="line"><a name="l03555"></a><span class="lineno"> 3555</span>&#160;<span class="comment">!     ---------</span></div><div class="line"><a name="l03556"></a><span class="lineno"> 3556</span>&#160;<span class="comment">!     See OASIS manual (1995)</span></div><div class="line"><a name="l03557"></a><span class="lineno"> 3557</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03558"></a><span class="lineno"> 3558</span>&#160;<span class="comment">!     History:</span></div><div class="line"><a name="l03559"></a><span class="lineno"> 3559</span>&#160;<span class="comment">!     -------</span></div><div class="line"><a name="l03560"></a><span class="lineno"> 3560</span>&#160;<span class="comment">!       Version   Programmer     Date      Description</span></div><div class="line"><a name="l03561"></a><span class="lineno"> 3561</span>&#160;<span class="comment">!       -------   ----------     ----      -----------  </span></div><div class="line"><a name="l03562"></a><span class="lineno"> 3562</span>&#160;<span class="comment">!       2.0       L. Terray      95/09/01  created</span></div><div class="line"><a name="l03563"></a><span class="lineno"> 3563</span>&#160;<span class="comment">!                 O. Marti     2000/11/08  simplify by using F90 </span></div><div class="line"><a name="l03564"></a><span class="lineno"> 3564</span>&#160;<span class="comment">!                                          CHARACTER functions</span></div><div class="line"><a name="l03565"></a><span class="lineno"> 3565</span>&#160;<span class="comment">!       3.3       T. Craig     2016/08/02  updated</span></div><div class="line"><a name="l03566"></a><span class="lineno"> 3566</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03567"></a><span class="lineno"> 3567</span>&#160;<span class="comment">! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%</span></div><div class="line"><a name="l03568"></a><span class="lineno"> 3568</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03569"></a><span class="lineno"> 3569</span>&#160;  <span class="keywordtype">IMPLICIT NONE</span></div><div class="line"><a name="l03570"></a><span class="lineno"> 3570</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03571"></a><span class="lineno"> 3571</span>&#160;<span class="comment">!* ---------------------------- Include files ---------------------------</span></div><div class="line"><a name="l03572"></a><span class="lineno"> 3572</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03573"></a><span class="lineno"> 3573</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03574"></a><span class="lineno"> 3574</span>&#160;<span class="comment">!* ---------------------------- Argument declarations -------------------</span></div><div class="line"><a name="l03575"></a><span class="lineno"> 3575</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03576"></a><span class="lineno"> 3576</span>&#160;  <span class="keywordtype">CHARACTER (len=*)</span>      , <span class="keywordtype">INTENT (inout)</span> :: cdone<span class="comment"> !&lt; line to parse</span></div><div class="line"><a name="l03577"></a><span class="lineno"> 3577</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">INTENT ( in)</span> :: knumb<span class="comment"> !&lt; rank within line of extracted string</span></div><div class="line"><a name="l03578"></a><span class="lineno"> 3578</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">INTENT ( in)</span> :: klen<span class="comment">  !&lt; length of input line</span></div><div class="line"><a name="l03579"></a><span class="lineno"> 3579</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">INTENT ( in)</span> :: line<span class="comment">  !&lt; file line number of call</span></div><div class="line"><a name="l03580"></a><span class="lineno"> 3580</span>&#160;  <span class="keywordtype">CHARACTER (len=*)</span>        , <span class="keywordtype">INTENT (out)</span> :: cdtwo<span class="comment"> !&lt; extracted string</span></div><div class="line"><a name="l03581"></a><span class="lineno"> 3581</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">INTENT (out)</span> :: kleng<span class="comment"> !&lt; length of extracted string</span></div><div class="line"><a name="l03582"></a><span class="lineno"> 3582</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03583"></a><span class="lineno"> 3583</span>&#160;<span class="comment">!* ---------------------------- Local declarations -------------------</span></div><div class="line"><a name="l03584"></a><span class="lineno"> 3584</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03585"></a><span class="lineno"> 3585</span>&#160;  <span class="keywordtype">INTEGER(kind=ip_intwp_p)</span> :: ii,jl</div><div class="line"><a name="l03586"></a><span class="lineno"> 3586</span>&#160;  <span class="keywordtype">CHARACTER (len=klen)</span> :: clline</div><div class="line"><a name="l03587"></a><span class="lineno"> 3587</span>&#160;  <span class="keywordtype">CHARACTER (len=klen)</span> :: clwork</div><div class="line"><a name="l03588"></a><span class="lineno"> 3588</span>&#160;  <span class="keywordtype">CHARACTER (len=1)</span>, <span class="keywordtype">SAVE</span> :: clblank = <span class="stringliteral">&#39; &#39;</span>, clcmt = <span class="stringliteral">&#39;#&#39;</span></div><div class="line"><a name="l03589"></a><span class="lineno"> 3589</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">parameter</span> :: subname=<span class="stringliteral">&#39;(mod_oasis_namcouple:parse)&#39;</span></div><div class="line"><a name="l03590"></a><span class="lineno"> 3590</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03591"></a><span class="lineno"> 3591</span>&#160;<span class="comment">!* ---------------------------- Poema verses ----------------------------</span></div><div class="line"><a name="l03592"></a><span class="lineno"> 3592</span>&#160;</div><div class="line"><a name="l03593"></a><span class="lineno"> 3593</span>&#160;<span class="comment">!  CALL oasis_debug_enter(subname)</span></div><div class="line"><a name="l03594"></a><span class="lineno"> 3594</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03595"></a><span class="lineno"> 3595</span>&#160;<span class="comment">! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%</span></div><div class="line"><a name="l03596"></a><span class="lineno"> 3596</span>&#160;</div><div class="line"><a name="l03597"></a><span class="lineno"> 3597</span>&#160;<span class="comment">!* - Abort if line is a comment</span></div><div class="line"><a name="l03598"></a><span class="lineno"> 3598</span>&#160;</div><div class="line"><a name="l03599"></a><span class="lineno"> 3599</span>&#160;  <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a4551fbe4bcd69bc6d0d4f6e1ee52ea86">checkcomment</a>(cdone)) <span class="keywordflow">THEN</span></div><div class="line"><a name="l03600"></a><span class="lineno"> 3600</span>&#160;     <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) subname,<span class="stringliteral">&#39; ERROR comment line found:&#39;</span>, trim(cdone)</div><div class="line"><a name="l03601"></a><span class="lineno"> 3601</span>&#160;     <span class="keyword">write</span>(<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>,*) subname,<span class="stringliteral">&#39; ERROR called from :&#39;</span>,line</div><div class="line"><a name="l03602"></a><span class="lineno"> 3602</span>&#160;     <span class="keyword">CALL </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(subname,__line__,<a class="code" href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">tmpstr1</a>)</div><div class="line"><a name="l03603"></a><span class="lineno"> 3603</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l03604"></a><span class="lineno"> 3604</span>&#160;</div><div class="line"><a name="l03605"></a><span class="lineno"> 3605</span>&#160;<span class="comment">!* - DO the extraction job</span></div><div class="line"><a name="l03606"></a><span class="lineno"> 3606</span>&#160;<span class="comment">!* - Fill temporary string and remove leading blanks</span></div><div class="line"><a name="l03607"></a><span class="lineno"> 3607</span>&#160;</div><div class="line"><a name="l03608"></a><span class="lineno"> 3608</span>&#160;  clwork = adjustl(cdone)</div><div class="line"><a name="l03609"></a><span class="lineno"> 3609</span>&#160;</div><div class="line"><a name="l03610"></a><span class="lineno"> 3610</span>&#160;<span class="comment">!* - Fill cdtwo with blanks</span></div><div class="line"><a name="l03611"></a><span class="lineno"> 3611</span>&#160;</div><div class="line"><a name="l03612"></a><span class="lineno"> 3612</span>&#160;  cdtwo = clblank</div><div class="line"><a name="l03613"></a><span class="lineno"> 3613</span>&#160;</div><div class="line"><a name="l03614"></a><span class="lineno"> 3614</span>&#160;<span class="comment">!* - If there are no more CHARACTERs, kleng=-1</span></div><div class="line"><a name="l03615"></a><span class="lineno"> 3615</span>&#160;</div><div class="line"><a name="l03616"></a><span class="lineno"> 3616</span>&#160;  <span class="keywordflow">IF</span> ( len_trim( clwork) .LE. 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l03617"></a><span class="lineno"> 3617</span>&#160;     kleng = -1</div><div class="line"><a name="l03618"></a><span class="lineno"> 3618</span>&#160;<span class="comment">!     CALL oasis_debug_exit(subname)</span></div><div class="line"><a name="l03619"></a><span class="lineno"> 3619</span>&#160;     <span class="keywordflow">RETURN</span></div><div class="line"><a name="l03620"></a><span class="lineno"> 3620</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l03621"></a><span class="lineno"> 3621</span>&#160;</div><div class="line"><a name="l03622"></a><span class="lineno"> 3622</span>&#160;<span class="comment">!* - If this is the one we&#39;re looking for, skip</span></div><div class="line"><a name="l03623"></a><span class="lineno"> 3623</span>&#160;<span class="comment">!    otherwise go knumb-1 more sets of CHARACTERs</span></div><div class="line"><a name="l03624"></a><span class="lineno"> 3624</span>&#160;</div><div class="line"><a name="l03625"></a><span class="lineno"> 3625</span>&#160;  <span class="keywordflow">IF</span> (knumb .GE. 2) <span class="keywordflow">THEN</span></div><div class="line"><a name="l03626"></a><span class="lineno"> 3626</span>&#160;     <span class="keywordflow">DO</span> jl = 1, knumb-1</div><div class="line"><a name="l03627"></a><span class="lineno"> 3627</span>&#160;        ii = index( clwork, clblank) - 1</div><div class="line"><a name="l03628"></a><span class="lineno"> 3628</span>&#160;        clwork( 1:ii) = clblank</div><div class="line"><a name="l03629"></a><span class="lineno"> 3629</span>&#160;        clwork = adjustl( clwork)</div><div class="line"><a name="l03630"></a><span class="lineno"> 3630</span>&#160;</div><div class="line"><a name="l03631"></a><span class="lineno"> 3631</span>&#160;<span class="comment">!* - If there are no more CHARACTERs, kleng=-1</span></div><div class="line"><a name="l03632"></a><span class="lineno"> 3632</span>&#160;</div><div class="line"><a name="l03633"></a><span class="lineno"> 3633</span>&#160;        <span class="keywordflow">IF</span> (len_trim( clwork) .LE. 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l03634"></a><span class="lineno"> 3634</span>&#160;           kleng = -1</div><div class="line"><a name="l03635"></a><span class="lineno"> 3635</span>&#160;<span class="comment">!           CALL oasis_debug_exit(subname)</span></div><div class="line"><a name="l03636"></a><span class="lineno"> 3636</span>&#160;           <span class="keywordflow">RETURN</span></div><div class="line"><a name="l03637"></a><span class="lineno"> 3637</span>&#160;<span class="keywordflow">        ENDIF</span></div><div class="line"><a name="l03638"></a><span class="lineno"> 3638</span>&#160;<span class="keywordflow">     ENDDO</span></div><div class="line"><a name="l03639"></a><span class="lineno"> 3639</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l03640"></a><span class="lineno"> 3640</span>&#160;</div><div class="line"><a name="l03641"></a><span class="lineno"> 3641</span>&#160;<span class="comment">!* - Find the length of this set of CHARACTERs</span></div><div class="line"><a name="l03642"></a><span class="lineno"> 3642</span>&#160;</div><div class="line"><a name="l03643"></a><span class="lineno"> 3643</span>&#160;  kleng = index( clwork, clblank) - 1</div><div class="line"><a name="l03644"></a><span class="lineno"> 3644</span>&#160;</div><div class="line"><a name="l03645"></a><span class="lineno"> 3645</span>&#160;<span class="comment">!* - Copy to cdtwo</span></div><div class="line"><a name="l03646"></a><span class="lineno"> 3646</span>&#160;</div><div class="line"><a name="l03647"></a><span class="lineno"> 3647</span>&#160;  cdtwo( 1:kleng) = clwork( 1: kleng)</div><div class="line"><a name="l03648"></a><span class="lineno"> 3648</span>&#160;</div><div class="line"><a name="l03649"></a><span class="lineno"> 3649</span>&#160;<span class="comment">!  CALL oasis_debug_exit(subname)</span></div><div class="line"><a name="l03650"></a><span class="lineno"> 3650</span>&#160;</div><div class="line"><a name="l03651"></a><span class="lineno"> 3651</span>&#160;  <span class="keywordflow">return</span></div><div class="line"><a name="l03652"></a><span class="lineno"> 3652</span>&#160;</div><div class="line"><a name="l03653"></a><span class="lineno"> 3653</span>&#160;<span class="keyword">END SUBROUTINE </span><a class="code" href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">parse</a></div><div class="line"><a name="l03654"></a><span class="lineno"> 3654</span>&#160;</div><div class="line"><a name="l03655"></a><span class="lineno"> 3655</span>&#160;<span class="comment">!===============================================================================</span></div><div class="line"><a name="l03656"></a><span class="lineno"> 3656</span>&#160;</div><div class="line"><a name="l03657"></a><span class="lineno"> 3657</span>&#160;<span class="comment">!&lt; subroutine to fine next non-comment line</span></div><div class="line"><a name="l03658"></a><span class="lineno"> 3658</span>&#160;</div><div class="line"><a name="l03659"></a><span class="lineno"> 3659</span>&#160;<span class="keyword">SUBROUTINE </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a> (cd_one, id_len, endflag, ios)</div><div class="line"><a name="l03660"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112"> 3660</a></span>&#160;</div><div class="line"><a name="l03661"></a><span class="lineno"> 3661</span>&#160;<span class="comment">!**** SKIP</span></div><div class="line"><a name="l03662"></a><span class="lineno"> 3662</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03663"></a><span class="lineno"> 3663</span>&#160;<span class="comment">!     Purpose:</span></div><div class="line"><a name="l03664"></a><span class="lineno"> 3664</span>&#160;<span class="comment">!       Find next non-comment line</span></div><div class="line"><a name="l03665"></a><span class="lineno"> 3665</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03666"></a><span class="lineno"> 3666</span>&#160;<span class="comment">!     Interface: </span></div><div class="line"><a name="l03667"></a><span class="lineno"> 3667</span>&#160;<span class="comment">!       CALL skip (cd_one, id_len, endflag)</span></div><div class="line"><a name="l03668"></a><span class="lineno"> 3668</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03669"></a><span class="lineno"> 3669</span>&#160;<span class="comment">!     Method:</span></div><div class="line"><a name="l03670"></a><span class="lineno"> 3670</span>&#160;<span class="comment">!       Read the first CHARACTER of the line and skip line if </span></div><div class="line"><a name="l03671"></a><span class="lineno"> 3671</span>&#160;<span class="comment">!       it is a comment</span></div><div class="line"><a name="l03672"></a><span class="lineno"> 3672</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03673"></a><span class="lineno"> 3673</span>&#160;<span class="comment">!     External:</span></div><div class="line"><a name="l03674"></a><span class="lineno"> 3674</span>&#160;<span class="comment">!       none</span></div><div class="line"><a name="l03675"></a><span class="lineno"> 3675</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03676"></a><span class="lineno"> 3676</span>&#160;<span class="comment">!     Files:</span></div><div class="line"><a name="l03677"></a><span class="lineno"> 3677</span>&#160;<span class="comment">!       none</span></div><div class="line"><a name="l03678"></a><span class="lineno"> 3678</span>&#160;<span class="comment">!   </span></div><div class="line"><a name="l03679"></a><span class="lineno"> 3679</span>&#160;<span class="comment">!     References:</span></div><div class="line"><a name="l03680"></a><span class="lineno"> 3680</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03681"></a><span class="lineno"> 3681</span>&#160;<span class="comment">!     History:</span></div><div class="line"><a name="l03682"></a><span class="lineno"> 3682</span>&#160;<span class="comment">!     --------</span></div><div class="line"><a name="l03683"></a><span class="lineno"> 3683</span>&#160;<span class="comment">!       Version   Programmer     Date        Description</span></div><div class="line"><a name="l03684"></a><span class="lineno"> 3684</span>&#160;<span class="comment">!       ------------------------------------------------</span></div><div class="line"><a name="l03685"></a><span class="lineno"> 3685</span>&#160;<span class="comment">!       2.5       A.Caubel       2002/04/04  created</span></div><div class="line"><a name="l03686"></a><span class="lineno"> 3686</span>&#160;<span class="comment">!       3.3       T. Craig       2016/08/02  updated</span></div><div class="line"><a name="l03687"></a><span class="lineno"> 3687</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03688"></a><span class="lineno"> 3688</span>&#160;<span class="comment">!*-----------------------------------------------------------------------</span></div><div class="line"><a name="l03689"></a><span class="lineno"> 3689</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03690"></a><span class="lineno"> 3690</span>&#160;  <span class="keywordtype">IMPLICIT NONE</span></div><div class="line"><a name="l03691"></a><span class="lineno"> 3691</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03692"></a><span class="lineno"> 3692</span>&#160;<span class="comment">!** + DECLARATIONS</span></div><div class="line"><a name="l03693"></a><span class="lineno"> 3693</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03694"></a><span class="lineno"> 3694</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03695"></a><span class="lineno"> 3695</span>&#160;<span class="comment">!** ++ Include files</span></div><div class="line"><a name="l03696"></a><span class="lineno"> 3696</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03697"></a><span class="lineno"> 3697</span>&#160;<span class="comment">!** ++ Argument declarations</span></div><div class="line"><a name="l03698"></a><span class="lineno"> 3698</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03699"></a><span class="lineno"> 3699</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">intent(inout)</span>       :: cd_one<span class="comment"> !&lt; namcouple line</span></div><div class="line"><a name="l03700"></a><span class="lineno"> 3700</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>,<span class="keywordtype">intent(in)</span> :: id_len<span class="comment"> !&lt; length of line</span></div><div class="line"><a name="l03701"></a><span class="lineno"> 3701</span>&#160;  <span class="keywordtype">LOGICAL</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">intent(inout)</span>     :: endflag<span class="comment"> !&lt; flag indicating eof reached</span></div><div class="line"><a name="l03702"></a><span class="lineno"> 3702</span>&#160;  <span class="keywordtype">INTEGER (kind=ip_intwp_p)</span>, <span class="keywordtype">OPTIONAL</span>, <span class="keywordtype">INTENT(out)</span> :: ios<span class="comment"> !&lt; return code</span></div><div class="line"><a name="l03703"></a><span class="lineno"> 3703</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03704"></a><span class="lineno"> 3704</span>&#160;<span class="comment">!** ++ Local declarations</span></div><div class="line"><a name="l03705"></a><span class="lineno"> 3705</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03706"></a><span class="lineno"> 3706</span>&#160;  <span class="keywordtype">CHARACTER(len=id_len)</span> :: cl_line</div><div class="line"><a name="l03707"></a><span class="lineno"> 3707</span>&#160;  <span class="keywordtype">LOGICAL</span> :: found</div><div class="line"><a name="l03708"></a><span class="lineno"> 3708</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">parameter</span> :: subname=<span class="stringliteral">&#39;(mod_oasis_namcouple:skip)&#39;</span></div><div class="line"><a name="l03709"></a><span class="lineno"> 3709</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03710"></a><span class="lineno"> 3710</span>&#160;<span class="comment">!*-----------------------------------------------------------------------</span></div><div class="line"><a name="l03711"></a><span class="lineno"> 3711</span>&#160;<span class="comment">!</span></div><div class="line"><a name="l03712"></a><span class="lineno"> 3712</span>&#160;<span class="comment">!  CALL oasis_debug_enter(subname)</span></div><div class="line"><a name="l03713"></a><span class="lineno"> 3713</span>&#160;</div><div class="line"><a name="l03714"></a><span class="lineno"> 3714</span>&#160;  <span class="keywordflow">IF</span> (<span class="keyword">present</span>(endflag)) endflag = .false.</div><div class="line"><a name="l03715"></a><span class="lineno"> 3715</span>&#160;  <span class="keywordflow">IF</span> (<span class="keyword">present</span>(ios)) ios = 0</div><div class="line"><a name="l03716"></a><span class="lineno"> 3716</span>&#160;  cl_line = cd_one</div><div class="line"><a name="l03717"></a><span class="lineno"> 3717</span>&#160;  found = .false.</div><div class="line"><a name="l03718"></a><span class="lineno"> 3718</span>&#160;</div><div class="line"><a name="l03719"></a><span class="lineno"> 3719</span>&#160;  <span class="keywordflow">DO</span> <span class="keywordflow">WHILE</span> (.not.found)</div><div class="line"><a name="l03720"></a><span class="lineno"> 3720</span>&#160;     <span class="keywordflow">IF</span> (<a class="code" href="namespacemod__oasis__namcouple.html#a4551fbe4bcd69bc6d0d4f6e1ee52ea86">checkcomment</a>(cl_line)) <span class="keywordflow">THEN</span></div><div class="line"><a name="l03721"></a><span class="lineno"> 3721</span>&#160;        <span class="keyword">READ</span>(<a class="code" href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">nulin</a>, fmt=<a class="code" href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">rform</a>, end=140, iostat=ios) cl_line</div><div class="line"><a name="l03722"></a><span class="lineno"> 3722</span>&#160;     <span class="keywordflow">ELSE</span></div><div class="line"><a name="l03723"></a><span class="lineno"> 3723</span>&#160;        found = .true.</div><div class="line"><a name="l03724"></a><span class="lineno"> 3724</span>&#160;<span class="keywordflow">     ENDIF</span></div><div class="line"><a name="l03725"></a><span class="lineno"> 3725</span>&#160;<span class="keywordflow">  ENDDO</span></div><div class="line"><a name="l03726"></a><span class="lineno"> 3726</span>&#160;</div><div class="line"><a name="l03727"></a><span class="lineno"> 3727</span>&#160;140 <span class="keywordflow">CONTINUE</span></div><div class="line"><a name="l03728"></a><span class="lineno"> 3728</span>&#160;</div><div class="line"><a name="l03729"></a><span class="lineno"> 3729</span>&#160;  <span class="keywordflow">IF</span> (found) <span class="keywordflow">THEN</span></div><div class="line"><a name="l03730"></a><span class="lineno"> 3730</span>&#160;     cd_one = cl_line</div><div class="line"><a name="l03731"></a><span class="lineno"> 3731</span>&#160;  <span class="keywordflow">ELSE</span></div><div class="line"><a name="l03732"></a><span class="lineno"> 3732</span>&#160;     <span class="keywordflow">IF</span> (<span class="keyword">present</span>(endflag)) endflag = .true.</div><div class="line"><a name="l03733"></a><span class="lineno"> 3733</span>&#160;     <span class="keywordflow">IF</span> (<span class="keyword">PRESENT</span>(ios)) ios = -1</div><div class="line"><a name="l03734"></a><span class="lineno"> 3734</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l03735"></a><span class="lineno"> 3735</span>&#160;</div><div class="line"><a name="l03736"></a><span class="lineno"> 3736</span>&#160;<span class="comment">!  CALL oasis_debug_exit(subname)</span></div><div class="line"><a name="l03737"></a><span class="lineno"> 3737</span>&#160;  <span class="keywordflow">RETURN</span></div><div class="line"><a name="l03738"></a><span class="lineno"> 3738</span>&#160;</div><div class="line"><a name="l03739"></a><span class="lineno"> 3739</span>&#160;<span class="keyword">END SUBROUTINE </span><a class="code" href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">skip</a></div><div class="line"><a name="l03740"></a><span class="lineno"> 3740</span>&#160;</div><div class="line"><a name="l03741"></a><span class="lineno"> 3741</span>&#160;<span class="comment">!*========================================================================</span></div><div class="line"><a name="l03742"></a><span class="lineno"> 3742</span>&#160;<span class="comment"></span></div><div class="line"><a name="l03743"></a><span class="lineno"> 3743</span>&#160;<span class="comment">!&gt; Subroutine that calls abort in this module</span></div><div class="line"><a name="l03744"></a><span class="lineno"> 3744</span>&#160;</div><div class="line"><a name="l03745"></a><span class="lineno"> 3745</span>&#160;<span class="keyword">SUBROUTINE </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a>(isubname,lineno,string1,string2,string3,string4)</div><div class="line"><a name="l03746"></a><span class="lineno"><a class="line" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3"> 3746</a></span>&#160;</div><div class="line"><a name="l03747"></a><span class="lineno"> 3747</span>&#160;  <span class="comment">! * Reusable Abort routine</span></div><div class="line"><a name="l03748"></a><span class="lineno"> 3748</span>&#160;</div><div class="line"><a name="l03749"></a><span class="lineno"> 3749</span>&#160;  <span class="keywordtype">IMPLICIT NONE</span></div><div class="line"><a name="l03750"></a><span class="lineno"> 3750</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">intent(in)</span> :: isubname<span class="comment">  !&lt; subroutine name of abort</span></div><div class="line"><a name="l03751"></a><span class="lineno"> 3751</span>&#160;  <span class="keywordtype">INTEGER</span>         ,<span class="keywordtype">intent(in)</span> :: lineno<span class="comment">    !&lt; file line number</span></div><div class="line"><a name="l03752"></a><span class="lineno"> 3752</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">intent(in)</span>,<span class="keywordtype">optional</span> :: string1<span class="comment"> !&lt; optional output string</span></div><div class="line"><a name="l03753"></a><span class="lineno"> 3753</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">intent(in)</span>,<span class="keywordtype">optional</span> :: string2<span class="comment"> !&lt; optional output string</span></div><div class="line"><a name="l03754"></a><span class="lineno"> 3754</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">intent(in)</span>,<span class="keywordtype">optional</span> :: string3<span class="comment"> !&lt; optional output string</span></div><div class="line"><a name="l03755"></a><span class="lineno"> 3755</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">intent(in)</span>,<span class="keywordtype">optional</span> :: string4<span class="comment"> !&lt; optional output string</span></div><div class="line"><a name="l03756"></a><span class="lineno"> 3756</span>&#160;</div><div class="line"><a name="l03757"></a><span class="lineno"> 3757</span>&#160;<span class="comment">!** ++ Local declarations</span></div><div class="line"><a name="l03758"></a><span class="lineno"> 3758</span>&#160;</div><div class="line"><a name="l03759"></a><span class="lineno"> 3759</span>&#160;  <span class="keywordtype">CHARACTER(len=*)</span>,<span class="keywordtype">parameter</span> :: subname=<span class="stringliteral">&#39;(mod_oasis_namcouple:namcouple_abort)&#39;</span></div><div class="line"><a name="l03760"></a><span class="lineno"> 3760</span>&#160;</div><div class="line"><a name="l03761"></a><span class="lineno"> 3761</span>&#160;<span class="comment">!*-----------------------------------------------------------------------</span></div><div class="line"><a name="l03762"></a><span class="lineno"> 3762</span>&#160;</div><div class="line"><a name="l03763"></a><span class="lineno"> 3763</span>&#160;<span class="comment">!  CALL oasis_debug_enter(subname)</span></div><div class="line"><a name="l03764"></a><span class="lineno"> 3764</span>&#160;</div><div class="line"><a name="l03765"></a><span class="lineno"> 3765</span>&#160;  <span class="keywordflow">IF</span> (mpi_rank_global == 0) <span class="keywordflow">THEN</span></div><div class="line"><a name="l03766"></a><span class="lineno"> 3766</span>&#160;     <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l03767"></a><span class="lineno"> 3767</span>&#160;     <span class="keyword">WRITE</span>(nulprt1,*) subname,<span class="stringliteral">&#39; calling ABORT&#39;</span></div><div class="line"><a name="l03768"></a><span class="lineno"> 3768</span>&#160;     <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; **** ABORT from &#39;</span>,trim(isubname),<span class="stringliteral">&#39; line number &#39;</span>,lineno</div><div class="line"><a name="l03769"></a><span class="lineno"> 3769</span>&#160;     <span class="keywordflow">IF</span> (<span class="keyword">present</span>(string1)) <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; **** &#39;</span>,trim(isubname),<span class="stringliteral">&#39; : &#39;</span>,trim(string1)</div><div class="line"><a name="l03770"></a><span class="lineno"> 3770</span>&#160;     <span class="keywordflow">IF</span> (<span class="keyword">present</span>(string2)) <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; **** &#39;</span>,trim(isubname),<span class="stringliteral">&#39; : &#39;</span>,trim(string2)</div><div class="line"><a name="l03771"></a><span class="lineno"> 3771</span>&#160;     <span class="keywordflow">IF</span> (<span class="keyword">present</span>(string3)) <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; **** &#39;</span>,trim(isubname),<span class="stringliteral">&#39; : &#39;</span>,trim(string3)</div><div class="line"><a name="l03772"></a><span class="lineno"> 3772</span>&#160;     <span class="keywordflow">IF</span> (<span class="keyword">present</span>(string4)) <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; **** &#39;</span>,trim(isubname),<span class="stringliteral">&#39; : &#39;</span>,trim(string4)</div><div class="line"><a name="l03773"></a><span class="lineno"> 3773</span>&#160;     <span class="keyword">WRITE</span>(nulprt1,*) <span class="stringliteral">&#39; &#39;</span></div><div class="line"><a name="l03774"></a><span class="lineno"> 3774</span>&#160;     <span class="keyword">CALL </span>oasis_flush(nulprt1)</div><div class="line"><a name="l03775"></a><span class="lineno"> 3775</span>&#160;<span class="keywordflow">  ENDIF</span></div><div class="line"><a name="l03776"></a><span class="lineno"> 3776</span>&#160;  <span class="keyword">call </span>oasis_abort(file=__file__,line=__line__)</div><div class="line"><a name="l03777"></a><span class="lineno"> 3777</span>&#160;</div><div class="line"><a name="l03778"></a><span class="lineno"> 3778</span>&#160;<span class="comment">!  CALL oasis_debug_enter(subname)</span></div><div class="line"><a name="l03779"></a><span class="lineno"> 3779</span>&#160;</div><div class="line"><a name="l03780"></a><span class="lineno"> 3780</span>&#160;  <span class="keywordflow">RETURN</span></div><div class="line"><a name="l03781"></a><span class="lineno"> 3781</span>&#160;</div><div class="line"><a name="l03782"></a><span class="lineno"> 3782</span>&#160;<span class="keyword">END SUBROUTINE </span><a class="code" href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">namcouple_abort</a></div><div class="line"><a name="l03783"></a><span class="lineno"> 3783</span>&#160;</div><div class="line"><a name="l03784"></a><span class="lineno"> 3784</span>&#160;<span class="comment">!===============================================================================</span></div><div class="line"><a name="l03785"></a><span class="lineno"> 3785</span>&#160;<span class="comment">!===============================================================================</span></div><div class="line"><a name="l03786"></a><span class="lineno"> 3786</span>&#160;</div><div class="line"><a name="l03787"></a><span class="lineno"> 3787</span>&#160;<span class="keyword">END MODULE </span><a class="code" href="namespacemod__oasis__namcouple.html">mod_oasis_namcouple</a></div><div class="line"><a name="l03788"></a><span class="lineno"> 3788</span>&#160;</div><div class="line"><a name="l03789"></a><span class="lineno"> 3789</span>&#160;</div><div class="ttc" id="namespacemod__oasis__namcouple_html_ab52bc27bf5898cc85dce0fc60feb9320"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ab52bc27bf5898cc85dce0fc60feb9320">mod_oasis_namcouple::cxordaf</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cxordaf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00226">mod_oasis_namcouple.F90:226</a></div></div>
70<div class="ttc" id="namespacemod__oasis__parameters_html_aec700ad0c6a11dd35e5d6c2afb745fd0"><div class="ttname"><a href="namespacemod__oasis__parameters.html#aec700ad0c6a11dd35e5d6c2afb745fd0">mod_oasis_parameters::ip_cglbpos</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter ip_cglbpos</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00094">mod_oasis_parameters.F90:94</a></div></div>
71<div class="ttc" id="namespacemod__oasis__namcouple_html_a883d88938c50264711c53af2b555c3db"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a883d88938c50264711c53af2b555c3db">mod_oasis_namcouple::neighborg</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable neighborg</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00198">mod_oasis_namcouple.F90:198</a></div></div>
72<div class="ttc" id="namespacemod__oasis__namcouple_html_a119b86702766d5392cb44856448bcd3e"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a119b86702766d5392cb44856448bcd3e">mod_oasis_namcouple::namfldcoo</a></div><div class="ttdeci">character(len=ic_med), dimension(:), pointer, public namfldcoo</div><div class="ttdoc">conserv fld option (bfb, opt) </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00069">mod_oasis_namcouple.F90:69</a></div></div>
73<div class="ttc" id="namespacemod__oasis__namcouple_html_a62f96a372f013fc37713f8ba1728e3de"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a62f96a372f013fc37713f8ba1728e3de">mod_oasis_namcouple::cficout</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cficout</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00185">mod_oasis_namcouple.F90:185</a></div></div>
74<div class="ttc" id="namespacemod__oasis__parameters_html_a556f148d126d8d6dfe711656024436e6"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a556f148d126d8d6dfe711656024436e6">mod_oasis_parameters::ip_output</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter ip_output</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00077">mod_oasis_parameters.F90:77</a></div></div>
75<div class="ttc" id="namespacemod__oasis__namcouple_html_a5fcb5a4f2a49f414fafe38b03c5c089d"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a5fcb5a4f2a49f414fafe38b03c5c089d">mod_oasis_namcouple::namsrcfld</a></div><div class="ttdeci">character(len=jpeighty), dimension(:), pointer, public namsrcfld</div><div class="ttdoc">list of src fields </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00055">mod_oasis_namcouple.F90:55</a></div></div>
76<div class="ttc" id="namespacemod__oasis__namcouple_html_ab52824ec91491253e02556a68ab31b09"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ab52824ec91491253e02556a68ab31b09">mod_oasis_namcouple::namfldsmu</a></div><div class="ttdeci">real(kind=ip_realwp_p), dimension(:), pointer, public namfldsmu</div><div class="ttdoc">src multiplier term </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00077">mod_oasis_namcouple.F90:77</a></div></div>
77<div class="ttc" id="namespacemod__oasis__namcouple_html_aad06af35c92de78d71671d39bcbb1690"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#aad06af35c92de78d71671d39bcbb1690">mod_oasis_namcouple::nlagn</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nlagn</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00166">mod_oasis_namcouple.F90:166</a></div></div>
78<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>
79<div class="ttc" id="namespacemod__oasis__namcouple_html_a6f4080d45f0b9be5a0466967f535b83b"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a6f4080d45f0b9be5a0466967f535b83b">mod_oasis_namcouple::cga_locatoraf</a></div><div class="ttdeci">character(len=4), dimension(:), allocatable cga_locatoraf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00193">mod_oasis_namcouple.F90:193</a></div></div>
80<div class="ttc" id="namespacemod__oasis__namcouple_html_ab7c38fd6bd90bb8e6ebfb539ead1f1a9"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ab7c38fd6bd90bb8e6ebfb539ead1f1a9">mod_oasis_namcouple::varmul</a></div><div class="ttdeci">real(kind=ip_realwp_p), dimension(:), allocatable varmul</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00267">mod_oasis_namcouple.F90:267</a></div></div>
81<div class="ttc" id="namespacemod__oasis__namcouple_html_a5e1d0d9b3d9f438102623d9643fbc704"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a5e1d0d9b3d9f438102623d9643fbc704">mod_oasis_namcouple::cfldcor</a></div><div class="ttdeci">character(len=8) cfldcor</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00258">mod_oasis_namcouple.F90:258</a></div></div>
82<div class="ttc" id="namespacemod__oasis__namcouple_html_abf09a0e902f44f77874a75bb4a7fba33"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#abf09a0e902f44f77874a75bb4a7fba33">mod_oasis_namcouple::dealloc</a></div><div class="ttdeci">subroutine dealloc()</div><div class="ttdoc">Deallocates temporary arrays for namcouple input. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l03053">mod_oasis_namcouple.F90:3053</a></div></div>
83<div class="ttc" id="namespacemod__oasis__namcouple_html_a7b8c924fdea622759b99d8f61e03ade5"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a7b8c924fdea622759b99d8f61e03ade5">mod_oasis_namcouple::nlogprt</a></div><div class="ttdeci">integer(kind=ip_intwp_p) nlogprt</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00140">mod_oasis_namcouple.F90:140</a></div></div>
84<div class="ttc" id="namespacemod__oasis__namcouple_html_a20e9486f3e8bbdcee0de935e9be3a2e8"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a20e9486f3e8bbdcee0de935e9be3a2e8">mod_oasis_namcouple::nseqn</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nseqn</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00162">mod_oasis_namcouple.F90:162</a></div></div>
85<div class="ttc" id="namespacemod__oasis__namcouple_html_a4fb10ad6e864dcbe34c4a8b02204a523"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a4fb10ad6e864dcbe34c4a8b02204a523">mod_oasis_namcouple::jpeighty</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter jpeighty</div><div class="ttdoc">max number of characters to be read in each line of the file namcouple </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00029">mod_oasis_namcouple.F90:29</a></div></div>
86<div class="ttc" id="namespacemod__oasis__namcouple_html_a5d6add8b958acc8b865b898d9e54ac73"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a5d6add8b958acc8b865b898d9e54ac73">mod_oasis_namcouple::lncdfgrd</a></div><div class="ttdeci">logical lncdfgrd</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00105">mod_oasis_namcouple.F90:105</a></div></div>
87<div class="ttc" id="namespacemod__oasis__namcouple_html_a6a94577996b440c31cac5b7d39e7f47a"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a6a94577996b440c31cac5b7d39e7f47a">mod_oasis_namcouple::nsubfl</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nsubfl</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00207">mod_oasis_namcouple.F90:207</a></div></div>
88<div class="ttc" id="namespacemod__oasis__namcouple_html_a8d88d0c1b22ea43a9429f9e3a653a64b"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a8d88d0c1b22ea43a9429f9e3a653a64b">mod_oasis_namcouple::lweight</a></div><div class="ttdeci">logical, dimension(:), allocatable lweight</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00275">mod_oasis_namcouple.F90:275</a></div></div>
89<div class="ttc" id="namespacemod__oasis__namcouple_html_aa9d178659282698ffb6c186ff48bed3c"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#aa9d178659282698ffb6c186ff48bed3c">mod_oasis_namcouple::afldcobo</a></div><div class="ttdeci">real(kind=ip_realwp_p), dimension(:), allocatable afldcobo</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00222">mod_oasis_namcouple.F90:222</a></div></div>
90<div class="ttc" id="namespacemod__oasis__namcouple_html_a9c5a3b3a864f3feb95eddc08616b998e"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a9c5a3b3a864f3feb95eddc08616b998e">mod_oasis_namcouple::cdqdt</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cdqdt</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00242">mod_oasis_namcouple.F90:242</a></div></div>
91<div class="ttc" id="namespacemod__oasis__namcouple_html_af5bfb0fe58a77461130b9967fa7a4d5e"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#af5bfb0fe58a77461130b9967fa7a4d5e">mod_oasis_namcouple::cbnfld</a></div><div class="ttdeci">character(len=8), dimension(:,:), allocatable cbnfld</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00240">mod_oasis_namcouple.F90:240</a></div></div>
92<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>
93<div class="ttc" id="namespacemod__oasis__namcouple_html_a1c3afcba25a8ba41738104d42a59e423"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a1c3afcba25a8ba41738104d42a59e423">mod_oasis_namcouple::clfield</a></div><div class="ttdeci">character *9, parameter clfield</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00277">mod_oasis_namcouple.F90:277</a></div></div>
94<div class="ttc" id="namespacemod__oasis__namcouple_html_a1b8c7ce28c62fa0b15076b7169d8b454"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a1b8c7ce28c62fa0b15076b7169d8b454">mod_oasis_namcouple::namuntmin</a></div><div class="ttdeci">integer(kind=ip_i4_p), public namuntmin</div><div class="ttdoc">namcouple min IO unit value </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00048">mod_oasis_namcouple.F90:48</a></div></div>
95<div class="ttc" id="namespacemod__oasis__namcouple_html_ac9b9bb442cf77881bef2157c85e23495"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ac9b9bb442cf77881bef2157c85e23495">mod_oasis_namcouple::cintmet</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cintmet</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00229">mod_oasis_namcouple.F90:229</a></div></div>
96<div class="ttc" id="namespacemod__oasis__namcouple_html_ad027273d67834ba44518cd9825f933b8"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ad027273d67834ba44518cd9825f933b8">mod_oasis_namcouple::clcal</a></div><div class="ttdeci">character *9, parameter clcal</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00277">mod_oasis_namcouple.F90:277</a></div></div>
97<div class="ttc" id="namespacemod__oasis__namcouple_html_ae1debe43f1c5cffeeb1d0d9ab563f4c4"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ae1debe43f1c5cffeeb1d0d9ab563f4c4">mod_oasis_namcouple::cyordbf</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cyordbf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00225">mod_oasis_namcouple.F90:225</a></div></div>
98<div class="ttc" id="namespacemod__oasis__namcouple_html_a45fbbd2941f5d71991d409f63e31cf02"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a45fbbd2941f5d71991d409f63e31cf02">mod_oasis_namcouple::namtlogprt</a></div><div class="ttdeci">integer(kind=ip_i4_p), public namtlogprt</div><div class="ttdoc">namcouple ntlogprt value </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00047">mod_oasis_namcouple.F90:47</a></div></div>
99<div class="ttc" id="namespacemod__oasis__namcouple_html_a5ca7cd6a5b9f939b68492200aa92bab4"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a5ca7cd6a5b9f939b68492200aa92bab4">mod_oasis_namcouple::nnamcpl</a></div><div class="ttdeci">integer(kind=ip_i4_p), public nnamcpl</div><div class="ttdoc">number of namcouple inputs </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00044">mod_oasis_namcouple.F90:44</a></div></div>
100<div class="ttc" id="namespacemod__oasis__namcouple_html_a45b410743ce74a9824d44b329ba323ba"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a45b410743ce74a9824d44b329ba323ba">mod_oasis_namcouple::namscrvam</a></div><div class="ttdeci">real(kind=ip_realwp_p), dimension(:), pointer, public namscrvam</div><div class="ttdoc">scrip gauss weight distance weighting for GAUSWGT </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00087">mod_oasis_namcouple.F90:87</a></div></div>
101<div class="ttc" id="namespacemod__oasis__namcouple_html_a7a2ed64b0670db38d2287f5d452060e4"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a7a2ed64b0670db38d2287f5d452060e4">mod_oasis_namcouple::namdstgrd</a></div><div class="ttdeci">character(len=ic_lvar), dimension(:), pointer, public namdstgrd</div><div class="ttdoc">dst grid name </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00060">mod_oasis_namcouple.F90:60</a></div></div>
102<div class="ttc" id="namespacemod__oasis__namcouple_html_a4a7cad8814c7811b364fd7d70b60b576"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a4a7cad8814c7811b364fd7d70b60b576">mod_oasis_namcouple::naismfl</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable naismfl</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00261">mod_oasis_namcouple.F90:261</a></div></div>
103<div class="ttc" id="namespacemod__oasis__namcouple_html_a49e79935fc2421fe3e4e7422f17b34ea"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a49e79935fc2421fe3e4e7422f17b34ea">mod_oasis_namcouple::csurnam</a></div><div class="ttdeci">character(len=5), parameter csurnam</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00110">mod_oasis_namcouple.F90:110</a></div></div>
104<div class="ttc" id="namespacemod__oasis__namcouple_html_afbdcab2dcd637c9c70db27c8c46bd2d7"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#afbdcab2dcd637c9c70db27c8c46bd2d7">mod_oasis_namcouple::cljob</a></div><div class="ttdeci">character *9, parameter cljob</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00277">mod_oasis_namcouple.F90:277</a></div></div>
105<div class="ttc" id="namespacemod__oasis__namcouple_html_a4c609c48a20205e1d2aa9938d7babc92"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a4c609c48a20205e1d2aa9938d7babc92">mod_oasis_namcouple::nbins</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nbins</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00213">mod_oasis_namcouple.F90:213</a></div></div>
106<div class="ttc" id="namespacemod__oasis__namcouple_html_a7cb9d88a57224d84d97afc29b0e606bf"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a7cb9d88a57224d84d97afc29b0e606bf">mod_oasis_namcouple::nmatxrd</a></div><div class="ttdeci">character(len=ic_med) nmatxrd</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00150">mod_oasis_namcouple.F90:150</a></div></div>
107<div class="ttc" id="namespacemod__oasis__namcouple_html_a0f2d8d935f9088aec74c4dda3e9f5d9c"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a0f2d8d935f9088aec74c4dda3e9f5d9c">mod_oasis_namcouple::cldate</a></div><div class="ttdeci">character *9, parameter cldate</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00277">mod_oasis_namcouple.F90:277</a></div></div>
108<div class="ttc" id="namespacemod__oasis__namcouple_html_ac22155599e9b49d57514dd1f7dc9928a"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ac22155599e9b49d57514dd1f7dc9928a">mod_oasis_namcouple::cga_locatorbf</a></div><div class="ttdeci">character(len=4), dimension(:), allocatable cga_locatorbf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00192">mod_oasis_namcouple.F90:192</a></div></div>
109<div class="ttc" id="namespacemod__oasis__namcouple_html_a54ccfe0380fc1c89d085f37a044a297e"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a54ccfe0380fc1c89d085f37a044a297e">mod_oasis_namcouple::namfldseq</a></div><div class="ttdeci">integer(kind=ip_i4_p), dimension(:), pointer, public namfldseq</div><div class="ttdoc">SEQ value. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00063">mod_oasis_namcouple.F90:63</a></div></div>
110<div class="ttc" id="namespacemod__oasis__namcouple_html_a81f8b2668d8970564e85db2ac2465866"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a81f8b2668d8970564e85db2ac2465866">mod_oasis_namcouple::nmatxrd_default</a></div><div class="ttdeci">character(len= *), parameter nmatxrd_default</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00037">mod_oasis_namcouple.F90:37</a></div></div>
111<div class="ttc" id="namespacemod__oasis__namcouple_html_adc4dcf30da2b88fb1798dd02e7833bc1"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#adc4dcf30da2b88fb1798dd02e7833bc1">mod_oasis_namcouple::ig_reverse</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable ig_reverse</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00168">mod_oasis_namcouple.F90:168</a></div></div>
112<div class="ttc" id="namespacemod__oasis__namcouple_html_aeea3ba680d5ba05a432c12d64c68c8af"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#aeea3ba680d5ba05a432c12d64c68c8af">mod_oasis_namcouple::cmsksuf</a></div><div class="ttdeci">character(len=4), parameter cmsksuf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00116">mod_oasis_namcouple.F90:116</a></div></div>
113<div class="ttc" id="namespacemod__oasis__namcouple_html_ae56f031c6d9a819a39fe5170f42d7ce1"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ae56f031c6d9a819a39fe5170f42d7ce1">mod_oasis_namcouple::crnlonsuf</a></div><div class="ttdeci">character(len=4), parameter crnlonsuf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00114">mod_oasis_namcouple.F90:114</a></div></div>
114<div class="ttc" id="namespacemod__oasis__sys_html_a892ed9f46e2e8f577f1a2670f74695d6"><div class="ttname"><a href="namespacemod__oasis__sys.html#a892ed9f46e2e8f577f1a2670f74695d6">mod_oasis_sys::oasis_unitfree</a></div><div class="ttdeci">subroutine, public oasis_unitfree(uio)</div><div class="ttdoc">Release a unit number for reuse. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__sys_8_f90_source.html#l00186">mod_oasis_sys.F90:186</a></div></div>
115<div class="ttc" id="namespacemod__oasis__namcouple_html_a05148b30ca97c536b40a896153c8921f"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a05148b30ca97c536b40a896153c8921f">mod_oasis_namcouple::ig_nbr_rstfile</a></div><div class="ttdeci">integer(kind=ip_intwp_p) ig_nbr_rstfile</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00175">mod_oasis_namcouple.F90:175</a></div></div>
116<div class="ttc" id="namespacemod__oasis__namcouple_html_a5f81bc00e6dc045770edd4093f68278c"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a5f81bc00e6dc045770edd4093f68278c">mod_oasis_namcouple::namfldtrn</a></div><div class="ttdeci">integer(kind=ip_i4_p), dimension(:), pointer, public namfldtrn</div><div class="ttdoc">fields transform, ip_instant,... </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00067">mod_oasis_namcouple.F90:67</a></div></div>
117<div class="ttc" id="namespacemod__oasis__namcouple_html_a211c98282b89859bee6da0ef60f0d484"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a211c98282b89859bee6da0ef60f0d484">mod_oasis_namcouple::abncoef</a></div><div class="ttdeci">real(kind=ip_realwp_p), dimension(:,:), allocatable abncoef</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00220">mod_oasis_namcouple.F90:220</a></div></div>
118<div class="ttc" id="namespacemod__oasis__namcouple_html_ac7f3cff3406912fe6e48c3cc7cf5436b"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ac7f3cff3406912fe6e48c3cc7cf5436b">mod_oasis_namcouple::cgrdsub</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cgrdsub</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00245">mod_oasis_namcouple.F90:245</a></div></div>
119<div class="ttc" id="namespacemod__oasis__namcouple_html_aeeda85bec8a449e87411d4ed404322c5"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#aeeda85bec8a449e87411d4ed404322c5">mod_oasis_namcouple::cmsknam</a></div><div class="ttdeci">character(len=5), parameter cmsknam</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00109">mod_oasis_namcouple.F90:109</a></div></div>
120<div class="ttc" id="namespacemod__oasis__namcouple_html_a484aaf8a6d7eaa0675a8249fa94509cf"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a484aaf8a6d7eaa0675a8249fa94509cf">mod_oasis_namcouple::nammapdec</a></div><div class="ttdeci">character(len=ic_med), public nammapdec</div><div class="ttdoc">namcouple map decomp value </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00051">mod_oasis_namcouple.F90:51</a></div></div>
121<div class="ttc" id="namespacemod__oasis__namcouple_html_a3de3e6eb2bf1e81d77e9c117b7d5985f"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a3de3e6eb2bf1e81d77e9c117b7d5985f">mod_oasis_namcouple::ig_total_nfield</a></div><div class="ttdeci">integer(kind=ip_intwp_p) ig_total_nfield</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00133">mod_oasis_namcouple.F90:133</a></div></div>
122<div class="ttc" id="namespacemod__oasis__namcouple_html_a7510ecfe3d0f141252450e4ba66209ba"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a7510ecfe3d0f141252450e4ba66209ba">mod_oasis_namcouple::nluext</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nluext</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00209">mod_oasis_namcouple.F90:209</a></div></div>
123<div class="ttc" id="namespacemod__oasis__namcouple_html_ad9ac6585de157a05d793636addf672a5"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ad9ac6585de157a05d793636addf672a5">mod_oasis_namcouple::nammatxrd</a></div><div class="ttdeci">character(len=ic_med), public nammatxrd</div><div class="ttdoc">namcouple matrix read option </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00052">mod_oasis_namcouple.F90:52</a></div></div>
124<div class="ttc" id="namespacemod__oasis__namcouple_html_ac79429a9522aabddbe4ed68fd9571bec"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ac79429a9522aabddbe4ed68fd9571bec">mod_oasis_namcouple::cg_name_rstfile</a></div><div class="ttdeci">character(len=32), dimension(:), allocatable cg_name_rstfile</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00182">mod_oasis_namcouple.F90:182</a></div></div>
125<div class="ttc" id="namespacemod__oasis__namcouple_html_a66c36f23a77081749dc9e7993b0277f3"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a66c36f23a77081749dc9e7993b0277f3">mod_oasis_namcouple::nstep</a></div><div class="ttdeci">integer(kind=ip_intwp_p) nstep</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00129">mod_oasis_namcouple.F90:129</a></div></div>
126<div class="ttc" id="namespacemod__oasis__namcouple_html_a070f65b97986d1075f1deed9224cd89b"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a070f65b97986d1075f1deed9224cd89b">mod_oasis_namcouple::corder</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable corder</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00254">mod_oasis_namcouple.F90:254</a></div></div>
127<div class="ttc" id="namespacemod__oasis__namcouple_html_a4dde076bf8cce410eebbd878f791e32e"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a4dde076bf8cce410eebbd878f791e32e">mod_oasis_namcouple::clstring</a></div><div class="ttdeci">character *9, parameter clstring</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00277">mod_oasis_namcouple.F90:277</a></div></div>
128<div class="ttc" id="namespacemod__oasis__namcouple_html_a205e8ba5863c6bf6de5c8450fb060c7a"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a205e8ba5863c6bf6de5c8450fb060c7a">mod_oasis_namcouple::cnorm_opt</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cnorm_opt</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00255">mod_oasis_namcouple.F90:255</a></div></div>
129<div class="ttc" id="namespacemod__oasis__namcouple_html_a795db0909c85ffadb601b744b5189ff5"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a795db0909c85ffadb601b744b5189ff5">mod_oasis_namcouple::cgrdtyp</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cgrdtyp</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00230">mod_oasis_namcouple.F90:230</a></div></div>
130<div class="ttc" id="namespacemod__oasis__namcouple_html_a674f201daa7f2e1ba4c71221bda91d9c"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a674f201daa7f2e1ba4c71221bda91d9c">mod_oasis_namcouple::ig_nfield</a></div><div class="ttdeci">integer(kind=ip_intwp_p) ig_nfield</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00131">mod_oasis_namcouple.F90:131</a></div></div>
131<div class="ttc" id="namespacemod__oasis__namcouple_html_ac0ead9ca992504e9b580db2678926b68"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ac0ead9ca992504e9b580db2678926b68">mod_oasis_namcouple::clchan</a></div><div class="ttdeci">character *9, parameter clchan</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00277">mod_oasis_namcouple.F90:277</a></div></div>
132<div class="ttc" id="namespacemod__oasis__namcouple_html_adb02545191d2ca9c1daff1a3ced2223f"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#adb02545191d2ca9c1daff1a3ced2223f">mod_oasis_namcouple::nnorest</a></div><div class="ttdeci">logical nnorest</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00147">mod_oasis_namcouple.F90:147</a></div></div>
133<div class="ttc" id="namespacemod__oasis__namcouple_html_ac154fc90756832bc90d02ea21f7c7e17"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ac154fc90756832bc90d02ea21f7c7e17">mod_oasis_namcouple::notper</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable notper</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00212">mod_oasis_namcouple.F90:212</a></div></div>
134<div class="ttc" id="namespacemod__oasis__parameters_html_ae91d5161b091e1f07e6ee64a38514df6"><div class="ttname"><a href="namespacemod__oasis__parameters.html#ae91d5161b091e1f07e6ee64a38514df6">mod_oasis_parameters::ip_expout</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter ip_expout</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00078">mod_oasis_parameters.F90:78</a></div></div>
135<div class="ttc" id="namespacemod__oasis__namcouple_html_ae3d7c72b2f2f3ece9583cc0b25edbaba"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ae3d7c72b2f2f3ece9583cc0b25edbaba">mod_oasis_namcouple::naismvoi</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable naismvoi</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00263">mod_oasis_namcouple.F90:263</a></div></div>
136<div class="ttc" id="namespacemod__oasis__parameters_html_a4d283e27ebb49e8d97a35842f10d9aec"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a4d283e27ebb49e8d97a35842f10d9aec">mod_oasis_parameters::ip_ignout</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter ip_ignout</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00079">mod_oasis_parameters.F90:79</a></div></div>
137<div class="ttc" id="namespacemod__oasis__namcouple_html_a951e3cbd0a1f031399779b6ab3a52112"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a951e3cbd0a1f031399779b6ab3a52112">mod_oasis_namcouple::skip</a></div><div class="ttdeci">subroutine skip(cd_one, id_len, endflag, ios)</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l03660">mod_oasis_namcouple.F90:3660</a></div></div>
138<div class="ttc" id="namespacemod__oasis__namcouple_html_a902fe007f6c2505858bf72dbc64e43a2"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a902fe007f6c2505858bf72dbc64e43a2">mod_oasis_namcouple::lsurf</a></div><div class="ttdeci">logical, dimension(:), allocatable lsurf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00259">mod_oasis_namcouple.F90:259</a></div></div>
139<div class="ttc" id="namespacemod__oasis__namcouple_html_a20d614468823744b82118ee8cf2df852"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a20d614468823744b82118ee8cf2df852">mod_oasis_namcouple::namscrnbr</a></div><div class="ttdeci">integer(kind=ip_i4_p), dimension(:), pointer, public namscrnbr</div><div class="ttdoc">scrip number of neighbors for GAUSWGT and DISTWGT </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00088">mod_oasis_namcouple.F90:88</a></div></div>
140<div class="ttc" id="namespacemod__oasis__parameters_html_a1028581caadcb9d7506b25c6cd3efd01"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a1028581caadcb9d7506b25c6cd3efd01">mod_oasis_parameters::ip_instant</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter ip_instant</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00084">mod_oasis_parameters.F90:84</a></div></div>
141<div class="ttc" id="namespacemod__oasis__namcouple_html_a7316d7d322da7cf10f315e38c145ebbb"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a7316d7d322da7cf10f315e38c145ebbb">mod_oasis_namcouple::nammaploc</a></div><div class="ttdeci">character(len=ic_med), dimension(:), pointer, public nammaploc</div><div class="ttdoc">mapping location (src or dst pes) </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00071">mod_oasis_namcouple.F90:71</a></div></div>
142<div class="ttc" id="namespacemod__oasis__namcouple_html_ac124af3aecadc7ba436f2ee6caffee9a"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ac124af3aecadc7ba436f2ee6caffee9a">mod_oasis_namcouple::linit</a></div><div class="ttdeci">logical, dimension(:), allocatable linit</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00268">mod_oasis_namcouple.F90:268</a></div></div>
143<div class="ttc" id="namespacemod__oasis__namcouple_html_a36ef9483c332254e38c52b1d78d26f1f"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a36ef9483c332254e38c52b1d78d26f1f">mod_oasis_namcouple::nulin</a></div><div class="ttdeci">integer(kind=ip_i4_p) nulin</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00099">mod_oasis_namcouple.F90:99</a></div></div>
144<div class="ttc" id="namespacemod__oasis__namcouple_html_a9080617143dacb027f74c4c5158b5e58"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a9080617143dacb027f74c4c5158b5e58">mod_oasis_namcouple::namflddti</a></div><div class="ttdeci">integer(kind=ip_i4_p), dimension(:), pointer, public namflddti</div><div class="ttdoc">coupling period (secs) </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00065">mod_oasis_namcouple.F90:65</a></div></div>
145<div class="ttc" id="namespacemod__oasis__namcouple_html_a8302411d5a02efd9a6dc7f784fbb0d4d"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a8302411d5a02efd9a6dc7f784fbb0d4d">mod_oasis_namcouple::nextfl</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nextfl</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00210">mod_oasis_namcouple.F90:210</a></div></div>
146<div class="ttc" id="namespacemod__oasis__namcouple_html_acdc7f0d582616ee9e18470aad433ed3a"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#acdc7f0d582616ee9e18470aad433ed3a">mod_oasis_namcouple::crnlatsuf</a></div><div class="ttdeci">character(len=4), parameter crnlatsuf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00115">mod_oasis_namcouple.F90:115</a></div></div>
147<div class="ttc" id="namespacemod__oasis__namcouple_html_a207709166cd4d719d65d76e6c043fd6c"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a207709166cd4d719d65d76e6c043fd6c">mod_oasis_namcouple::afldcobn</a></div><div class="ttdeci">real(kind=ip_realwp_p), dimension(:), allocatable afldcobn</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00223">mod_oasis_namcouple.F90:223</a></div></div>
148<div class="ttc" id="namespacemod__oasis__data_html_a2b9f5c72f10178df0bda39000b151d24"><div class="ttname"><a href="namespacemod__oasis__data.html#a2b9f5c72f10178df0bda39000b151d24">mod_oasis_data::nulprt1</a></div><div class="ttdeci">integer(kind=ip_intwp_p) nulprt1</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00020">mod_oasis_data.F90:20</a></div></div>
149<div class="ttc" id="namespacemod__oasis__namcouple_html_abbd7bd184bb2a3860063dbb9f109f427"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#abbd7bd184bb2a3860063dbb9f109f427">mod_oasis_namcouple::ig_total_ntrans</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable ig_total_ntrans</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00157">mod_oasis_namcouple.F90:157</a></div></div>
150<div class="ttc" id="namespacemod__oasis__namcouple_html_a003e41234b67967593d94b3dca1a69c3"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a003e41234b67967593d94b3dca1a69c3">mod_oasis_namcouple::clunit</a></div><div class="ttdeci">character *9, parameter clunit</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00277">mod_oasis_namcouple.F90:277</a></div></div>
151<div class="ttc" id="namespacemod__oasis__parameters_html_a4e90463865a09309212e947e8c8546ac"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a4e90463865a09309212e947e8c8546ac">mod_oasis_parameters::ip_auxilary</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter ip_auxilary</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00080">mod_oasis_parameters.F90:80</a></div></div>
152<div class="ttc" id="namespacemod__oasis__namcouple_html_abb7c2cd3a371bbb8ccd6a272d0e9b60f"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#abb7c2cd3a371bbb8ccd6a272d0e9b60f">mod_oasis_namcouple::nludat</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:,:), allocatable nludat</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00201">mod_oasis_namcouple.F90:201</a></div></div>
153<div class="ttc" id="namespacemod__oasis__namcouple_html_a1cc3d37d7819c112f14b6cec03266561"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a1cc3d37d7819c112f14b6cec03266561">mod_oasis_namcouple::ig_no_rstfile</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable ig_no_rstfile</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00170">mod_oasis_namcouple.F90:170</a></div></div>
154<div class="ttc" id="namespacemod__oasis__namcouple_html_aa387fcfde8c2538e22897b243ff5024c"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#aa387fcfde8c2538e22897b243ff5024c">mod_oasis_namcouple::cfldfin</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cfldfin</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00237">mod_oasis_namcouple.F90:237</a></div></div>
155<div class="ttc" id="namespacemod__oasis__namcouple_html_ac4cfec209e4169b6098f9a8b9be1ffb1"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ac4cfec209e4169b6098f9a8b9be1ffb1">mod_oasis_namcouple::namdstfld</a></div><div class="ttdeci">character(len=jpeighty), dimension(:), pointer, public namdstfld</div><div class="ttdoc">list of dst fields </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00056">mod_oasis_namcouple.F90:56</a></div></div>
156<div class="ttc" id="namespacemod__oasis__namcouple_html_a54f4b8262f809a20928092782bc78345"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a54f4b8262f809a20928092782bc78345">mod_oasis_namcouple::namrstfil</a></div><div class="ttdeci">character(len=ic_med), dimension(:), pointer, public namrstfil</div><div class="ttdoc">restart file name </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00073">mod_oasis_namcouple.F90:73</a></div></div>
157<div class="ttc" id="namespacemod__oasis__namcouple_html_a6246780a56635119fd8f7935456b06cf"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a6246780a56635119fd8f7935456b06cf">mod_oasis_namcouple::niter</a></div><div class="ttdeci">integer(kind=ip_intwp_p) niter</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00127">mod_oasis_namcouple.F90:127</a></div></div>
158<div class="ttc" id="namespacemod__oasis__namcouple_html_ae81f2e658bbaeae20badef0fad425a69"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ae81f2e658bbaeae20badef0fad425a69">mod_oasis_namcouple::ig_grid_nbrbf</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable ig_grid_nbrbf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00173">mod_oasis_namcouple.F90:173</a></div></div>
159<div class="ttc" id="namespacemod__oasis__namcouple_html_a46affda5336f60a1eeb1badaaccd3cfd"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a46affda5336f60a1eeb1badaaccd3cfd">mod_oasis_namcouple::namlogprt</a></div><div class="ttdeci">integer(kind=ip_i4_p), public namlogprt</div><div class="ttdoc">namcouple nlogprt value </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00046">mod_oasis_namcouple.F90:46</a></div></div>
160<div class="ttc" id="namespacemod__oasis__namcouple_html_a9add83d816dc5cdb41c84747f4ee8962"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a9add83d816dc5cdb41c84747f4ee8962">mod_oasis_namcouple::nuntmin</a></div><div class="ttdeci">integer(kind=ip_intwp_p) nuntmin</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00144">mod_oasis_namcouple.F90:144</a></div></div>
161<div class="ttc" id="namespacemod__oasis__namcouple_html_a19fb86d643bb8761d5a8e32d645d5963"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a19fb86d643bb8761d5a8e32d645d5963">mod_oasis_namcouple::afldcoef</a></div><div class="ttdeci">real(kind=ip_realwp_p), dimension(:), allocatable afldcoef</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00221">mod_oasis_namcouple.F90:221</a></div></div>
162<div class="ttc" id="namespacemod__oasis__namcouple_html_a283471addd7aefe719c8eb6bc45072b0"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a283471addd7aefe719c8eb6bc45072b0">mod_oasis_namcouple::clrest</a></div><div class="ttdeci">character *9, parameter clrest</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00277">mod_oasis_namcouple.F90:277</a></div></div>
163<div class="ttc" id="namespacemod__oasis__namcouple_html_a9f8a2a4f44b1c56860fef8df014339d3"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a9f8a2a4f44b1c56860fef8df014339d3">mod_oasis_namcouple::ncofld</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable ncofld</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00197">mod_oasis_namcouple.F90:197</a></div></div>
164<div class="ttc" id="namespacemod__oasis__namcouple_html_a2036218f05c62fc672bd07ece34f26db"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a2036218f05c62fc672bd07ece34f26db">mod_oasis_namcouple::cglatsuf</a></div><div class="ttdeci">character(len=4), parameter cglatsuf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00113">mod_oasis_namcouple.F90:113</a></div></div>
165<div class="ttc" id="namespacemod__oasis__namcouple_html_affa01947af89e5cdad5f33fba2a53d22"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#affa01947af89e5cdad5f33fba2a53d22">mod_oasis_namcouple::cgrdmap</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cgrdmap</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00243">mod_oasis_namcouple.F90:243</a></div></div>
166<div class="ttc" id="namespacemod__oasis__namcouple_html_a728405e8f669b58d00c189abf8b62437"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a728405e8f669b58d00c189abf8b62437">mod_oasis_namcouple::namscrbin</a></div><div class="ttdeci">integer(kind=ip_i4_p), dimension(:), pointer, public namscrbin</div><div class="ttdoc">script number of search bins </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00089">mod_oasis_namcouple.F90:89</a></div></div>
167<div class="ttc" id="namespacemod__oasis__namcouple_html_ab529642a54ad832b85c11fe4bd843314"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ab529642a54ad832b85c11fe4bd843314">mod_oasis_namcouple::clmatxrd</a></div><div class="ttdeci">character *9, parameter clmatxrd</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00277">mod_oasis_namcouple.F90:277</a></div></div>
168<div class="ttc" id="namespacemod__oasis__namcouple_html_a96aa6a31ef021468f807819a84b327c3"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a96aa6a31ef021468f807819a84b327c3">mod_oasis_namcouple::namfldcon</a></div><div class="ttdeci">integer(kind=ip_i4_p), dimension(:), pointer, public namfldcon</div><div class="ttdoc">conserv fld operation </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00068">mod_oasis_namcouple.F90:68</a></div></div>
169<div class="ttc" id="namespacemod__oasis__namcouple_html_a12e1621f5697a0cdbde11d3e25f43b54"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a12e1621f5697a0cdbde11d3e25f43b54">mod_oasis_namcouple::numlab</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable numlab</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00153">mod_oasis_namcouple.F90:153</a></div></div>
170<div class="ttc" id="namespacemod__oasis__namcouple_html_aefebb1d6fd8ac62ea91f9e03265440a3"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#aefebb1d6fd8ac62ea91f9e03265440a3">mod_oasis_namcouple::namcouple_abort</a></div><div class="ttdeci">subroutine namcouple_abort(isubname, lineno, string1, string2, string3, string4)</div><div class="ttdoc">Subroutine that calls abort in this module. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l03746">mod_oasis_namcouple.F90:3746</a></div></div>
171<div class="ttc" id="namespacemod__oasis__data_html_acfb160b3d147e7cb667b0dc0f5bb2960"><div class="ttname"><a href="namespacemod__oasis__data.html#acfb160b3d147e7cb667b0dc0f5bb2960">mod_oasis_data::cspval</a></div><div class="ttdeci">character(len= *), parameter cspval</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00066">mod_oasis_data.F90:66</a></div></div>
172<div class="ttc" id="namespacemod__oasis__namcouple_html_a240979dfe7369da899b0cfe2aeba4f9d"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a240979dfe7369da899b0cfe2aeba4f9d">mod_oasis_namcouple::cconopt</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cconopt</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00235">mod_oasis_namcouple.F90:235</a></div></div>
173<div class="ttc" id="namespacemod__oasis__namcouple_html_aeaab03598b6067fbecd8d8fc0c54443e"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#aeaab03598b6067fbecd8d8fc0c54443e">mod_oasis_namcouple::clprint</a></div><div class="ttdeci">character *9, parameter clprint</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00277">mod_oasis_namcouple.F90:277</a></div></div>
174<div class="ttc" id="namespacemod__oasis__namcouple_html_aa5cc4d0530b3e755441ef9ef70d8083b"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#aa5cc4d0530b3e755441ef9ef70d8083b">mod_oasis_namcouple::clmod</a></div><div class="ttdeci">character *9, parameter clmod</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00277">mod_oasis_namcouple.F90:277</a></div></div>
175<div class="ttc" id="namespacemod__oasis__namcouple_html_a8a7387f27c409ea27aa53b616805f0fa"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a8a7387f27c409ea27aa53b616805f0fa">mod_oasis_namcouple::cg_c</a></div><div class="ttdeci">character(len=8) cg_c</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00181">mod_oasis_namcouple.F90:181</a></div></div>
176<div class="ttc" id="namespacemod__oasis__namcouple_html_a8eca7c715a39c523e00ed2be0612950d"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a8eca7c715a39c523e00ed2be0612950d">mod_oasis_namcouple::lmapp</a></div><div class="ttdeci">logical, dimension(:), allocatable lmapp</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00120">mod_oasis_namcouple.F90:120</a></div></div>
177<div class="ttc" id="namespacemod__oasis__namcouple_html_a7cf04d6fb678ee65b7fbedc56a0d680a"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a7cf04d6fb678ee65b7fbedc56a0d680a">mod_oasis_namcouple::ig_final_nfield</a></div><div class="ttdeci">integer(kind=ip_intwp_p) ig_final_nfield</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00134">mod_oasis_namcouple.F90:134</a></div></div>
178<div class="ttc" id="namespacemod__oasis__namcouple_html_a63c2f2977f9cc4839f6bdec7bbbc5fa7"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a63c2f2977f9cc4839f6bdec7bbbc5fa7">mod_oasis_namcouple::niwtn</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable niwtn</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00270">mod_oasis_namcouple.F90:270</a></div></div>
179<div class="ttc" id="namespacemod__oasis__namcouple_html_acda1605129987d656360e1ed81e8d199"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#acda1605129987d656360e1ed81e8d199">mod_oasis_namcouple::lsubg</a></div><div class="ttdeci">logical, dimension(:), allocatable lsubg</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00121">mod_oasis_namcouple.F90:121</a></div></div>
180<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>
181<div class="ttc" id="namespacemod__oasis__namcouple_html_ac4549f9f5bbb37fce3edc9a208e0d48b"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ac4549f9f5bbb37fce3edc9a208e0d48b">mod_oasis_namcouple::ig_ntrans</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable ig_ntrans</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00156">mod_oasis_namcouple.F90:156</a></div></div>
182<div class="ttc" id="namespacemod__oasis__namcouple_html_a298c9165785ae1a41f89597cadd211e7"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a298c9165785ae1a41f89597cadd211e7">mod_oasis_namcouple::neighbor</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable neighbor</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00195">mod_oasis_namcouple.F90:195</a></div></div>
183<div class="ttc" id="namespacemod__oasis__namcouple_html_a18b7a14f095f3cb6ace40afc06e2a5b9"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a18b7a14f095f3cb6ace40afc06e2a5b9">mod_oasis_namcouple::il_err</a></div><div class="ttdeci">integer(kind=ip_intwp_p) il_err</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00103">mod_oasis_namcouple.F90:103</a></div></div>
184<div class="ttc" id="namespacemod__oasis__namcouple_html_a1066d92e6c9301bdb46ddda7edd7d29a"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a1066d92e6c9301bdb46ddda7edd7d29a">mod_oasis_namcouple::cextmet</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cextmet</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00228">mod_oasis_namcouple.F90:228</a></div></div>
185<div class="ttc" id="namespacemod__oasis__string_html"><div class="ttname"><a href="namespacemod__oasis__string.html">mod_oasis_string</a></div><div class="ttdoc">Character string manipulation methods. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__string_8_f90_source.html#l00027">mod_oasis_string.F90:27</a></div></div>
186<div class="ttc" id="namespacemod__oasis__namcouple_html_af3a308fee2e4b00a1380035e41113d36"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#af3a308fee2e4b00a1380035e41113d36">mod_oasis_namcouple::cfldcoa</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cfldcoa</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00236">mod_oasis_namcouple.F90:236</a></div></div>
187<div class="ttc" id="namespacemod__oasis__parameters_html_a0f729cda95773cdc8df800eacdceb606"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a0f729cda95773cdc8df800eacdceb606">mod_oasis_parameters::ip_exported</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter ip_exported</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00074">mod_oasis_parameters.F90:74</a></div></div>
188<div class="ttc" id="namespacemod__oasis__namcouple_html_acb6d787969090bd3c10b20775abf6531"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#acb6d787969090bd3c10b20775abf6531">mod_oasis_namcouple::clmapdec</a></div><div class="ttdeci">character *9, parameter clmapdec</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00277">mod_oasis_namcouple.F90:277</a></div></div>
189<div class="ttc" id="namespacemod__oasis__mpi_html"><div class="ttname"><a href="namespacemod__oasis__mpi.html">mod_oasis_mpi</a></div><div class="ttdoc">Provides a generic and simpler interface into MPI calls for OASIS. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__mpi_8_f90_source.html#l00003">mod_oasis_mpi.F90:3</a></div></div>
190<div class="ttc" id="namespacemod__oasis__namcouple_html_adb1f8ce6bf94f488c10ef36b3afb8eca"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#adb1f8ce6bf94f488c10ef36b3afb8eca">mod_oasis_namcouple::nmapvoi</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nmapvoi</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00205">mod_oasis_namcouple.F90:205</a></div></div>
191<div class="ttc" id="namespacemod__oasis__namcouple_html_a1b3f80e8e19f950b806636caadeb704b"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a1b3f80e8e19f950b806636caadeb704b">mod_oasis_namcouple::abocoef</a></div><div class="ttdeci">real(kind=ip_realwp_p), dimension(:,:), allocatable abocoef</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00219">mod_oasis_namcouple.F90:219</a></div></div>
192<div class="ttc" id="namespacemod__oasis__namcouple_html_adf402f22f61893178fadcefe43b91102"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#adf402f22f61893178fadcefe43b91102">mod_oasis_namcouple::cfilmet</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cfilmet</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00233">mod_oasis_namcouple.F90:233</a></div></div>
193<div class="ttc" id="namespacemod__oasis__namcouple_html_a57f1b6f111a5257a4d6f5a4b18fa6250"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a57f1b6f111a5257a4d6f5a4b18fa6250">mod_oasis_namcouple::nfcoast</a></div><div class="ttdeci">integer(kind=ip_intwp_p) nfcoast</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00123">mod_oasis_namcouple.F90:123</a></div></div>
194<div class="ttc" id="namespacemod__oasis__namcouple_html_abb6f67bfba2cba424dabee3a465fdfd5"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#abb6f67bfba2cba424dabee3a465fdfd5">mod_oasis_namcouple::nscripvoi</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nscripvoi</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00215">mod_oasis_namcouple.F90:215</a></div></div>
195<div class="ttc" id="namespacemod__oasis__namcouple_html_a009543dda4495ab9b5ac3fcf15767682"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a009543dda4495ab9b5ac3fcf15767682">mod_oasis_namcouple::ccofic</a></div><div class="ttdeci">character(len=8), dimension(:,:), allocatable ccofic</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00241">mod_oasis_namcouple.F90:241</a></div></div>
196<div class="ttc" id="namespacemod__oasis__parameters_html_aaa7ead98ff7d53acfd539a32fca9e2c7"><div class="ttname"><a href="namespacemod__oasis__parameters.html#aaa7ead98ff7d53acfd539a32fca9e2c7">mod_oasis_parameters::ip_cbasbal</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter ip_cbasbal</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00095">mod_oasis_parameters.F90:95</a></div></div>
197<div class="ttc" id="namespacemod__oasis__namcouple_html_a0751f74f7ce6520d8e860b9da14d1d9d"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a0751f74f7ce6520d8e860b9da14d1d9d">mod_oasis_namcouple::ig_number_field</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable ig_number_field</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00169">mod_oasis_namcouple.F90:169</a></div></div>
198<div class="ttc" id="namespacemod__oasis__namcouple_html_ac881ced105604879ada860fabd677481"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ac881ced105604879ada860fabd677481">mod_oasis_namcouple::namscrord</a></div><div class="ttdeci">character(len=ic_med), dimension(:), pointer, public namscrord</div><div class="ttdoc">scrip conserve order (FIRST, SECOND) </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00085">mod_oasis_namcouple.F90:85</a></div></div>
199<div class="ttc" id="namespacemod__oasis__namcouple_html_a115cdfe0e05679107363605a992c6386"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a115cdfe0e05679107363605a992c6386">mod_oasis_namcouple::acocoef</a></div><div class="ttdeci">real(kind=ip_realwp_p), dimension(:,:), allocatable acocoef</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00218">mod_oasis_namcouple.F90:218</a></div></div>
200<div class="ttc" id="namespacemod__oasis__namcouple_html_a4841e350d91926f5f8403e73442c76ad"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a4841e350d91926f5f8403e73442c76ad">mod_oasis_namcouple::namfldops</a></div><div class="ttdeci">integer(kind=ip_i4_p), dimension(:), pointer, public namfldops</div><div class="ttdoc">operation, ip_expout,... </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00064">mod_oasis_namcouple.F90:64</a></div></div>
201<div class="ttc" id="namespacemod__oasis__namcouple_html_aefed5eaa9924d249e979a5a772a46979"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#aefed5eaa9924d249e979a5a772a46979">mod_oasis_namcouple::nlusub</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nlusub</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00206">mod_oasis_namcouple.F90:206</a></div></div>
202<div class="ttc" id="namespacemod__oasis__namcouple_html_ab57c69ae534734f92a85e24a3389e972"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ab57c69ae534734f92a85e24a3389e972">mod_oasis_namcouple::oasis_namcouple_init</a></div><div class="ttdeci">subroutine, public oasis_namcouple_init()</div><div class="ttdoc">Reads the namcouple. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00310">mod_oasis_namcouple.F90:310</a></div></div>
203<div class="ttc" id="namespacemod__oasis__namcouple_html_a7c783457d0e759e3af98b92146fa4ec3"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a7c783457d0e759e3af98b92146fa4ec3">mod_oasis_namcouple::ig_total_state</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable ig_total_state</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00171">mod_oasis_namcouple.F90:171</a></div></div>
204<div class="ttc" id="namespacemod__oasis__namcouple_html_a6da9d2285766ceb22ea8449f55201d84"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a6da9d2285766ceb22ea8449f55201d84">mod_oasis_namcouple::inipar</a></div><div class="ttdeci">subroutine inipar</div><div class="ttdoc">Reads, sets, and prints the namcouple file. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l01557">mod_oasis_namcouple.F90:1557</a></div></div>
205<div class="ttc" id="namespacemod__oasis__namcouple_html_adf2c151a84c37bd7cd93867305b4f70b"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#adf2c151a84c37bd7cd93867305b4f70b">mod_oasis_namcouple::csursuf</a></div><div class="ttdeci">character(len=4), parameter csursuf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00117">mod_oasis_namcouple.F90:117</a></div></div>
206<div class="ttc" id="namespacemod__oasis__namcouple_html_a4b921aeee4d921557ab0cd2f0e541dad"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a4b921aeee4d921557ab0cd2f0e541dad">mod_oasis_namcouple::cangsuf</a></div><div class="ttdeci">character(len=4), parameter cangsuf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00118">mod_oasis_namcouple.F90:118</a></div></div>
207<div class="ttc" id="namespacemod__oasis__namcouple_html_ae750107f9401fd3c7348088ad3095b45"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ae750107f9401fd3c7348088ad3095b45">mod_oasis_namcouple::namuntmax</a></div><div class="ttdeci">integer(kind=ip_i4_p), public namuntmax</div><div class="ttdoc">namcouple max IO unit value </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00049">mod_oasis_namcouple.F90:49</a></div></div>
208<div class="ttc" id="namespacemod__oasis__namcouple_html_aab2d4bcc2dc767df51f99f907f4f3e6e"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#aab2d4bcc2dc767df51f99f907f4f3e6e">mod_oasis_namcouple::ig_maxnfg</a></div><div class="ttdeci">integer(kind=ip_intwp_p) ig_maxnfg</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00138">mod_oasis_namcouple.F90:138</a></div></div>
209<div class="ttc" id="namespacemod__oasis__namcouple_html_a21400200658d24cbf7484b5eb177c911"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a21400200658d24cbf7484b5eb177c911">mod_oasis_namcouple::nbofld</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nbofld</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00199">mod_oasis_namcouple.F90:199</a></div></div>
210<div class="ttc" id="namespacemod__oasis__namcouple_html_ab139e7bad0413c79a5ad8e0837d3e0ef"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ab139e7bad0413c79a5ad8e0837d3e0ef">mod_oasis_namcouple::cfldtyp</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cfldtyp</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00231">mod_oasis_namcouple.F90:231</a></div></div>
211<div class="ttc" id="namespacemod__oasis__namcouple_html_a68de802180c51365e7d4bcc5180ac93b"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a68de802180c51365e7d4bcc5180ac93b">mod_oasis_namcouple::cyordaf</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cyordaf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00227">mod_oasis_namcouple.F90:227</a></div></div>
212<div class="ttc" id="namespacemod__oasis__namcouple_html_aee06276b65463fb85340dcc2ab9d67dc"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#aee06276b65463fb85340dcc2ab9d67dc">mod_oasis_namcouple::prtout</a></div><div class="ttdeci">subroutine prtout(cdtext, kvalue, kstyle)</div><div class="ttdoc">Prints information passed by argument. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l03246">mod_oasis_namcouple.F90:3246</a></div></div>
213<div class="ttc" id="namespacemod__oasis__namcouple_html_a589c1bae58b10bcb0cfb30c0893a7895"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a589c1bae58b10bcb0cfb30c0893a7895">mod_oasis_namcouple::namsrcgrd</a></div><div class="ttdeci">character(len=ic_lvar), dimension(:), pointer, public namsrcgrd</div><div class="ttdoc">src grid name </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00057">mod_oasis_namcouple.F90:57</a></div></div>
214<div class="ttc" id="namespacemod__oasis__namcouple_html_a92d43fa5eaaff81f0e3f73b303377c02"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a92d43fa5eaaff81f0e3f73b303377c02">mod_oasis_namcouple::amskval</a></div><div class="ttdeci">real(kind=ip_realwp_p), dimension(:), allocatable amskval</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00216">mod_oasis_namcouple.F90:216</a></div></div>
215<div class="ttc" id="namespacemod__oasis__namcouple_html_af1e31f45ea1cd7a7b64a8a7dc2cec4ee"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#af1e31f45ea1cd7a7b64a8a7dc2cec4ee">mod_oasis_namcouple::namflddad</a></div><div class="ttdeci">real(kind=ip_realwp_p), dimension(:), pointer, public namflddad</div><div class="ttdoc">dst additive term </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00080">mod_oasis_namcouple.F90:80</a></div></div>
216<div class="ttc" id="namespacemod__oasis__namcouple_html_a7c88a329c97aea020e9b135bdca8d160"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a7c88a329c97aea020e9b135bdca8d160">mod_oasis_namcouple::namchecki</a></div><div class="ttdeci">logical, dimension(:), pointer, public namchecki</div><div class="ttdoc">checkin flag </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00075">mod_oasis_namcouple.F90:75</a></div></div>
217<div class="ttc" id="namespacemod__oasis__namcouple_html_a1e5b5efd046e5ab959fba026bd645945"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a1e5b5efd046e5ab959fba026bd645945">mod_oasis_namcouple::nitfn</a></div><div class="ttdeci">integer(kind=ip_intwp_p) nitfn</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00128">mod_oasis_namcouple.F90:128</a></div></div>
218<div class="ttc" id="namespacemod__oasis__namcouple_html_ac8f6c8fe3720739f3d26431a8a600506"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ac8f6c8fe3720739f3d26431a8a600506">mod_oasis_namcouple::namsrc_nx</a></div><div class="ttdeci">integer(kind=ip_i4_p), dimension(:), pointer, public namsrc_nx</div><div class="ttdoc">src nx grid size </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00058">mod_oasis_namcouple.F90:58</a></div></div>
219<div class="ttc" id="namespacemod__oasis__data_html_af9bb2a4f321e7d7750e90c01022828fe"><div class="ttname"><a href="namespacemod__oasis__data.html#af9bb2a4f321e7d7750e90c01022828fe">mod_oasis_data::mpi_rank_global</a></div><div class="ttdeci">integer(kind=ip_i4_p) mpi_rank_global</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__data_8_f90_source.html#l00048">mod_oasis_data.F90:48</a></div></div>
220<div class="ttc" id="namespacemod__oasis__namcouple_html_a510a13e57f2f65d5ddc70c729d54c0f6"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a510a13e57f2f65d5ddc70c729d54c0f6">mod_oasis_namcouple::ig_local_trans</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable ig_local_trans</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00172">mod_oasis_namcouple.F90:172</a></div></div>
221<div class="ttc" id="namespacemod__oasis__namcouple_html_acb43892c17b5f8c8b360effb5a811c27"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#acb43892c17b5f8c8b360effb5a811c27">mod_oasis_namcouple::inipar_alloc</a></div><div class="ttdeci">subroutine inipar_alloc()</div><div class="ttdoc">Reads the namcouple to allocate arrays. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00712">mod_oasis_namcouple.F90:712</a></div></div>
222<div class="ttc" id="namespacemod__oasis__namcouple_html_ae413f2dc402b7c018e341081b8d6e208"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ae413f2dc402b7c018e341081b8d6e208">mod_oasis_namcouple::nlonaf</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nlonaf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00160">mod_oasis_namcouple.F90:160</a></div></div>
223<div class="ttc" id="namespacemod__oasis__namcouple_html_a42367b4984c6ac4c69cbdcd315cb54e6"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a42367b4984c6ac4c69cbdcd315cb54e6">mod_oasis_namcouple::nlumap</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nlumap</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00203">mod_oasis_namcouple.F90:203</a></div></div>
224<div class="ttc" id="namespacemod__oasis__namcouple_html_a03a63fe10e98e695e556ee190cd3accc"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a03a63fe10e98e695e556ee190cd3accc">mod_oasis_namcouple::namwgtopt</a></div><div class="ttdeci">character(len=ic_med), public namwgtopt</div><div class="ttdoc">namcouple weights handling option </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00053">mod_oasis_namcouple.F90:53</a></div></div>
225<div class="ttc" id="namespacemod__oasis__namcouple_html_ab629bd69885e9cd058f694b00474333a"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ab629bd69885e9cd058f694b00474333a">mod_oasis_namcouple::nkeywords</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter nkeywords</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00295">mod_oasis_namcouple.F90:295</a></div></div>
226<div class="ttc" id="namespacemod__oasis__namcouple_html_a531825c07a164f6139e5eebd59e295a2"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a531825c07a164f6139e5eebd59e295a2">mod_oasis_namcouple::ig_direct_nfield</a></div><div class="ttdeci">integer(kind=ip_intwp_p) ig_direct_nfield</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00132">mod_oasis_namcouple.F90:132</a></div></div>
227<div class="ttc" id="namespacemod__oasis__namcouple_html_a31f62f64cbcf344e529d0576386d0751"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a31f62f64cbcf344e529d0576386d0751">mod_oasis_namcouple::nlufil</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nlufil</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00202">mod_oasis_namcouple.F90:202</a></div></div>
228<div class="ttc" id="namespacemod__oasis__namcouple_html_ad2554b4881fa63780dd5e6fe78d705ef"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ad2554b4881fa63780dd5e6fe78d705ef">mod_oasis_namcouple::nammapopt</a></div><div class="ttdeci">character(len=ic_med), dimension(:), pointer, public nammapopt</div><div class="ttdoc">mapping option (bfb, sum, or opt) </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00072">mod_oasis_namcouple.F90:72</a></div></div>
229<div class="ttc" id="namespacemod__oasis__namcouple_html_a8ddbaabd22bbf485888b1df5f3578909"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a8ddbaabd22bbf485888b1df5f3578909">mod_oasis_namcouple::namscrtyp</a></div><div class="ttdeci">character(len=ic_med), dimension(:), pointer, public namscrtyp</div><div class="ttdoc">scrip mapping type (SCALAR, VECTOR) </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00084">mod_oasis_namcouple.F90:84</a></div></div>
230<div class="ttc" id="namespacemod__oasis__namcouple_html_a6a95ddbbbc615e0257d93d05e4546239"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a6a95ddbbbc615e0257d93d05e4546239">mod_oasis_namcouple::namscrres</a></div><div class="ttdeci">character(len=ic_med), dimension(:), pointer, public namscrres</div><div class="ttdoc">scrip search restriction (LATLON, LATITUDE) </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00086">mod_oasis_namcouple.F90:86</a></div></div>
231<div class="ttc" id="namespacemod__oasis__namcouple_html_a51c19e0892a72acc3dca2adb046ed175"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a51c19e0892a72acc3dca2adb046ed175">mod_oasis_namcouple::namscrmet</a></div><div class="ttdeci">character(len=ic_med), dimension(:), pointer, public namscrmet</div><div class="ttdoc">scrip method (CONSERV, DISTWGT, BILINEAR, BICUBIC, GAUSWGT) </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00082">mod_oasis_namcouple.F90:82</a></div></div>
232<div class="ttc" id="namespacemod__oasis__namcouple_html_ad8f8aca3a6fa885e4edf027b79a93305"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ad8f8aca3a6fa885e4edf027b79a93305">mod_oasis_namcouple::ctypsub</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable ctypsub</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00246">mod_oasis_namcouple.F90:246</a></div></div>
233<div class="ttc" id="namespacemod__oasis__namcouple_html_ad81bb4f19a71f0fcf8655cb9d39a3380"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ad81bb4f19a71f0fcf8655cb9d39a3380">mod_oasis_namcouple::namflddmu</a></div><div class="ttdeci">real(kind=ip_realwp_p), dimension(:), pointer, public namflddmu</div><div class="ttdoc">dst multipler term </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00079">mod_oasis_namcouple.F90:79</a></div></div>
234<div class="ttc" id="namespacemod__oasis__namcouple_html_a0d85a5dcb3fab17a680cceed332b9668"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a0d85a5dcb3fab17a680cceed332b9668">mod_oasis_namcouple::alloc</a></div><div class="ttdeci">subroutine alloc()</div><div class="ttdoc">Allocates temporary arrays for namcouple input. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l02778">mod_oasis_namcouple.F90:2778</a></div></div>
235<div class="ttc" id="namespacemod__oasis__namcouple_html_a24f56cf88d79190f229d3fd1d62d17de"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a24f56cf88d79190f229d3fd1d62d17de">mod_oasis_namcouple::cg_input_file</a></div><div class="ttdeci">character(len=32), dimension(:), allocatable cg_input_file</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00186">mod_oasis_namcouple.F90:186</a></div></div>
236<div class="ttc" id="namespacemod__oasis__namcouple_html_a645168dae20a0c24786c3e6dcea9f2ab"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a645168dae20a0c24786c3e6dcea9f2ab">mod_oasis_namcouple::lncdfrst</a></div><div class="ttdeci">logical lncdfrst</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00106">mod_oasis_namcouple.F90:106</a></div></div>
237<div class="ttc" id="namespacemod__oasis__namcouple_html_ab82c80f007b37865172ddb033a1abb36"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ab82c80f007b37865172ddb033a1abb36">mod_oasis_namcouple::namsrc_ny</a></div><div class="ttdeci">integer(kind=ip_i4_p), dimension(:), pointer, public namsrc_ny</div><div class="ttdoc">src ny grid size </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00059">mod_oasis_namcouple.F90:59</a></div></div>
238<div class="ttc" id="namespacemod__oasis__namcouple_html_aca533555969c4dff9419daac8c70bbda"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#aca533555969c4dff9419daac8c70bbda">mod_oasis_namcouple::tmpstr1</a></div><div class="ttdeci">character *512 tmpstr1</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00300">mod_oasis_namcouple.F90:300</a></div></div>
239<div class="ttc" id="namespacemod__oasis__namcouple_html_ab0b9a7822ec44010e8652ed2d6abc0db"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ab0b9a7822ec44010e8652ed2d6abc0db">mod_oasis_namcouple::ig_numlab</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable ig_numlab</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00154">mod_oasis_namcouple.F90:154</a></div></div>
240<div class="ttc" id="namespacemod__oasis__namcouple_html_a32ce50ab82412ce502420b56a4e47d71"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a32ce50ab82412ce502420b56a4e47d71">mod_oasis_namcouple::rform</a></div><div class="ttdeci">character(len= *), parameter rform</div><div class="ttdoc">formatted line read format </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00031">mod_oasis_namcouple.F90:31</a></div></div>
241<div class="ttc" id="namespacemod__oasis__namcouple_html_abba00866a740567bc1d93cf5850042fd"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#abba00866a740567bc1d93cf5850042fd">mod_oasis_namcouple::ig_maxcomb</a></div><div class="ttdeci">integer(kind=ip_intwp_p) ig_maxcomb</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00136">mod_oasis_namcouple.F90:136</a></div></div>
242<div class="ttc" id="namespacemod__oasis__namcouple_html_af56d31837b48a43e234bccbf1a3e2954"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#af56d31837b48a43e234bccbf1a3e2954">mod_oasis_namcouple::nmapdec</a></div><div class="ttdeci">character(len=ic_med) nmapdec</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00149">mod_oasis_namcouple.F90:149</a></div></div>
243<div class="ttc" id="namespacemod__oasis__namcouple_html_a28e887d61cc4b10c00c33a7d0f51a275"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a28e887d61cc4b10c00c33a7d0f51a275">mod_oasis_namcouple::niwtg</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable niwtg</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00266">mod_oasis_namcouple.F90:266</a></div></div>
244<div class="ttc" id="namespacemod__oasis__namcouple_html_a6526a92cd5fa662f9da229806d062dc2"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a6526a92cd5fa662f9da229806d062dc2">mod_oasis_namcouple::nninnflg</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nninnflg</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00273">mod_oasis_namcouple.F90:273</a></div></div>
245<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>
246<div class="ttc" id="namespacemod__oasis__namcouple_html_a0f31605257bfe125aafb6488a5065d4d"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a0f31605257bfe125aafb6488a5065d4d">mod_oasis_namcouple::nsubvoi</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nsubvoi</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00208">mod_oasis_namcouple.F90:208</a></div></div>
247<div class="ttc" id="namespacemod__oasis__namcouple_html_a4b507ab44ad62713c9e3d83ded6be3f4"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a4b507ab44ad62713c9e3d83ded6be3f4">mod_oasis_namcouple::cstate</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cstate</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00191">mod_oasis_namcouple.F90:191</a></div></div>
248<div class="ttc" id="namespacemod__oasis__namcouple_html_a80d81b2f026a2d0dc2de27b9ee04f7af"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a80d81b2f026a2d0dc2de27b9ee04f7af">mod_oasis_namcouple::nlataf</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nlataf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00161">mod_oasis_namcouple.F90:161</a></div></div>
249<div class="ttc" id="namespacemod__oasis__namcouple_html_acd9594862404b2bbd26a2ce069076b0e"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#acd9594862404b2bbd26a2ce069076b0e">mod_oasis_namcouple::keyword_list</a></div><div class="ttdeci">character *9, dimension(nkeywords), parameter keyword_list</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00296">mod_oasis_namcouple.F90:296</a></div></div>
250<div class="ttc" id="namespacemod__oasis__namcouple_html_a2ee5f8ec71ebae64c3d14445345d7545"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a2ee5f8ec71ebae64c3d14445345d7545">mod_oasis_namcouple::cxordbf</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cxordbf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00224">mod_oasis_namcouple.F90:224</a></div></div>
251<div class="ttc" id="namespacemod__oasis__namcouple_html_a348612422a03e478041ca5bdfd7201ae"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a348612422a03e478041ca5bdfd7201ae">mod_oasis_namcouple::csper</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable csper</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00248">mod_oasis_namcouple.F90:248</a></div></div>
252<div class="ttc" id="namespacemod__oasis__namcouple_html_a5f87ffd480c100a94dcdf02f69b23080"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a5f87ffd480c100a94dcdf02f69b23080">mod_oasis_namcouple::findkeyword</a></div><div class="ttdeci">subroutine findkeyword(keyword, line, found)</div><div class="ttdoc">Searches for a particular keyword in the namcouple file. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l03354">mod_oasis_namcouple.F90:3354</a></div></div>
253<div class="ttc" id="namespacemod__oasis__namcouple_html_a6dbd7bccbfa28b209a4bc58131f8cf11"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a6dbd7bccbfa28b209a4bc58131f8cf11">mod_oasis_namcouple::cmap_file</a></div><div class="ttdeci">character(len=ic_long), dimension(:), allocatable cmap_file</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00251">mod_oasis_namcouple.F90:251</a></div></div>
254<div class="ttc" id="namespacemod__oasis__namcouple_html_a3598202174da65117caf675065f8b160"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a3598202174da65117caf675065f8b160">mod_oasis_namcouple::amskvalnew</a></div><div class="ttdeci">real(kind=ip_realwp_p), dimension(:), allocatable amskvalnew</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00217">mod_oasis_namcouple.F90:217</a></div></div>
255<div class="ttc" id="namespacemod__oasis__namcouple_html_a6a69d927924d3fa391fdc3ec6cb78197"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a6a69d927924d3fa391fdc3ec6cb78197">mod_oasis_namcouple::cfilfic</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cfilfic</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00232">mod_oasis_namcouple.F90:232</a></div></div>
256<div class="ttc" id="namespacemod__oasis__namcouple_html_a0b8948452bbd8cf1dc9f0fccc17c344d"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a0b8948452bbd8cf1dc9f0fccc17c344d">mod_oasis_namcouple::ig_invert</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable ig_invert</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00167">mod_oasis_namcouple.F90:167</a></div></div>
257<div class="ttc" id="namespacemod__oasis__namcouple_html_a4555b14f38928b7f0fb7f77b9c42d0a0"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a4555b14f38928b7f0fb7f77b9c42d0a0">mod_oasis_namcouple::namsort2nn</a></div><div class="ttdeci">integer(kind=ip_i4_p), dimension(:), pointer, public namsort2nn</div><div class="ttdoc">sorted namcpl for sort, define nn order, computed later </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00092">mod_oasis_namcouple.F90:92</a></div></div>
258<div class="ttc" id="namespacemod__oasis__namcouple_html_a1729dba99742412a1e07a479cb7f7921"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a1729dba99742412a1e07a479cb7f7921">mod_oasis_namcouple::namfldsad</a></div><div class="ttdeci">real(kind=ip_realwp_p), dimension(:), pointer, public namfldsad</div><div class="ttdoc">src additive term </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00078">mod_oasis_namcouple.F90:78</a></div></div>
259<div class="ttc" id="namespacemod__oasis__sys_html_abce4c06d8a999919a2a185c71ab15edd"><div class="ttname"><a href="namespacemod__oasis__sys.html#abce4c06d8a999919a2a185c71ab15edd">mod_oasis_sys::oasis_unitget</a></div><div class="ttdeci">subroutine, public oasis_unitget(uio)</div><div class="ttdoc">Get a free unit number. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__sys_8_f90_source.html#l00112">mod_oasis_sys.F90:112</a></div></div>
260<div class="ttc" id="namespacemod__oasis__namcouple_html_a9b3c7c879a3ff2b5eb15cbcaf5a8a1d9"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a9b3c7c879a3ff2b5eb15cbcaf5a8a1d9">mod_oasis_namcouple::cficaf</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cficaf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00190">mod_oasis_namcouple.F90:190</a></div></div>
261<div class="ttc" id="namespacemod__oasis__namcouple_html_a5564b823ced851e25d198f2c300dc138"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a5564b823ced851e25d198f2c300dc138">mod_oasis_namcouple::tmpstr3</a></div><div class="ttdeci">character *512 tmpstr3</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00300">mod_oasis_namcouple.F90:300</a></div></div>
262<div class="ttc" id="namespacemod__oasis__parameters_html_ae251e3ac1c9c82ae5db2a768d2d59d5f"><div class="ttname"><a href="namespacemod__oasis__parameters.html#ae251e3ac1c9c82ae5db2a768d2d59d5f">mod_oasis_parameters::ip_cglobal</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter ip_cglobal</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00093">mod_oasis_parameters.F90:93</a></div></div>
263<div class="ttc" id="namespacemod__oasis__namcouple_html_ada1acbaf7e666b7220e3b7fb8d0f2549"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ada1acbaf7e666b7220e3b7fb8d0f2549">mod_oasis_namcouple::tmpstr4</a></div><div class="ttdeci">character *512 tmpstr4</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00300">mod_oasis_namcouple.F90:300</a></div></div>
264<div class="ttc" id="namespacemod__oasis__namcouple_html_a6a4406ca14f91ef6514a18eb154e648f"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a6a4406ca14f91ef6514a18eb154e648f">mod_oasis_namcouple::namfldlag</a></div><div class="ttdeci">integer(kind=ip_i4_p), dimension(:), pointer, public namfldlag</div><div class="ttdoc">coupling lag (secs) </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00066">mod_oasis_namcouple.F90:66</a></div></div>
265<div class="ttc" id="namespacemod__oasis__namcouple_html_a1b680bf476776f3db085dc1f0009736c"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a1b680bf476776f3db085dc1f0009736c">mod_oasis_namcouple::cg_output_field</a></div><div class="ttdeci">character(len=jpeighty), dimension(:), allocatable cg_output_field</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00188">mod_oasis_namcouple.F90:188</a></div></div>
266<div class="ttc" id="namespacemod__oasis__namcouple_html_a161fc23acf442c75c9d6ba7758937d59"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a161fc23acf442c75c9d6ba7758937d59">mod_oasis_namcouple::crednam</a></div><div class="ttdeci">character(len=5), parameter crednam</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00111">mod_oasis_namcouple.F90:111</a></div></div>
267<div class="ttc" id="namespacemod__oasis__namcouple_html_a579387e570e26f2d6c6c2159824cf8a3"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a579387e570e26f2d6c6c2159824cf8a3">mod_oasis_namcouple::nninnfl</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nninnfl</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00271">mod_oasis_namcouple.F90:271</a></div></div>
268<div class="ttc" id="namespacemod__oasis__namcouple_html_aee9f6849ec644ee40f465976bc6c7b96"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#aee9f6849ec644ee40f465976bc6c7b96">mod_oasis_namcouple::nlucor</a></div><div class="ttdeci">integer(kind=ip_intwp_p) nlucor</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00214">mod_oasis_namcouple.F90:214</a></div></div>
269<div class="ttc" id="namespacemod__oasis__namcouple_html_ae2c74692147a54b3f7534301d509f766"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ae2c74692147a54b3f7534301d509f766">mod_oasis_namcouple::ig_lag</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable ig_lag</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00165">mod_oasis_namcouple.F90:165</a></div></div>
270<div class="ttc" id="namespacemod__oasis__namcouple_html_a82b32aa4c78713443daf65a3dfbc75dc"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a82b32aa4c78713443daf65a3dfbc75dc">mod_oasis_namcouple::cmaptyp</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cmaptyp</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00252">mod_oasis_namcouple.F90:252</a></div></div>
271<div class="ttc" id="namespacemod__oasis__namcouple_html_a0d0b7fa2be2a8202344c0ef9085c1309"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a0d0b7fa2be2a8202344c0ef9085c1309">mod_oasis_namcouple::clseq</a></div><div class="ttdeci">character *9, parameter clseq</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00277">mod_oasis_namcouple.F90:277</a></div></div>
272<div class="ttc" id="namespacemod__oasis__namcouple_html_afaa0549951c43335a2f8e75c7b1d2846"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#afaa0549951c43335a2f8e75c7b1d2846">mod_oasis_namcouple::cgrdnam</a></div><div class="ttdeci">character(len=5), parameter cgrdnam</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00108">mod_oasis_namcouple.F90:108</a></div></div>
273<div class="ttc" id="namespacemod__oasis__namcouple_html_a15fc11ff1c1d5718ff127a06a205a82c"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a15fc11ff1c1d5718ff127a06a205a82c">mod_oasis_namcouple::naminpfil</a></div><div class="ttdeci">character(len=ic_med), dimension(:), pointer, public naminpfil</div><div class="ttdoc">input file name </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00074">mod_oasis_namcouple.F90:74</a></div></div>
274<div class="ttc" id="namespacemod__oasis__namcouple_html_a3b0f98a2f8fc07f944af7fc650ea3eff"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a3b0f98a2f8fc07f944af7fc650ea3eff">mod_oasis_namcouple::nwgtopt_default</a></div><div class="ttdeci">character(len= *), parameter nwgtopt_default</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00039">mod_oasis_namcouple.F90:39</a></div></div>
275<div class="ttc" id="namespacemod__oasis__namcouple_html_a28c3f9e076a686c8ef916221e8fe4e10"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a28c3f9e076a686c8ef916221e8fe4e10">mod_oasis_namcouple::cmskrd</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cmskrd</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00244">mod_oasis_namcouple.F90:244</a></div></div>
276<div class="ttc" id="namespacemod__oasis__namcouple_html_a2febd0d97dea9ecc3ce4a8c5088a8d1f"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a2febd0d97dea9ecc3ce4a8c5088a8d1f">mod_oasis_namcouple::lextra</a></div><div class="ttdeci">logical, dimension(:), allocatable lextra</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00274">mod_oasis_namcouple.F90:274</a></div></div>
277<div class="ttc" id="namespacemod__oasis__namcouple_html_ae023a43e29bb32ebf11f193e34d8bd85"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ae023a43e29bb32ebf11f193e34d8bd85">mod_oasis_namcouple::cl_namcouple</a></div><div class="ttdeci">character(len= *), parameter cl_namcouple</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00100">mod_oasis_namcouple.F90:100</a></div></div>
278<div class="ttc" id="namespacemod__oasis__namcouple_html_aaf6b923ffc7763fd37a5c4c72bdfa34d"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#aaf6b923ffc7763fd37a5c4c72bdfa34d">mod_oasis_namcouple::lg_oasis_field</a></div><div class="ttdeci">logical lg_oasis_field</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00135">mod_oasis_namcouple.F90:135</a></div></div>
279<div class="ttc" id="namespacemod__oasis__namcouple_html_a09ed8be682296ef584f0d5777b2c6482"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a09ed8be682296ef584f0d5777b2c6482">mod_oasis_namcouple::ig_total_nseqn</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable ig_total_nseqn</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00163">mod_oasis_namcouple.F90:163</a></div></div>
280<div class="ttc" id="namespacemod__oasis__namcouple_html_a3d7b34ed13d4ad8f86bbab3ad9956b6b"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a3d7b34ed13d4ad8f86bbab3ad9956b6b">mod_oasis_namcouple::cmapopt</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cmapopt</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00253">mod_oasis_namcouple.F90:253</a></div></div>
281<div class="ttc" id="namespacemod__oasis__namcouple_html_aad4d4857b4c424e1b0f0bcc0a01aa6e3"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#aad4d4857b4c424e1b0f0bcc0a01aa6e3">mod_oasis_namcouple::cg_input_field</a></div><div class="ttdeci">character(len=jpeighty), dimension(:), allocatable cg_input_field</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00187">mod_oasis_namcouple.F90:187</a></div></div>
282<div class="ttc" id="namespacemod__oasis__namcouple_html_a7cbf27327f01748c4f87803ccff71b61"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a7cbf27327f01748c4f87803ccff71b61">mod_oasis_namcouple::crsttype</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable crsttype</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00257">mod_oasis_namcouple.F90:257</a></div></div>
283<div class="ttc" id="namespacemod__oasis__namcouple_html_a5ddab80f5f002c5cee81e3bbcfcda6be"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a5ddab80f5f002c5cee81e3bbcfcda6be">mod_oasis_namcouple::clwgtopt</a></div><div class="ttdeci">character *9, parameter clwgtopt</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00277">mod_oasis_namcouple.F90:277</a></div></div>
284<div class="ttc" id="namespacemod__oasis__parameters_html_a6a7bcd0e3a33573729f94098ecd9a922"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a6a7bcd0e3a33573729f94098ecd9a922">mod_oasis_parameters::ip_input</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter ip_input</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00076">mod_oasis_parameters.F90:76</a></div></div>
285<div class="ttc" id="namespacemod__oasis__sys_html_ad152b6f737a7e06f8f1226af23d66361"><div class="ttname"><a href="namespacemod__oasis__sys.html#ad152b6f737a7e06f8f1226af23d66361">mod_oasis_sys::oasis_flush</a></div><div class="ttdeci">subroutine, public oasis_flush(nu)</div><div class="ttdoc">Flushes output to file. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__sys_8_f90_source.html#l00094">mod_oasis_sys.F90:94</a></div></div>
286<div class="ttc" id="namespacemod__oasis__parameters_html_ae3733a399c07b165b5ad19543ca1d2a2"><div class="ttname"><a href="namespacemod__oasis__parameters.html#ae3733a399c07b165b5ad19543ca1d2a2">mod_oasis_parameters::ip_ignored</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter ip_ignored</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00075">mod_oasis_parameters.F90:75</a></div></div>
287<div class="ttc" id="namespacemod__oasis__namcouple_html_a7657e0f9b495e291f26dc31b4f6145aa"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a7657e0f9b495e291f26dc31b4f6145aa">mod_oasis_namcouple::lcoast</a></div><div class="ttdeci">logical lcoast</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00124">mod_oasis_namcouple.F90:124</a></div></div>
288<div class="ttc" id="namespacemod__oasis__namcouple_html_a743cf58ab4240aca9ed3e0e2bf1b873c"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a743cf58ab4240aca9ed3e0e2bf1b873c">mod_oasis_namcouple::parse</a></div><div class="ttdeci">subroutine parse(cdone, cdtwo, knumb, klen, kleng, line)</div><div class="ttdoc">Subroutine to parse string. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l03517">mod_oasis_namcouple.F90:3517</a></div></div>
289<div class="ttc" id="namespacemod__oasis__namcouple_html_a839912711f8d2f44a825689e2673d0dd"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a839912711f8d2f44a825689e2673d0dd">mod_oasis_namcouple::ig_total_frqmin</a></div><div class="ttdeci">integer(kind=ip_intwp_p) ig_total_frqmin</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00176">mod_oasis_namcouple.F90:176</a></div></div>
290<div class="ttc" id="namespacemod__oasis__namcouple_html_aa179b0a473551b48ef895497515d021c"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#aa179b0a473551b48ef895497515d021c">mod_oasis_namcouple::ctper</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable ctper</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00249">mod_oasis_namcouple.F90:249</a></div></div>
291<div class="ttc" id="namespacemod__oasis__namcouple_html_a8e8c38746c6c35b13d2d9b934835188c"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a8e8c38746c6c35b13d2d9b934835188c">mod_oasis_namcouple::ig_grid_nbraf</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable ig_grid_nbraf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00174">mod_oasis_namcouple.F90:174</a></div></div>
292<div class="ttc" id="namespacemod__oasis__namcouple_html_a9fc6ac674a8cfa68d9d15ad13213e21d"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a9fc6ac674a8cfa68d9d15ad13213e21d">mod_oasis_namcouple::nammapfil</a></div><div class="ttdeci">character(len=ic_long), dimension(:), pointer, public nammapfil</div><div class="ttdoc">mapping file name </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00070">mod_oasis_namcouple.F90:70</a></div></div>
293<div class="ttc" id="namespacemod__oasis__namcouple_html_a484a71c213c89416924a0e23cfd46269"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a484a71c213c89416924a0e23cfd46269">mod_oasis_namcouple::nosper</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nosper</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00211">mod_oasis_namcouple.F90:211</a></div></div>
294<div class="ttc" id="namespacemod__oasis__namcouple_html_a1f6ff08cee0c3c5deb262c1447d88328"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a1f6ff08cee0c3c5deb262c1447d88328">mod_oasis_namcouple::cnaminp</a></div><div class="ttdeci">character(len=jpeighty), dimension(:), allocatable cnaminp</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00178">mod_oasis_namcouple.F90:178</a></div></div>
295<div class="ttc" id="namespacemod__oasis__namcouple_html_a6add94418eefdaefd78cd971888a5826"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a6add94418eefdaefd78cd971888a5826">mod_oasis_namcouple::namdst_nx</a></div><div class="ttdeci">integer(kind=ip_i4_p), dimension(:), pointer, public namdst_nx</div><div class="ttdoc">dst nx grid size </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00061">mod_oasis_namcouple.F90:61</a></div></div>
296<div class="ttc" id="namespacemod__oasis__namcouple_html_ac6216c78a2779e49f90a9a95a39c27d7"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ac6216c78a2779e49f90a9a95a39c27d7">mod_oasis_namcouple::nfexch</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nfexch</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00155">mod_oasis_namcouple.F90:155</a></div></div>
297<div class="ttc" id="namespacemod__oasis__namcouple_html_a5eaa67fd4db1a3cde074adedd984ffbe"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a5eaa67fd4db1a3cde074adedd984ffbe">mod_oasis_namcouple::canal</a></div><div class="ttdeci">character(len=8), dimension(:,:), allocatable canal</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00180">mod_oasis_namcouple.F90:180</a></div></div>
298<div class="ttc" id="namespacemod__oasis__namcouple_html_a52b0d4b9289219603308d3cb3fcc9eac"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a52b0d4b9289219603308d3cb3fcc9eac">mod_oasis_namcouple::clend</a></div><div class="ttdeci">character *9, parameter clend</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00277">mod_oasis_namcouple.F90:277</a></div></div>
299<div class="ttc" id="namespacemod__oasis__namcouple_html_a0ace7c451d8658759b9c8d871926a76e"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a0ace7c451d8658759b9c8d871926a76e">mod_oasis_namcouple::namnn2sort</a></div><div class="ttdeci">integer(kind=ip_i4_p), dimension(:), pointer, public namnn2sort</div><div class="ttdoc">sorted namcpl for nn, define sort number, computed later </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00093">mod_oasis_namcouple.F90:93</a></div></div>
300<div class="ttc" id="namespacemod__oasis__namcouple_html_a88ddb8ab5304da53ddf232e72b31cd45"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a88ddb8ab5304da53ddf232e72b31cd45">mod_oasis_namcouple::nmapdec_default</a></div><div class="ttdeci">character(len= *), parameter nmapdec_default</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00033">mod_oasis_namcouple.F90:33</a></div></div>
301<div class="ttc" id="namespacemod__oasis__namcouple_html_a9b09ac96dad78313003a9436fe2f9aec"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a9b09ac96dad78313003a9436fe2f9aec">mod_oasis_namcouple::nlatbf</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nlatbf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00159">mod_oasis_namcouple.F90:159</a></div></div>
302<div class="ttc" id="namespacemod__oasis__namcouple_html_a8a962108487c3ca092633bd4292dbfd6"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a8a962108487c3ca092633bd4292dbfd6">mod_oasis_namcouple::ntime</a></div><div class="ttdeci">integer(kind=ip_intwp_p) ntime</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00126">mod_oasis_namcouple.F90:126</a></div></div>
303<div class="ttc" id="namespacemod__oasis__namcouple_html_a90e4ce86f77bf89c71a9277ff9b5dcbb"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a90e4ce86f77bf89c71a9277ff9b5dcbb">mod_oasis_namcouple::niwtm</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable niwtm</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00265">mod_oasis_namcouple.F90:265</a></div></div>
304<div class="ttc" id="namespacemod__oasis__namcouple_html_a4551fbe4bcd69bc6d0d4f6e1ee52ea86"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a4551fbe4bcd69bc6d0d4f6e1ee52ea86">mod_oasis_namcouple::checkcomment</a></div><div class="ttdeci">logical function checkcomment(line)</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l03446">mod_oasis_namcouple.F90:3446</a></div></div>
305<div class="ttc" id="namespacemod__oasis__namcouple_html_a71ba84b9a7a813ca2551bcde99a0b5b5"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a71ba84b9a7a813ca2551bcde99a0b5b5">mod_oasis_namcouple::cnamout</a></div><div class="ttdeci">character(len=jpeighty), dimension(:), allocatable cnamout</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00179">mod_oasis_namcouple.F90:179</a></div></div>
306<div class="ttc" id="namespacemod__oasis__namcouple_html_ac8c1f0014f2c3cbe0cc4fcb09e54dde3"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ac8c1f0014f2c3cbe0cc4fcb09e54dde3">mod_oasis_namcouple::cmap_method</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cmap_method</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00250">mod_oasis_namcouple.F90:250</a></div></div>
307<div class="ttc" id="namespacemod__oasis__namcouple_html_a15338be5483b1b392e3e5580be75704d"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a15338be5483b1b392e3e5580be75704d">mod_oasis_namcouple::clhead</a></div><div class="ttdeci">character *9, parameter clhead</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00277">mod_oasis_namcouple.F90:277</a></div></div>
308<div class="ttc" id="namespacemod__oasis__namcouple_html_af0c7b1e7e49159c6b9c0dc3663264346"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#af0c7b1e7e49159c6b9c0dc3663264346">mod_oasis_namcouple::nbnfld</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nbnfld</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00200">mod_oasis_namcouple.F90:200</a></div></div>
309<div class="ttc" id="namespacemod__oasis__namcouple_html_a14505eaa91b2c8ba308c63ff78652206"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a14505eaa91b2c8ba308c63ff78652206">mod_oasis_namcouple::namruntim</a></div><div class="ttdeci">integer(kind=ip_i4_p), public namruntim</div><div class="ttdoc">namcouple runtime </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00045">mod_oasis_namcouple.F90:45</a></div></div>
310<div class="ttc" id="namespacemod__oasis__namcouple_html_aaf9fd5eaa5d115f2548b8f78cdcd172d"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#aaf9fd5eaa5d115f2548b8f78cdcd172d">mod_oasis_namcouple::ntronca</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable ntronca</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00196">mod_oasis_namcouple.F90:196</a></div></div>
311<div class="ttc" id="namespacemod__oasis__namcouple_html_a675d6fc398ff3a060fbd9949fde4d0e2"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a675d6fc398ff3a060fbd9949fde4d0e2">mod_oasis_namcouple::tmpstr2</a></div><div class="ttdeci">character *512 tmpstr2</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00300">mod_oasis_namcouple.F90:300</a></div></div>
312<div class="ttc" id="namespacemod__oasis__namcouple_html_ac623e3e0906f57983efc1ab912ce9674"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ac623e3e0906f57983efc1ab912ce9674">mod_oasis_namcouple::nmapfl</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nmapfl</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00204">mod_oasis_namcouple.F90:204</a></div></div>
313<div class="ttc" id="namespacemod__oasis__namcouple_html_a49bd874b06648257f7ce70da19a678b4"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a49bd874b06648257f7ce70da19a678b4">mod_oasis_namcouple::ntlogprt</a></div><div class="ttdeci">integer(kind=ip_intwp_p) ntlogprt</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00142">mod_oasis_namcouple.F90:142</a></div></div>
314<div class="ttc" id="namespacemod__oasis__namcouple_html_ac1a557cecb41295e7d5cb004a7937ea4"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ac1a557cecb41295e7d5cb004a7937ea4">mod_oasis_namcouple::cglonsuf</a></div><div class="ttdeci">character(len=4), parameter cglonsuf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00112">mod_oasis_namcouple.F90:112</a></div></div>
315<div class="ttc" id="namespacemod__oasis__namcouple_html_a9e90e47fd11ff4dd95c61dcf3ec872ff"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a9e90e47fd11ff4dd95c61dcf3ec872ff">mod_oasis_namcouple::cficbf</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cficbf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00189">mod_oasis_namcouple.F90:189</a></div></div>
316<div class="ttc" id="namespacemod__oasis__namcouple_html_ab47490a015fa09cf75a760dadfeb0ff9"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ab47490a015fa09cf75a760dadfeb0ff9">mod_oasis_namcouple::nuntmax</a></div><div class="ttdeci">integer(kind=ip_intwp_p) nuntmax</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00145">mod_oasis_namcouple.F90:145</a></div></div>
317<div class="ttc" id="namespacemod__oasis__namcouple_html_ab0f93bb917e445dc4e55fc2326168a42"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ab0f93bb917e445dc4e55fc2326168a42">mod_oasis_namcouple::cbofld</a></div><div class="ttdeci">character(len=8), dimension(:,:), allocatable cbofld</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00239">mod_oasis_namcouple.F90:239</a></div></div>
318<div class="ttc" id="namespacemod__oasis__namcouple_html_a21a2ef5048e9fc9551821e8a0b8dec0b"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a21a2ef5048e9fc9551821e8a0b8dec0b">mod_oasis_namcouple::cltime</a></div><div class="ttdeci">character *9, parameter cltime</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00277">mod_oasis_namcouple.F90:277</a></div></div>
319<div class="ttc" id="namespacemod__oasis__namcouple_html_a9035fc89396bad9574c88642d3aac5f0"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a9035fc89396bad9574c88642d3aac5f0">mod_oasis_namcouple::namdst_ny</a></div><div class="ttdeci">integer(kind=ip_i4_p), dimension(:), pointer, public namdst_ny</div><div class="ttdoc">dst ny grid size </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00062">mod_oasis_namcouple.F90:62</a></div></div>
320<div class="ttc" id="namespacemod__oasis__namcouple_html_af6d77b87036aa40faa1ae1ed1b2a0866"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#af6d77b87036aa40faa1ae1ed1b2a0866">mod_oasis_namcouple::cfldtype</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cfldtype</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00256">mod_oasis_namcouple.F90:256</a></div></div>
321<div class="ttc" id="namespacemod__oasis__namcouple_html_af17e746f51dcf0110428ebe55f6d7285"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#af17e746f51dcf0110428ebe55f6d7285">mod_oasis_namcouple::cficinp</a></div><div class="ttdeci">character(len=32), dimension(:), allocatable cficinp</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00184">mod_oasis_namcouple.F90:184</a></div></div>
322<div class="ttc" id="namespacemod__oasis__namcouple_html_affa727bb033c0f4d09962f2b4d1b4ab5"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#affa727bb033c0f4d09962f2b4d1b4ab5">mod_oasis_namcouple::ig_freq</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable ig_freq</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00164">mod_oasis_namcouple.F90:164</a></div></div>
323<div class="ttc" id="namespacemod__oasis__namcouple_html"><div class="ttname"><a href="namespacemod__oasis__namcouple.html">mod_oasis_namcouple</a></div><div class="ttdoc">Reads the namcouple file for use in OASIS. </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00010">mod_oasis_namcouple.F90:10</a></div></div>
324<div class="ttc" id="namespacemod__oasis__namcouple_html_a58c011820e55c9af9f306fbb1d45eb23"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a58c011820e55c9af9f306fbb1d45eb23">mod_oasis_namcouple::namchecko</a></div><div class="ttdeci">logical, dimension(:), pointer, public namchecko</div><div class="ttdoc">checkout flag </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00076">mod_oasis_namcouple.F90:76</a></div></div>
325<div class="ttc" id="namespacemod__oasis__namcouple_html_ada0ad7614eba9cc3a1e168484a520c33"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ada0ad7614eba9cc3a1e168484a520c33">mod_oasis_namcouple::naisgfl</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable naisgfl</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00262">mod_oasis_namcouple.F90:262</a></div></div>
326<div class="ttc" id="namespacemod__oasis__namcouple_html_a87c0bb7c0a2cccbb673dcaf35e3dec50"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a87c0bb7c0a2cccbb673dcaf35e3dec50">mod_oasis_namcouple::naisgvoi</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable naisgvoi</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00264">mod_oasis_namcouple.F90:264</a></div></div>
327<div class="ttc" id="namespacemod__oasis__namcouple_html_ac1be1629c1369b96a4ff08c07200a05d"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ac1be1629c1369b96a4ff08c07200a05d">mod_oasis_namcouple::lg_state</a></div><div class="ttdeci">logical, dimension(:), allocatable lg_state</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00177">mod_oasis_namcouple.F90:177</a></div></div>
328<div class="ttc" id="namespacemod__oasis__namcouple_html_ad1bd3ea485ad5f5114eb4b7f8c831ccb"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ad1bd3ea485ad5f5114eb4b7f8c831ccb">mod_oasis_namcouple::namnorest</a></div><div class="ttdeci">logical, public namnorest</div><div class="ttdoc">namcouple allow no restarts </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00050">mod_oasis_namcouple.F90:50</a></div></div>
329<div class="ttc" id="namespacemod__oasis__namcouple_html_a6eec7fe795bfb9c2058c7953c072d442"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a6eec7fe795bfb9c2058c7953c072d442">mod_oasis_namcouple::cg_restart_file</a></div><div class="ttdeci">character(len=32), dimension(:), allocatable cg_restart_file</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00183">mod_oasis_namcouple.F90:183</a></div></div>
330<div class="ttc" id="namespacemod__oasis__namcouple_html_a6e774d31f16b513b1d604e72a82dff40"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a6e774d31f16b513b1d604e72a82dff40">mod_oasis_namcouple::nlonbf</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable nlonbf</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00158">mod_oasis_namcouple.F90:158</a></div></div>
331<div class="ttc" id="namespacemod__oasis__namcouple_html_ae66cf9f63b6c440406c9b675caef7759"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ae66cf9f63b6c440406c9b675caef7759">mod_oasis_namcouple::ig_maxnoa</a></div><div class="ttdeci">integer(kind=ip_intwp_p) ig_maxnoa</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00137">mod_oasis_namcouple.F90:137</a></div></div>
332<div class="ttc" id="namespacemod__oasis__namcouple_html_af8d81a53bd28ddf6bfe19f5e05f1d867"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#af8d81a53bd28ddf6bfe19f5e05f1d867">mod_oasis_namcouple::ccofld</a></div><div class="ttdeci">character(len=8), dimension(:,:), allocatable ccofld</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00238">mod_oasis_namcouple.F90:238</a></div></div>
333<div class="ttc" id="namespacemod__oasis__parameters_html_a3b96d31bbe142d84df2b93880498936f"><div class="ttname"><a href="namespacemod__oasis__parameters.html#a3b96d31bbe142d84df2b93880498936f">mod_oasis_parameters::ip_cbaspos</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter ip_cbaspos</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00096">mod_oasis_parameters.F90:96</a></div></div>
334<div class="ttc" id="namespacemod__oasis__namcouple_html_a3379333e7d0f24b776c81b1087f3a3b4"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a3379333e7d0f24b776c81b1087f3a3b4">mod_oasis_namcouple::niwtng</a></div><div class="ttdeci">integer(kind=ip_intwp_p), dimension(:), allocatable niwtng</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00272">mod_oasis_namcouple.F90:272</a></div></div>
335<div class="ttc" id="namespacemod__oasis__parameters_html_ae043e4e2c2b7f04fec7d8c061ef52934"><div class="ttname"><a href="namespacemod__oasis__parameters.html#ae043e4e2c2b7f04fec7d8c061ef52934">mod_oasis_parameters::ip_cnone</a></div><div class="ttdeci">integer(kind=ip_intwp_p), parameter ip_cnone</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__parameters_8_f90_source.html#l00092">mod_oasis_parameters.F90:92</a></div></div>
336<div class="ttc" id="namespacemod__oasis__namcouple_html_a535fadd17426c228698e3a51fd54b605"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a535fadd17426c228698e3a51fd54b605">mod_oasis_namcouple::cconmet</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cconmet</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00234">mod_oasis_namcouple.F90:234</a></div></div>
337<div class="ttc" id="namespacemod__oasis__namcouple_html_a392f40531007d5dcc084e6ad4a393fd7"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a392f40531007d5dcc084e6ad4a393fd7">mod_oasis_namcouple::namscrnor</a></div><div class="ttdeci">character(len=ic_med), dimension(:), pointer, public namscrnor</div><div class="ttdoc">scrip conserv normalization (FRACAREA, DESTAREA, FRACNNEI) </div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00083">mod_oasis_namcouple.F90:83</a></div></div>
338<div class="ttc" id="namespacemod__oasis__namcouple_html_a5db101d0bffaf6fbd5ae10d1d0069108"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#a5db101d0bffaf6fbd5ae10d1d0069108">mod_oasis_namcouple::cgrdext</a></div><div class="ttdeci">character(len=8), dimension(:), allocatable cgrdext</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00247">mod_oasis_namcouple.F90:247</a></div></div>
339<div class="ttc" id="namespacemod__oasis__namcouple_html_ad7829e2434eb8214b599ba49395c9fc5"><div class="ttname"><a href="namespacemod__oasis__namcouple.html#ad7829e2434eb8214b599ba49395c9fc5">mod_oasis_namcouple::nwgtopt</a></div><div class="ttdeci">character(len=ic_med) nwgtopt</div><div class="ttdef"><b>Definition:</b> <a href="mod__oasis__namcouple_8_f90_source.html#l00151">mod_oasis_namcouple.F90:151</a></div></div>
340</div><!-- fragment --></div><!-- contents -->
341<!-- start footer part -->
342<hr class="footer"/><address class="footer"><small>
343Generated on Fri Jun 29 2018 20:52:28 for Oasis3-MCT by &#160;<a href="http://www.doxygen.org/index.html">
344<img class="footer" src="doxygen.png" alt="doxygen"/>
345</a> 1.8.13
346</small></address>
347</body>
348</html>
Note: See TracBrowser for help on using the repository browser.