|
521 | 521 | <div class="line"><a id="l00381" name="l00381"></a><span class="lineno"> 381</span><span class="preprocessor"></span> <span class="keyword">call </span>s_prohibit_abort(.and.<span class="stringliteral">"fft_wrt MOD(n_glb+1,n+1) /= 0"</span>, <span class="stringliteral">"FFT WRT requires n_glb to be divisible by num_procs_y"</span>)</div> |
522 | 522 | <div class="line"><a id="l00382" name="l00382"></a><span class="lineno"> 382</span><span class="preprocessor"># 31 "/home/runner/work/MFC/MFC/src/post_process/m_checker.fpp"</span></div> |
523 | 523 | <div class="line"><a id="l00383" name="l00383"></a><span class="lineno"> 383</span><span class="preprocessor"></span><span class="keywordflow"> end if</span></div> |
524 | | -<div class="line"><a id="l00384" name="l00384"></a><span class="lineno"> 384</span> <span class="keywordflow">if</span> (fft_wrt .and. mod(<a class="code hl_variable" href="namespacem__global__parameters.html#a1072f221ca8e41b0ea3240b33374cc1e">p_glb</a>+1,p+1) /= 0) <span class="keywordflow">then</span></div> |
525 | | -<div class="line"><a id="l00385" name="l00385"></a><span class="lineno"> 385</span><span class="preprocessor"># 32 "/home/runner/work/MFC/MFC/src/post_process/m_checker.fpp"</span></div> |
526 | | -<div class="line"><a id="l00386" name="l00386"></a><span class="lineno"> 386</span><span class="preprocessor"></span> <span class="keyword">call </span>s_prohibit_abort(.and.<span class="stringliteral">"fft_wrt MOD(p_glb+1,p+1) /= 0"</span>, <span class="stringliteral">"FFT WRT requires p_glb to be divisible by num_procs_z"</span>)</div> |
527 | | -<div class="line"><a id="l00387" name="l00387"></a><span class="lineno"> 387</span><span class="preprocessor"># 32 "/home/runner/work/MFC/MFC/src/post_process/m_checker.fpp"</span></div> |
528 | | -<div class="line"><a id="l00388" name="l00388"></a><span class="lineno"> 388</span><span class="preprocessor"></span><span class="keywordflow"> end if</span></div> |
529 | | -<div class="line"><a id="l00389" name="l00389"></a><span class="lineno"> 389</span> num_procs_y = (<a class="code hl_variable" href="namespacem__global__parameters.html#adab11dab474410541d4c37725bea01e1">n_glb</a> + 1)/(n + 1)</div> |
530 | | -<div class="line"><a id="l00390" name="l00390"></a><span class="lineno"> 390</span> num_procs_z = (<a class="code hl_variable" href="namespacem__global__parameters.html#a1072f221ca8e41b0ea3240b33374cc1e">p_glb</a> + 1)/(p + 1)</div> |
531 | | -<div class="line"><a id="l00391" name="l00391"></a><span class="lineno"> 391</span> <span class="keywordflow">if</span> (fft_wrt .and. mod(<a class="code hl_variable" href="namespacem__global__parameters.html#ad4e160df8d0de7ea1801a1ca29f8e9b0">m_glb</a>+1,num_procs_y) /= 0) <span class="keywordflow">then</span></div> |
532 | | -<div class="line"><a id="l00392" name="l00392"></a><span class="lineno"> 392</span><span class="preprocessor"># 35 "/home/runner/work/MFC/MFC/src/post_process/m_checker.fpp"</span></div> |
533 | | -<div class="line"><a id="l00393" name="l00393"></a><span class="lineno"> 393</span><span class="preprocessor"></span> <span class="keyword">call </span>s_prohibit_abort(.and.<span class="stringliteral">"fft_wrt MOD(m_glb+1,num_procs_y) /= 0"</span>, <span class="stringliteral">"FFT WRT requires m_glb to be divisible by num_procs_y"</span>)</div> |
| 524 | +<div class="line"><a id="l00384" name="l00384"></a><span class="lineno"> 384</span><span class="preprocessor"># 32 "/home/runner/work/MFC/MFC/src/post_process/m_checker.fpp"</span></div> |
| 525 | +<div class="line"><a id="l00385" name="l00385"></a><span class="lineno"> 385</span><span class="preprocessor"></span> <span class="keywordflow">if</span> (fft_wrt .and. mod(<a class="code hl_variable" href="namespacem__global__parameters.html#a1072f221ca8e41b0ea3240b33374cc1e">p_glb</a>+1,p+1) /= 0) <span class="keywordflow">then</span></div> |
| 526 | +<div class="line"><a id="l00386" name="l00386"></a><span class="lineno"> 386</span><span class="preprocessor"># 32 "/home/runner/work/MFC/MFC/src/post_process/m_checker.fpp"</span></div> |
| 527 | +<div class="line"><a id="l00387" name="l00387"></a><span class="lineno"> 387</span><span class="preprocessor"></span> <span class="keyword">call </span>s_prohibit_abort(.and.<span class="stringliteral">"fft_wrt MOD(p_glb+1,p+1) /= 0"</span>, <span class="stringliteral">"FFT WRT requires p_glb to be divisible by num_procs_z"</span>)</div> |
| 528 | +<div class="line"><a id="l00388" name="l00388"></a><span class="lineno"> 388</span><span class="preprocessor"># 32 "/home/runner/work/MFC/MFC/src/post_process/m_checker.fpp"</span></div> |
| 529 | +<div class="line"><a id="l00389" name="l00389"></a><span class="lineno"> 389</span><span class="preprocessor"></span><span class="keywordflow"> end if</span></div> |
| 530 | +<div class="line"><a id="l00390" name="l00390"></a><span class="lineno"> 390</span><span class="preprocessor"># 33 "/home/runner/work/MFC/MFC/src/post_process/m_checker.fpp"</span></div> |
| 531 | +<div class="line"><a id="l00391" name="l00391"></a><span class="lineno"> 391</span><span class="preprocessor"></span> num_procs_y = (<a class="code hl_variable" href="namespacem__global__parameters.html#adab11dab474410541d4c37725bea01e1">n_glb</a> + 1)/(n + 1)</div> |
| 532 | +<div class="line"><a id="l00392" name="l00392"></a><span class="lineno"> 392</span> num_procs_z = (<a class="code hl_variable" href="namespacem__global__parameters.html#a1072f221ca8e41b0ea3240b33374cc1e">p_glb</a> + 1)/(p + 1)</div> |
| 533 | +<div class="line"><a id="l00393" name="l00393"></a><span class="lineno"> 393</span> <span class="keywordflow">if</span> (fft_wrt .and. mod(<a class="code hl_variable" href="namespacem__global__parameters.html#ad4e160df8d0de7ea1801a1ca29f8e9b0">m_glb</a>+1,num_procs_y) /= 0) <span class="keywordflow">then</span></div> |
534 | 534 | <div class="line"><a id="l00394" name="l00394"></a><span class="lineno"> 394</span><span class="preprocessor"># 35 "/home/runner/work/MFC/MFC/src/post_process/m_checker.fpp"</span></div> |
535 | | -<div class="line"><a id="l00395" name="l00395"></a><span class="lineno"> 395</span><span class="preprocessor"></span><span class="keywordflow"> end if</span></div> |
536 | | -<div class="line"><a id="l00396" name="l00396"></a><span class="lineno"> 396</span> <span class="keywordflow">if</span> (fft_wrt .and. mod(<a class="code hl_variable" href="namespacem__global__parameters.html#adab11dab474410541d4c37725bea01e1">n_glb</a>+1,num_procs_z) /= 0) <span class="keywordflow">then</span></div> |
537 | | -<div class="line"><a id="l00397" name="l00397"></a><span class="lineno"> 397</span><span class="preprocessor"># 36 "/home/runner/work/MFC/MFC/src/post_process/m_checker.fpp"</span></div> |
538 | | -<div class="line"><a id="l00398" name="l00398"></a><span class="lineno"> 398</span><span class="preprocessor"></span> <span class="keyword">call </span>s_prohibit_abort(.and.<span class="stringliteral">"fft_wrt MOD(n_glb+1,num_procs_z) /= 0"</span>, <span class="stringliteral">"FFT WRT requires n_glb to be divisible by num_procs_z"</span>)</div> |
539 | | -<div class="line"><a id="l00399" name="l00399"></a><span class="lineno"> 399</span><span class="preprocessor"># 36 "/home/runner/work/MFC/MFC/src/post_process/m_checker.fpp"</span></div> |
540 | | -<div class="line"><a id="l00400" name="l00400"></a><span class="lineno"> 400</span><span class="preprocessor"></span><span class="keywordflow"> end if</span></div> |
541 | | -<div class="line"><a id="l00401" name="l00401"></a><span class="lineno"> 401</span> </div> |
| 535 | +<div class="line"><a id="l00395" name="l00395"></a><span class="lineno"> 395</span><span class="preprocessor"></span> <span class="keyword">call </span>s_prohibit_abort(.and.<span class="stringliteral">"fft_wrt MOD(m_glb+1,num_procs_y) /= 0"</span>, <span class="stringliteral">"FFT WRT requires m_glb to be divisible by num_procs_y"</span>)</div> |
| 536 | +<div class="line"><a id="l00396" name="l00396"></a><span class="lineno"> 396</span><span class="preprocessor"># 35 "/home/runner/work/MFC/MFC/src/post_process/m_checker.fpp"</span></div> |
| 537 | +<div class="line"><a id="l00397" name="l00397"></a><span class="lineno"> 397</span><span class="preprocessor"></span><span class="keywordflow"> end if</span></div> |
| 538 | +<div class="line"><a id="l00398" name="l00398"></a><span class="lineno"> 398</span><span class="preprocessor"># 36 "/home/runner/work/MFC/MFC/src/post_process/m_checker.fpp"</span></div> |
| 539 | +<div class="line"><a id="l00399" name="l00399"></a><span class="lineno"> 399</span><span class="preprocessor"></span> <span class="keywordflow">if</span> (fft_wrt .and. mod(<a class="code hl_variable" href="namespacem__global__parameters.html#adab11dab474410541d4c37725bea01e1">n_glb</a>+1,num_procs_z) /= 0) <span class="keywordflow">then</span></div> |
| 540 | +<div class="line"><a id="l00400" name="l00400"></a><span class="lineno"> 400</span><span class="preprocessor"># 36 "/home/runner/work/MFC/MFC/src/post_process/m_checker.fpp"</span></div> |
| 541 | +<div class="line"><a id="l00401" name="l00401"></a><span class="lineno"> 401</span><span class="preprocessor"></span> <span class="keyword">call </span>s_prohibit_abort(.and.<span class="stringliteral">"fft_wrt MOD(n_glb+1,num_procs_z) /= 0"</span>, <span class="stringliteral">"FFT WRT requires n_glb to be divisible by num_procs_z"</span>)</div> |
| 542 | +<div class="line"><a id="l00402" name="l00402"></a><span class="lineno"> 402</span><span class="preprocessor"># 36 "/home/runner/work/MFC/MFC/src/post_process/m_checker.fpp"</span></div> |
| 543 | +<div class="line"><a id="l00403" name="l00403"></a><span class="lineno"> 403</span><span class="preprocessor"></span><span class="keywordflow"> end if</span></div> |
| 544 | +<div class="line"><a id="l00404" name="l00404"></a><span class="lineno"> 404</span><span class="preprocessor"># 37 "/home/runner/work/MFC/MFC/src/post_process/m_checker.fpp"</span></div> |
| 545 | +<div class="line"><a id="l00405" name="l00405"></a><span class="lineno"> 405</span><span class="preprocessor"></span> </div> |
542 | 546 | </div> |
543 | | -<div class="line"><a id="l00402" name="l00402"></a><span class="lineno"> 402</span> <span class="keyword">end subroutine </span><a class="code hl_function" href="namespacem__checker.html#a584c7102ac72172ee7ed4c46993f7808">s_check_inputs_fft</a></div> |
544 | | -<div class="line"><a id="l00403" name="l00403"></a><span class="lineno"> 403</span> </div> |
545 | | -<div class="line"><a id="l00404" name="l00404"></a><span class="lineno"> 404</span><span class="keyword">end module </span><a class="code hl_namespace" href="namespacem__checker.html">m_checker</a></div> |
| 547 | +<div class="line"><a id="l00406" name="l00406"></a><span class="lineno"> 406</span> <span class="keyword">end subroutine </span><a class="code hl_function" href="namespacem__checker.html#a584c7102ac72172ee7ed4c46993f7808">s_check_inputs_fft</a></div> |
| 548 | +<div class="line"><a id="l00407" name="l00407"></a><span class="lineno"> 407</span> </div> |
| 549 | +<div class="line"><a id="l00408" name="l00408"></a><span class="lineno"> 408</span><span class="keyword">end module </span><a class="code hl_namespace" href="namespacem__checker.html">m_checker</a></div> |
546 | 550 | <div class="ttc" id="anamespacem__checker_html"><div class="ttname"><a href="namespacem__checker.html">m_checker</a></div><div class="ttdoc">Validates post-process input parameters and output format consistency.</div><div class="ttdef"><b>Definition</b> <a href="#l00356">m_checker.fpp.f90:356</a></div></div> |
547 | 551 | <div class="ttc" id="anamespacem__checker_html_a214e05cb46bc7c3e0dbe55fdc433c072"><div class="ttname"><a href="namespacem__checker.html#a214e05cb46bc7c3e0dbe55fdc433c072">m_checker::s_check_inputs</a></div><div class="ttdeci">impure subroutine, public s_check_inputs</div><div class="ttdoc">Checks compatibility of parameters in the input file. Used by the post_process stage.</div><div class="ttdef"><b>Definition</b> <a href="#l00370">m_checker.fpp.f90:371</a></div></div> |
548 | 552 | <div class="ttc" id="anamespacem__checker_html_a584c7102ac72172ee7ed4c46993f7808"><div class="ttname"><a href="namespacem__checker.html#a584c7102ac72172ee7ed4c46993f7808">m_checker::s_check_inputs_fft</a></div><div class="ttdeci">impure subroutine, public s_check_inputs_fft</div><div class="ttdoc">Checks constraints on fft_wrt.</div><div class="ttdef"><b>Definition</b> <a href="#l00375">m_checker.fpp.f90:376</a></div></div> |
|
0 commit comments