Changeset 28253
- Timestamp:
- 05/03/24 11:45:49 (12 months ago)
- Location:
- issm/trunk-jpl/src/c
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/classes/Loads/Friction.cpp
r27903 r28253 101 101 /*}}}*/ 102 102 Friction::Friction(Element* element_in,int dim) : Friction(element_in) {/*{{{*/ 103 this->apply_dim = reCast<Issm Double>(dim);103 this->apply_dim = reCast<IssmPDouble>(dim); 104 104 } 105 105 /*}}}*/ 106 Friction::Friction(Element* element_in,Issm Double dim) : Friction(element_in) {/*{{{*/106 Friction::Friction(Element* element_in,IssmPDouble dim) : Friction(element_in) {/*{{{*/ 107 107 this->apply_dim = dim; 108 108 } -
issm/trunk-jpl/src/c/classes/Loads/Friction.h
r27673 r28253 21 21 int domaintype; 22 22 int linearize; 23 Issm Doubleapply_dim;23 IssmPDouble apply_dim; 24 24 Input *vx_input; 25 25 Input *vy_input; … … 32 32 Friction(Element* element_in); 33 33 Friction(Element* element_in, int dim); 34 Friction(Element* element_in, Issm Double dim);34 Friction(Element* element_in, IssmPDouble dim); 35 35 ~Friction(); 36 36 -
issm/trunk-jpl/src/c/modules/SurfaceMassBalancex/Gembx.cpp
r28252 r28253 228 228 IssmDouble z1=0.0; 229 229 int lice=0; 230 for(int l=0;(l<m & d[l]<dPHC-Dtol);l++){230 for(int l=0;(l<m && d[l]<dPHC-Dtol);l++){ 231 231 z1=z1+dz[l]*d[l]; //mm 232 232 lice=l+1; … … 665 665 lice=l+1; 666 666 } 667 if (depthsnow<=0.1+Dtol & lice<m& d[lice]>=dPHC-Dtol){667 if (depthsnow<=0.1+Dtol && lice<m && d[lice]>=dPHC-Dtol){ 668 668 aice = ai_max + (as_min - ai_max)*(d[lice]-dIce)/(dPHC-dIce); 669 669 a[0]= aice + max(a[0]-aice,0.0)*(depthsnow/0.1);
Note:
See TracChangeset
for help on using the changeset viewer.