source: issm/oecreview/Archive/22819-23185/ISSM-23080-23081.diff

Last change on this file was 23186, checked in by Mathieu Morlighem, 7 years ago

CHG: added Archive/22819-23185

File size: 754 bytes
RevLine 
[23186]1Index: ../trunk-jpl/src/c/cores/transient_core.cpp
2===================================================================
3--- ../trunk-jpl/src/c/cores/transient_core.cpp (revision 23080)
4+++ ../trunk-jpl/src/c/cores/transient_core.cpp (revision 23081)
5@@ -245,6 +245,7 @@
6 femmodel->parameters->SetParam(save_results,SaveResultsEnum);
7
8 if(isoceancoupling){ /*{{{*/
9+
10 #ifndef _HAVE_ADOLC_
11 if(VerboseSolution()) _printf0_(" ocean coupling: exchanging information\n");
12 int my_rank;
13@@ -356,10 +357,11 @@
14 xDelete<IssmDouble>(oceangridy);
15 xDelete<IssmDouble>(oceanmelt);
16 xDelete<IssmDouble>(icebase_oceangrid);
17- }
18+
19 #else
20 _error_("not supported");
21 #endif
22+ }
23 /*}}}*/
24
25 if(isthermal && domaintype==Domain3DEnum){
Note: See TracBrowser for help on using the repository browser.