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
|
Rev | Line | |
---|
[12677] | 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;
|
---|
[13622] | 20 |
|
---|
[12677] | 21 | Element* element = NULL;
|
---|
[13622] | 22 |
|
---|
[12677] | 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.