Changeset 22728
- Timestamp:
- 04/30/18 18:54:08 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/modules/SurfaceMassBalancex/Gembx.cpp
r22614 r22728 821 821 822 822 // upward longwave contribution 823 ulw = - SB * pow(Ts,4.0)* teValue * dt;823 ulw = - (SB * pow(Ts,4.0)* teValue) * dt ; 824 824 dT_ulw = ulw / TCs; 825 825 … … 1513 1513 1514 1514 //calculate Rsum: 1515 Rsum=cellsum(R,n) ;1515 Rsum=cellsum(R,n) + flxDn[n]; 1516 1516 1517 1517 // delete all cells with zero mass … … 1540 1540 xDelete<IssmDouble>(R); 1541 1541 } 1542 1542 1543 1543 //Merging of cells as they are burried under snow. 1544 1544 Zcum=xNew<IssmDouble>(n); … … 1669 1669 cellsplit(&d, n, j,1.0); 1670 1670 cellsplit(&a, n, j,1.0); 1671 cellsplit(&EI, n, j, 1.0);1672 cellsplit(&EW, n, j, 1.0);1671 cellsplit(&EI, n, j,.5); 1672 cellsplit(&EW, n, j,.5); 1673 1673 cellsplit(&re, n, j,1.0); 1674 1674 cellsplit(&gdn, n, j,1.0);
Note:
See TracChangeset
for help on using the changeset viewer.