|
Last change
on this file since 13622 was 13622, checked in by Mathieu Morlighem, 13 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.