source: issm/oecreview/Archive/22819-23185/ISSM-23036-23037.diff@ 23186

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

CHG: added Archive/22819-23185

File size: 1.6 KB
RevLine 
[23186]1Index: ../trunk-jpl/src/c/analyses/GLheightadvectionAnalysis.cpp
2===================================================================
3--- ../trunk-jpl/src/c/analyses/GLheightadvectionAnalysis.cpp (revision 23036)
4+++ ../trunk-jpl/src/c/analyses/GLheightadvectionAnalysis.cpp (revision 23037)
5@@ -86,7 +86,7 @@
6 element->GetVerticesCoordinates(&xyz_list);
7 //Input* vx_input=element->GetInput(BaseSlopeXEnum); _assert_(vx_input);
8 //Input* vy_input=element->GetInput(BaseSlopeYEnum); _assert_(vy_input);
9- Input* vx_input=element->GetInput(VxEnum); _assert_(vx_input);
10+ Input* vx_input=element->GetInput(VxEnum); _assert_(vx_input);
11 Input* vy_input=element->GetInput(VyEnum); _assert_(vy_input);
12
13 IssmDouble h = element->CharacteristicLength();
14@@ -104,8 +104,8 @@
15 D_scalar=gauss->weight*Jdet;
16
17 /*Diffusion */
18- if(sqrt(vx*vx+vy*vy)<10./31536000.){
19- IssmPDouble kappa = 1.e-4;
20+ if(sqrt(vx*vx+vy*vy)<1000./31536000.){
21+ IssmPDouble kappa = -10;
22 for(int i=0;i<numnodes;i++){
23 for(int j=0;j<numnodes;j++){
24 Ke->values[i*numnodes+j] += D_scalar*kappa*(dbasis[0*numnodes+j]*dbasis[0*numnodes+i] + dbasis[1*numnodes+j]*dbasis[1*numnodes+i]);
25@@ -112,13 +112,12 @@
26 }
27 }
28 }
29-
30 /*Advection: */
31 vx_input->GetInputValue(&vx,gauss);
32 vy_input->GetInputValue(&vy,gauss);
33 for(int i=0;i<numnodes;i++){
34 for(int j=0;j<numnodes;j++){
35- Ke->values[i*numnodes+j] += D_scalar*(vx*dbasis[0*numnodes+j]*basis[i] + vy*dbasis[1*numnodes+j]*basis[i]);
36+ Ke->values[i*numnodes+j] += (D_scalar*(vx*dbasis[0*numnodes+j]*basis[i] + vy*dbasis[1*numnodes+j]*basis[i]))*1e-2;
37 }
38 }
39
Note: See TracBrowser for help on using the repository browser.