-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathBlatter_8cc_source.html
1447 lines (1445 loc) · 305 KB
/
Blatter_8cc_source.html
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<meta http-equiv="X-UA-Compatible" content="IE=9"/>
<meta name="generator" content="Doxygen 1.9.1"/>
<meta name="viewport" content="width=device-width, initial-scale=1"/>
<title>PISM, A Parallel Ice Sheet Model: src/stressbalance/blatter/Blatter.cc Source File</title>
<link href="tabs.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="jquery.js"></script>
<script type="text/javascript" src="dynsections.js"></script>
<link href="search/search.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="search/searchdata.js"></script>
<script type="text/javascript" src="search/search.js"></script>
<script type="text/x-mathjax-config">
MathJax.Hub.Config({
extensions: ["tex2jax.js"],
jax: ["input/TeX","output/HTML-CSS"],
});
</script>
<script type="text/javascript" async="async" src="https://cdn.jsdelivr.net/npm/mathjax@2/MathJax.js"></script>
<link href="doxygen.css" rel="stylesheet" type="text/css" />
<link href="browser.css" rel="stylesheet" type="text/css"/>
</head>
<body>
<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
<div id="titlearea">
<table cellspacing="0" cellpadding="0">
<tbody>
<tr style="height: 56px;">
<td id="projectalign" style="padding-left: 0.5em;">
<div id="projectname">PISM, A Parallel Ice Sheet Model
 <span id="projectnumber">stable v2.1.1 committed by Constantine Khrulev on 2024-12-04 13:36:58 -0900</span>
</div>
</td>
</tr>
</tbody>
</table>
</div>
<!-- end header part -->
<!-- Generated by Doxygen 1.9.1 -->
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:cf05388f2679ee054f2beb29a391d25f4e673ac3&dn=gpl-2.0.txt GPL-v2 */
var searchBox = new SearchBox("searchBox", "search",false,'Search','.html');
/* @license-end */
</script>
<script type="text/javascript" src="menudata.js"></script>
<script type="text/javascript" src="menu.js"></script>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:cf05388f2679ee054f2beb29a391d25f4e673ac3&dn=gpl-2.0.txt GPL-v2 */
$(function() {
initMenu('',true,false,'search.php','Search');
$(document).ready(function() { init_search(); });
});
/* @license-end */</script>
<div id="main-nav"></div>
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
onmouseover="return searchBox.OnSearchSelectShow()"
onmouseout="return searchBox.OnSearchSelectHide()"
onkeydown="return searchBox.OnSearchSelectKey(event)">
</div>
<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<iframe src="javascript:void(0)" frameborder="0"
name="MSearchResults" id="MSearchResults">
</iframe>
</div>
<div id="nav-path" class="navpath">
<ul>
<li class="navelem"><a class="el" href="dir_68267d1309a1af8e8297ef4c3efbcdba.html">src</a></li><li class="navelem"><a class="el" href="dir_337d79c4e85232f0487076e092bb4774.html">stressbalance</a></li><li class="navelem"><a class="el" href="dir_c9b2b73883624fafb10ae5f85b13ba58.html">blatter</a></li> </ul>
</div>
</div><!-- top -->
<div class="header">
<div class="headertitle">
<div class="title">Blatter.cc</div> </div>
</div><!--header-->
<div class="contents">
<a href="Blatter_8cc.html">Go to the documentation of this file.</a><div class="fragment"><div class="line"><a name="l00001"></a><span class="lineno"> 1</span> <span class="comment">/* Copyright (C) 2020, 2021, 2022, 2023 PISM Authors</span></div>
<div class="line"><a name="l00002"></a><span class="lineno"> 2</span> <span class="comment"> *</span></div>
<div class="line"><a name="l00003"></a><span class="lineno"> 3</span> <span class="comment"> * This file is part of PISM.</span></div>
<div class="line"><a name="l00004"></a><span class="lineno"> 4</span> <span class="comment"> *</span></div>
<div class="line"><a name="l00005"></a><span class="lineno"> 5</span> <span class="comment"> * PISM is free software; you can redistribute it and/or modify it under the</span></div>
<div class="line"><a name="l00006"></a><span class="lineno"> 6</span> <span class="comment"> * terms of the GNU General Public License as published by the Free Software</span></div>
<div class="line"><a name="l00007"></a><span class="lineno"> 7</span> <span class="comment"> * Foundation; either version 3 of the License, or (at your option) any later</span></div>
<div class="line"><a name="l00008"></a><span class="lineno"> 8</span> <span class="comment"> * version.</span></div>
<div class="line"><a name="l00009"></a><span class="lineno"> 9</span> <span class="comment"> *</span></div>
<div class="line"><a name="l00010"></a><span class="lineno"> 10</span> <span class="comment"> * PISM is distributed in the hope that it will be useful, but WITHOUT ANY</span></div>
<div class="line"><a name="l00011"></a><span class="lineno"> 11</span> <span class="comment"> * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS</span></div>
<div class="line"><a name="l00012"></a><span class="lineno"> 12</span> <span class="comment"> * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more</span></div>
<div class="line"><a name="l00013"></a><span class="lineno"> 13</span> <span class="comment"> * details.</span></div>
<div class="line"><a name="l00014"></a><span class="lineno"> 14</span> <span class="comment"> *</span></div>
<div class="line"><a name="l00015"></a><span class="lineno"> 15</span> <span class="comment"> * You should have received a copy of the GNU General Public License</span></div>
<div class="line"><a name="l00016"></a><span class="lineno"> 16</span> <span class="comment"> * along with PISM; if not, write to the Free Software</span></div>
<div class="line"><a name="l00017"></a><span class="lineno"> 17</span> <span class="comment"> * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA</span></div>
<div class="line"><a name="l00018"></a><span class="lineno"> 18</span> <span class="comment"> */</span></div>
<div class="line"><a name="l00019"></a><span class="lineno"> 19</span>  </div>
<div class="line"><a name="l00020"></a><span class="lineno"> 20</span> <span class="preprocessor">#include <cassert></span> <span class="comment">// assert</span></div>
<div class="line"><a name="l00021"></a><span class="lineno"> 21</span> <span class="preprocessor">#include <cmath></span> <span class="comment">// std::pow, std::fabs, std::log10</span></div>
<div class="line"><a name="l00022"></a><span class="lineno"> 22</span> <span class="preprocessor">#include <algorithm></span> <span class="comment">// std::max</span></div>
<div class="line"><a name="l00023"></a><span class="lineno"> 23</span> <span class="preprocessor">#include <cstring></span> <span class="comment">// memset</span></div>
<div class="line"><a name="l00024"></a><span class="lineno"> 24</span>  </div>
<div class="line"><a name="l00025"></a><span class="lineno"> 25</span> <span class="preprocessor">#include "pism/stressbalance/blatter/Blatter.hh"</span></div>
<div class="line"><a name="l00026"></a><span class="lineno"> 26</span> <span class="preprocessor">#include "pism/util/error_handling.hh"</span></div>
<div class="line"><a name="l00027"></a><span class="lineno"> 27</span> <span class="preprocessor">#include "pism/util/Vector2d.hh"</span></div>
<div class="line"><a name="l00028"></a><span class="lineno"> 28</span>  </div>
<div class="line"><a name="l00029"></a><span class="lineno"> 29</span> <span class="preprocessor">#include "pism/stressbalance/blatter/util/DataAccess.hh"</span></div>
<div class="line"><a name="l00030"></a><span class="lineno"> 30</span> <span class="preprocessor">#include "pism/stressbalance/blatter/util/grid_hierarchy.hh"</span></div>
<div class="line"><a name="l00031"></a><span class="lineno"> 31</span> <span class="preprocessor">#include "pism/util/node_types.hh"</span></div>
<div class="line"><a name="l00032"></a><span class="lineno"> 32</span>  </div>
<div class="line"><a name="l00033"></a><span class="lineno"> 33</span> <span class="preprocessor">#include "pism/rheology/FlowLawFactory.hh"</span></div>
<div class="line"><a name="l00034"></a><span class="lineno"> 34</span>  </div>
<div class="line"><a name="l00035"></a><span class="lineno"> 35</span> <span class="preprocessor">#include "pism/geometry/Geometry.hh"</span></div>
<div class="line"><a name="l00036"></a><span class="lineno"> 36</span> <span class="preprocessor">#include "pism/stressbalance/StressBalance.hh"</span></div>
<div class="line"><a name="l00037"></a><span class="lineno"> 37</span> <span class="preprocessor">#include "pism/util/array/Array3D.hh"</span></div>
<div class="line"><a name="l00038"></a><span class="lineno"> 38</span> <span class="preprocessor">#include "pism/util/pism_options.hh"</span></div>
<div class="line"><a name="l00039"></a><span class="lineno"> 39</span> <span class="preprocessor">#include "pism/util/pism_utilities.hh"</span> <span class="comment">// pism::printf()</span></div>
<div class="line"><a name="l00040"></a><span class="lineno"> 40</span>  </div>
<div class="line"><a name="l00041"></a><span class="lineno"> 41</span> <span class="keyword">namespace </span><a class="code" href="namespacepism.html">pism</a> {</div>
<div class="line"><a name="l00042"></a><span class="lineno"> 42</span> <span class="keyword">namespace </span>stressbalance {</div>
<div class="line"><a name="l00043"></a><span class="lineno"> 43</span> <span class="comment"></span> </div>
<div class="line"><a name="l00044"></a><span class="lineno"> 44</span> <span class="comment">/*!</span></div>
<div class="line"><a name="l00045"></a><span class="lineno"> 45</span> <span class="comment"> * Compute node type using domain thickness and the thickness threshold `min_thickness`.</span></div>
<div class="line"><a name="l00046"></a><span class="lineno"> 46</span> <span class="comment"> *</span></div>
<div class="line"><a name="l00047"></a><span class="lineno"> 47</span> <span class="comment"> * An element contains ice if ice thickness at all its nodes equal or exceeds the</span></div>
<div class="line"><a name="l00048"></a><span class="lineno"> 48</span> <span class="comment"> * `min_thickness` threshold.</span></div>
<div class="line"><a name="l00049"></a><span class="lineno"> 49</span> <span class="comment"> *</span></div>
<div class="line"><a name="l00050"></a><span class="lineno"> 50</span> <span class="comment"> * A node is *interior* if all four elements it belongs to contain ice.</span></div>
<div class="line"><a name="l00051"></a><span class="lineno"> 51</span> <span class="comment"> *</span></div>
<div class="line"><a name="l00052"></a><span class="lineno"> 52</span> <span class="comment"> * A node is *exterior* if it belongs to zero icy elements.</span></div>
<div class="line"><a name="l00053"></a><span class="lineno"> 53</span> <span class="comment"> *</span></div>
<div class="line"><a name="l00054"></a><span class="lineno"> 54</span> <span class="comment"> * A node that is neither interior nor exterior is a *boundary* node.</span></div>
<div class="line"><a name="l00055"></a><span class="lineno"> 55</span> <span class="comment"> */</span></div>
<div class="line"><a name="l00056"></a><span class="lineno"><a class="line" href="classpism_1_1stressbalance_1_1Blatter_a2fbe2ae3843d5af3c375c9c05ad29fb2.html#a2fbe2ae3843d5af3c375c9c05ad29fb2"> 56</a></span> <span class="keywordtype">void</span> <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a2fbe2ae3843d5af3c375c9c05ad29fb2.html#a2fbe2ae3843d5af3c375c9c05ad29fb2">Blatter::compute_node_type</a>(<span class="keywordtype">double</span> min_thickness) {</div>
<div class="line"><a name="l00057"></a><span class="lineno"> 57</span>  </div>
<div class="line"><a name="l00058"></a><span class="lineno"> 58</span>  <a class="code" href="classpism_1_1array_1_1Scalar1.html">array::Scalar1</a> node_type(<a class="code" href="classpism_1_1Component_a745aa37bc1b5da6db5bfc280ecb3c811.html#a745aa37bc1b5da6db5bfc280ecb3c811">m_grid</a>, <span class="stringliteral">"node_type"</span>);</div>
<div class="line"><a name="l00059"></a><span class="lineno"> 59</span>  node_type.<a class="code" href="classpism_1_1array_1_1Array_a9959fcf0124f084e6a2835ed745ce0d1.html#a9959fcf0124f084e6a2835ed745ce0d1">set</a>(0.0);</div>
<div class="line"><a name="l00060"></a><span class="lineno"> 60</span>  </div>
<div class="line"><a name="l00061"></a><span class="lineno"> 61</span>  DMDALocalInfo info;</div>
<div class="line"><a name="l00062"></a><span class="lineno"> 62</span>  <span class="keywordtype">int</span> ierr = DMDAGetLocalInfo(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_abfde66efd52fefc0631817a6baa519e1.html#abfde66efd52fefc0631817a6baa519e1">m_da</a>, &info); <a class="code" href="error__handling_8hh_a970ec877c0e54c6e16c039bfa1b88bad.html#a970ec877c0e54c6e16c039bfa1b88bad">PISM_CHK</a>(ierr, <span class="stringliteral">"DMDAGetLocalInfo"</span>);</div>
<div class="line"><a name="l00063"></a><span class="lineno"> 63</span>  info = <a class="code" href="namespacepism_a4bed65c5e9ffe8b9bbe6f80b744885bb.html#a4bed65c5e9ffe8b9bbe6f80b744885bb">grid_transpose</a>(info);</div>
<div class="line"><a name="l00064"></a><span class="lineno"> 64</span>  </div>
<div class="line"><a name="l00065"></a><span class="lineno"> 65</span>  <span class="comment">// Note that dx, dy, and quadrature don't matter here.</span></div>
<div class="line"><a name="l00066"></a><span class="lineno"> 66</span>  <a class="code" href="classpism_1_1fem_1_1Q1Element2.html">fem::Q1Element2</a> E(info, 1.0, 1.0, <a class="code" href="classpism_1_1fem_1_1Q1Quadrature1.html">fem::Q1Quadrature1</a>());</div>
<div class="line"><a name="l00067"></a><span class="lineno"> 67</span>  </div>
<div class="line"><a name="l00068"></a><span class="lineno"> 68</span>  <a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1Parameters.html">Parameters</a> p[<a class="code" href="namespacepism_1_1fem_1_1q1_ac174d66fdbd953c89d3094cf72801f9e.html#ac174d66fdbd953c89d3094cf72801f9e">fem::q1::n_chi</a>];</div>
<div class="line"><a name="l00069"></a><span class="lineno"> 69</span>  </div>
<div class="line"><a name="l00070"></a><span class="lineno"> 70</span>  <a class="code" href="classpism_1_1array_1_1AccessScope.html">array::AccessScope</a> l{&node_type, &<a class="code" href="classpism_1_1stressbalance_1_1Blatter_accd8cbc28303d9405d2b65dccf7a17f6.html#accd8cbc28303d9405d2b65dccf7a17f6">m_parameters</a>};</div>
<div class="line"><a name="l00071"></a><span class="lineno"> 71</span>  </div>
<div class="line"><a name="l00072"></a><span class="lineno"> 72</span>  <span class="comment">// Loop over all the elements with at least one owned node and compute the number of icy</span></div>
<div class="line"><a name="l00073"></a><span class="lineno"> 73</span>  <span class="comment">// elements each node belongs to.</span></div>
<div class="line"><a name="l00074"></a><span class="lineno"> 74</span>  <span class="keywordflow">for</span> (<span class="keywordtype">int</span> j = info.gys; j < info.gys + info.gym - 1; j++) {</div>
<div class="line"><a name="l00075"></a><span class="lineno"> 75</span>  <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = info.gxs; i < info.gxs + info.gxm - 1; i++) {</div>
<div class="line"><a name="l00076"></a><span class="lineno"> 76</span>  E.<a class="code" href="classpism_1_1fem_1_1Element2_a3b197d3387dcf4e69dac45426570756d.html#a3b197d3387dcf4e69dac45426570756d">reset</a>(i, j);</div>
<div class="line"><a name="l00077"></a><span class="lineno"> 77</span>  </div>
<div class="line"><a name="l00078"></a><span class="lineno"> 78</span>  E.<a class="code" href="classpism_1_1fem_1_1Element2_adb26bcaded6dab7a2447d49ca206e7da.html#adb26bcaded6dab7a2447d49ca206e7da">nodal_values</a>(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_accd8cbc28303d9405d2b65dccf7a17f6.html#accd8cbc28303d9405d2b65dccf7a17f6">m_parameters</a>.array(), p);</div>
<div class="line"><a name="l00079"></a><span class="lineno"> 79</span>  </div>
<div class="line"><a name="l00080"></a><span class="lineno"> 80</span>  <span class="comment">// An element is "interior" (contains ice) if all of its nodes have thickness above</span></div>
<div class="line"><a name="l00081"></a><span class="lineno"> 81</span>  <span class="comment">// the threshold</span></div>
<div class="line"><a name="l00082"></a><span class="lineno"> 82</span>  <span class="keywordtype">bool</span> interior = <span class="keyword">true</span>;</div>
<div class="line"><a name="l00083"></a><span class="lineno"> 83</span>  <span class="keywordflow">for</span> (<span class="keywordtype">int</span> <a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a> = 0; <a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a> < <a class="code" href="namespacepism_1_1fem_1_1q1_ac174d66fdbd953c89d3094cf72801f9e.html#ac174d66fdbd953c89d3094cf72801f9e">fem::q1::n_chi</a>; ++<a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a>) {</div>
<div class="line"><a name="l00084"></a><span class="lineno"> 84</span>  <span class="keywordflow">if</span> (p[<a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a>].thickness < min_thickness) {</div>
<div class="line"><a name="l00085"></a><span class="lineno"> 85</span>  interior = <span class="keyword">false</span>;</div>
<div class="line"><a name="l00086"></a><span class="lineno"> 86</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l00087"></a><span class="lineno"> 87</span>  }</div>
<div class="line"><a name="l00088"></a><span class="lineno"> 88</span>  }</div>
<div class="line"><a name="l00089"></a><span class="lineno"> 89</span>  </div>
<div class="line"><a name="l00090"></a><span class="lineno"> 90</span>  <span class="keywordflow">for</span> (<span class="keywordtype">int</span> <a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a> = 0; <a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a> < <a class="code" href="namespacepism_1_1fem_1_1q1_ac174d66fdbd953c89d3094cf72801f9e.html#ac174d66fdbd953c89d3094cf72801f9e">fem::q1::n_chi</a>; ++<a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a>) {</div>
<div class="line"><a name="l00091"></a><span class="lineno"> 91</span>  <span class="keywordtype">int</span> ii, jj;</div>
<div class="line"><a name="l00092"></a><span class="lineno"> 92</span>  E.<a class="code" href="classpism_1_1fem_1_1Element2_a2b4cba391971e17973d8ccacd9347d89.html#a2b4cba391971e17973d8ccacd9347d89">local_to_global</a>(<a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a>, ii, jj);</div>
<div class="line"><a name="l00093"></a><span class="lineno"> 93</span>  node_type(ii, jj) += <span class="keyword">static_cast<</span><span class="keywordtype">double</span><span class="keyword">></span>(interior);</div>
<div class="line"><a name="l00094"></a><span class="lineno"> 94</span>  }</div>
<div class="line"><a name="l00095"></a><span class="lineno"> 95</span>  }</div>
<div class="line"><a name="l00096"></a><span class="lineno"> 96</span>  }</div>
<div class="line"><a name="l00097"></a><span class="lineno"> 97</span>  </div>
<div class="line"><a name="l00098"></a><span class="lineno"> 98</span>  node_type.<a class="code" href="classpism_1_1array_1_1Array_ad9defa70b851fd2dfac595cfcbb9d803.html#ad9defa70b851fd2dfac595cfcbb9d803">update_ghosts</a>();</div>
<div class="line"><a name="l00099"></a><span class="lineno"> 99</span>  </div>
<div class="line"><a name="l00100"></a><span class="lineno"> 100</span>  <span class="comment">// Loop over all the owned nodes and turn the number of "icy" elements this node belongs</span></div>
<div class="line"><a name="l00101"></a><span class="lineno"> 101</span>  <span class="comment">// to into node type.</span></div>
<div class="line"><a name="l00102"></a><span class="lineno"> 102</span>  <span class="keywordflow">for</span> (<span class="keywordtype">int</span> j = info.ys; j < info.ys + info.ym; j++) {</div>
<div class="line"><a name="l00103"></a><span class="lineno"> 103</span>  <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = info.xs; i < info.xs + info.xm; i++) {</div>
<div class="line"><a name="l00104"></a><span class="lineno"> 104</span>  </div>
<div class="line"><a name="l00105"></a><span class="lineno"> 105</span>  <span class="keywordflow">switch</span> ((<span class="keywordtype">int</span>)node_type(i, j)) {</div>
<div class="line"><a name="l00106"></a><span class="lineno"> 106</span>  <span class="keywordflow">case</span> 4:</div>
<div class="line"><a name="l00107"></a><span class="lineno"> 107</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_accd8cbc28303d9405d2b65dccf7a17f6.html#accd8cbc28303d9405d2b65dccf7a17f6">m_parameters</a>(i, j).node_type = <a class="code" href="namespacepism_a29133ed3f28e0aaba2d3af612dbbc5d6.html#a29133ed3f28e0aaba2d3af612dbbc5d6a7b96df4f2ad7c1cbd177d46c49af4aab">NODE_INTERIOR</a>;</div>
<div class="line"><a name="l00108"></a><span class="lineno"> 108</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l00109"></a><span class="lineno"> 109</span>  <span class="keywordflow">case</span> 0:</div>
<div class="line"><a name="l00110"></a><span class="lineno"> 110</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_accd8cbc28303d9405d2b65dccf7a17f6.html#accd8cbc28303d9405d2b65dccf7a17f6">m_parameters</a>(i, j).node_type = <a class="code" href="namespacepism_a29133ed3f28e0aaba2d3af612dbbc5d6.html#a29133ed3f28e0aaba2d3af612dbbc5d6a439a40e16153abe158520a9b110fd8bd">NODE_EXTERIOR</a>;</div>
<div class="line"><a name="l00111"></a><span class="lineno"> 111</span>  <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l00112"></a><span class="lineno"> 112</span>  <span class="keywordflow">default</span>:</div>
<div class="line"><a name="l00113"></a><span class="lineno"> 113</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_accd8cbc28303d9405d2b65dccf7a17f6.html#accd8cbc28303d9405d2b65dccf7a17f6">m_parameters</a>(i, j).node_type = <a class="code" href="namespacepism_a29133ed3f28e0aaba2d3af612dbbc5d6.html#a29133ed3f28e0aaba2d3af612dbbc5d6a043c9212bcba2789d9a5eb622e894054">NODE_BOUNDARY</a>;</div>
<div class="line"><a name="l00114"></a><span class="lineno"> 114</span>  }</div>
<div class="line"><a name="l00115"></a><span class="lineno"> 115</span>  }</div>
<div class="line"><a name="l00116"></a><span class="lineno"> 116</span>  }</div>
<div class="line"><a name="l00117"></a><span class="lineno"> 117</span> }</div>
<div class="line"><a name="l00118"></a><span class="lineno"> 118</span> <span class="comment"></span> </div>
<div class="line"><a name="l00119"></a><span class="lineno"> 119</span> <span class="comment">/*!</span></div>
<div class="line"><a name="l00120"></a><span class="lineno"> 120</span> <span class="comment"> * Returns true if a node is in the Dirichlet part of the boundary, false otherwise.</span></div>
<div class="line"><a name="l00121"></a><span class="lineno"> 121</span> <span class="comment"> *</span></div>
<div class="line"><a name="l00122"></a><span class="lineno"> 122</span> <span class="comment"> * Used by verification tests.</span></div>
<div class="line"><a name="l00123"></a><span class="lineno"> 123</span> <span class="comment"> */</span></div>
<div class="line"><a name="l00124"></a><span class="lineno"><a class="line" href="classpism_1_1stressbalance_1_1Blatter_acd43a35732a181d2f873f859617b976c.html#acd43a35732a181d2f873f859617b976c"> 124</a></span> <span class="keywordtype">bool</span> <a class="code" href="classpism_1_1stressbalance_1_1Blatter_acd43a35732a181d2f873f859617b976c.html#acd43a35732a181d2f873f859617b976c">Blatter::dirichlet_node</a>(<span class="keyword">const</span> DMDALocalInfo &info, <span class="keyword">const</span> <a class="code" href="structpism_1_1fem_1_1Element3_1_1GlobalIndex.html">fem::Element3::GlobalIndex</a>& <a class="code" href="ssafd__code_8cc_a87ae798803dece6c82b4e7cb734f4cc3.html#a87ae798803dece6c82b4e7cb734f4cc3">I</a>) {</div>
<div class="line"><a name="l00125"></a><span class="lineno"> 125</span>  (void) info;</div>
<div class="line"><a name="l00126"></a><span class="lineno"> 126</span>  (void) <a class="code" href="ssafd__code_8cc_a87ae798803dece6c82b4e7cb734f4cc3.html#a87ae798803dece6c82b4e7cb734f4cc3">I</a>;</div>
<div class="line"><a name="l00127"></a><span class="lineno"> 127</span>  <span class="keywordflow">return</span> <span class="keyword">false</span>;</div>
<div class="line"><a name="l00128"></a><span class="lineno"> 128</span> }</div>
<div class="line"><a name="l00129"></a><span class="lineno"> 129</span> <span class="comment"></span> </div>
<div class="line"><a name="l00130"></a><span class="lineno"> 130</span> <span class="comment">/*! Dirichlet BC</span></div>
<div class="line"><a name="l00131"></a><span class="lineno"> 131</span> <span class="comment">*/</span></div>
<div class="line"><a name="l00132"></a><span class="lineno"><a class="line" href="classpism_1_1stressbalance_1_1Blatter_a25e8162b5b20435a3d1608c6f536ad54.html#a25e8162b5b20435a3d1608c6f536ad54"> 132</a></span> <a class="code" href="classpism_1_1Vector2d.html">Vector2d</a> <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a25e8162b5b20435a3d1608c6f536ad54.html#a25e8162b5b20435a3d1608c6f536ad54">Blatter::u_bc</a>(<span class="keywordtype">double</span> x, <span class="keywordtype">double</span> y, <span class="keywordtype">double</span> z)<span class="keyword"> const </span>{</div>
<div class="line"><a name="l00133"></a><span class="lineno"> 133</span>  (void) x;</div>
<div class="line"><a name="l00134"></a><span class="lineno"> 134</span>  (void) y;</div>
<div class="line"><a name="l00135"></a><span class="lineno"> 135</span>  (void) z;</div>
<div class="line"><a name="l00136"></a><span class="lineno"> 136</span>  <span class="keywordflow">return</span> {0.0, 0.0};</div>
<div class="line"><a name="l00137"></a><span class="lineno"> 137</span> }</div>
<div class="line"><a name="l00138"></a><span class="lineno"> 138</span> <span class="comment"></span> </div>
<div class="line"><a name="l00139"></a><span class="lineno"> 139</span> <span class="comment">/*!</span></div>
<div class="line"><a name="l00140"></a><span class="lineno"> 140</span> <span class="comment"> * Return true if an element does not contain ice, i.e. is a part of the "exterior" of the</span></div>
<div class="line"><a name="l00141"></a><span class="lineno"> 141</span> <span class="comment"> * ice mass.</span></div>
<div class="line"><a name="l00142"></a><span class="lineno"> 142</span> <span class="comment"> *</span></div>
<div class="line"><a name="l00143"></a><span class="lineno"> 143</span> <span class="comment"> * @param[in] node_type node type at the nodes of an element (an array of 8 integers; only</span></div>
<div class="line"><a name="l00144"></a><span class="lineno"> 144</span> <span class="comment"> * 4 are used)</span></div>
<div class="line"><a name="l00145"></a><span class="lineno"> 145</span> <span class="comment"> */</span></div>
<div class="line"><a name="l00146"></a><span class="lineno"><a class="line" href="classpism_1_1stressbalance_1_1Blatter_abdffc987b7c3743259afa2c9b3700450.html#abdffc987b7c3743259afa2c9b3700450"> 146</a></span> <span class="keywordtype">bool</span> <a class="code" href="classpism_1_1stressbalance_1_1Blatter_abdffc987b7c3743259afa2c9b3700450.html#abdffc987b7c3743259afa2c9b3700450">Blatter::exterior_element</a>(<span class="keyword">const</span> <span class="keywordtype">int</span> *node_type) {</div>
<div class="line"><a name="l00147"></a><span class="lineno"> 147</span>  <span class="comment">// number of nodes per map-plane cell</span></div>
<div class="line"><a name="l00148"></a><span class="lineno"> 148</span>  <span class="keywordtype">int</span> N = 4;</div>
<div class="line"><a name="l00149"></a><span class="lineno"> 149</span>  <span class="keywordflow">for</span> (<span class="keywordtype">int</span> <a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a> = 0; <a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a> < N; ++<a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a>) {</div>
<div class="line"><a name="l00150"></a><span class="lineno"> 150</span>  <span class="keywordflow">if</span> (node_type[<a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a>] == <a class="code" href="namespacepism_a29133ed3f28e0aaba2d3af612dbbc5d6.html#a29133ed3f28e0aaba2d3af612dbbc5d6a439a40e16153abe158520a9b110fd8bd">NODE_EXTERIOR</a>) {</div>
<div class="line"><a name="l00151"></a><span class="lineno"> 151</span>  <span class="keywordflow">return</span> <span class="keyword">true</span>;</div>
<div class="line"><a name="l00152"></a><span class="lineno"> 152</span>  }</div>
<div class="line"><a name="l00153"></a><span class="lineno"> 153</span>  }</div>
<div class="line"><a name="l00154"></a><span class="lineno"> 154</span>  <span class="keywordflow">return</span> <span class="keyword">false</span>;</div>
<div class="line"><a name="l00155"></a><span class="lineno"> 155</span> }</div>
<div class="line"><a name="l00156"></a><span class="lineno"> 156</span> <span class="comment"></span> </div>
<div class="line"><a name="l00157"></a><span class="lineno"> 157</span> <span class="comment">/*!</span></div>
<div class="line"><a name="l00158"></a><span class="lineno"> 158</span> <span class="comment"> * Return true if the current map-plane cell contains the grounding line, false otherwise.</span></div>
<div class="line"><a name="l00159"></a><span class="lineno"> 159</span> <span class="comment"> *</span></div>
<div class="line"><a name="l00160"></a><span class="lineno"> 160</span> <span class="comment"> * This is used to determine whether to use more quadrature points to estimate integrals</span></div>
<div class="line"><a name="l00161"></a><span class="lineno"> 161</span> <span class="comment"> * over the bottom face of the basal element.</span></div>
<div class="line"><a name="l00162"></a><span class="lineno"> 162</span> <span class="comment"> *</span></div>
<div class="line"><a name="l00163"></a><span class="lineno"> 163</span> <span class="comment"> * The code takes advantage of the ordering of element nodes: lower 4 first, then upper 4.</span></div>
<div class="line"><a name="l00164"></a><span class="lineno"> 164</span> <span class="comment"> * This means that we can loop over the first 4 nodes and ignore the other 4.</span></div>
<div class="line"><a name="l00165"></a><span class="lineno"> 165</span> <span class="comment"> */</span></div>
<div class="line"><a name="l00166"></a><span class="lineno"><a class="line" href="classpism_1_1stressbalance_1_1Blatter_ac7c5df32d2bf3727978bddc51045748b.html#ac7c5df32d2bf3727978bddc51045748b"> 166</a></span> <span class="keywordtype">bool</span> <a class="code" href="classpism_1_1stressbalance_1_1Blatter_ac7c5df32d2bf3727978bddc51045748b.html#ac7c5df32d2bf3727978bddc51045748b">Blatter::grounding_line</a>(<span class="keyword">const</span> <span class="keywordtype">double</span> *<a class="code" href="namespacepism_a200b1c89a64c718f6b0f585508e55172.html#a200b1c89a64c718f6b0f585508e55172">F</a>) {</div>
<div class="line"><a name="l00167"></a><span class="lineno"> 167</span>  </div>
<div class="line"><a name="l00168"></a><span class="lineno"> 168</span>  <span class="comment">// number of nodes per map-plane cell</span></div>
<div class="line"><a name="l00169"></a><span class="lineno"> 169</span>  <span class="keywordtype">int</span> N = 4;</div>
<div class="line"><a name="l00170"></a><span class="lineno"> 170</span>  </div>
<div class="line"><a name="l00171"></a><span class="lineno"> 171</span>  <span class="keywordtype">bool</span></div>
<div class="line"><a name="l00172"></a><span class="lineno"> 172</span>  <a class="code" href="namespacepism_1_1mask_ad47d0a5b232f9cf32bcb243f8dce9594.html#ad47d0a5b232f9cf32bcb243f8dce9594">grounded</a> = <span class="keyword">false</span>,</div>
<div class="line"><a name="l00173"></a><span class="lineno"> 173</span>  floating = <span class="keyword">false</span>;</div>
<div class="line"><a name="l00174"></a><span class="lineno"> 174</span>  </div>
<div class="line"><a name="l00175"></a><span class="lineno"> 175</span>  <span class="keywordflow">for</span> (<span class="keywordtype">int</span> <a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a> = 0; <a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a> < N; ++<a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a>) {</div>
<div class="line"><a name="l00176"></a><span class="lineno"> 176</span>  <span class="keywordflow">if</span> (<a class="code" href="namespacepism_a200b1c89a64c718f6b0f585508e55172.html#a200b1c89a64c718f6b0f585508e55172">F</a>[<a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a>] <= 0.0) {</div>
<div class="line"><a name="l00177"></a><span class="lineno"> 177</span>  <a class="code" href="namespacepism_1_1mask_ad47d0a5b232f9cf32bcb243f8dce9594.html#ad47d0a5b232f9cf32bcb243f8dce9594">grounded</a> = <span class="keyword">true</span>;</div>
<div class="line"><a name="l00178"></a><span class="lineno"> 178</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00179"></a><span class="lineno"> 179</span>  floating = <span class="keyword">true</span>;</div>
<div class="line"><a name="l00180"></a><span class="lineno"> 180</span>  }</div>
<div class="line"><a name="l00181"></a><span class="lineno"> 181</span>  }</div>
<div class="line"><a name="l00182"></a><span class="lineno"> 182</span>  </div>
<div class="line"><a name="l00183"></a><span class="lineno"> 183</span>  <span class="keywordflow">return</span> <a class="code" href="namespacepism_1_1mask_ad47d0a5b232f9cf32bcb243f8dce9594.html#ad47d0a5b232f9cf32bcb243f8dce9594">grounded</a> and floating;</div>
<div class="line"><a name="l00184"></a><span class="lineno"> 184</span> }</div>
<div class="line"><a name="l00185"></a><span class="lineno"> 185</span> <span class="comment"></span> </div>
<div class="line"><a name="l00186"></a><span class="lineno"> 186</span> <span class="comment">/*!</span></div>
<div class="line"><a name="l00187"></a><span class="lineno"> 187</span> <span class="comment"> * Return true if the current vertical face is partially submerged.</span></div>
<div class="line"><a name="l00188"></a><span class="lineno"> 188</span> <span class="comment"> *</span></div>
<div class="line"><a name="l00189"></a><span class="lineno"> 189</span> <span class="comment"> * This is used to determine whether to use more quadrature points to estimate integrals</span></div>
<div class="line"><a name="l00190"></a><span class="lineno"> 190</span> <span class="comment"> * over this face when computing lateral boundary conditions.</span></div>
<div class="line"><a name="l00191"></a><span class="lineno"> 191</span> <span class="comment"> */</span></div>
<div class="line"><a name="l00192"></a><span class="lineno"><a class="line" href="classpism_1_1stressbalance_1_1Blatter_a46c0a6336a7b29a698bcfef1c1c32dfa.html#a46c0a6336a7b29a698bcfef1c1c32dfa"> 192</a></span> <span class="keywordtype">bool</span> <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a46c0a6336a7b29a698bcfef1c1c32dfa.html#a46c0a6336a7b29a698bcfef1c1c32dfa">Blatter::partially_submerged_face</a>(<span class="keywordtype">int</span> face, <span class="keyword">const</span> <span class="keywordtype">double</span> *z, <span class="keyword">const</span> <span class="keywordtype">double</span> *sea_level) {</div>
<div class="line"><a name="l00193"></a><span class="lineno"> 193</span>  <span class="keyword">const</span> <span class="keyword">auto</span> *nodes = <a class="code" href="namespacepism_1_1fem_1_1q13d_aa17b814c434bd5ce04062bbf0a914c1b.html#aa17b814c434bd5ce04062bbf0a914c1b">fem::q13d::incident_nodes</a>[face];</div>
<div class="line"><a name="l00194"></a><span class="lineno"> 194</span>  </div>
<div class="line"><a name="l00195"></a><span class="lineno"> 195</span>  <span class="comment">// number of nodes per face</span></div>
<div class="line"><a name="l00196"></a><span class="lineno"> 196</span>  <span class="keywordtype">int</span> N = 4;</div>
<div class="line"><a name="l00197"></a><span class="lineno"> 197</span>  </div>
<div class="line"><a name="l00198"></a><span class="lineno"> 198</span>  <span class="keywordtype">bool</span></div>
<div class="line"><a name="l00199"></a><span class="lineno"> 199</span>  above = <span class="keyword">false</span>,</div>
<div class="line"><a name="l00200"></a><span class="lineno"> 200</span>  below = <span class="keyword">false</span>;</div>
<div class="line"><a name="l00201"></a><span class="lineno"> 201</span>  </div>
<div class="line"><a name="l00202"></a><span class="lineno"> 202</span>  <span class="keywordflow">for</span> (<span class="keywordtype">int</span> <a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a> = 0; <a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a> < N; ++<a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a>) {</div>
<div class="line"><a name="l00203"></a><span class="lineno"> 203</span>  <span class="keyword">auto</span> <a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a> = nodes[<a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a>];</div>
<div class="line"><a name="l00204"></a><span class="lineno"> 204</span>  <span class="keywordflow">if</span> (z[<a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a>] > sea_level[<a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a>]) {</div>
<div class="line"><a name="l00205"></a><span class="lineno"> 205</span>  above = <span class="keyword">true</span>;</div>
<div class="line"><a name="l00206"></a><span class="lineno"> 206</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00207"></a><span class="lineno"> 207</span>  below = <span class="keyword">true</span>;</div>
<div class="line"><a name="l00208"></a><span class="lineno"> 208</span>  }</div>
<div class="line"><a name="l00209"></a><span class="lineno"> 209</span>  }</div>
<div class="line"><a name="l00210"></a><span class="lineno"> 210</span>  </div>
<div class="line"><a name="l00211"></a><span class="lineno"> 211</span>  <span class="keywordflow">return</span> above and below;</div>
<div class="line"><a name="l00212"></a><span class="lineno"> 212</span> }</div>
<div class="line"><a name="l00213"></a><span class="lineno"> 213</span> <span class="comment"></span> </div>
<div class="line"><a name="l00214"></a><span class="lineno"> 214</span> <span class="comment">/*!</span></div>
<div class="line"><a name="l00215"></a><span class="lineno"> 215</span> <span class="comment"> * Return true if the current face is a part of the marine ice boundary (i.e. at a</span></div>
<div class="line"><a name="l00216"></a><span class="lineno"> 216</span> <span class="comment"> * partially-submerged vertical cliff), false otherwise.</span></div>
<div class="line"><a name="l00217"></a><span class="lineno"> 217</span> <span class="comment"> *</span></div>
<div class="line"><a name="l00218"></a><span class="lineno"> 218</span> <span class="comment"> * A face is a part of the marine boundary if all four nodes are boundary nodes *and* at</span></div>
<div class="line"><a name="l00219"></a><span class="lineno"> 219</span> <span class="comment"> * least one map-plane location has bottom elevation below sea level (floatation level).</span></div>
<div class="line"><a name="l00220"></a><span class="lineno"> 220</span> <span class="comment"> *</span></div>
<div class="line"><a name="l00221"></a><span class="lineno"> 221</span> <span class="comment"> * If a node is *both* a boundary and a Dirichlet node (this may happen), then we treat it</span></div>
<div class="line"><a name="l00222"></a><span class="lineno"> 222</span> <span class="comment"> * as a boundary node here: element.add_contribution() will do the right thing in this</span></div>
<div class="line"><a name="l00223"></a><span class="lineno"> 223</span> <span class="comment"> * case.</span></div>
<div class="line"><a name="l00224"></a><span class="lineno"> 224</span> <span class="comment"> */</span></div>
<div class="line"><a name="l00225"></a><span class="lineno"><a class="line" href="classpism_1_1stressbalance_1_1Blatter_a41a7bd48b4657906a609f0f675e6def4.html#a41a7bd48b4657906a609f0f675e6def4"> 225</a></span> <span class="keywordtype">bool</span> <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a41a7bd48b4657906a609f0f675e6def4.html#a41a7bd48b4657906a609f0f675e6def4">Blatter::marine_boundary</a>(<span class="keywordtype">int</span> face,</div>
<div class="line"><a name="l00226"></a><span class="lineno"> 226</span>  <span class="keyword">const</span> <span class="keywordtype">int</span> *node_type,</div>
<div class="line"><a name="l00227"></a><span class="lineno"> 227</span>  <span class="keyword">const</span> <span class="keywordtype">double</span> *ice_bottom,</div>
<div class="line"><a name="l00228"></a><span class="lineno"> 228</span>  <span class="keyword">const</span> <span class="keywordtype">double</span> *sea_level) {</div>
<div class="line"><a name="l00229"></a><span class="lineno"> 229</span>  <span class="keyword">const</span> <span class="keyword">auto</span> *nodes = <a class="code" href="namespacepism_1_1fem_1_1q13d_aa17b814c434bd5ce04062bbf0a914c1b.html#aa17b814c434bd5ce04062bbf0a914c1b">fem::q13d::incident_nodes</a>[face];</div>
<div class="line"><a name="l00230"></a><span class="lineno"> 230</span>  </div>
<div class="line"><a name="l00231"></a><span class="lineno"> 231</span>  <span class="comment">// number of nodes per face</span></div>
<div class="line"><a name="l00232"></a><span class="lineno"> 232</span>  <span class="keywordtype">int</span> N = 4;</div>
<div class="line"><a name="l00233"></a><span class="lineno"> 233</span>  </div>
<div class="line"><a name="l00234"></a><span class="lineno"> 234</span>  <span class="comment">// exclude faces that contain at least one node that is not a part of the boundary</span></div>
<div class="line"><a name="l00235"></a><span class="lineno"> 235</span>  <span class="keywordflow">for</span> (<span class="keywordtype">int</span> <a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a> = 0; <a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a> < N; ++<a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a>) {</div>
<div class="line"><a name="l00236"></a><span class="lineno"> 236</span>  <span class="keywordflow">if</span> (not (node_type[nodes[<a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a>]] == <a class="code" href="namespacepism_a29133ed3f28e0aaba2d3af612dbbc5d6.html#a29133ed3f28e0aaba2d3af612dbbc5d6a043c9212bcba2789d9a5eb622e894054">NODE_BOUNDARY</a>)) {</div>
<div class="line"><a name="l00237"></a><span class="lineno"> 237</span>  <span class="keywordflow">return</span> <span class="keyword">false</span>;</div>
<div class="line"><a name="l00238"></a><span class="lineno"> 238</span>  }</div>
<div class="line"><a name="l00239"></a><span class="lineno"> 239</span>  }</div>
<div class="line"><a name="l00240"></a><span class="lineno"> 240</span>  </div>
<div class="line"><a name="l00241"></a><span class="lineno"> 241</span>  <span class="comment">// This face is a part of the lateral boundary. Now we need to check if ice_bottom is</span></div>
<div class="line"><a name="l00242"></a><span class="lineno"> 242</span>  <span class="comment">// below sea_level at one of the nodes of this face.</span></div>
<div class="line"><a name="l00243"></a><span class="lineno"> 243</span>  <span class="keywordflow">for</span> (<span class="keywordtype">int</span> <a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a> = 0; <a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a> < N; ++<a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a>) {</div>
<div class="line"><a name="l00244"></a><span class="lineno"> 244</span>  <span class="keywordflow">if</span> (ice_bottom[nodes[<a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a>]] < sea_level[nodes[<a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a>]]) {</div>
<div class="line"><a name="l00245"></a><span class="lineno"> 245</span>  <span class="keywordflow">return</span> <span class="keyword">true</span>;</div>
<div class="line"><a name="l00246"></a><span class="lineno"> 246</span>  }</div>
<div class="line"><a name="l00247"></a><span class="lineno"> 247</span>  }</div>
<div class="line"><a name="l00248"></a><span class="lineno"> 248</span>  <span class="keywordflow">return</span> <span class="keyword">false</span>;</div>
<div class="line"><a name="l00249"></a><span class="lineno"> 249</span> }</div>
<div class="line"><a name="l00250"></a><span class="lineno"> 250</span> <span class="comment"></span> </div>
<div class="line"><a name="l00251"></a><span class="lineno"> 251</span> <span class="comment">/*!</span></div>
<div class="line"><a name="l00252"></a><span class="lineno"> 252</span> <span class="comment"> * Allocate the Blatter-Pattyn stress balance solver</span></div>
<div class="line"><a name="l00253"></a><span class="lineno"> 253</span> <span class="comment"> *</span></div>
<div class="line"><a name="l00254"></a><span class="lineno"> 254</span> <span class="comment"> * @param[in] grid PISM's grid.</span></div>
<div class="line"><a name="l00255"></a><span class="lineno"> 255</span> <span class="comment"> * @param[in] Mz number of vertical levels</span></div>
<div class="line"><a name="l00256"></a><span class="lineno"> 256</span> <span class="comment"> * @param[in] coarsening_factor grid coarsening factor</span></div>
<div class="line"><a name="l00257"></a><span class="lineno"> 257</span> <span class="comment"> */</span></div>
<div class="line"><a name="l00258"></a><span class="lineno"><a class="line" href="classpism_1_1stressbalance_1_1Blatter_ab16a512bdf9901482f4b5d1256290032.html#ab16a512bdf9901482f4b5d1256290032"> 258</a></span> <a class="code" href="classpism_1_1stressbalance_1_1Blatter_ab16a512bdf9901482f4b5d1256290032.html#ab16a512bdf9901482f4b5d1256290032">Blatter::Blatter</a>(std::shared_ptr<const Grid> grid, <span class="keywordtype">int</span> Mz, <span class="keywordtype">int</span> coarsening_factor)</div>
<div class="line"><a name="l00259"></a><span class="lineno"> 259</span>  : <a class="code" href="classpism_1_1stressbalance_1_1ShallowStressBalance.html">ShallowStressBalance</a>(grid),</div>
<div class="line"><a name="l00260"></a><span class="lineno"> 260</span>  m_parameters(grid, <span class="stringliteral">"bp_input_parameters"</span>, array::<a class="code" href="namespacepism_1_1array_ab49b8ee9a79e7f46ec91fc40efdb7ca3.html#ab49b8ee9a79e7f46ec91fc40efdb7ca3a7aa2276678f0b2cd3f63c15be430372f">WITH_GHOSTS</a>),</div>
<div class="line"><a name="l00261"></a><span class="lineno"> 261</span>  m_face4(grid->dx(), grid->dy(), fem::Q1Quadrature4()), <span class="comment">// 4-point Gaussian quadrature</span></div>
<div class="line"><a name="l00262"></a><span class="lineno"> 262</span>  m_face100(grid->dx(), grid->dy(), fem::Q1QuadratureN(10)) <span class="comment">// 100-point quadrature for grounding lines</span></div>
<div class="line"><a name="l00263"></a><span class="lineno"> 263</span> {</div>
<div class="line"><a name="l00264"></a><span class="lineno"> 264</span>  </div>
<div class="line"><a name="l00265"></a><span class="lineno"> 265</span>  assert(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_a45a16b73ff821937daaf0428712cd541.html#a45a16b73ff821937daaf0428712cd541">m_face4</a>.<a class="code" href="classpism_1_1fem_1_1Q1Element3Face_aef10ff39e40c33c1acbac188c7e81727.html#aef10ff39e40c33c1acbac188c7e81727">n_pts</a>() <= <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a75b5adfe50ece2db2d0e306cbf68bf35.html#a75b5adfe50ece2db2d0e306cbf68bf35">m_Nq</a>);</div>
<div class="line"><a name="l00266"></a><span class="lineno"> 266</span>  assert(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_a75d1df47230e02f9716744ccc8f6a108.html#a75d1df47230e02f9716744ccc8f6a108">m_face100</a>.<a class="code" href="classpism_1_1fem_1_1Q1Element3Face_aef10ff39e40c33c1acbac188c7e81727.html#aef10ff39e40c33c1acbac188c7e81727">n_pts</a>() <= <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a75b5adfe50ece2db2d0e306cbf68bf35.html#a75b5adfe50ece2db2d0e306cbf68bf35">m_Nq</a>);</div>
<div class="line"><a name="l00267"></a><span class="lineno"> 267</span>  </div>
<div class="line"><a name="l00268"></a><span class="lineno"> 268</span>  <span class="keyword">auto</span> pism_da = <a class="code" href="classpism_1_1Component_a1d7fa2a58f259a9c5e464f8738db6ef0.html#a1d7fa2a58f259a9c5e464f8738db6ef0">grid</a>->get_dm(1, 0);</div>
<div class="line"><a name="l00269"></a><span class="lineno"> 269</span>  </div>
<div class="line"><a name="l00270"></a><span class="lineno"> 270</span>  <span class="keywordtype">int</span> ierr = <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a67d182574d6f2021d12efc82caa05c1c.html#a67d182574d6f2021d12efc82caa05c1c">setup</a>(*pism_da, <a class="code" href="classpism_1_1Component_a1d7fa2a58f259a9c5e464f8738db6ef0.html#a1d7fa2a58f259a9c5e464f8738db6ef0">grid</a>->periodicity(), Mz, coarsening_factor, <span class="stringliteral">"bp_"</span>);</div>
<div class="line"><a name="l00271"></a><span class="lineno"> 271</span>  <span class="keywordflow">if</span> (ierr != 0) {</div>
<div class="line"><a name="l00272"></a><span class="lineno"> 272</span>  <span class="keywordflow">throw</span> <a class="code" href="classpism_1_1RuntimeError.html">RuntimeError</a>(<a class="code" href="error__handling_8hh_aa0c260bffe8a4dbd77d48e8feee7c526.html#aa0c260bffe8a4dbd77d48e8feee7c526">PISM_ERROR_LOCATION</a>,</div>
<div class="line"><a name="l00273"></a><span class="lineno"> 273</span>  <span class="stringliteral">"Failed to allocate a Blatter solver instance"</span>);</div>
<div class="line"><a name="l00274"></a><span class="lineno"> 274</span>  }</div>
<div class="line"><a name="l00275"></a><span class="lineno"> 275</span>  </div>
<div class="line"><a name="l00276"></a><span class="lineno"> 276</span>  {</div>
<div class="line"><a name="l00277"></a><span class="lineno"> 277</span>  std::vector<double> sigma(Mz);</div>
<div class="line"><a name="l00278"></a><span class="lineno"> 278</span>  <span class="keywordtype">double</span> dz = 1.0 / (Mz - 1.0);</div>
<div class="line"><a name="l00279"></a><span class="lineno"> 279</span>  <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < Mz; ++i) {</div>
<div class="line"><a name="l00280"></a><span class="lineno"> 280</span>  sigma[i] = i * dz;</div>
<div class="line"><a name="l00281"></a><span class="lineno"> 281</span>  }</div>
<div class="line"><a name="l00282"></a><span class="lineno"> 282</span>  sigma.back() = 1.0;</div>
<div class="line"><a name="l00283"></a><span class="lineno"> 283</span>  </div>
<div class="line"><a name="l00284"></a><span class="lineno"> 284</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a5370139cab7e6e020ce44d7f7e798efc.html#a5370139cab7e6e020ce44d7f7e798efc">m_u_sigma</a> = std::make_shared<array::Array3D>(<a class="code" href="classpism_1_1Component_a1d7fa2a58f259a9c5e464f8738db6ef0.html#a1d7fa2a58f259a9c5e464f8738db6ef0">grid</a>, <span class="stringliteral">"uvel_sigma"</span>, <a class="code" href="namespacepism_1_1array_ab49b8ee9a79e7f46ec91fc40efdb7ca3.html#ab49b8ee9a79e7f46ec91fc40efdb7ca3af672399d2e1a4112ca5d4a4591c30885">array::WITHOUT_GHOSTS</a>, sigma);</div>
<div class="line"><a name="l00285"></a><span class="lineno"> 285</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a5370139cab7e6e020ce44d7f7e798efc.html#a5370139cab7e6e020ce44d7f7e798efc">m_u_sigma</a>->metadata(0)</div>
<div class="line"><a name="l00286"></a><span class="lineno"> 286</span>  .long_name(<span class="stringliteral">"u velocity component on the sigma grid"</span>)</div>
<div class="line"><a name="l00287"></a><span class="lineno"> 287</span>  .units(<span class="stringliteral">"m s-1"</span>);</div>
<div class="line"><a name="l00288"></a><span class="lineno"> 288</span>  </div>
<div class="line"><a name="l00289"></a><span class="lineno"> 289</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_add080561cff9ccf545285a805581bd3e.html#add080561cff9ccf545285a805581bd3e">m_v_sigma</a> = std::make_shared<array::Array3D>(<a class="code" href="classpism_1_1Component_a1d7fa2a58f259a9c5e464f8738db6ef0.html#a1d7fa2a58f259a9c5e464f8738db6ef0">grid</a>, <span class="stringliteral">"vvel_sigma"</span>, <a class="code" href="namespacepism_1_1array_ab49b8ee9a79e7f46ec91fc40efdb7ca3.html#ab49b8ee9a79e7f46ec91fc40efdb7ca3af672399d2e1a4112ca5d4a4591c30885">array::WITHOUT_GHOSTS</a>, sigma);</div>
<div class="line"><a name="l00290"></a><span class="lineno"> 290</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_add080561cff9ccf545285a805581bd3e.html#add080561cff9ccf545285a805581bd3e">m_v_sigma</a>->metadata(0)</div>
<div class="line"><a name="l00291"></a><span class="lineno"> 291</span>  .long_name(<span class="stringliteral">"v velocity component on the sigma grid"</span>)</div>
<div class="line"><a name="l00292"></a><span class="lineno"> 292</span>  .units(<span class="stringliteral">"m s-1"</span>);</div>
<div class="line"><a name="l00293"></a><span class="lineno"> 293</span>  </div>
<div class="line"><a name="l00294"></a><span class="lineno"> 294</span>  std::map<std::string,std::string> z_attrs =</div>
<div class="line"><a name="l00295"></a><span class="lineno"> 295</span>  {{<span class="stringliteral">"axis"</span>, <span class="stringliteral">"Z"</span>},</div>
<div class="line"><a name="l00296"></a><span class="lineno"> 296</span>  {<span class="stringliteral">"long_name"</span>, <span class="stringliteral">"scaled Z-coordinate in the ice (z_base=0, z_surface=1)"</span>},</div>
<div class="line"><a name="l00297"></a><span class="lineno"> 297</span>  {<span class="stringliteral">"units"</span>, <span class="stringliteral">"1"</span>},</div>
<div class="line"><a name="l00298"></a><span class="lineno"> 298</span>  {<span class="stringliteral">"positive"</span>, <span class="stringliteral">"up"</span>}};</div>
<div class="line"><a name="l00299"></a><span class="lineno"> 299</span>  </div>
<div class="line"><a name="l00300"></a><span class="lineno"> 300</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a5370139cab7e6e020ce44d7f7e798efc.html#a5370139cab7e6e020ce44d7f7e798efc">m_u_sigma</a>->metadata(0).z().set_name(<span class="stringliteral">"z_sigma"</span>);</div>
<div class="line"><a name="l00301"></a><span class="lineno"> 301</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_add080561cff9ccf545285a805581bd3e.html#add080561cff9ccf545285a805581bd3e">m_v_sigma</a>->metadata(0).z().set_name(<span class="stringliteral">"z_sigma"</span>);</div>
<div class="line"><a name="l00302"></a><span class="lineno"> 302</span>  </div>
<div class="line"><a name="l00303"></a><span class="lineno"> 303</span>  <span class="keywordflow">for</span> (<span class="keyword">const</span> <span class="keyword">auto</span> &z_attr : z_attrs) {</div>
<div class="line"><a name="l00304"></a><span class="lineno"> 304</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a5370139cab7e6e020ce44d7f7e798efc.html#a5370139cab7e6e020ce44d7f7e798efc">m_u_sigma</a>->metadata(0).z().set_string(z_attr.first, z_attr.second);</div>
<div class="line"><a name="l00305"></a><span class="lineno"> 305</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_add080561cff9ccf545285a805581bd3e.html#add080561cff9ccf545285a805581bd3e">m_v_sigma</a>->metadata(0).z().set_string(z_attr.first, z_attr.second);</div>
<div class="line"><a name="l00306"></a><span class="lineno"> 306</span>  }</div>
<div class="line"><a name="l00307"></a><span class="lineno"> 307</span>  </div>
<div class="line"><a name="l00308"></a><span class="lineno"> 308</span>  }</div>
<div class="line"><a name="l00309"></a><span class="lineno"> 309</span>  </div>
<div class="line"><a name="l00310"></a><span class="lineno"> 310</span>  {</div>
<div class="line"><a name="l00311"></a><span class="lineno"> 311</span>  <a class="code" href="classpism_1_1rheology_1_1FlowLawFactory.html">rheology::FlowLawFactory</a> ice_factory(<span class="stringliteral">"stress_balance.blatter."</span>, <a class="code" href="classpism_1_1Component_a28f298fc2133baae8cebf9dedf3b4d84.html#a28f298fc2133baae8cebf9dedf3b4d84">m_config</a>, <a class="code" href="classpism_1_1stressbalance_1_1ShallowStressBalance_ad08f0eae9ab20e9a29059ebc14931735.html#ad08f0eae9ab20e9a29059ebc14931735">m_EC</a>);</div>
<div class="line"><a name="l00312"></a><span class="lineno"> 312</span>  ice_factory.<a class="code" href="classpism_1_1rheology_1_1FlowLawFactory_a77e7a80ffa29b10e38941baa9f78b02a.html#a77e7a80ffa29b10e38941baa9f78b02a">remove</a>(<a class="code" href="FlowLawFactory_8hh_a98f7c3ca5017078acacbbabc64da85bc.html#a98f7c3ca5017078acacbbabc64da85bc">ICE_GOLDSBY_KOHLSTEDT</a>);</div>
<div class="line"><a name="l00313"></a><span class="lineno"> 313</span>  <a class="code" href="classpism_1_1stressbalance_1_1ShallowStressBalance_a6b739e49bbd63df7def997aafdd55d0d.html#a6b739e49bbd63df7def997aafdd55d0d">m_flow_law</a> = ice_factory.<a class="code" href="classpism_1_1rheology_1_1FlowLawFactory_a68b9067545e8906d279380149df7a4f7.html#a68b9067545e8906d279380149df7a4f7">create</a>();</div>
<div class="line"><a name="l00314"></a><span class="lineno"> 314</span>  }</div>
<div class="line"><a name="l00315"></a><span class="lineno"> 315</span>  </div>
<div class="line"><a name="l00316"></a><span class="lineno"> 316</span>  <span class="keywordtype">double</span> <a class="code" href="namespacepism_a47d754ed3e959d5866b02a1b78b6a5b5.html#a47d754ed3e959d5866b02a1b78b6a5b5">g</a> = <a class="code" href="classpism_1_1Component_a28f298fc2133baae8cebf9dedf3b4d84.html#a28f298fc2133baae8cebf9dedf3b4d84">m_config</a>->get_number(<span class="stringliteral">"constants.standard_gravity"</span>);</div>
<div class="line"><a name="l00317"></a><span class="lineno"> 317</span>  </div>
<div class="line"><a name="l00318"></a><span class="lineno"> 318</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a14e2791516d8d90e5bb5b15d6a309899.html#a14e2791516d8d90e5bb5b15d6a309899">m_rho_ice_g</a> = <a class="code" href="classpism_1_1Component_a28f298fc2133baae8cebf9dedf3b4d84.html#a28f298fc2133baae8cebf9dedf3b4d84">m_config</a>->get_number(<span class="stringliteral">"constants.ice.density"</span>) * <a class="code" href="namespacepism_a47d754ed3e959d5866b02a1b78b6a5b5.html#a47d754ed3e959d5866b02a1b78b6a5b5">g</a>;</div>
<div class="line"><a name="l00319"></a><span class="lineno"> 319</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a4bacdc7085e238051f237cebf57caff3.html#a4bacdc7085e238051f237cebf57caff3">m_rho_ocean_g</a> = <a class="code" href="classpism_1_1Component_a28f298fc2133baae8cebf9dedf3b4d84.html#a28f298fc2133baae8cebf9dedf3b4d84">m_config</a>->get_number(<span class="stringliteral">"constants.sea_water.density"</span>) * <a class="code" href="namespacepism_a47d754ed3e959d5866b02a1b78b6a5b5.html#a47d754ed3e959d5866b02a1b78b6a5b5">g</a>;</div>
<div class="line"><a name="l00320"></a><span class="lineno"> 320</span>  </div>
<div class="line"><a name="l00321"></a><span class="lineno"> 321</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_ae992555c1327dfc9d74acde8726834a2.html#ae992555c1327dfc9d74acde8726834a2">m_eta_transform</a> = <a class="code" href="classpism_1_1Component_a28f298fc2133baae8cebf9dedf3b4d84.html#a28f298fc2133baae8cebf9dedf3b4d84">m_config</a>->get_flag(<span class="stringliteral">"stress_balance.blatter.use_eta_transform"</span>);</div>
<div class="line"><a name="l00322"></a><span class="lineno"> 322</span>  </div>
<div class="line"><a name="l00323"></a><span class="lineno"> 323</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a69829732e7eb1264a36e7e4dadca221a.html#a69829732e7eb1264a36e7e4dadca221a">m_glen_exponent</a> = <a class="code" href="classpism_1_1stressbalance_1_1ShallowStressBalance_a6b739e49bbd63df7def997aafdd55d0d.html#a6b739e49bbd63df7def997aafdd55d0d">m_flow_law</a>->exponent();</div>
<div class="line"><a name="l00324"></a><span class="lineno"> 324</span>  </div>
<div class="line"><a name="l00325"></a><span class="lineno"> 325</span>  <span class="keywordtype">double</span> E = <a class="code" href="classpism_1_1Component_a28f298fc2133baae8cebf9dedf3b4d84.html#a28f298fc2133baae8cebf9dedf3b4d84">m_config</a>->get_number(<span class="stringliteral">"stress_balance.blatter.enhancement_factor"</span>);</div>
<div class="line"><a name="l00326"></a><span class="lineno"> 326</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_aad2f02f927ae91eb8196934066b2e3c7.html#aad2f02f927ae91eb8196934066b2e3c7">m_E_viscosity</a> = std::pow(E, -1.0 / <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a69829732e7eb1264a36e7e4dadca221a.html#a69829732e7eb1264a36e7e4dadca221a">m_glen_exponent</a>);</div>
<div class="line"><a name="l00327"></a><span class="lineno"> 327</span>  </div>
<div class="line"><a name="l00328"></a><span class="lineno"> 328</span>  <span class="keywordtype">double</span> softness = <a class="code" href="classpism_1_1Component_a28f298fc2133baae8cebf9dedf3b4d84.html#a28f298fc2133baae8cebf9dedf3b4d84">m_config</a>->get_number(<span class="stringliteral">"flow_law.isothermal_Glen.ice_softness"</span>),</div>
<div class="line"><a name="l00329"></a><span class="lineno"> 329</span>  hardness = std::pow(softness, -1.0 / <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a69829732e7eb1264a36e7e4dadca221a.html#a69829732e7eb1264a36e7e4dadca221a">m_glen_exponent</a>);</div>
<div class="line"><a name="l00330"></a><span class="lineno"> 330</span>  </div>
<div class="line"><a name="l00331"></a><span class="lineno"> 331</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a0ba9514fbaf1c3c82e2f1a60a99ff0b6.html#a0ba9514fbaf1c3c82e2f1a60a99ff0b6">m_scaling</a> = <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a14e2791516d8d90e5bb5b15d6a309899.html#a14e2791516d8d90e5bb5b15d6a309899">m_rho_ice_g</a> * hardness;</div>
<div class="line"><a name="l00332"></a><span class="lineno"> 332</span> }</div>
<div class="line"><a name="l00333"></a><span class="lineno"> 333</span> <span class="comment"></span> </div>
<div class="line"><a name="l00334"></a><span class="lineno"> 334</span> <span class="comment">/*!</span></div>
<div class="line"><a name="l00335"></a><span class="lineno"> 335</span> <span class="comment"> * Restrict 2D and 3D model parameters from a fine grid to a coarse grid.</span></div>
<div class="line"><a name="l00336"></a><span class="lineno"> 336</span> <span class="comment"> *</span></div>
<div class="line"><a name="l00337"></a><span class="lineno"> 337</span> <span class="comment"> * Re-compute node types from geometry.</span></div>
<div class="line"><a name="l00338"></a><span class="lineno"> 338</span> <span class="comment"> *</span></div>
<div class="line"><a name="l00339"></a><span class="lineno"> 339</span> <span class="comment"> * This hook is called every time SNES needs to update coarse-grid data.</span></div>
<div class="line"><a name="l00340"></a><span class="lineno"> 340</span> <span class="comment"> *</span></div>
<div class="line"><a name="l00341"></a><span class="lineno"> 341</span> <span class="comment"> * FIXME: parameters restricted by this hook do not change from one SNES iteration to the</span></div>
<div class="line"><a name="l00342"></a><span class="lineno"> 342</span> <span class="comment"> * next, so we can return early after the first one.</span></div>
<div class="line"><a name="l00343"></a><span class="lineno"> 343</span> <span class="comment"> */</span></div>
<div class="line"><a name="l00344"></a><span class="lineno"><a class="line" href="namespacepism_1_1stressbalance_a51d00a5b0a6eb11871de1cf634353d31.html#a51d00a5b0a6eb11871de1cf634353d31"> 344</a></span> <span class="keyword">static</span> PetscErrorCode <a class="code" href="namespacepism_1_1stressbalance_a51d00a5b0a6eb11871de1cf634353d31.html#a51d00a5b0a6eb11871de1cf634353d31">blatter_restriction_hook</a>(DM fine,</div>
<div class="line"><a name="l00345"></a><span class="lineno"> 345</span>  Mat mrestrict, Vec rscale, Mat inject,</div>
<div class="line"><a name="l00346"></a><span class="lineno"> 346</span>  DM coarse, <span class="keywordtype">void</span> *ctx) {</div>
<div class="line"><a name="l00347"></a><span class="lineno"> 347</span>  <span class="comment">// Get rid of warnings about unused arguments</span></div>
<div class="line"><a name="l00348"></a><span class="lineno"> 348</span>  (void) mrestrict;</div>
<div class="line"><a name="l00349"></a><span class="lineno"> 349</span>  (void) rscale;</div>
<div class="line"><a name="l00350"></a><span class="lineno"> 350</span>  (void) inject;</div>
<div class="line"><a name="l00351"></a><span class="lineno"> 351</span>  (void) ctx;</div>
<div class="line"><a name="l00352"></a><span class="lineno"> 352</span>  </div>
<div class="line"><a name="l00353"></a><span class="lineno"> 353</span>  PetscErrorCode ierr = <a class="code" href="namespacepism_aa257509f16a390907d04830afc7f7c55.html#aa257509f16a390907d04830afc7f7c55">restrict_data</a>(fine, coarse, <span class="stringliteral">"3D_DM"</span>); CHKERRQ(ierr);</div>
<div class="line"><a name="l00354"></a><span class="lineno"> 354</span>  </div>
<div class="line"><a name="l00355"></a><span class="lineno"> 355</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l00356"></a><span class="lineno"> 356</span> }</div>
<div class="line"><a name="l00357"></a><span class="lineno"> 357</span>  </div>
<div class="line"><a name="l00358"></a><span class="lineno"><a class="line" href="namespacepism_1_1stressbalance_ac4dc67f4ed056dd6d431a9bc4d08fb88.html#ac4dc67f4ed056dd6d431a9bc4d08fb88"> 358</a></span> <span class="keyword">static</span> PetscErrorCode <a class="code" href="namespacepism_1_1stressbalance_ac4dc67f4ed056dd6d431a9bc4d08fb88.html#ac4dc67f4ed056dd6d431a9bc4d08fb88">blatter_coarsening_hook</a>(DM dm_fine, DM dm_coarse, <span class="keywordtype">void</span> *ctx) {</div>
<div class="line"><a name="l00359"></a><span class="lineno"> 359</span>  PetscErrorCode ierr;</div>
<div class="line"><a name="l00360"></a><span class="lineno"> 360</span>  </div>
<div class="line"><a name="l00361"></a><span class="lineno"> 361</span>  <span class="keywordtype">int</span> mg_levels = 1;</div>
<div class="line"><a name="l00362"></a><span class="lineno"> 362</span>  {</div>
<div class="line"><a name="l00363"></a><span class="lineno"> 363</span>  <span class="keyword">const</span> <span class="keywordtype">char</span> *prefix;</div>
<div class="line"><a name="l00364"></a><span class="lineno"> 364</span>  ierr = DMGetOptionsPrefix(dm_fine, &prefix); CHKERRQ(ierr);</div>
<div class="line"><a name="l00365"></a><span class="lineno"> 365</span>  <span class="keyword">auto</span> option = <a class="code" href="namespacepism_a5d5d5714fb63a96518ffbe7be151e90b.html#a5d5d5714fb63a96518ffbe7be151e90b">pism::printf</a>(<span class="stringliteral">"-%spc_mg_levels"</span>, prefix);</div>
<div class="line"><a name="l00366"></a><span class="lineno"> 366</span>  mg_levels = <a class="code" href="classpism_1_1options_1_1Integer.html">options::Integer</a>(option, <span class="stringliteral">""</span>, 1);</div>
<div class="line"><a name="l00367"></a><span class="lineno"> 367</span>  }</div>
<div class="line"><a name="l00368"></a><span class="lineno"> 368</span>  </div>
<div class="line"><a name="l00369"></a><span class="lineno"> 369</span>  ierr = <a class="code" href="namespacepism_a06d2dbca93f7379d536cc324baef646f.html#a06d2dbca93f7379d536cc324baef646f">setup_level</a>(dm_coarse, mg_levels); CHKERRQ(ierr);</div>
<div class="line"><a name="l00370"></a><span class="lineno"> 370</span>  </div>
<div class="line"><a name="l00371"></a><span class="lineno"> 371</span>  ierr = DMCoarsenHookAdd(dm_coarse, <a class="code" href="namespacepism_1_1stressbalance_ac4dc67f4ed056dd6d431a9bc4d08fb88.html#ac4dc67f4ed056dd6d431a9bc4d08fb88">blatter_coarsening_hook</a>, <a class="code" href="namespacepism_1_1stressbalance_a51d00a5b0a6eb11871de1cf634353d31.html#a51d00a5b0a6eb11871de1cf634353d31">blatter_restriction_hook</a>, ctx); CHKERRQ(ierr);</div>
<div class="line"><a name="l00372"></a><span class="lineno"> 372</span>  </div>
<div class="line"><a name="l00373"></a><span class="lineno"> 373</span>  <span class="comment">// 3D</span></div>
<div class="line"><a name="l00374"></a><span class="lineno"> 374</span>  ierr = <a class="code" href="namespacepism_ae7d2c4242cbe2ca332b5558bef826171.html#ae7d2c4242cbe2ca332b5558bef826171">create_restriction</a>(dm_fine, dm_coarse, <span class="stringliteral">"3D_DM"</span>); CHKERRQ(ierr);</div>
<div class="line"><a name="l00375"></a><span class="lineno"> 375</span>  </div>
<div class="line"><a name="l00376"></a><span class="lineno"> 376</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l00377"></a><span class="lineno"> 377</span> }</div>
<div class="line"><a name="l00378"></a><span class="lineno"> 378</span> <span class="comment"></span> </div>
<div class="line"><a name="l00379"></a><span class="lineno"> 379</span> <span class="comment">/*!</span></div>
<div class="line"><a name="l00380"></a><span class="lineno"> 380</span> <span class="comment"> * Allocates the 3D DM, the corresponding solution vector, and the SNES solver.</span></div>
<div class="line"><a name="l00381"></a><span class="lineno"> 381</span> <span class="comment"> */</span></div>
<div class="line"><a name="l00382"></a><span class="lineno"><a class="line" href="classpism_1_1stressbalance_1_1Blatter_a67d182574d6f2021d12efc82caa05c1c.html#a67d182574d6f2021d12efc82caa05c1c"> 382</a></span> PetscErrorCode <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a67d182574d6f2021d12efc82caa05c1c.html#a67d182574d6f2021d12efc82caa05c1c">Blatter::setup</a>(DM pism_da, <a class="code" href="namespacepism_1_1grid_a368298223e3f3828fa1e4dcae12fbd3e.html#a368298223e3f3828fa1e4dcae12fbd3e">grid::Periodicity</a> periodicity, <span class="keywordtype">int</span> Mz,</div>
<div class="line"><a name="l00383"></a><span class="lineno"> 383</span>  <span class="keywordtype">int</span> coarsening_factor,</div>
<div class="line"><a name="l00384"></a><span class="lineno"> 384</span>  <span class="keyword">const</span> std::string &prefix) {</div>
<div class="line"><a name="l00385"></a><span class="lineno"> 385</span>  MPI_Comm comm;</div>
<div class="line"><a name="l00386"></a><span class="lineno"> 386</span>  PetscErrorCode ierr = PetscObjectGetComm((PetscObject)pism_da, &comm); CHKERRQ(ierr);</div>
<div class="line"><a name="l00387"></a><span class="lineno"> 387</span>  </div>
<div class="line"><a name="l00388"></a><span class="lineno"> 388</span>  <span class="comment">// FIXME: add the ability to add a prefix to the option prefix. We need this to be able</span></div>
<div class="line"><a name="l00389"></a><span class="lineno"> 389</span>  <span class="comment">// to run more than one instance of PISM in parallel.</span></div>
<div class="line"><a name="l00390"></a><span class="lineno"> 390</span>  <span class="keyword">auto</span> option = <a class="code" href="namespacepism_a5d5d5714fb63a96518ffbe7be151e90b.html#a5d5d5714fb63a96518ffbe7be151e90b">pism::printf</a>(<span class="stringliteral">"-%spc_mg_levels"</span>, prefix.c_str());</div>
<div class="line"><a name="l00391"></a><span class="lineno"> 391</span>  <span class="keywordtype">int</span> mg_levels = <a class="code" href="classpism_1_1options_1_1Integer.html">options::Integer</a>(option, <span class="stringliteral">""</span>, 1);</div>
<div class="line"><a name="l00392"></a><span class="lineno"> 392</span>  </div>
<div class="line"><a name="l00393"></a><span class="lineno"> 393</span>  <span class="comment">// Check compatibility of Mz, mg_levels, and the coarsening_factor and stop if they are</span></div>
<div class="line"><a name="l00394"></a><span class="lineno"> 394</span>  <span class="comment">// not compatible.</span></div>
<div class="line"><a name="l00395"></a><span class="lineno"> 395</span>  <span class="comment">//</span></div>
<div class="line"><a name="l00396"></a><span class="lineno"> 396</span>  <span class="comment">// We assume that the user also set "-bp_pc_type mg".</span></div>
<div class="line"><a name="l00397"></a><span class="lineno"> 397</span>  {</div>
<div class="line"><a name="l00398"></a><span class="lineno"> 398</span>  <span class="keywordtype">int</span> c = coarsening_factor;</div>
<div class="line"><a name="l00399"></a><span class="lineno"> 399</span>  <span class="keywordtype">int</span> M = mg_levels;</div>
<div class="line"><a name="l00400"></a><span class="lineno"> 400</span>  <span class="keywordtype">int</span> mz = Mz;</div>
<div class="line"><a name="l00401"></a><span class="lineno"> 401</span>  <span class="keywordflow">while</span> (M > 1) {</div>
<div class="line"><a name="l00402"></a><span class="lineno"> 402</span>  <span class="comment">// Note: integer division</span></div>
<div class="line"><a name="l00403"></a><span class="lineno"> 403</span>  <span class="keywordflow">if</span> (((mz - 1) / c) * c != mz - 1) {</div>
<div class="line"><a name="l00404"></a><span class="lineno"> 404</span>  <span class="keywordtype">int</span> N = std::pow(c, (<span class="keywordtype">int</span>)mg_levels - 1);</div>
<div class="line"><a name="l00405"></a><span class="lineno"> 405</span>  <span class="keyword">auto</span> message = <a class="code" href="namespacepism_a5d5d5714fb63a96518ffbe7be151e90b.html#a5d5d5714fb63a96518ffbe7be151e90b">pism::printf</a>(<span class="stringliteral">"Blatter stress balance solver: settings\n"</span></div>
<div class="line"><a name="l00406"></a><span class="lineno"> 406</span>  <span class="stringliteral">"stress_balance.blatter.Mz = %d,\n"</span></div>
<div class="line"><a name="l00407"></a><span class="lineno"> 407</span>  <span class="stringliteral">"stress_balance.blatter.coarsening_factor = %d,\n"</span></div>
<div class="line"><a name="l00408"></a><span class="lineno"> 408</span>  <span class="stringliteral">"and '%s %d' are not compatible.\n"</span></div>
<div class="line"><a name="l00409"></a><span class="lineno"> 409</span>  <span class="stringliteral">"To use N = %d multigrid levels with the coarsening factor C = %d\n"</span></div>
<div class="line"><a name="l00410"></a><span class="lineno"> 410</span>  <span class="stringliteral">"stress_balance.blatter.Mz has to be equal to A * C^(N - 1) + 1\n"</span></div>
<div class="line"><a name="l00411"></a><span class="lineno"> 411</span>  <span class="stringliteral">"for some positive integer A, e.g. %d, %d, %d, ..."</span>,</div>
<div class="line"><a name="l00412"></a><span class="lineno"> 412</span>  Mz, c, option.c_str(), mg_levels, mg_levels, c,</div>
<div class="line"><a name="l00413"></a><span class="lineno"> 413</span>  N + 1, 2*N + 1, 3*N + 1);</div>
<div class="line"><a name="l00414"></a><span class="lineno"> 414</span>  <span class="keywordflow">throw</span> <a class="code" href="classpism_1_1RuntimeError.html">RuntimeError</a>(<a class="code" href="error__handling_8hh_aa0c260bffe8a4dbd77d48e8feee7c526.html#aa0c260bffe8a4dbd77d48e8feee7c526">PISM_ERROR_LOCATION</a>, message);</div>
<div class="line"><a name="l00415"></a><span class="lineno"> 415</span>  }</div>
<div class="line"><a name="l00416"></a><span class="lineno"> 416</span>  mz = (mz - 1) / c + 1;</div>
<div class="line"><a name="l00417"></a><span class="lineno"> 417</span>  M -= 1;</div>
<div class="line"><a name="l00418"></a><span class="lineno"> 418</span>  }</div>
<div class="line"><a name="l00419"></a><span class="lineno"> 419</span>  }</div>
<div class="line"><a name="l00420"></a><span class="lineno"> 420</span>  </div>
<div class="line"><a name="l00421"></a><span class="lineno"> 421</span>  <span class="comment">// DM</span></div>
<div class="line"><a name="l00422"></a><span class="lineno"> 422</span>  <span class="comment">//</span></div>
<div class="line"><a name="l00423"></a><span class="lineno"> 423</span>  <span class="comment">// Note: in the PISM's DA pism_da PETSc's and PISM's meaning of x and y are the same.</span></div>
<div class="line"><a name="l00424"></a><span class="lineno"> 424</span>  {</div>
<div class="line"><a name="l00425"></a><span class="lineno"> 425</span>  PetscInt Mx, My;</div>
<div class="line"><a name="l00426"></a><span class="lineno"> 426</span>  PetscInt mx, my;</div>
<div class="line"><a name="l00427"></a><span class="lineno"> 427</span>  PetscInt dims;</div>
<div class="line"><a name="l00428"></a><span class="lineno"> 428</span>  </div>
<div class="line"><a name="l00429"></a><span class="lineno"> 429</span>  ierr = DMDAGetInfo(pism_da,</div>
<div class="line"><a name="l00430"></a><span class="lineno"> 430</span>  &dims, <span class="comment">// dimensions</span></div>
<div class="line"><a name="l00431"></a><span class="lineno"> 431</span>  &Mx, &My, NULL, <span class="comment">// grid size</span></div>
<div class="line"><a name="l00432"></a><span class="lineno"> 432</span>  &mx, &my, NULL, <span class="comment">// numbers of processors in each direction</span></div>
<div class="line"><a name="l00433"></a><span class="lineno"> 433</span>  NULL, <span class="comment">// number of degrees of freedom</span></div>
<div class="line"><a name="l00434"></a><span class="lineno"> 434</span>  NULL, <span class="comment">// stencil width</span></div>
<div class="line"><a name="l00435"></a><span class="lineno"> 435</span>  NULL, NULL, NULL, <span class="comment">// types of ghost nodes at the boundary</span></div>
<div class="line"><a name="l00436"></a><span class="lineno"> 436</span>  NULL); <span class="comment">// stencil type</span></div>
<div class="line"><a name="l00437"></a><span class="lineno"> 437</span>  CHKERRQ(ierr);</div>
<div class="line"><a name="l00438"></a><span class="lineno"> 438</span>  </div>
<div class="line"><a name="l00439"></a><span class="lineno"> 439</span>  assert(dims == 2);</div>
<div class="line"><a name="l00440"></a><span class="lineno"> 440</span>  </div>
<div class="line"><a name="l00441"></a><span class="lineno"> 441</span>  <span class="keyword">const</span> PetscInt</div>
<div class="line"><a name="l00442"></a><span class="lineno"> 442</span>  *lx = NULL,</div>
<div class="line"><a name="l00443"></a><span class="lineno"> 443</span>  *ly = NULL;</div>
<div class="line"><a name="l00444"></a><span class="lineno"> 444</span>  ierr = DMDAGetOwnershipRanges(pism_da, &lx, &ly, NULL); CHKERRQ(ierr);</div>
<div class="line"><a name="l00445"></a><span class="lineno"> 445</span>  </div>
<div class="line"><a name="l00446"></a><span class="lineno"> 446</span>  PetscInt</div>
<div class="line"><a name="l00447"></a><span class="lineno"> 447</span>  mz = 1,</div>
<div class="line"><a name="l00448"></a><span class="lineno"> 448</span>  dof = 2,</div>
<div class="line"><a name="l00449"></a><span class="lineno"> 449</span>  stencil_width = 1;</div>
<div class="line"><a name="l00450"></a><span class="lineno"> 450</span>  </div>
<div class="line"><a name="l00451"></a><span class="lineno"> 451</span>  DMBoundaryType</div>
<div class="line"><a name="l00452"></a><span class="lineno"> 452</span>  bx = (periodicity & <a class="code" href="namespacepism_1_1grid_a368298223e3f3828fa1e4dcae12fbd3e.html#a368298223e3f3828fa1e4dcae12fbd3ea2240c8124d9ac8450d5347a338e9b719">grid::X_PERIODIC</a>) != 0 ? DM_BOUNDARY_PERIODIC : DM_BOUNDARY_NONE,</div>
<div class="line"><a name="l00453"></a><span class="lineno"> 453</span>  by = (periodicity & <a class="code" href="namespacepism_1_1grid_a368298223e3f3828fa1e4dcae12fbd3e.html#a368298223e3f3828fa1e4dcae12fbd3ea1f9bcf63b31683da22bcbcc6c03d4af2">grid::Y_PERIODIC</a>) != 0 ? DM_BOUNDARY_PERIODIC : DM_BOUNDARY_NONE,</div>
<div class="line"><a name="l00454"></a><span class="lineno"> 454</span>  bz = DM_BOUNDARY_NONE;</div>
<div class="line"><a name="l00455"></a><span class="lineno"> 455</span>  </div>
<div class="line"><a name="l00456"></a><span class="lineno"> 456</span>  ierr = DMDACreate3d(comm,</div>
<div class="line"><a name="l00457"></a><span class="lineno"> 457</span>  bz, bx, by, <span class="comment">// STORAGE_ORDER</span></div>
<div class="line"><a name="l00458"></a><span class="lineno"> 458</span>  DMDA_STENCIL_BOX,</div>
<div class="line"><a name="l00459"></a><span class="lineno"> 459</span>  Mz, Mx, My, <span class="comment">// STORAGE_ORDER</span></div>
<div class="line"><a name="l00460"></a><span class="lineno"> 460</span>  mz, mx, my, <span class="comment">// STORAGE_ORDER</span></div>
<div class="line"><a name="l00461"></a><span class="lineno"> 461</span>  dof,</div>
<div class="line"><a name="l00462"></a><span class="lineno"> 462</span>  stencil_width,</div>
<div class="line"><a name="l00463"></a><span class="lineno"> 463</span>  NULL, lx, ly, <span class="comment">// STORAGE_ORDER</span></div>
<div class="line"><a name="l00464"></a><span class="lineno"> 464</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_abfde66efd52fefc0631817a6baa519e1.html#abfde66efd52fefc0631817a6baa519e1">m_da</a>.<a class="code" href="classpism_1_1Wrapper_a38f468e16843e1cdb064b4cb611dfa1f.html#a38f468e16843e1cdb064b4cb611dfa1f">rawptr</a>()); CHKERRQ(ierr);</div>
<div class="line"><a name="l00465"></a><span class="lineno"> 465</span>  </div>
<div class="line"><a name="l00466"></a><span class="lineno"> 466</span>  ierr = DMSetOptionsPrefix(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_abfde66efd52fefc0631817a6baa519e1.html#abfde66efd52fefc0631817a6baa519e1">m_da</a>, prefix.c_str()); CHKERRQ(ierr);</div>
<div class="line"><a name="l00467"></a><span class="lineno"> 467</span>  </div>
<div class="line"><a name="l00468"></a><span class="lineno"> 468</span>  <span class="comment">// semi-coarsening: coarsen in the vertical direction only</span></div>
<div class="line"><a name="l00469"></a><span class="lineno"> 469</span>  ierr = DMDASetRefinementFactor(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_abfde66efd52fefc0631817a6baa519e1.html#abfde66efd52fefc0631817a6baa519e1">m_da</a>, coarsening_factor, 1, 1); CHKERRQ(ierr); <span class="comment">// STORAGE_ORDER</span></div>
<div class="line"><a name="l00470"></a><span class="lineno"> 470</span>  </div>
<div class="line"><a name="l00471"></a><span class="lineno"> 471</span>  ierr = DMSetFromOptions(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_abfde66efd52fefc0631817a6baa519e1.html#abfde66efd52fefc0631817a6baa519e1">m_da</a>); CHKERRQ(ierr);</div>
<div class="line"><a name="l00472"></a><span class="lineno"> 472</span>  </div>
<div class="line"><a name="l00473"></a><span class="lineno"> 473</span>  ierr = DMSetUp(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_abfde66efd52fefc0631817a6baa519e1.html#abfde66efd52fefc0631817a6baa519e1">m_da</a>); CHKERRQ(ierr);</div>
<div class="line"><a name="l00474"></a><span class="lineno"> 474</span>  </div>
<div class="line"><a name="l00475"></a><span class="lineno"> 475</span>  <span class="comment">// set up 3D parameter storage</span></div>
<div class="line"><a name="l00476"></a><span class="lineno"> 476</span>  ierr = <a class="code" href="namespacepism_a06d2dbca93f7379d536cc324baef646f.html#a06d2dbca93f7379d536cc324baef646f">setup_level</a>(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_abfde66efd52fefc0631817a6baa519e1.html#abfde66efd52fefc0631817a6baa519e1">m_da</a>, mg_levels); CHKERRQ(ierr);</div>
<div class="line"><a name="l00477"></a><span class="lineno"> 477</span>  </div>
<div class="line"><a name="l00478"></a><span class="lineno"> 478</span>  <span class="comment">// tell PETSc how to coarsen this grid and how to restrict data to a coarser grid</span></div>
<div class="line"><a name="l00479"></a><span class="lineno"> 479</span>  ierr = DMCoarsenHookAdd(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_abfde66efd52fefc0631817a6baa519e1.html#abfde66efd52fefc0631817a6baa519e1">m_da</a>, <a class="code" href="namespacepism_1_1stressbalance_ac4dc67f4ed056dd6d431a9bc4d08fb88.html#ac4dc67f4ed056dd6d431a9bc4d08fb88">blatter_coarsening_hook</a>, <a class="code" href="namespacepism_1_1stressbalance_a51d00a5b0a6eb11871de1cf634353d31.html#a51d00a5b0a6eb11871de1cf634353d31">blatter_restriction_hook</a>, NULL);</div>
<div class="line"><a name="l00480"></a><span class="lineno"> 480</span>  CHKERRQ(ierr);</div>
<div class="line"><a name="l00481"></a><span class="lineno"> 481</span>  }</div>
<div class="line"><a name="l00482"></a><span class="lineno"> 482</span>  </div>
<div class="line"><a name="l00483"></a><span class="lineno"> 483</span>  <span class="comment">// Vec</span></div>
<div class="line"><a name="l00484"></a><span class="lineno"> 484</span>  {</div>
<div class="line"><a name="l00485"></a><span class="lineno"> 485</span>  ierr = DMCreateGlobalVector(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_abfde66efd52fefc0631817a6baa519e1.html#abfde66efd52fefc0631817a6baa519e1">m_da</a>, <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a4f04729da9beb3aacaaf63b3bf41b465.html#a4f04729da9beb3aacaaf63b3bf41b465">m_x</a>.<a class="code" href="classpism_1_1Wrapper_a38f468e16843e1cdb064b4cb611dfa1f.html#a38f468e16843e1cdb064b4cb611dfa1f">rawptr</a>()); CHKERRQ(ierr);</div>
<div class="line"><a name="l00486"></a><span class="lineno"> 486</span>  </div>
<div class="line"><a name="l00487"></a><span class="lineno"> 487</span>  ierr = VecSetOptionsPrefix(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_a4f04729da9beb3aacaaf63b3bf41b465.html#a4f04729da9beb3aacaaf63b3bf41b465">m_x</a>, prefix.c_str()); CHKERRQ(ierr);</div>
<div class="line"><a name="l00488"></a><span class="lineno"> 488</span>  </div>
<div class="line"><a name="l00489"></a><span class="lineno"> 489</span>  ierr = VecSetFromOptions(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_a4f04729da9beb3aacaaf63b3bf41b465.html#a4f04729da9beb3aacaaf63b3bf41b465">m_x</a>); CHKERRQ(ierr);</div>
<div class="line"><a name="l00490"></a><span class="lineno"> 490</span>  </div>
<div class="line"><a name="l00491"></a><span class="lineno"> 491</span>  ierr = VecDuplicate(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_a4f04729da9beb3aacaaf63b3bf41b465.html#a4f04729da9beb3aacaaf63b3bf41b465">m_x</a>, <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a296e28b37d1e51e10231a4d8f1a82786.html#a296e28b37d1e51e10231a4d8f1a82786">m_x_old</a>.<a class="code" href="classpism_1_1Wrapper_a38f468e16843e1cdb064b4cb611dfa1f.html#a38f468e16843e1cdb064b4cb611dfa1f">rawptr</a>()); CHKERRQ(ierr);</div>
<div class="line"><a name="l00492"></a><span class="lineno"> 492</span>  }</div>
<div class="line"><a name="l00493"></a><span class="lineno"> 493</span>  </div>
<div class="line"><a name="l00494"></a><span class="lineno"> 494</span>  <span class="comment">// SNES</span></div>
<div class="line"><a name="l00495"></a><span class="lineno"> 495</span>  {</div>
<div class="line"><a name="l00496"></a><span class="lineno"> 496</span>  ierr = SNESCreate(comm, <a class="code" href="classpism_1_1stressbalance_1_1Blatter_af94a1ecd338043a69808be5289976983.html#af94a1ecd338043a69808be5289976983">m_snes</a>.<a class="code" href="classpism_1_1Wrapper_a38f468e16843e1cdb064b4cb611dfa1f.html#a38f468e16843e1cdb064b4cb611dfa1f">rawptr</a>()); CHKERRQ(ierr);</div>
<div class="line"><a name="l00497"></a><span class="lineno"> 497</span>  </div>
<div class="line"><a name="l00498"></a><span class="lineno"> 498</span>  ierr = SNESSetOptionsPrefix(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_af94a1ecd338043a69808be5289976983.html#af94a1ecd338043a69808be5289976983">m_snes</a>, prefix.c_str()); CHKERRQ(ierr);</div>
<div class="line"><a name="l00499"></a><span class="lineno"> 499</span>  </div>
<div class="line"><a name="l00500"></a><span class="lineno"> 500</span>  ierr = SNESSetDM(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_af94a1ecd338043a69808be5289976983.html#af94a1ecd338043a69808be5289976983">m_snes</a>, <a class="code" href="classpism_1_1stressbalance_1_1Blatter_abfde66efd52fefc0631817a6baa519e1.html#abfde66efd52fefc0631817a6baa519e1">m_da</a>); CHKERRQ(ierr);</div>
<div class="line"><a name="l00501"></a><span class="lineno"> 501</span>  </div>
<div class="line"><a name="l00502"></a><span class="lineno"> 502</span>  ierr = DMDASNESSetFunctionLocal(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_abfde66efd52fefc0631817a6baa519e1.html#abfde66efd52fefc0631817a6baa519e1">m_da</a>, INSERT_VALUES,</div>
<div class="line"><a name="l00503"></a><span class="lineno"> 503</span> #<span class="keywordflow">if</span> PETSC_VERSION_LT(3,21,0)</div>
<div class="line"><a name="l00504"></a><span class="lineno"> 504</span>  (DMDASNESFunction)<a class="code" href="classpism_1_1stressbalance_1_1Blatter_a72c60d53b62d2ace9aeecf55e1c4e6fd.html#a72c60d53b62d2ace9aeecf55e1c4e6fd">function_callback</a>,</div>
<div class="line"><a name="l00505"></a><span class="lineno"> 505</span> #<span class="keywordflow">else</span></div>
<div class="line"><a name="l00506"></a><span class="lineno"> 506</span>  (DMDASNESFunctionFn*)<a class="code" href="classpism_1_1stressbalance_1_1Blatter_a72c60d53b62d2ace9aeecf55e1c4e6fd.html#a72c60d53b62d2ace9aeecf55e1c4e6fd">function_callback</a>,</div>
<div class="line"><a name="l00507"></a><span class="lineno"> 507</span> #endif</div>
<div class="line"><a name="l00508"></a><span class="lineno"> 508</span>  <span class="keyword">this</span>); CHKERRQ(ierr);</div>
<div class="line"><a name="l00509"></a><span class="lineno"> 509</span>  </div>
<div class="line"><a name="l00510"></a><span class="lineno"> 510</span>  ierr = DMDASNESSetJacobianLocal(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_abfde66efd52fefc0631817a6baa519e1.html#abfde66efd52fefc0631817a6baa519e1">m_da</a>,</div>
<div class="line"><a name="l00511"></a><span class="lineno"> 511</span> #<span class="keywordflow">if</span> PETSC_VERSION_LT(3,21,0)</div>
<div class="line"><a name="l00512"></a><span class="lineno"> 512</span>  (DMDASNESJacobian)<a class="code" href="classpism_1_1stressbalance_1_1Blatter_a7162f681169ccdda3d3c98dd7bbb9948.html#a7162f681169ccdda3d3c98dd7bbb9948">jacobian_callback</a>,</div>
<div class="line"><a name="l00513"></a><span class="lineno"> 513</span> #<span class="keywordflow">else</span></div>
<div class="line"><a name="l00514"></a><span class="lineno"> 514</span>  (DMDASNESJacobianFn*)<a class="code" href="classpism_1_1stressbalance_1_1Blatter_a7162f681169ccdda3d3c98dd7bbb9948.html#a7162f681169ccdda3d3c98dd7bbb9948">jacobian_callback</a>,</div>
<div class="line"><a name="l00515"></a><span class="lineno"> 515</span> #endif</div>
<div class="line"><a name="l00516"></a><span class="lineno"> 516</span>  <span class="keyword">this</span>); CHKERRQ(ierr);</div>
<div class="line"><a name="l00517"></a><span class="lineno"> 517</span>  </div>
<div class="line"><a name="l00518"></a><span class="lineno"> 518</span>  ierr = SNESSetFromOptions(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_af94a1ecd338043a69808be5289976983.html#af94a1ecd338043a69808be5289976983">m_snes</a>); CHKERRQ(ierr);</div>
<div class="line"><a name="l00519"></a><span class="lineno"> 519</span>  </div>
<div class="line"><a name="l00520"></a><span class="lineno"> 520</span>  </div>
<div class="line"><a name="l00521"></a><span class="lineno"> 521</span>  PetscBool ksp_use_ew = PETSC_FALSE;</div>
<div class="line"><a name="l00522"></a><span class="lineno"> 522</span>  ierr = SNESKSPGetUseEW(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_af94a1ecd338043a69808be5289976983.html#af94a1ecd338043a69808be5289976983">m_snes</a>, &ksp_use_ew); CHKERRQ(ierr);</div>
<div class="line"><a name="l00523"></a><span class="lineno"> 523</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a36febcd45d27ae9dc991db778ef54b7c.html#a36febcd45d27ae9dc991db778ef54b7c">m_ksp_use_ew</a> = (ksp_use_ew != 0U);</div>
<div class="line"><a name="l00524"></a><span class="lineno"> 524</span>  }</div>
<div class="line"><a name="l00525"></a><span class="lineno"> 525</span>  </div>
<div class="line"><a name="l00526"></a><span class="lineno"> 526</span>  <span class="keywordflow">return</span> 0;</div>
<div class="line"><a name="l00527"></a><span class="lineno"> 527</span> }</div>
<div class="line"><a name="l00528"></a><span class="lineno"> 528</span> <span class="comment"></span> </div>
<div class="line"><a name="l00529"></a><span class="lineno"> 529</span> <span class="comment">/*!</span></div>
<div class="line"><a name="l00530"></a><span class="lineno"> 530</span> <span class="comment"> * Set 2D parameters on the finest grid.</span></div>
<div class="line"><a name="l00531"></a><span class="lineno"> 531</span> <span class="comment"> */</span></div>
<div class="line"><a name="l00532"></a><span class="lineno"><a class="line" href="classpism_1_1stressbalance_1_1Blatter_a534e5379c6e2d5267767ec2727122108.html#a534e5379c6e2d5267767ec2727122108"> 532</a></span> <span class="keywordtype">void</span> <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a534e5379c6e2d5267767ec2727122108.html#a534e5379c6e2d5267767ec2727122108">Blatter::init_2d_parameters</a>(<span class="keyword">const</span> <a class="code" href="classpism_1_1stressbalance_1_1Inputs.html">Inputs</a> &inputs) {</div>
<div class="line"><a name="l00533"></a><span class="lineno"> 533</span>  </div>
<div class="line"><a name="l00534"></a><span class="lineno"> 534</span>  <span class="keywordtype">double</span></div>
<div class="line"><a name="l00535"></a><span class="lineno"> 535</span>  ice_density = <a class="code" href="classpism_1_1Component_a28f298fc2133baae8cebf9dedf3b4d84.html#a28f298fc2133baae8cebf9dedf3b4d84">m_config</a>->get_number(<span class="stringliteral">"constants.ice.density"</span>),</div>
<div class="line"><a name="l00536"></a><span class="lineno"> 536</span>  water_density = <a class="code" href="classpism_1_1Component_a28f298fc2133baae8cebf9dedf3b4d84.html#a28f298fc2133baae8cebf9dedf3b4d84">m_config</a>->get_number(<span class="stringliteral">"constants.sea_water.density"</span>),</div>
<div class="line"><a name="l00537"></a><span class="lineno"> 537</span>  alpha = ice_density / water_density;</div>
<div class="line"><a name="l00538"></a><span class="lineno"> 538</span>  </div>
<div class="line"><a name="l00539"></a><span class="lineno"> 539</span>  <span class="keyword">const</span> <a class="code" href="classpism_1_1array_1_1Scalar.html">array::Scalar</a></div>
<div class="line"><a name="l00540"></a><span class="lineno"> 540</span>  &tauc = *inputs.<a class="code" href="classpism_1_1stressbalance_1_1Inputs_a0d4815abe1fcfac03677013d43f7ecab.html#a0d4815abe1fcfac03677013d43f7ecab">basal_yield_stress</a>,</div>
<div class="line"><a name="l00541"></a><span class="lineno"> 541</span>  &H = inputs.<a class="code" href="classpism_1_1stressbalance_1_1Inputs_a078ead1da77d23c8d0910d277c8978d8.html#a078ead1da77d23c8d0910d277c8978d8">geometry</a>-><a class="code" href="classpism_1_1Geometry_a9f744ea4843a08036f6132922dc4dc2c.html#a9f744ea4843a08036f6132922dc4dc2c">ice_thickness</a>,</div>
<div class="line"><a name="l00542"></a><span class="lineno"> 542</span>  &b = inputs.<a class="code" href="classpism_1_1stressbalance_1_1Inputs_a078ead1da77d23c8d0910d277c8978d8.html#a078ead1da77d23c8d0910d277c8978d8">geometry</a>-><a class="code" href="classpism_1_1Geometry_af215189e9392b98a0f03466da344ec10.html#af215189e9392b98a0f03466da344ec10">bed_elevation</a>,</div>
<div class="line"><a name="l00543"></a><span class="lineno"> 543</span>  &sea_level = inputs.<a class="code" href="classpism_1_1stressbalance_1_1Inputs_a078ead1da77d23c8d0910d277c8978d8.html#a078ead1da77d23c8d0910d277c8978d8">geometry</a>-><a class="code" href="classpism_1_1Geometry_a0ddf1ad2492b9523989387fafe44dbef.html#a0ddf1ad2492b9523989387fafe44dbef">sea_level_elevation</a>;</div>
<div class="line"><a name="l00544"></a><span class="lineno"> 544</span>  </div>
<div class="line"><a name="l00545"></a><span class="lineno"> 545</span>  {</div>
<div class="line"><a name="l00546"></a><span class="lineno"> 546</span>  <a class="code" href="classpism_1_1array_1_1AccessScope.html">array::AccessScope</a> list{&tauc, &H, &b, &sea_level, &<a class="code" href="classpism_1_1stressbalance_1_1Blatter_accd8cbc28303d9405d2b65dccf7a17f6.html#accd8cbc28303d9405d2b65dccf7a17f6">m_parameters</a>};</div>
<div class="line"><a name="l00547"></a><span class="lineno"> 547</span>  </div>
<div class="line"><a name="l00548"></a><span class="lineno"> 548</span>  <span class="keywordflow">for</span> (<span class="keyword">auto</span> p = <a class="code" href="classpism_1_1Component_a745aa37bc1b5da6db5bfc280ecb3c811.html#a745aa37bc1b5da6db5bfc280ecb3c811">m_grid</a>->points(); p; p.next()) {</div>
<div class="line"><a name="l00549"></a><span class="lineno"> 549</span>  <span class="keyword">const</span> <span class="keywordtype">int</span> i = p.i(), j = p.j();</div>
<div class="line"><a name="l00550"></a><span class="lineno"> 550</span>  </div>
<div class="line"><a name="l00551"></a><span class="lineno"> 551</span>  <span class="keywordtype">double</span></div>
<div class="line"><a name="l00552"></a><span class="lineno"> 552</span>  b_grounded = b(i, j),</div>
<div class="line"><a name="l00553"></a><span class="lineno"> 553</span>  b_floating = sea_level(i, j) - alpha * H(i, j),</div>
<div class="line"><a name="l00554"></a><span class="lineno"> 554</span>  s_grounded = b(i, j) + H(i, j),</div>
<div class="line"><a name="l00555"></a><span class="lineno"> 555</span>  s_floating = sea_level(i, j) + (1.0 - alpha) * H(i, j);</div>
<div class="line"><a name="l00556"></a><span class="lineno"> 556</span>  </div>
<div class="line"><a name="l00557"></a><span class="lineno"> 557</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_accd8cbc28303d9405d2b65dccf7a17f6.html#accd8cbc28303d9405d2b65dccf7a17f6">m_parameters</a>(i, j).tauc = tauc(i, j);</div>
<div class="line"><a name="l00558"></a><span class="lineno"> 558</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_accd8cbc28303d9405d2b65dccf7a17f6.html#accd8cbc28303d9405d2b65dccf7a17f6">m_parameters</a>(i, j).thickness = H(i, j);</div>
<div class="line"><a name="l00559"></a><span class="lineno"> 559</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_accd8cbc28303d9405d2b65dccf7a17f6.html#accd8cbc28303d9405d2b65dccf7a17f6">m_parameters</a>(i, j).sea_level = sea_level(i, j);</div>
<div class="line"><a name="l00560"></a><span class="lineno"> 560</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_accd8cbc28303d9405d2b65dccf7a17f6.html#accd8cbc28303d9405d2b65dccf7a17f6">m_parameters</a>(i, j).bed = <a class="code" href="namespacepism_1_1array_a8957d08741c6f48d1e554ac7ea98530a.html#a8957d08741c6f48d1e554ac7ea98530a">std::max</a>(b_grounded, b_floating);</div>
<div class="line"><a name="l00561"></a><span class="lineno"> 561</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_accd8cbc28303d9405d2b65dccf7a17f6.html#accd8cbc28303d9405d2b65dccf7a17f6">m_parameters</a>(i, j).node_type = <a class="code" href="namespacepism_a29133ed3f28e0aaba2d3af612dbbc5d6.html#a29133ed3f28e0aaba2d3af612dbbc5d6a439a40e16153abe158520a9b110fd8bd">NODE_EXTERIOR</a>;</div>
<div class="line"><a name="l00562"></a><span class="lineno"> 562</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_accd8cbc28303d9405d2b65dccf7a17f6.html#accd8cbc28303d9405d2b65dccf7a17f6">m_parameters</a>(i, j).floatation = s_floating - s_grounded;</div>
<div class="line"><a name="l00563"></a><span class="lineno"> 563</span>  }</div>
<div class="line"><a name="l00564"></a><span class="lineno"> 564</span>  }</div>
<div class="line"><a name="l00565"></a><span class="lineno"> 565</span>  </div>
<div class="line"><a name="l00566"></a><span class="lineno"> 566</span>  <span class="comment">// update ghosts here: the call to compute_node_type() uses ghosts of ice thickness</span></div>
<div class="line"><a name="l00567"></a><span class="lineno"> 567</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_accd8cbc28303d9405d2b65dccf7a17f6.html#accd8cbc28303d9405d2b65dccf7a17f6">m_parameters</a>.update_ghosts();</div>
<div class="line"><a name="l00568"></a><span class="lineno"> 568</span>  </div>
<div class="line"><a name="l00569"></a><span class="lineno"> 569</span>  <span class="keywordtype">double</span> H_min = <a class="code" href="classpism_1_1Component_a28f298fc2133baae8cebf9dedf3b4d84.html#a28f298fc2133baae8cebf9dedf3b4d84">m_config</a>->get_number(<span class="stringliteral">"stress_balance.ice_free_thickness_standard"</span>);</div>
<div class="line"><a name="l00570"></a><span class="lineno"> 570</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a2fbe2ae3843d5af3c375c9c05ad29fb2.html#a2fbe2ae3843d5af3c375c9c05ad29fb2">compute_node_type</a>(H_min);</div>
<div class="line"><a name="l00571"></a><span class="lineno"> 571</span>  </div>
<div class="line"><a name="l00572"></a><span class="lineno"> 572</span>  <span class="comment">// update ghosts of node types stored in m_parameters</span></div>
<div class="line"><a name="l00573"></a><span class="lineno"> 573</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_accd8cbc28303d9405d2b65dccf7a17f6.html#accd8cbc28303d9405d2b65dccf7a17f6">m_parameters</a>.update_ghosts();</div>
<div class="line"><a name="l00574"></a><span class="lineno"> 574</span> }</div>
<div class="line"><a name="l00575"></a><span class="lineno"> 575</span> <span class="comment"></span> </div>
<div class="line"><a name="l00576"></a><span class="lineno"> 576</span> <span class="comment">/*!</span></div>
<div class="line"><a name="l00577"></a><span class="lineno"> 577</span> <span class="comment"> * Set 3D parameters on the finest grid.</span></div>
<div class="line"><a name="l00578"></a><span class="lineno"> 578</span> <span class="comment"> */</span></div>
<div class="line"><a name="l00579"></a><span class="lineno"><a class="line" href="classpism_1_1stressbalance_1_1Blatter_a6e44bc37f69a1af4b7626e0418f14368.html#a6e44bc37f69a1af4b7626e0418f14368"> 579</a></span> <span class="keywordtype">void</span> <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a6e44bc37f69a1af4b7626e0418f14368.html#a6e44bc37f69a1af4b7626e0418f14368">Blatter::init_ice_hardness</a>(<span class="keyword">const</span> <a class="code" href="classpism_1_1stressbalance_1_1Inputs.html">Inputs</a> &inputs, <span class="keyword">const</span> <a class="code" href="classpism_1_1petsc_1_1DM.html">petsc::DM</a> &da) {</div>
<div class="line"><a name="l00580"></a><span class="lineno"> 580</span>  </div>
<div class="line"><a name="l00581"></a><span class="lineno"> 581</span>  <span class="keyword">const</span> <span class="keyword">auto</span> *enthalpy = inputs.<a class="code" href="classpism_1_1stressbalance_1_1Inputs_ad063c7e3758d5f735190f5913134f33d.html#ad063c7e3758d5f735190f5913134f33d">enthalpy</a>;</div>
<div class="line"><a name="l00582"></a><span class="lineno"> 582</span>  <span class="comment">// PISM's vertical grid:</span></div>
<div class="line"><a name="l00583"></a><span class="lineno"> 583</span>  <span class="keyword">const</span> <span class="keyword">auto</span> &zlevels = enthalpy-><a class="code" href="classpism_1_1array_1_1Array_a471583941d54506f80b014efaa14073a.html#a471583941d54506f80b014efaa14073a">levels</a>();</div>
<div class="line"><a name="l00584"></a><span class="lineno"> 584</span>  <span class="keyword">auto</span> Mz = zlevels.size();</div>
<div class="line"><a name="l00585"></a><span class="lineno"> 585</span>  </div>
<div class="line"><a name="l00586"></a><span class="lineno"> 586</span>  <span class="comment">// solver's vertical grid:</span></div>
<div class="line"><a name="l00587"></a><span class="lineno"> 587</span>  <span class="keywordtype">int</span> Mz_sigma = 0;</div>
<div class="line"><a name="l00588"></a><span class="lineno"> 588</span>  {</div>
<div class="line"><a name="l00589"></a><span class="lineno"> 589</span>  DMDALocalInfo info;</div>
<div class="line"><a name="l00590"></a><span class="lineno"> 590</span>  <span class="keywordtype">int</span> ierr = DMDAGetLocalInfo(da, &info); <a class="code" href="error__handling_8hh_a970ec877c0e54c6e16c039bfa1b88bad.html#a970ec877c0e54c6e16c039bfa1b88bad">PISM_CHK</a>(ierr, <span class="stringliteral">"DMDAGetLocalInfo"</span>);</div>
<div class="line"><a name="l00591"></a><span class="lineno"> 591</span>  info = <a class="code" href="namespacepism_a4bed65c5e9ffe8b9bbe6f80b744885bb.html#a4bed65c5e9ffe8b9bbe6f80b744885bb">grid_transpose</a>(info);</div>
<div class="line"><a name="l00592"></a><span class="lineno"> 592</span>  Mz_sigma = info.mz;</div>
<div class="line"><a name="l00593"></a><span class="lineno"> 593</span>  }</div>
<div class="line"><a name="l00594"></a><span class="lineno"> 594</span>  </div>
<div class="line"><a name="l00595"></a><span class="lineno"> 595</span>  <span class="keyword">const</span> <span class="keyword">auto</span> &ice_thickness = inputs.<a class="code" href="classpism_1_1stressbalance_1_1Inputs_a078ead1da77d23c8d0910d277c8978d8.html#a078ead1da77d23c8d0910d277c8978d8">geometry</a>-><a class="code" href="classpism_1_1Geometry_a9f744ea4843a08036f6132922dc4dc2c.html#a9f744ea4843a08036f6132922dc4dc2c">ice_thickness</a>;</div>
<div class="line"><a name="l00596"></a><span class="lineno"> 596</span>  <a class="code" href="classpism_1_1DataAccess.html">DataAccess<double***></a> hardness(da, 3, <a class="code" href="namespacepism_a294fe3e7c851ec53b318443b0c61ffab.html#a294fe3e7c851ec53b318443b0c61ffaba3c155fa786d4f050744bb13223985a9a">NOT_GHOSTED</a>);</div>
<div class="line"><a name="l00597"></a><span class="lineno"> 597</span>  </div>
<div class="line"><a name="l00598"></a><span class="lineno"> 598</span>  <a class="code" href="classpism_1_1array_1_1AccessScope.html">array::AccessScope</a> list{enthalpy, &ice_thickness};</div>
<div class="line"><a name="l00599"></a><span class="lineno"> 599</span>  </div>
<div class="line"><a name="l00600"></a><span class="lineno"> 600</span>  <span class="keywordflow">for</span> (<span class="keyword">auto</span> p = <a class="code" href="classpism_1_1Component_a745aa37bc1b5da6db5bfc280ecb3c811.html#a745aa37bc1b5da6db5bfc280ecb3c811">m_grid</a>->points(); p; p.next()) {</div>
<div class="line"><a name="l00601"></a><span class="lineno"> 601</span>  <span class="keyword">const</span> <span class="keywordtype">int</span> i = p.i(), j = p.j();</div>
<div class="line"><a name="l00602"></a><span class="lineno"> 602</span>  </div>
<div class="line"><a name="l00603"></a><span class="lineno"> 603</span>  <span class="keywordtype">double</span> H = ice_thickness(i, j);</div>
<div class="line"><a name="l00604"></a><span class="lineno"> 604</span>  </div>
<div class="line"><a name="l00605"></a><span class="lineno"> 605</span>  <span class="keyword">const</span> <span class="keywordtype">double</span> *E = enthalpy->get_column(i, j);</div>
<div class="line"><a name="l00606"></a><span class="lineno"> 606</span>  </div>
<div class="line"><a name="l00607"></a><span class="lineno"> 607</span>  <span class="keywordflow">for</span> (<span class="keywordtype">int</span> <a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a> = 0; <a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a> < Mz_sigma; ++<a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a>) {</div>
<div class="line"><a name="l00608"></a><span class="lineno"> 608</span>  <span class="keywordtype">double</span></div>
<div class="line"><a name="l00609"></a><span class="lineno"> 609</span>  z = <a class="code" href="namespacepism_a0633a48112e25e0422551c081103b58b.html#a0633a48112e25e0422551c081103b58b">grid_z</a>(0.0, H, Mz_sigma, <a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a>),</div>
<div class="line"><a name="l00610"></a><span class="lineno"> 610</span>  depth = H - z,</div>
<div class="line"><a name="l00611"></a><span class="lineno"> 611</span>  pressure = <a class="code" href="classpism_1_1stressbalance_1_1ShallowStressBalance_ad08f0eae9ab20e9a29059ebc14931735.html#ad08f0eae9ab20e9a29059ebc14931735">m_EC</a>->pressure(depth),</div>
<div class="line"><a name="l00612"></a><span class="lineno"> 612</span>  E_local = 0.0;</div>
<div class="line"><a name="l00613"></a><span class="lineno"> 613</span>  </div>
<div class="line"><a name="l00614"></a><span class="lineno"> 614</span>  <span class="keyword">auto</span> k0 = <a class="code" href="classpism_1_1Component_a745aa37bc1b5da6db5bfc280ecb3c811.html#a745aa37bc1b5da6db5bfc280ecb3c811">m_grid</a>->kBelowHeight(z);</div>
<div class="line"><a name="l00615"></a><span class="lineno"> 615</span>  </div>
<div class="line"><a name="l00616"></a><span class="lineno"> 616</span>  <span class="keywordflow">if</span> (k0 + 1 < Mz) {</div>
<div class="line"><a name="l00617"></a><span class="lineno"> 617</span>  <span class="keywordtype">double</span> lambda = (z - zlevels[k0]) / (zlevels[k0 + 1] - zlevels[k0]);</div>
<div class="line"><a name="l00618"></a><span class="lineno"> 618</span>  </div>
<div class="line"><a name="l00619"></a><span class="lineno"> 619</span>  E_local = (1.0 - lambda) * E[k0] + lambda * E[k0 + 1];</div>
<div class="line"><a name="l00620"></a><span class="lineno"> 620</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00621"></a><span class="lineno"> 621</span>  E_local = E[Mz - 1];</div>
<div class="line"><a name="l00622"></a><span class="lineno"> 622</span>  }</div>
<div class="line"><a name="l00623"></a><span class="lineno"> 623</span>  </div>
<div class="line"><a name="l00624"></a><span class="lineno"> 624</span>  hardness[j][i][<a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a>] = <a class="code" href="classpism_1_1stressbalance_1_1ShallowStressBalance_a6b739e49bbd63df7def997aafdd55d0d.html#a6b739e49bbd63df7def997aafdd55d0d">m_flow_law</a>->hardness(E_local, pressure); <span class="comment">// STORAGE_ORDER</span></div>
<div class="line"><a name="l00625"></a><span class="lineno"> 625</span>  </div>
<div class="line"><a name="l00626"></a><span class="lineno"> 626</span>  } <span class="comment">// end of the loop over sigma levels</span></div>
<div class="line"><a name="l00627"></a><span class="lineno"> 627</span>  } <span class="comment">// end of the loop over grid points</span></div>
<div class="line"><a name="l00628"></a><span class="lineno"> 628</span> }</div>
<div class="line"><a name="l00629"></a><span class="lineno"> 629</span> <span class="comment"></span> </div>
<div class="line"><a name="l00630"></a><span class="lineno"> 630</span> <span class="comment">/*!</span></div>
<div class="line"><a name="l00631"></a><span class="lineno"> 631</span> <span class="comment"> * Get values of 2D parameters at element nodes.</span></div>
<div class="line"><a name="l00632"></a><span class="lineno"> 632</span> <span class="comment"> *</span></div>
<div class="line"><a name="l00633"></a><span class="lineno"> 633</span> <span class="comment"> * This method is re-implemented by derived classes that use periodic boundary conditions.</span></div>
<div class="line"><a name="l00634"></a><span class="lineno"> 634</span> <span class="comment"> */</span></div>
<div class="line"><a name="l00635"></a><span class="lineno"><a class="line" href="classpism_1_1stressbalance_1_1Blatter_af6dca88040edb55ec3dada9682746810.html#af6dca88040edb55ec3dada9682746810"> 635</a></span> <span class="keywordtype">void</span> <a class="code" href="classpism_1_1stressbalance_1_1Blatter_af6dca88040edb55ec3dada9682746810.html#af6dca88040edb55ec3dada9682746810">Blatter::nodal_parameter_values</a>(<span class="keyword">const</span> <a class="code" href="classpism_1_1fem_1_1Q1Element3.html">fem::Q1Element3</a> &element,</div>
<div class="line"><a name="l00636"></a><span class="lineno"> 636</span>  <a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1Parameters.html">Parameters</a> **P,</div>
<div class="line"><a name="l00637"></a><span class="lineno"> 637</span>  <span class="keywordtype">int</span> i,</div>
<div class="line"><a name="l00638"></a><span class="lineno"> 638</span>  <span class="keywordtype">int</span> j,</div>
<div class="line"><a name="l00639"></a><span class="lineno"> 639</span>  <span class="keywordtype">int</span> *node_type,</div>
<div class="line"><a name="l00640"></a><span class="lineno"> 640</span>  <span class="keywordtype">double</span> *bottom_elevation,</div>
<div class="line"><a name="l00641"></a><span class="lineno"> 641</span>  <span class="keywordtype">double</span> *ice_thickness,</div>
<div class="line"><a name="l00642"></a><span class="lineno"> 642</span>  <span class="keywordtype">double</span> *surface_elevation,</div>
<div class="line"><a name="l00643"></a><span class="lineno"> 643</span>  <span class="keywordtype">double</span> *sea_level)<span class="keyword"> const </span>{</div>
<div class="line"><a name="l00644"></a><span class="lineno"> 644</span>  </div>
<div class="line"><a name="l00645"></a><span class="lineno"> 645</span>  <span class="keywordflow">for</span> (<span class="keywordtype">int</span> <a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a> = 0; <a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a> < <a class="code" href="namespacepism_1_1fem_1_1q13d_a15a7b2ec0e759c45002166d1bd5fb683.html#a15a7b2ec0e759c45002166d1bd5fb683">fem::q13d::n_chi</a>; ++<a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a>) {</div>
<div class="line"><a name="l00646"></a><span class="lineno"> 646</span>  <span class="keyword">auto</span> <a class="code" href="ssafd__code_8cc_a87ae798803dece6c82b4e7cb734f4cc3.html#a87ae798803dece6c82b4e7cb734f4cc3">I</a> = element.<a class="code" href="classpism_1_1fem_1_1Element3_aed8660bdae10f7f9e0b27e50cfd7e860.html#aed8660bdae10f7f9e0b27e50cfd7e860">local_to_global</a>(i, j, 0, <a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a>);</div>
<div class="line"><a name="l00647"></a><span class="lineno"> 647</span>  </div>
<div class="line"><a name="l00648"></a><span class="lineno"> 648</span>  <span class="keyword">auto</span> p = P[<a class="code" href="ssafd__code_8cc_a87ae798803dece6c82b4e7cb734f4cc3.html#a87ae798803dece6c82b4e7cb734f4cc3">I</a>.j][<a class="code" href="ssafd__code_8cc_a87ae798803dece6c82b4e7cb734f4cc3.html#a87ae798803dece6c82b4e7cb734f4cc3">I</a>.i];</div>
<div class="line"><a name="l00649"></a><span class="lineno"> 649</span>  </div>
<div class="line"><a name="l00650"></a><span class="lineno"> 650</span>  node_type[<a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a>] = <span class="keyword">static_cast<</span><span class="keywordtype">int</span><span class="keyword">></span>(p.node_type);</div>
<div class="line"><a name="l00651"></a><span class="lineno"> 651</span>  bottom_elevation[<a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a>] = p.<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1Parameters_aa4a66f7b15a041560140ab1a6103da6e.html#aa4a66f7b15a041560140ab1a6103da6e">bed</a>;</div>
<div class="line"><a name="l00652"></a><span class="lineno"> 652</span>  ice_thickness[<a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a>] = p.thickness;</div>
<div class="line"><a name="l00653"></a><span class="lineno"> 653</span>  </div>
<div class="line"><a name="l00654"></a><span class="lineno"> 654</span>  <span class="keywordflow">if</span> (surface_elevation != <span class="keyword">nullptr</span>) {</div>
<div class="line"><a name="l00655"></a><span class="lineno"> 655</span>  surface_elevation[<a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a>] = p.bed + p.thickness;</div>
<div class="line"><a name="l00656"></a><span class="lineno"> 656</span>  }</div>
<div class="line"><a name="l00657"></a><span class="lineno"> 657</span>  </div>
<div class="line"><a name="l00658"></a><span class="lineno"> 658</span>  <span class="keywordflow">if</span> (sea_level != <span class="keyword">nullptr</span>) {</div>
<div class="line"><a name="l00659"></a><span class="lineno"> 659</span>  sea_level[<a class="code" href="exactTestM_8c_ad5228cd48403ef9d8b632f5c7c124720.html#ad5228cd48403ef9d8b632f5c7c124720">n</a>] = p.sea_level;</div>
<div class="line"><a name="l00660"></a><span class="lineno"> 660</span>  }</div>
<div class="line"><a name="l00661"></a><span class="lineno"> 661</span>  }</div>
<div class="line"><a name="l00662"></a><span class="lineno"> 662</span> }</div>
<div class="line"><a name="l00663"></a><span class="lineno"> 663</span>  </div>
<div class="line"><a name="l00664"></a><span class="lineno"><a class="line" href="classpism_1_1stressbalance_1_1Blatter_a74af1f865c004ffc02ab203dad1a0201.html#a74af1f865c004ffc02ab203dad1a0201"> 664</a></span> <span class="keywordtype">void</span> <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a74af1f865c004ffc02ab203dad1a0201.html#a74af1f865c004ffc02ab203dad1a0201">Blatter::init_impl</a>() {</div>
<div class="line"><a name="l00665"></a><span class="lineno"> 665</span>  <a class="code" href="classpism_1_1Component_a29575eba605feccf4403d6b4ff0954a4.html#a29575eba605feccf4403d6b4ff0954a4">m_log</a>->message(2, <span class="stringliteral">"* Initializing the Blatter stress balance...\n"</span>);</div>
<div class="line"><a name="l00666"></a><span class="lineno"> 666</span>  </div>
<div class="line"><a name="l00667"></a><span class="lineno"> 667</span>  <a class="code" href="structpism_1_1InputOptions.html">InputOptions</a> opts = <a class="code" href="namespacepism_a44fca05de5c3d0cb82c4a2910666b6e2.html#a44fca05de5c3d0cb82c4a2910666b6e2">process_input_options</a>(<a class="code" href="classpism_1_1Component_a745aa37bc1b5da6db5bfc280ecb3c811.html#a745aa37bc1b5da6db5bfc280ecb3c811">m_grid</a>->com, <a class="code" href="classpism_1_1Component_a28f298fc2133baae8cebf9dedf3b4d84.html#a28f298fc2133baae8cebf9dedf3b4d84">m_config</a>);</div>
<div class="line"><a name="l00668"></a><span class="lineno"> 668</span>  </div>
<div class="line"><a name="l00669"></a><span class="lineno"> 669</span>  <span class="keywordflow">if</span> (opts.<a class="code" href="structpism_1_1InputOptions_a0fe5db51286e55c31b1575dc9ecc5d70.html#a0fe5db51286e55c31b1575dc9ecc5d70">type</a> == <a class="code" href="namespacepism_a56e80801555b7f36f4dd28941739654a.html#a56e80801555b7f36f4dd28941739654aa6aff4b43552f00d5cc331453ff4029bc">INIT_RESTART</a>) {</div>
<div class="line"><a name="l00670"></a><span class="lineno"> 670</span>  <a class="code" href="classpism_1_1File.html">File</a> input_file(<a class="code" href="classpism_1_1Component_a745aa37bc1b5da6db5bfc280ecb3c811.html#a745aa37bc1b5da6db5bfc280ecb3c811">m_grid</a>->com, opts.<a class="code" href="structpism_1_1InputOptions_a2dc298f0e83b951fa1df5eab910639e5.html#a2dc298f0e83b951fa1df5eab910639e5">filename</a>, <a class="code" href="namespacepism_1_1io_a0caba8881b0d36c8cc1eccfa13c0e81f.html#a0caba8881b0d36c8cc1eccfa13c0e81fa308d77197e903bf4f5505b8cb5e377a2">io::PISM_GUESS</a>, <a class="code" href="namespacepism_1_1io_a12c1fd23e92335e2396baab0354b262f.html#a12c1fd23e92335e2396baab0354b262fabb5d91fa1da1214c24d193a75f11f0a2">io::PISM_READONLY</a>);</div>
<div class="line"><a name="l00671"></a><span class="lineno"> 671</span>  <span class="keywordtype">bool</span> u_sigma_found = input_file.<a class="code" href="classpism_1_1File_a4ec169f0ab9d7858d09f07bffc978f2a.html#a4ec169f0ab9d7858d09f07bffc978f2a">find_variable</a>(<span class="stringliteral">"uvel_sigma"</span>);</div>
<div class="line"><a name="l00672"></a><span class="lineno"> 672</span>  <span class="keywordtype">bool</span> v_sigma_found = input_file.<a class="code" href="classpism_1_1File_a4ec169f0ab9d7858d09f07bffc978f2a.html#a4ec169f0ab9d7858d09f07bffc978f2a">find_variable</a>(<span class="stringliteral">"vvel_sigma"</span>);</div>
<div class="line"><a name="l00673"></a><span class="lineno"> 673</span>  <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span> start = input_file.<a class="code" href="classpism_1_1File_a596df81ae339594d0208aad49e1c01a6.html#a596df81ae339594d0208aad49e1c01a6">nrecords</a>() - 1;</div>
<div class="line"><a name="l00674"></a><span class="lineno"> 674</span>  </div>
<div class="line"><a name="l00675"></a><span class="lineno"> 675</span>  <span class="keywordflow">if</span> (u_sigma_found and v_sigma_found) {</div>
<div class="line"><a name="l00676"></a><span class="lineno"> 676</span>  <a class="code" href="classpism_1_1Component_a29575eba605feccf4403d6b4ff0954a4.html#a29575eba605feccf4403d6b4ff0954a4">m_log</a>->message(3, <span class="stringliteral">"Reading uvel_sigma and vvel_sigma...\n"</span>);</div>
<div class="line"><a name="l00677"></a><span class="lineno"> 677</span>  </div>
<div class="line"><a name="l00678"></a><span class="lineno"> 678</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a5370139cab7e6e020ce44d7f7e798efc.html#a5370139cab7e6e020ce44d7f7e798efc">m_u_sigma</a>->read(input_file, start);</div>
<div class="line"><a name="l00679"></a><span class="lineno"> 679</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_add080561cff9ccf545285a805581bd3e.html#add080561cff9ccf545285a805581bd3e">m_v_sigma</a>->read(input_file, start);</div>
<div class="line"><a name="l00680"></a><span class="lineno"> 680</span>  </div>
<div class="line"><a name="l00681"></a><span class="lineno"> 681</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_af9e4b7b28f90e900c8eb7c7cea9edb09.html#af9e4b7b28f90e900c8eb7c7cea9edb09">set_initial_guess</a>(*<a class="code" href="classpism_1_1stressbalance_1_1Blatter_a5370139cab7e6e020ce44d7f7e798efc.html#a5370139cab7e6e020ce44d7f7e798efc">m_u_sigma</a>, *<a class="code" href="classpism_1_1stressbalance_1_1Blatter_add080561cff9ccf545285a805581bd3e.html#add080561cff9ccf545285a805581bd3e">m_v_sigma</a>);</div>
<div class="line"><a name="l00682"></a><span class="lineno"> 682</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00683"></a><span class="lineno"> 683</span>  <span class="keywordflow">throw</span> <a class="code" href="classpism_1_1RuntimeError.html">RuntimeError</a>(<a class="code" href="error__handling_8hh_aa0c260bffe8a4dbd77d48e8feee7c526.html#aa0c260bffe8a4dbd77d48e8feee7c526">PISM_ERROR_LOCATION</a>,</div>
<div class="line"><a name="l00684"></a><span class="lineno"> 684</span>  <span class="stringliteral">"uvel_sigma and vvel_sigma not found"</span>);</div>
<div class="line"><a name="l00685"></a><span class="lineno"> 685</span>  }</div>
<div class="line"><a name="l00686"></a><span class="lineno"> 686</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00687"></a><span class="lineno"> 687</span>  <span class="keywordtype">int</span> ierr = VecSet(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_a4f04729da9beb3aacaaf63b3bf41b465.html#a4f04729da9beb3aacaaf63b3bf41b465">m_x</a>, 0.0); <a class="code" href="error__handling_8hh_a970ec877c0e54c6e16c039bfa1b88bad.html#a970ec877c0e54c6e16c039bfa1b88bad">PISM_CHK</a>(ierr, <span class="stringliteral">"VecSet"</span>);</div>
<div class="line"><a name="l00688"></a><span class="lineno"> 688</span>  }</div>
<div class="line"><a name="l00689"></a><span class="lineno"> 689</span> }</div>
<div class="line"><a name="l00690"></a><span class="lineno"> 690</span>  </div>
<div class="line"><a name="l00691"></a><span class="lineno"><a class="line" href="classpism_1_1stressbalance_1_1Blatter_a03cf1873d794d47bbf2d9c3910fc265c.html#a03cf1873d794d47bbf2d9c3910fc265c"> 691</a></span> <span class="keywordtype">void</span> <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a03cf1873d794d47bbf2d9c3910fc265c.html#a03cf1873d794d47bbf2d9c3910fc265c">Blatter::define_model_state_impl</a>(<span class="keyword">const</span> <a class="code" href="classpism_1_1File.html">File</a> &output)<span class="keyword"> const </span>{</div>
<div class="line"><a name="l00692"></a><span class="lineno"> 692</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a5370139cab7e6e020ce44d7f7e798efc.html#a5370139cab7e6e020ce44d7f7e798efc">m_u_sigma</a>->define(output, <a class="code" href="namespacepism_1_1io_a53ffb40793c398e10644fbd2ecda3e77.html#a53ffb40793c398e10644fbd2ecda3e77a6a72c64f82168bec6bf8b648a86648de">io::PISM_DOUBLE</a>);</div>
<div class="line"><a name="l00693"></a><span class="lineno"> 693</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_add080561cff9ccf545285a805581bd3e.html#add080561cff9ccf545285a805581bd3e">m_v_sigma</a>->define(output, <a class="code" href="namespacepism_1_1io_a53ffb40793c398e10644fbd2ecda3e77.html#a53ffb40793c398e10644fbd2ecda3e77a6a72c64f82168bec6bf8b648a86648de">io::PISM_DOUBLE</a>);</div>
<div class="line"><a name="l00694"></a><span class="lineno"> 694</span> }</div>
<div class="line"><a name="l00695"></a><span class="lineno"> 695</span>  </div>
<div class="line"><a name="l00696"></a><span class="lineno"><a class="line" href="classpism_1_1stressbalance_1_1Blatter_a3d737cae6ad80333f806e1aeceb50616.html#a3d737cae6ad80333f806e1aeceb50616"> 696</a></span> <span class="keywordtype">void</span> <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a3d737cae6ad80333f806e1aeceb50616.html#a3d737cae6ad80333f806e1aeceb50616">Blatter::write_model_state_impl</a>(<span class="keyword">const</span> <a class="code" href="classpism_1_1File.html">File</a> &output)<span class="keyword"> const </span>{</div>
<div class="line"><a name="l00697"></a><span class="lineno"> 697</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a5370139cab7e6e020ce44d7f7e798efc.html#a5370139cab7e6e020ce44d7f7e798efc">m_u_sigma</a>->write(output);</div>
<div class="line"><a name="l00698"></a><span class="lineno"> 698</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_add080561cff9ccf545285a805581bd3e.html#add080561cff9ccf545285a805581bd3e">m_v_sigma</a>->write(output);</div>
<div class="line"><a name="l00699"></a><span class="lineno"> 699</span> }</div>
<div class="line"><a name="l00700"></a><span class="lineno"> 700</span>  </div>
<div class="line"><a name="l00701"></a><span class="lineno"><a class="line" href="classpism_1_1stressbalance_1_1Blatter_a6689c271ed3973cebaecd98dada7e1f3.html#a6689c271ed3973cebaecd98dada7e1f3"> 701</a></span> <span class="keywordtype">void</span> <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a6689c271ed3973cebaecd98dada7e1f3.html#a6689c271ed3973cebaecd98dada7e1f3">Blatter::report_mesh_info</a>() {</div>
<div class="line"><a name="l00702"></a><span class="lineno"> 702</span>  </div>
<div class="line"><a name="l00703"></a><span class="lineno"> 703</span>  DMDALocalInfo info;</div>
<div class="line"><a name="l00704"></a><span class="lineno"> 704</span>  <span class="keywordtype">int</span> ierr = DMDAGetLocalInfo(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_abfde66efd52fefc0631817a6baa519e1.html#abfde66efd52fefc0631817a6baa519e1">m_da</a>, &info); <a class="code" href="error__handling_8hh_a970ec877c0e54c6e16c039bfa1b88bad.html#a970ec877c0e54c6e16c039bfa1b88bad">PISM_CHK</a>(ierr, <span class="stringliteral">"DMDAGetLocalInfo"</span>);</div>
<div class="line"><a name="l00705"></a><span class="lineno"> 705</span>  info = <a class="code" href="namespacepism_a4bed65c5e9ffe8b9bbe6f80b744885bb.html#a4bed65c5e9ffe8b9bbe6f80b744885bb">grid_transpose</a>(info);</div>
<div class="line"><a name="l00706"></a><span class="lineno"> 706</span>  </div>
<div class="line"><a name="l00707"></a><span class="lineno"> 707</span>  <a class="code" href="classpism_1_1fem_1_1Q1Element2.html">fem::Q1Element2</a> E(info, 1.0, 1.0, <a class="code" href="classpism_1_1fem_1_1Q1Quadrature1.html">fem::Q1Quadrature1</a>());</div>
<div class="line"><a name="l00708"></a><span class="lineno"> 708</span>  </div>
<div class="line"><a name="l00709"></a><span class="lineno"> 709</span>  <a class="code" href="classpism_1_1array_1_1AccessScope.html">array::AccessScope</a> l{&<a class="code" href="classpism_1_1stressbalance_1_1Blatter_accd8cbc28303d9405d2b65dccf7a17f6.html#accd8cbc28303d9405d2b65dccf7a17f6">m_parameters</a>};</div>
<div class="line"><a name="l00710"></a><span class="lineno"> 710</span>  </div>
<div class="line"><a name="l00711"></a><span class="lineno"> 711</span>  <span class="keywordtype">double</span> R_min = 1e16, R_max = 0.0, R_avg = 0.0;</div>
<div class="line"><a name="l00712"></a><span class="lineno"> 712</span>  <span class="keywordtype">double</span> dxy = <a class="code" href="namespacepism_1_1array_a8957d08741c6f48d1e554ac7ea98530a.html#a8957d08741c6f48d1e554ac7ea98530a">std::max</a>(<a class="code" href="classpism_1_1Component_a745aa37bc1b5da6db5bfc280ecb3c811.html#a745aa37bc1b5da6db5bfc280ecb3c811">m_grid</a>->dx(), <a class="code" href="classpism_1_1Component_a745aa37bc1b5da6db5bfc280ecb3c811.html#a745aa37bc1b5da6db5bfc280ecb3c811">m_grid</a>->dy());</div>
<div class="line"><a name="l00713"></a><span class="lineno"> 713</span>  <span class="keywordtype">double</span> n_cells = 0.0;</div>
<div class="line"><a name="l00714"></a><span class="lineno"> 714</span>  </div>
<div class="line"><a name="l00715"></a><span class="lineno"> 715</span>  <a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1Parameters.html">Parameters</a> P[<a class="code" href="namespacepism_1_1fem_1_1q1_ac174d66fdbd953c89d3094cf72801f9e.html#ac174d66fdbd953c89d3094cf72801f9e">fem::q1::n_chi</a>];</div>
<div class="line"><a name="l00716"></a><span class="lineno"> 716</span>  <span class="keywordflow">for</span> (<span class="keywordtype">int</span> j = info.ys; j < info.ys + info.ym - 1; j++) {</div>
<div class="line"><a name="l00717"></a><span class="lineno"> 717</span>  <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = info.xs; i < info.xs + info.xm - 1; i++) {</div>
<div class="line"><a name="l00718"></a><span class="lineno"> 718</span>  </div>
<div class="line"><a name="l00719"></a><span class="lineno"> 719</span>  E.<a class="code" href="classpism_1_1fem_1_1Element2_a3b197d3387dcf4e69dac45426570756d.html#a3b197d3387dcf4e69dac45426570756d">reset</a>(i, j);</div>
<div class="line"><a name="l00720"></a><span class="lineno"> 720</span>  </div>
<div class="line"><a name="l00721"></a><span class="lineno"> 721</span>  E.<a class="code" href="classpism_1_1fem_1_1Element2_adb26bcaded6dab7a2447d49ca206e7da.html#adb26bcaded6dab7a2447d49ca206e7da">nodal_values</a>(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_accd8cbc28303d9405d2b65dccf7a17f6.html#accd8cbc28303d9405d2b65dccf7a17f6">m_parameters</a>.array(), P);</div>
<div class="line"><a name="l00722"></a><span class="lineno"> 722</span>  </div>
<div class="line"><a name="l00723"></a><span class="lineno"> 723</span>  <span class="keywordtype">int</span> node_type[4];</div>
<div class="line"><a name="l00724"></a><span class="lineno"> 724</span>  <span class="keywordflow">for</span> (<span class="keywordtype">int</span> <a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a> = 0; <a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a> < 4; ++<a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a>) {</div>
<div class="line"><a name="l00725"></a><span class="lineno"> 725</span>  node_type[<a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a>] = <span class="keyword">static_cast<</span><span class="keywordtype">int</span><span class="keyword">></span>(P[<a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a>].<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1Parameters_acefd335023cd18a2fb3c2bf0298d5a77.html#acefd335023cd18a2fb3c2bf0298d5a77">node_type</a>);</div>
<div class="line"><a name="l00726"></a><span class="lineno"> 726</span>  }</div>
<div class="line"><a name="l00727"></a><span class="lineno"> 727</span>  </div>
<div class="line"><a name="l00728"></a><span class="lineno"> 728</span>  <span class="keywordflow">if</span> (<a class="code" href="classpism_1_1stressbalance_1_1Blatter_abdffc987b7c3743259afa2c9b3700450.html#abdffc987b7c3743259afa2c9b3700450">exterior_element</a>(node_type)) {</div>
<div class="line"><a name="l00729"></a><span class="lineno"> 729</span>  <span class="keywordflow">continue</span>;</div>
<div class="line"><a name="l00730"></a><span class="lineno"> 730</span>  }</div>
<div class="line"><a name="l00731"></a><span class="lineno"> 731</span>  </div>
<div class="line"><a name="l00732"></a><span class="lineno"> 732</span>  n_cells += 1.0;</div>
<div class="line"><a name="l00733"></a><span class="lineno"> 733</span>  </div>
<div class="line"><a name="l00734"></a><span class="lineno"> 734</span>  <span class="keywordtype">double</span> dz_max = 0.0;</div>
<div class="line"><a name="l00735"></a><span class="lineno"> 735</span>  <span class="keywordflow">for</span> (<span class="keywordtype">int</span> <a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a> = 0; <a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a> < 4; ++<a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a>) {</div>
<div class="line"><a name="l00736"></a><span class="lineno"> 736</span>  dz_max = <a class="code" href="namespacepism_1_1array_a8957d08741c6f48d1e554ac7ea98530a.html#a8957d08741c6f48d1e554ac7ea98530a">std::max</a>(P[<a class="code" href="namespacepism_a7343afff8d353b59dbdec563bd896812.html#a7343afff8d353b59dbdec563bd896812">k</a>].thickness / (info.mz - 1), dz_max);</div>
<div class="line"><a name="l00737"></a><span class="lineno"> 737</span>  }</div>
<div class="line"><a name="l00738"></a><span class="lineno"> 738</span>  <span class="keywordtype">double</span> R = dz_max / dxy;</div>
<div class="line"><a name="l00739"></a><span class="lineno"> 739</span>  </div>
<div class="line"><a name="l00740"></a><span class="lineno"> 740</span>  R_min = <a class="code" href="namespacepism_1_1array_abe1b3c17ea21b5f0e540eb4a53ec72a9.html#abe1b3c17ea21b5f0e540eb4a53ec72a9">std::min</a>(R, R_min);</div>
<div class="line"><a name="l00741"></a><span class="lineno"> 741</span>  R_max = <a class="code" href="namespacepism_1_1array_a8957d08741c6f48d1e554ac7ea98530a.html#a8957d08741c6f48d1e554ac7ea98530a">std::max</a>(R, R_max);</div>
<div class="line"><a name="l00742"></a><span class="lineno"> 742</span>  R_avg += R;</div>
<div class="line"><a name="l00743"></a><span class="lineno"> 743</span>  }</div>
<div class="line"><a name="l00744"></a><span class="lineno"> 744</span>  }</div>
<div class="line"><a name="l00745"></a><span class="lineno"> 745</span>  </div>
<div class="line"><a name="l00746"></a><span class="lineno"> 746</span>  n_cells = <a class="code" href="namespacepism_ac3e0190c23e7e63d2755343a89b3b239.html#ac3e0190c23e7e63d2755343a89b3b239">GlobalSum</a>(<a class="code" href="classpism_1_1Component_a745aa37bc1b5da6db5bfc280ecb3c811.html#a745aa37bc1b5da6db5bfc280ecb3c811">m_grid</a>->com, n_cells);</div>
<div class="line"><a name="l00747"></a><span class="lineno"> 747</span>  R_avg = <a class="code" href="namespacepism_ac3e0190c23e7e63d2755343a89b3b239.html#ac3e0190c23e7e63d2755343a89b3b239">GlobalSum</a>(<a class="code" href="classpism_1_1Component_a745aa37bc1b5da6db5bfc280ecb3c811.html#a745aa37bc1b5da6db5bfc280ecb3c811">m_grid</a>->com, R_avg);</div>
<div class="line"><a name="l00748"></a><span class="lineno"> 748</span>  R_avg /= <a class="code" href="namespacepism_1_1array_a8957d08741c6f48d1e554ac7ea98530a.html#a8957d08741c6f48d1e554ac7ea98530a">std::max</a>(n_cells, 1.0);</div>
<div class="line"><a name="l00749"></a><span class="lineno"> 749</span>  </div>
<div class="line"><a name="l00750"></a><span class="lineno"> 750</span>  R_min = <a class="code" href="namespacepism_aa67d24ee72754ef6277e6e85f74b7c60.html#aa67d24ee72754ef6277e6e85f74b7c60">GlobalMin</a>(<a class="code" href="classpism_1_1Component_a745aa37bc1b5da6db5bfc280ecb3c811.html#a745aa37bc1b5da6db5bfc280ecb3c811">m_grid</a>->com, R_min);</div>
<div class="line"><a name="l00751"></a><span class="lineno"> 751</span>  R_max = <a class="code" href="namespacepism_a4f5594a235f5835d6ddbb2a21f4d40cc.html#a4f5594a235f5835d6ddbb2a21f4d40cc">GlobalMax</a>(<a class="code" href="classpism_1_1Component_a745aa37bc1b5da6db5bfc280ecb3c811.html#a745aa37bc1b5da6db5bfc280ecb3c811">m_grid</a>->com, R_max);</div>
<div class="line"><a name="l00752"></a><span class="lineno"> 752</span>  </div>
<div class="line"><a name="l00753"></a><span class="lineno"> 753</span>  <a class="code" href="classpism_1_1Component_a29575eba605feccf4403d6b4ff0954a4.html#a29575eba605feccf4403d6b4ff0954a4">m_log</a>->message(2,</div>
<div class="line"><a name="l00754"></a><span class="lineno"> 754</span>  <span class="stringliteral">"Blatter solver: %d * (%d - 1) = %d active elements\n"</span>,</div>
<div class="line"><a name="l00755"></a><span class="lineno"> 755</span>  (<span class="keywordtype">int</span>)n_cells, (<span class="keywordtype">int</span>)info.mz, (<span class="keywordtype">int</span>)(n_cells * (info.mz - 1)));</div>
<div class="line"><a name="l00756"></a><span class="lineno"> 756</span>  </div>
<div class="line"><a name="l00757"></a><span class="lineno"> 757</span>  <span class="keywordflow">if</span> (n_cells > 0) {</div>
<div class="line"><a name="l00758"></a><span class="lineno"> 758</span>  <a class="code" href="classpism_1_1Component_a29575eba605feccf4403d6b4ff0954a4.html#a29575eba605feccf4403d6b4ff0954a4">m_log</a>->message(2,</div>
<div class="line"><a name="l00759"></a><span class="lineno"> 759</span>  <span class="stringliteral">" Vertical spacing (m): min = %3.3f, max = %3.3f, avg = %3.3f\n"</span>,</div>
<div class="line"><a name="l00760"></a><span class="lineno"> 760</span>  R_min * dxy, R_max * dxy, R_avg * dxy);</div>
<div class="line"><a name="l00761"></a><span class="lineno"> 761</span>  <a class="code" href="classpism_1_1Component_a29575eba605feccf4403d6b4ff0954a4.html#a29575eba605feccf4403d6b4ff0954a4">m_log</a>->message(2,</div>
<div class="line"><a name="l00762"></a><span class="lineno"> 762</span>  <span class="stringliteral">" Aspect ratios: min = %3.3f, max = %3.3f, avg = %3.3f, max/min = %3.3f\n"</span>,</div>
<div class="line"><a name="l00763"></a><span class="lineno"> 763</span>  R_min, R_max, R_avg, R_max / R_min);</div>
<div class="line"><a name="l00764"></a><span class="lineno"> 764</span>  }</div>
<div class="line"><a name="l00765"></a><span class="lineno"> 765</span> }</div>
<div class="line"><a name="l00766"></a><span class="lineno"> 766</span> <span class="comment"></span> </div>
<div class="line"><a name="l00767"></a><span class="lineno"> 767</span> <span class="comment">/*!</span></div>
<div class="line"><a name="l00768"></a><span class="lineno"> 768</span> <span class="comment"> * Runs the solver and extracts iteration counts.</span></div>
<div class="line"><a name="l00769"></a><span class="lineno"> 769</span> <span class="comment"> */</span></div>
<div class="line"><a name="l00770"></a><span class="lineno"><a class="line" href="classpism_1_1stressbalance_1_1Blatter_ae64dd29e981c3975f8381c105154efca.html#ae64dd29e981c3975f8381c105154efca"> 770</a></span> <a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo.html">Blatter::SolutionInfo</a> <a class="code" href="classpism_1_1stressbalance_1_1Blatter_ae64dd29e981c3975f8381c105154efca.html#ae64dd29e981c3975f8381c105154efca">Blatter::solve</a>() {</div>
<div class="line"><a name="l00771"></a><span class="lineno"> 771</span>  PetscErrorCode ierr;</div>
<div class="line"><a name="l00772"></a><span class="lineno"> 772</span>  <a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo.html">SolutionInfo</a> result;</div>
<div class="line"><a name="l00773"></a><span class="lineno"> 773</span>  </div>
<div class="line"><a name="l00774"></a><span class="lineno"> 774</span>  <span class="comment">// Solve the system:</span></div>
<div class="line"><a name="l00775"></a><span class="lineno"> 775</span>  ierr = SNESSolve(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_af94a1ecd338043a69808be5289976983.html#af94a1ecd338043a69808be5289976983">m_snes</a>, NULL, <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a4f04729da9beb3aacaaf63b3bf41b465.html#a4f04729da9beb3aacaaf63b3bf41b465">m_x</a>); <a class="code" href="error__handling_8hh_a970ec877c0e54c6e16c039bfa1b88bad.html#a970ec877c0e54c6e16c039bfa1b88bad">PISM_CHK</a>(ierr, <span class="stringliteral">"SNESSolve"</span>);</div>
<div class="line"><a name="l00776"></a><span class="lineno"> 776</span>  </div>
<div class="line"><a name="l00777"></a><span class="lineno"> 777</span>  ierr = SNESGetConvergedReason(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_af94a1ecd338043a69808be5289976983.html#af94a1ecd338043a69808be5289976983">m_snes</a>, &result.<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo_a9616c4a7ffdad7ff3a9a833ff4e4cd48.html#a9616c4a7ffdad7ff3a9a833ff4e4cd48">snes_reason</a>);</div>
<div class="line"><a name="l00778"></a><span class="lineno"> 778</span>  <a class="code" href="error__handling_8hh_a970ec877c0e54c6e16c039bfa1b88bad.html#a970ec877c0e54c6e16c039bfa1b88bad">PISM_CHK</a>(ierr, <span class="stringliteral">"SNESGetConvergedReason"</span>);</div>
<div class="line"><a name="l00779"></a><span class="lineno"> 779</span>  </div>
<div class="line"><a name="l00780"></a><span class="lineno"> 780</span>  ierr = SNESGetIterationNumber(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_af94a1ecd338043a69808be5289976983.html#af94a1ecd338043a69808be5289976983">m_snes</a>, &result.<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo_a7ec9c1f9291c0a2219508282c4bfd36a.html#a7ec9c1f9291c0a2219508282c4bfd36a">snes_it</a>);</div>
<div class="line"><a name="l00781"></a><span class="lineno"> 781</span>  <a class="code" href="error__handling_8hh_a970ec877c0e54c6e16c039bfa1b88bad.html#a970ec877c0e54c6e16c039bfa1b88bad">PISM_CHK</a>(ierr, <span class="stringliteral">"SNESGetIterationNumber"</span>);</div>
<div class="line"><a name="l00782"></a><span class="lineno"> 782</span>  </div>
<div class="line"><a name="l00783"></a><span class="lineno"> 783</span>  ierr = SNESGetLinearSolveIterations(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_af94a1ecd338043a69808be5289976983.html#af94a1ecd338043a69808be5289976983">m_snes</a>, &result.<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo_ab5d5c2adf415c683884027e492a4a73d.html#ab5d5c2adf415c683884027e492a4a73d">ksp_it</a>);</div>
<div class="line"><a name="l00784"></a><span class="lineno"> 784</span>  <a class="code" href="error__handling_8hh_a970ec877c0e54c6e16c039bfa1b88bad.html#a970ec877c0e54c6e16c039bfa1b88bad">PISM_CHK</a>(ierr, <span class="stringliteral">"SNESGetLinearSolveIterations"</span>);</div>
<div class="line"><a name="l00785"></a><span class="lineno"> 785</span>  </div>
<div class="line"><a name="l00786"></a><span class="lineno"> 786</span>  KSP ksp;</div>
<div class="line"><a name="l00787"></a><span class="lineno"> 787</span>  ierr = SNESGetKSP(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_af94a1ecd338043a69808be5289976983.html#af94a1ecd338043a69808be5289976983">m_snes</a>, &ksp);</div>
<div class="line"><a name="l00788"></a><span class="lineno"> 788</span>  <a class="code" href="error__handling_8hh_a970ec877c0e54c6e16c039bfa1b88bad.html#a970ec877c0e54c6e16c039bfa1b88bad">PISM_CHK</a>(ierr, <span class="stringliteral">"SNESGetKSP"</span>);</div>
<div class="line"><a name="l00789"></a><span class="lineno"> 789</span>  </div>
<div class="line"><a name="l00790"></a><span class="lineno"> 790</span>  ierr = KSPGetConvergedReason(ksp, &result.<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo_aa09df2a0f309008343e22deba328f8ad.html#aa09df2a0f309008343e22deba328f8ad">ksp_reason</a>);</div>
<div class="line"><a name="l00791"></a><span class="lineno"> 791</span>  <a class="code" href="error__handling_8hh_a970ec877c0e54c6e16c039bfa1b88bad.html#a970ec877c0e54c6e16c039bfa1b88bad">PISM_CHK</a>(ierr, <span class="stringliteral">"KSPGetConvergedReason"</span>);</div>
<div class="line"><a name="l00792"></a><span class="lineno"> 792</span>  </div>
<div class="line"><a name="l00793"></a><span class="lineno"> 793</span>  PC pc;</div>
<div class="line"><a name="l00794"></a><span class="lineno"> 794</span>  ierr = KSPGetPC(ksp, &pc);</div>
<div class="line"><a name="l00795"></a><span class="lineno"> 795</span>  <a class="code" href="error__handling_8hh_a970ec877c0e54c6e16c039bfa1b88bad.html#a970ec877c0e54c6e16c039bfa1b88bad">PISM_CHK</a>(ierr, <span class="stringliteral">"KSPGetPC"</span>);</div>
<div class="line"><a name="l00796"></a><span class="lineno"> 796</span>  </div>
<div class="line"><a name="l00797"></a><span class="lineno"> 797</span>  PCType pc_type;</div>
<div class="line"><a name="l00798"></a><span class="lineno"> 798</span>  ierr = PCGetType(pc, &pc_type);</div>
<div class="line"><a name="l00799"></a><span class="lineno"> 799</span>  <a class="code" href="error__handling_8hh_a970ec877c0e54c6e16c039bfa1b88bad.html#a970ec877c0e54c6e16c039bfa1b88bad">PISM_CHK</a>(ierr, <span class="stringliteral">"PCGetType"</span>);</div>
<div class="line"><a name="l00800"></a><span class="lineno"> 800</span>  </div>
<div class="line"><a name="l00801"></a><span class="lineno"> 801</span>  <span class="keywordflow">if</span> (std::string(pc_type) == PCMG) {</div>
<div class="line"><a name="l00802"></a><span class="lineno"> 802</span>  KSP coarse_ksp;</div>
<div class="line"><a name="l00803"></a><span class="lineno"> 803</span>  ierr = PCMGGetCoarseSolve(pc, &coarse_ksp);</div>
<div class="line"><a name="l00804"></a><span class="lineno"> 804</span>  <a class="code" href="error__handling_8hh_a970ec877c0e54c6e16c039bfa1b88bad.html#a970ec877c0e54c6e16c039bfa1b88bad">PISM_CHK</a>(ierr, <span class="stringliteral">"PCMGGetCoarseSolve"</span>);</div>
<div class="line"><a name="l00805"></a><span class="lineno"> 805</span>  </div>
<div class="line"><a name="l00806"></a><span class="lineno"> 806</span>  ierr = KSPGetIterationNumber(coarse_ksp, &result.<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo_a892406be4c7a35b7895c50ec6c7c715d.html#a892406be4c7a35b7895c50ec6c7c715d">mg_coarse_ksp_it</a>);</div>
<div class="line"><a name="l00807"></a><span class="lineno"> 807</span>  <a class="code" href="error__handling_8hh_a970ec877c0e54c6e16c039bfa1b88bad.html#a970ec877c0e54c6e16c039bfa1b88bad">PISM_CHK</a>(ierr, <span class="stringliteral">"KSPGetIterationNumber"</span>);</div>
<div class="line"><a name="l00808"></a><span class="lineno"> 808</span>  } <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00809"></a><span class="lineno"> 809</span>  result.<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo_a892406be4c7a35b7895c50ec6c7c715d.html#a892406be4c7a35b7895c50ec6c7c715d">mg_coarse_ksp_it</a> = 0;</div>
<div class="line"><a name="l00810"></a><span class="lineno"> 810</span>  }</div>
<div class="line"><a name="l00811"></a><span class="lineno"> 811</span>  </div>
<div class="line"><a name="l00812"></a><span class="lineno"> 812</span>  <span class="keywordflow">return</span> result;</div>
<div class="line"><a name="l00813"></a><span class="lineno"> 813</span> }</div>
<div class="line"><a name="l00814"></a><span class="lineno"> 814</span>  </div>
<div class="line"><a name="l00815"></a><span class="lineno"><a class="line" href="classpism_1_1stressbalance_1_1Blatter_a5ac56472d2cde7f9fb84c858243ee109.html#a5ac56472d2cde7f9fb84c858243ee109"> 815</a></span> <a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo.html">Blatter::SolutionInfo</a> <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a5ac56472d2cde7f9fb84c858243ee109.html#a5ac56472d2cde7f9fb84c858243ee109">Blatter::parameter_continuation</a>() {</div>
<div class="line"><a name="l00816"></a><span class="lineno"> 816</span>  PetscErrorCode ierr;</div>
<div class="line"><a name="l00817"></a><span class="lineno"> 817</span>  </div>
<div class="line"><a name="l00818"></a><span class="lineno"> 818</span>  <a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo.html">SolutionInfo</a> info;</div>
<div class="line"><a name="l00819"></a><span class="lineno"> 819</span>  <span class="comment">// total number of SNES and KSP iterations</span></div>
<div class="line"><a name="l00820"></a><span class="lineno"> 820</span>  <span class="keywordtype">int</span> snes_total_it = 0;</div>
<div class="line"><a name="l00821"></a><span class="lineno"> 821</span>  <span class="keywordtype">int</span> ksp_total_it = 0;</div>
<div class="line"><a name="l00822"></a><span class="lineno"> 822</span>  </div>
<div class="line"><a name="l00823"></a><span class="lineno"> 823</span>  <span class="comment">// maximum number of continuation steps (input)</span></div>
<div class="line"><a name="l00824"></a><span class="lineno"> 824</span>  <span class="keywordtype">int</span> Nc = 50;</div>
<div class="line"><a name="l00825"></a><span class="lineno"> 825</span>  </div>
<div class="line"><a name="l00826"></a><span class="lineno"> 826</span>  <span class="keywordtype">double</span></div>
<div class="line"><a name="l00827"></a><span class="lineno"> 827</span>  schoofLen = <a class="code" href="classpism_1_1Component_a28f298fc2133baae8cebf9dedf3b4d84.html#a28f298fc2133baae8cebf9dedf3b4d84">m_config</a>->get_number(<span class="stringliteral">"flow_law.Schoof_regularizing_length"</span>, <span class="stringliteral">"m"</span>),</div>
<div class="line"><a name="l00828"></a><span class="lineno"> 828</span>  schoofVel = <a class="code" href="classpism_1_1Component_a28f298fc2133baae8cebf9dedf3b4d84.html#a28f298fc2133baae8cebf9dedf3b4d84">m_config</a>->get_number(<span class="stringliteral">"flow_law.Schoof_regularizing_velocity"</span>, <span class="stringliteral">"m second-1"</span>),</div>
<div class="line"><a name="l00829"></a><span class="lineno"> 829</span>  <span class="comment">// desired regularization parameter</span></div>
<div class="line"><a name="l00830"></a><span class="lineno"> 830</span>  eps = pow(schoofVel / schoofLen, 2.0),</div>
<div class="line"><a name="l00831"></a><span class="lineno"> 831</span>  <span class="comment">// gamma is a number such that 10^gamma <= eps. It is used to convert lambda in [0, 1] to eps_n</span></div>
<div class="line"><a name="l00832"></a><span class="lineno"> 832</span>  gamma = std::floor(std::log10(eps)),</div>
<div class="line"><a name="l00833"></a><span class="lineno"> 833</span>  <span class="comment">// starting value of lambda (input)</span></div>
<div class="line"><a name="l00834"></a><span class="lineno"> 834</span>  lambda_min = 0.0,</div>
<div class="line"><a name="l00835"></a><span class="lineno"> 835</span>  <span class="comment">// Final value of lambda (fixed)</span></div>
<div class="line"><a name="l00836"></a><span class="lineno"> 836</span>  lambda_max = 1.0,</div>
<div class="line"><a name="l00837"></a><span class="lineno"> 837</span>  <span class="comment">// Minimum step length (input)</span></div>
<div class="line"><a name="l00838"></a><span class="lineno"> 838</span>  delta_min = 0.01,</div>
<div class="line"><a name="l00839"></a><span class="lineno"> 839</span>  <span class="comment">// Maximum step length (input)</span></div>
<div class="line"><a name="l00840"></a><span class="lineno"> 840</span>  delta_max = 0.2,</div>
<div class="line"><a name="l00841"></a><span class="lineno"> 841</span>  <span class="comment">// Initial increment of lambda (input)</span></div>
<div class="line"><a name="l00842"></a><span class="lineno"> 842</span>  delta0 = 0.05,</div>
<div class="line"><a name="l00843"></a><span class="lineno"> 843</span>  <span class="comment">// "Aggressiveness" of the step increase, a non-negative number (input). The effect of</span></div>
<div class="line"><a name="l00844"></a><span class="lineno"> 844</span>  <span class="comment">// this parameter is linked to the choice of -bp_snes_max_it obtained below.</span></div>
<div class="line"><a name="l00845"></a><span class="lineno"> 845</span>  A = 0.25;</div>
<div class="line"><a name="l00846"></a><span class="lineno"> 846</span>  </div>
<div class="line"><a name="l00847"></a><span class="lineno"> 847</span>  PetscInt snes_max_it = 0;</div>
<div class="line"><a name="l00848"></a><span class="lineno"> 848</span>  ierr = SNESGetTolerances(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_af94a1ecd338043a69808be5289976983.html#af94a1ecd338043a69808be5289976983">m_snes</a>, NULL, NULL, NULL, &snes_max_it, NULL);</div>
<div class="line"><a name="l00849"></a><span class="lineno"> 849</span>  <a class="code" href="error__handling_8hh_a970ec877c0e54c6e16c039bfa1b88bad.html#a970ec877c0e54c6e16c039bfa1b88bad">PISM_CHK</a>(ierr, <span class="stringliteral">"SNESGetTolerances"</span>);</div>
<div class="line"><a name="l00850"></a><span class="lineno"> 850</span>  </div>
<div class="line"><a name="l00851"></a><span class="lineno"> 851</span>  <span class="keywordtype">double</span> lambda = lambda_min;</div>
<div class="line"><a name="l00852"></a><span class="lineno"> 852</span>  <span class="keywordtype">double</span> delta = delta0;</div>
<div class="line"><a name="l00853"></a><span class="lineno"> 853</span>  </div>
<div class="line"><a name="l00854"></a><span class="lineno"> 854</span>  <span class="comment">// Use the zero initial guess to start</span></div>
<div class="line"><a name="l00855"></a><span class="lineno"> 855</span>  ierr = VecSet(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_a4f04729da9beb3aacaaf63b3bf41b465.html#a4f04729da9beb3aacaaf63b3bf41b465">m_x</a>, 0.0); <a class="code" href="error__handling_8hh_a970ec877c0e54c6e16c039bfa1b88bad.html#a970ec877c0e54c6e16c039bfa1b88bad">PISM_CHK</a>(ierr, <span class="stringliteral">"VecSet"</span>);</div>
<div class="line"><a name="l00856"></a><span class="lineno"> 856</span>  ierr = VecSet(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_a296e28b37d1e51e10231a4d8f1a82786.html#a296e28b37d1e51e10231a4d8f1a82786">m_x_old</a>, 0.0); <a class="code" href="error__handling_8hh_a970ec877c0e54c6e16c039bfa1b88bad.html#a970ec877c0e54c6e16c039bfa1b88bad">PISM_CHK</a>(ierr, <span class="stringliteral">"VecSet"</span>);</div>
<div class="line"><a name="l00857"></a><span class="lineno"> 857</span>  </div>
<div class="line"><a name="l00858"></a><span class="lineno"> 858</span>  <a class="code" href="classpism_1_1Component_a29575eba605feccf4403d6b4ff0954a4.html#a29575eba605feccf4403d6b4ff0954a4">m_log</a>->message(2,</div>
<div class="line"><a name="l00859"></a><span class="lineno"> 859</span>  <span class="stringliteral">"Blatter solver: Starting parameter continuation with lambda = %f\n"</span>,</div>
<div class="line"><a name="l00860"></a><span class="lineno"> 860</span>  lambda);</div>
<div class="line"><a name="l00861"></a><span class="lineno"> 861</span>  </div>
<div class="line"><a name="l00862"></a><span class="lineno"> 862</span>  <span class="keywordflow">for</span> (<span class="keywordtype">int</span> N = 0; N < Nc; ++N) {</div>
<div class="line"><a name="l00863"></a><span class="lineno"> 863</span>  <span class="comment">// Set the regularization parameter:</span></div>
<div class="line"><a name="l00864"></a><span class="lineno"> 864</span>  <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a39497b1214c1a7300681e0bf29703b8e.html#a39497b1214c1a7300681e0bf29703b8e">m_viscosity_eps</a> = <a class="code" href="namespacepism_1_1array_a8957d08741c6f48d1e554ac7ea98530a.html#a8957d08741c6f48d1e554ac7ea98530a">std::max</a>(std::pow(10.0, lambda * gamma), eps);</div>
<div class="line"><a name="l00865"></a><span class="lineno"> 865</span>  </div>
<div class="line"><a name="l00866"></a><span class="lineno"> 866</span>  <a class="code" href="classpism_1_1Component_a29575eba605feccf4403d6b4ff0954a4.html#a29575eba605feccf4403d6b4ff0954a4">m_log</a>->message(2, <span class="stringliteral">"Blatter solver: step %d with lambda = %f, eps = %e\n"</span>,</div>
<div class="line"><a name="l00867"></a><span class="lineno"> 867</span>  N, lambda, <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a39497b1214c1a7300681e0bf29703b8e.html#a39497b1214c1a7300681e0bf29703b8e">m_viscosity_eps</a>);</div>
<div class="line"><a name="l00868"></a><span class="lineno"> 868</span>  </div>
<div class="line"><a name="l00869"></a><span class="lineno"> 869</span>  <span class="comment">// Solve the system:</span></div>
<div class="line"><a name="l00870"></a><span class="lineno"> 870</span>  </div>
<div class="line"><a name="l00871"></a><span class="lineno"> 871</span>  info = <a class="code" href="classpism_1_1stressbalance_1_1Blatter_ae64dd29e981c3975f8381c105154efca.html#ae64dd29e981c3975f8381c105154efca">solve</a>();</div>
<div class="line"><a name="l00872"></a><span class="lineno"> 872</span>  snes_total_it += info.<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo_a7ec9c1f9291c0a2219508282c4bfd36a.html#a7ec9c1f9291c0a2219508282c4bfd36a">snes_it</a>;</div>
<div class="line"><a name="l00873"></a><span class="lineno"> 873</span>  ksp_total_it += info.<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo_ab5d5c2adf415c683884027e492a4a73d.html#ab5d5c2adf415c683884027e492a4a73d">ksp_it</a>;</div>
<div class="line"><a name="l00874"></a><span class="lineno"> 874</span>  </div>
<div class="line"><a name="l00875"></a><span class="lineno"> 875</span>  <span class="comment">// report number of iterations for this continuation step</span></div>
<div class="line"><a name="l00876"></a><span class="lineno"> 876</span>  <a class="code" href="classpism_1_1Component_a29575eba605feccf4403d6b4ff0954a4.html#a29575eba605feccf4403d6b4ff0954a4">m_log</a>->message(2, <span class="stringliteral">"Blatter solver continuation step #%d: %s\n"</span></div>
<div class="line"><a name="l00877"></a><span class="lineno"> 877</span>  <span class="stringliteral">" lambda = %f, eps = %e\n"</span></div>
<div class="line"><a name="l00878"></a><span class="lineno"> 878</span>  <span class="stringliteral">" SNES: %d, KSP: %d\n"</span>,</div>
<div class="line"><a name="l00879"></a><span class="lineno"> 879</span>  N, SNESConvergedReasons[info.<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo_a9616c4a7ffdad7ff3a9a833ff4e4cd48.html#a9616c4a7ffdad7ff3a9a833ff4e4cd48">snes_reason</a>], lambda, <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a39497b1214c1a7300681e0bf29703b8e.html#a39497b1214c1a7300681e0bf29703b8e">m_viscosity_eps</a>,</div>
<div class="line"><a name="l00880"></a><span class="lineno"> 880</span>  (<span class="keywordtype">int</span>)info.<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo_a7ec9c1f9291c0a2219508282c4bfd36a.html#a7ec9c1f9291c0a2219508282c4bfd36a">snes_it</a>, (<span class="keywordtype">int</span>)info.<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo_ab5d5c2adf415c683884027e492a4a73d.html#ab5d5c2adf415c683884027e492a4a73d">ksp_it</a>);</div>
<div class="line"><a name="l00881"></a><span class="lineno"> 881</span>  <span class="keywordflow">if</span> (info.<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo_a892406be4c7a35b7895c50ec6c7c715d.html#a892406be4c7a35b7895c50ec6c7c715d">mg_coarse_ksp_it</a> > 0) {</div>
<div class="line"><a name="l00882"></a><span class="lineno"> 882</span>  <a class="code" href="classpism_1_1Component_a29575eba605feccf4403d6b4ff0954a4.html#a29575eba605feccf4403d6b4ff0954a4">m_log</a>->message(2,</div>
<div class="line"><a name="l00883"></a><span class="lineno"> 883</span>  <span class="stringliteral">" Coarse MG level KSP (last iteration): %d\n"</span>,</div>
<div class="line"><a name="l00884"></a><span class="lineno"> 884</span>  (<span class="keywordtype">int</span>)info.<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo_a892406be4c7a35b7895c50ec6c7c715d.html#a892406be4c7a35b7895c50ec6c7c715d">mg_coarse_ksp_it</a>);</div>
<div class="line"><a name="l00885"></a><span class="lineno"> 885</span>  }</div>
<div class="line"><a name="l00886"></a><span class="lineno"> 886</span>  </div>
<div class="line"><a name="l00887"></a><span class="lineno"> 887</span>  <span class="keywordflow">if</span> (info.<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo_a9616c4a7ffdad7ff3a9a833ff4e4cd48.html#a9616c4a7ffdad7ff3a9a833ff4e4cd48">snes_reason</a> > 0) {</div>
<div class="line"><a name="l00888"></a><span class="lineno"> 888</span>  <span class="comment">// converged</span></div>
<div class="line"><a name="l00889"></a><span class="lineno"> 889</span>  </div>
<div class="line"><a name="l00890"></a><span class="lineno"> 890</span>  <span class="keywordflow">if</span> (<a class="code" href="classpism_1_1stressbalance_1_1Blatter_a39497b1214c1a7300681e0bf29703b8e.html#a39497b1214c1a7300681e0bf29703b8e">m_viscosity_eps</a> <= eps) {</div>
<div class="line"><a name="l00891"></a><span class="lineno"> 891</span>  <span class="comment">// ... while solving the desired (not overregularized) problem</span></div>
<div class="line"><a name="l00892"></a><span class="lineno"> 892</span>  info.<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo_a7ec9c1f9291c0a2219508282c4bfd36a.html#a7ec9c1f9291c0a2219508282c4bfd36a">snes_it</a> = snes_total_it;</div>
<div class="line"><a name="l00893"></a><span class="lineno"> 893</span>  info.<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo_ab5d5c2adf415c683884027e492a4a73d.html#ab5d5c2adf415c683884027e492a4a73d">ksp_it</a> = ksp_total_it;</div>
<div class="line"><a name="l00894"></a><span class="lineno"> 894</span>  <span class="keywordflow">return</span> info;</div>
<div class="line"><a name="l00895"></a><span class="lineno"> 895</span>  }</div>
<div class="line"><a name="l00896"></a><span class="lineno"> 896</span>  </div>
<div class="line"><a name="l00897"></a><span class="lineno"> 897</span>  <span class="comment">// Store the solution as the "old" initial guess we may need to revert to</span></div>
<div class="line"><a name="l00898"></a><span class="lineno"> 898</span>  ierr = VecCopy(<a class="code" href="classpism_1_1stressbalance_1_1Blatter_a4f04729da9beb3aacaaf63b3bf41b465.html#a4f04729da9beb3aacaaf63b3bf41b465">m_x</a>, <a class="code" href="classpism_1_1stressbalance_1_1Blatter_a296e28b37d1e51e10231a4d8f1a82786.html#a296e28b37d1e51e10231a4d8f1a82786">m_x_old</a>); <a class="code" href="error__handling_8hh_a970ec877c0e54c6e16c039bfa1b88bad.html#a970ec877c0e54c6e16c039bfa1b88bad">PISM_CHK</a>(ierr, <span class="stringliteral">"VecCopy"</span>);</div>
<div class="line"><a name="l00899"></a><span class="lineno"> 899</span>  </div>
<div class="line"><a name="l00900"></a><span class="lineno"> 900</span>  <span class="keywordflow">if</span> (N > 0) {</div>
<div class="line"><a name="l00901"></a><span class="lineno"> 901</span>  <span class="comment">// Adjust delta using the formula from LOCA (equation 2.8 in Salinger2002</span></div>
<div class="line"><a name="l00902"></a><span class="lineno"> 902</span>  <span class="comment">// corrected using the code in Trilinos).</span></div>
<div class="line"><a name="l00903"></a><span class="lineno"> 903</span>  <span class="keywordtype">double</span> <a class="code" href="namespacepism_a200b1c89a64c718f6b0f585508e55172.html#a200b1c89a64c718f6b0f585508e55172">F</a> = (snes_max_it - info.<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo_a7ec9c1f9291c0a2219508282c4bfd36a.html#a7ec9c1f9291c0a2219508282c4bfd36a">snes_it</a>) / (<span class="keywordtype">double</span>)snes_max_it;</div>
<div class="line"><a name="l00904"></a><span class="lineno"> 904</span>  delta *= 1.0 + A * <a class="code" href="namespacepism_a200b1c89a64c718f6b0f585508e55172.html#a200b1c89a64c718f6b0f585508e55172">F</a> * <a class="code" href="namespacepism_a200b1c89a64c718f6b0f585508e55172.html#a200b1c89a64c718f6b0f585508e55172">F</a>;</div>
<div class="line"><a name="l00905"></a><span class="lineno"> 905</span>  }</div>
<div class="line"><a name="l00906"></a><span class="lineno"> 906</span>  </div>
<div class="line"><a name="l00907"></a><span class="lineno"> 907</span>  delta = <a class="code" href="namespacepism_1_1array_abe1b3c17ea21b5f0e540eb4a53ec72a9.html#abe1b3c17ea21b5f0e540eb4a53ec72a9">std::min</a>(delta, delta_max);</div>
<div class="line"><a name="l00908"></a><span class="lineno"> 908</span>  </div>
<div class="line"><a name="l00909"></a><span class="lineno"> 909</span>  <span class="comment">// Ensure that delta does not take us past lambda_max</span></div>
<div class="line"><a name="l00910"></a><span class="lineno"> 910</span>  <span class="keywordflow">if</span> (lambda + delta > lambda_max) {</div>
<div class="line"><a name="l00911"></a><span class="lineno"> 911</span>  delta = lambda_max - lambda;</div>
<div class="line"><a name="l00912"></a><span class="lineno"> 912</span>  }</div>
<div class="line"><a name="l00913"></a><span class="lineno"> 913</span>  </div>
<div class="line"><a name="l00914"></a><span class="lineno"> 914</span>  <a class="code" href="classpism_1_1Component_a29575eba605feccf4403d6b4ff0954a4.html#a29575eba605feccf4403d6b4ff0954a4">m_log</a>->message(2, <span class="stringliteral">" Advancing lambda from %f to %f (delta = %f)\n"</span>,</div>
<div class="line"><a name="l00915"></a><span class="lineno"> 915</span>  lambda, lambda + delta, delta);</div>
<div class="line"><a name="l00916"></a><span class="lineno"> 916</span>  </div>
<div class="line"><a name="l00917"></a><span class="lineno"> 917</span>  lambda += delta;</div>
<div class="line"><a name="l00918"></a><span class="lineno"> 918</span>  } <span class="keywordflow">else</span> <span class="keywordflow">if</span> (info.<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo_a9616c4a7ffdad7ff3a9a833ff4e4cd48.html#a9616c4a7ffdad7ff3a9a833ff4e4cd48">snes_reason</a> == SNES_DIVERGED_LINE_SEARCH or</div>
<div class="line"><a name="l00919"></a><span class="lineno"> 919</span>  info.<a class="code" href="structpism_1_1stressbalance_1_1Blatter_1_1SolutionInfo_a9616c4a7ffdad7ff3a9a833ff4e4cd48.html#a9616c4a7ffdad7ff3a9a833ff4e4cd48">snes_reason</a> == SNES_DIVERGED_MAX_IT) {</div>
<div class="line"><a name="l00920"></a><span class="lineno"> 920</span>  <span class="comment">// a continuation step failed</span></div>