 |
Ice Sheet System Model
4.18
Code documentation
|
Go to the documentation of this file.
8 #error "Cannot compile with HAVE_CONFIG_H symbol! run configure first!"
11 #include "../classes.h"
12 #include "../../shared/shared.h"
40 this->
Reset(interp_in);
68 this->
values = xNewZeroInit<IssmDouble>(this->
M*this->
N);
79 xMemCpy<IssmDouble>(output->
values,this->values,this->M*this->N);
161 this->
values[row] = value_in;
170 for(
int i=0;i<numindices;i++){
171 int row = indices[i];
174 this->
values[row] = values_in[i];
178 this->
Reset(interp_in);
179 for(
int i=0;i<numindices;i++){
180 int row = indices[i];
183 this->
values[row] = values_in[i];
200 this->
Reset(interp_in);
203 for(
int i=0;i<numindices;i++) this->
values[row*this->
N+i] = values_in[i];
213 for(
int i=0;i<numindices;i++){
214 int row = indices[i];
232 for(
int i=0;i<numindices;i++){
287 IssmDouble numnodesd = reCast<int,IssmDouble>(numnodes);
290 value = value/numnodesd;
303 for(
int i=1;i<numnodes;i++){
316 for(
int i=1;i<numnodes;i++){
329 for(
int i=1;i<numnodes;i++){
340 derivativevalues[0] = 0.;
341 derivativevalues[1] = 0.;
401 PentaInput2* xpentainput=xDynamicCast<PentaInput2*>(xinput);
405 for(
int i=0;i<this->
M*this->
N;i++) this->
values[i] =
alpha*xpentainput->
values[i] + this->values[i];
413 PentaInput2* xpentainput=xDynamicCast<PentaInput2*>(xinput);
417 if(xpentainput->
M!=this->M||xpentainput->
N!=this->N)
_error_(
"Operation not permitted because the inputs have different sizes");
420 for(
int i=0;i<this->
M*this->
N;i++) this->
values[i] = xpentainput->
values[i] * this->values[i];
#define _printf_(StreamArgs)
#define MARSHALLING_ENUM(EN)
#define MARSHALLING_DYNAMIC(FIELD, TYPE, SIZE)
int NumberofNodes(int finiteelement)
const char * EnumToStringx(int enum_in)
IssmDouble alpha(IssmDouble x, IssmDouble y, IssmDouble z, int testid)
#define MARSHALLING(FIELD)
void GetInputDerivativeValue(IssmDouble *pp, IssmDouble *plist, IssmDouble *xyz_list, Gauss *gauss, int finiteelement)
void GetInputDerivativeValue(IssmDouble *pvalues, IssmDouble *plist, IssmDouble *xyz_list, Gauss *gauss, int finiteelement)
virtual int ObjectEnum()=0
#define _error_(StreamArgs)
IssmDouble min(IssmDouble a, IssmDouble b)
void GetInputValue(IssmDouble *pp, IssmDouble *plist, Gauss *gauss, int finiteelement)
IssmDouble max(IssmDouble a, IssmDouble b)
void GetInputValue(IssmDouble *pvalue, IssmDouble *plist, Gauss *gauss, int finiteelement)