Changeset 20965
- Timestamp:
- 07/20/16 16:29:14 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/classes/Elements/Element.cpp
r20810 r20965 63 63 int numvertices = this->GetNumberOfVertices(); 64 64 IssmDouble* lambdas = xNew<IssmDouble>(numvertices); 65 IssmDouble* vorticityx = xNew<IssmDouble>(numvertices);66 IssmDouble* vorticityy = xNew<IssmDouble>(numvertices);67 IssmDouble* vorticityz = xNew<IssmDouble>(numvertices);68 IssmDouble* omega_corrx = xNew<IssmDouble>(numvertices);69 IssmDouble* omega_corry = xNew<IssmDouble>(numvertices);70 IssmDouble* omega_corrz = xNew<IssmDouble>(numvertices);71 65 72 66 /* Start looping on the number of vertices: */ … … 107 101 EstarStrainrateQuantities(&epso,&epsprime,vx,vy,vz,vmag,&dvx[0],&dvy[0],&dvz[0],&dvmag[0]); 108 102 lambdas[iv]=EstarLambdaS(epso,epsprime); 109 vorticityx[iv]=dvz[1]-dvy[2];110 vorticityy[iv]=dvx[2]-dvz[0];111 vorticityz[iv]=dvy[0]-dvx[1];112 omega_corrx[iv] = -vorticityx[iv] + 2*(dvmag[1]*vz - dvmag[2]*vy)/vmag;113 omega_corry[iv] = -vorticityy[iv] + 2*(dvmag[2]*vx - dvmag[0]*vz)/vmag;114 omega_corrz[iv] = -vorticityz[iv] + 2*(dvmag[0]*vy - dvmag[1]*vx)/vmag;115 103 } 116 104 117 105 /*Add Stress tensor components into inputs*/ 118 106 this->AddInput(LambdaSEnum,lambdas,P1Enum); 119 this->AddInput(Outputdefinition21Enum,vorticityx,P1Enum);120 this->AddInput(Outputdefinition22Enum,vorticityy,P1Enum);121 this->AddInput(Outputdefinition23Enum,vorticityz,P1Enum);122 this->AddInput(Outputdefinition31Enum,omega_corrx,P1Enum);123 this->AddInput(Outputdefinition32Enum,omega_corry,P1Enum);124 this->AddInput(Outputdefinition33Enum,omega_corrz,P1Enum);125 107 126 108 /*Clean up and return*/
Note:
See TracChangeset
for help on using the changeset viewer.