Last change
on this file since 13622 was 13622, checked in by Mathieu Morlighem, 12 years ago |
CHG: cosmetics, removing all deboule blank lines and indent single white lines correctly
|
File size:
770 bytes
|
Line | |
---|
1 | /*!\file SmbGradientsx
|
---|
2 | * \brief: calculates SMB as function of local elevation
|
---|
3 | */
|
---|
4 |
|
---|
5 | #include "./SmbGradientsx.h"
|
---|
6 | #include "../../shared/shared.h"
|
---|
7 | #include "../../include/include.h"
|
---|
8 | #include "../../io/io.h"
|
---|
9 | #include "../../toolkits/toolkits.h"
|
---|
10 | #include "../../EnumDefinitions/EnumDefinitions.h"
|
---|
11 |
|
---|
12 | void SmbGradientsx(Elements* elements,Nodes* nodes, Vertices* vertices,Loads* loads,Materials* materials, Parameters* parameters){
|
---|
13 |
|
---|
14 | // void SmbGradientsx(hd,agd,ni){
|
---|
15 | // INPUT parameters: ni: working size of arrays
|
---|
16 | // INPUT: surface elevation (m): hd(NA)
|
---|
17 | // OUTPUT: mass-balance (m/yr ice): agd(NA)
|
---|
18 |
|
---|
19 | int i;
|
---|
20 |
|
---|
21 | Element* element = NULL;
|
---|
22 |
|
---|
23 | for(i=0;i<elements->Size();i++){
|
---|
24 | element=(Element*)elements->GetObjectByOffset(i);
|
---|
25 | element->SmbGradients();
|
---|
26 | }
|
---|
27 | }
|
---|
Note:
See
TracBrowser
for help on using the repository browser.