Changeset 27054
- Timestamp:
- 06/10/22 14:33:30 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/classes/Elements/Tria.cpp
r27053 r27054 6371 6371 bool computerotation = false; 6372 6372 bool computeviscous = false; 6373 bool computesatgravi = false;6374 6373 int horiz; 6375 6374 bool istime=true; … … 7534 7533 IssmDouble SealevelGrd[3]={0,0,0}; 7535 7534 IssmDouble RSLGrd[3]={0,0,0}; 7536 IssmDouble SGGrd[3]={0,0,0}; //Satellite Gravimetry7537 7535 IssmDouble UGrd[3]={0,0,0}; 7538 7536 IssmDouble NGrd[3]={0,0,0}; … … 7562 7560 bool percpu=false; 7563 7561 bool planethasocean=false; 7564 bool SatelliteGravi=false;7565 7562 7566 7563 this->parameters->FindParam(&nel,MeshNumberofelementsEnum); … … 7570 7567 this->parameters->FindParam(&horiz,SolidearthSettingsHorizEnum); 7571 7568 this->parameters->FindParam(&planethasocean,SolidearthSettingsGrdOceanEnum); 7572 this->parameters->FindParam(&SatelliteGravi,SolidearthSettingsSatelliteGraviEnum);7573 7569 7574 7570 if(sal){ … … 7598 7594 this->inputs->GetArrayPtr(SealevelchangeGrotEnum,this->lid,&Grot,&size); 7599 7595 this->inputs->GetArrayPtr(SealevelchangeGUrotEnum,this->lid,&GUrot,&size); 7600 if (SatelliteGravi) this->inputs->GetArrayPtr(SealevelchangeGSatGravirotEnum,this->lid,&GSGrot,&size);7601 7596 if (horiz){ 7602 7597 this->inputs->GetArrayPtr(SealevelchangeGErotEnum,this->lid,&GErot,&size); … … 7606 7601 } 7607 7602 this->SealevelchangeGxL(&RSLGrd[0],G, Gsub, Grot, loads, polarmotionvector, slgeom, nel,percpu=false,SealevelchangeViscousRSLEnum,computefuture=true); 7608 if (SatelliteGravi) this->SealevelchangeGxL(&SGGrd[0],G, Gsub, GSGrot, loads, polarmotionvector, slgeom, nel,percpu=false,SealevelchangeViscousSGEnum,computefuture=true);7609 7603 7610 7604 if(elastic){ … … 7628 7622 for(int i=0;i<NUMVERTICES;i++){ 7629 7623 SealevelGrd[i]=UGrd[i]+RSLGrd[i]; 7630 if (SatelliteGravi) SGGrd[i]+=UGrd[i];7631 7624 } 7632 7625 … … 7634 7627 this->AddInput(SealevelGRDEnum,SealevelGrd,P1Enum); 7635 7628 this->AddInput(BedGRDEnum,UGrd,P1Enum); 7636 if (SatelliteGravi) this->AddInput(SatGraviGRDEnum,SGGrd,P1Enum);7637 7629 if(horiz){ 7638 7630 this->AddInput(BedNorthGRDEnum,NGrd,P1Enum);
Note:
See TracChangeset
for help on using the changeset viewer.