Changeset 24447


Ignore:
Timestamp:
12/05/19 20:10:28 (5 years ago)
Author:
Mathieu Morlighem
Message:

Fixing Eric's mess

Location:
issm/trunk-jpl/src/c
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • issm/trunk-jpl/src/c/classes/Elements/Tria.cpp

    r24446 r24447  
    54465446                IssmDouble pc1,pc2,pc3,pc4;
    54475447
    5448                 GetInputListOnVertices(&eof1[0],SealevelriseModeleoftrendEof1Enum);
    5449                 GetInputListOnVertices(&eof2[0],SealevelriseModeleoftrendEof2Enum);
    5450                 GetInputListOnVertices(&eof3[0],SealevelriseModeleoftrendEof3Enum);
    5451                 GetInputListOnVertices(&eof4[0],SealevelriseModeleoftrendEof4Enum);
    5452 
    5453                 Input2* pc1_input = inputs2->GetInput(SealevelriseModeleoftrendPc1Enum); _assert_(pc1_input);
    5454                 Input2* pc2_input = inputs2->GetInput(SealevelriseModeleoftrendPc2Enum); _assert_(pc2_input);
    5455                 Input2* pc3_input = inputs2->GetInput(SealevelriseModeleoftrendPc3Enum); _assert_(pc3_input);
    5456                 Input2* pc4_input = inputs2->GetInput(SealevelriseModeleoftrendPc4Enum); _assert_(pc4_input);
    5457 
    5458                 pc1_input->GetInputValue(&pc1);
    5459                 pc2_input->GetInputValue(&pc2);
    5460                 pc3_input->GetInputValue(&pc3);
    5461                 pc4_input->GetInputValue(&pc4);
     5448                Element::GetInputListOnVertices(&eof1[0],SealevelriseModeleoftrendEof1Enum);
     5449                Element::GetInputListOnVertices(&eof2[0],SealevelriseModeleoftrendEof2Enum);
     5450                Element::GetInputListOnVertices(&eof3[0],SealevelriseModeleoftrendEof3Enum);
     5451                Element::GetInputListOnVertices(&eof4[0],SealevelriseModeleoftrendEof4Enum);
     5452
     5453                Element::GetInputValue(&pc1,SealevelriseModeleoftrendPc1Enum);
     5454                Element::GetInputValue(&pc2,SealevelriseModeleoftrendPc2Enum);
     5455                Element::GetInputValue(&pc3,SealevelriseModeleoftrendPc3Enum);
     5456                Element::GetInputValue(&pc4,SealevelriseModeleoftrendPc4Enum);
    54625457
    54635458                for (int i=0;i<4;i++)steric_rate[i]=pc1*eof1[i]+pc2*eof2[i]+pc3*eof3[i]+pc4*eof4[i];
    54645459
    54655460                /*upate input: */
    5466                 this->inputs2->AddInput2(new TriaInput(SealevelriseStericRateEnum,&steric_rate[0],P1Enum));
    5467 
    5468         }else{
    5469 
    5470 
     5461                this->AddInput2(SealevelriseStericRateEnum,&steric_rate[0],P1Enum);
     5462
     5463        }
     5464        else{
     5465                _error_("not supported??");
    54715466        }
    54725467}

  • issm/trunk-jpl/src/c/shared/Enum/Enum.vim

    r24398 r24447  
    668668syn keyword cConstant SealevelriseStericRateEnum
    669669syn keyword cConstant SealevelriseHydroRateEnum
     670syn keyword cConstant SealevelriseModeleoftrendEof1Enum
     671syn keyword cConstant SealevelriseModeleoftrendEof2Enum
     672syn keyword cConstant SealevelriseModeleoftrendEof3Enum
     673syn keyword cConstant SealevelriseModeleoftrendEof4Enum
     674syn keyword cConstant SealevelriseModeleoftrendPc1Enum
     675syn keyword cConstant SealevelriseModeleoftrendPc2Enum
     676syn keyword cConstant SealevelriseModeleoftrendPc3Enum
     677syn keyword cConstant SealevelriseModeleoftrendPc4Enum
    670678syn keyword cConstant SedimentHeadEnum
    671679syn keyword cConstant SedimentHeadOldEnum
    … …  
    13021310syn keyword cConstant NearestInterpEnum
    13031311syn keyword cConstant OutputdefinitionListEnum
     1312syn keyword cConstant QmuOutputEnum
     1313syn keyword cConstant QmuCurrEvalIdEnum
    13041314syn keyword cConstant SealevelObsEnum
    13051315syn keyword cConstant SealevelWeightsEnum

  • issm/trunk-jpl/src/c/shared/Enum/EnumDefinitions.h

    r24398 r24447  
    664664        SealevelriseStericRateEnum,
    665665        SealevelriseHydroRateEnum,
     666        SealevelriseModeleoftrendEof1Enum,
     667        SealevelriseModeleoftrendEof2Enum,
     668        SealevelriseModeleoftrendEof3Enum,
     669        SealevelriseModeleoftrendEof4Enum,
     670        SealevelriseModeleoftrendPc1Enum,
     671        SealevelriseModeleoftrendPc2Enum,
     672        SealevelriseModeleoftrendPc3Enum,
     673        SealevelriseModeleoftrendPc4Enum,
    666674   SedimentHeadEnum,
    667675   SedimentHeadOldEnum,
    … …  
    13021310        NearestInterpEnum,
    13031311        OutputdefinitionListEnum,
     1312        QmuOutputEnum,
     1313        QmuCurrEvalIdEnum,
    13041314        SealevelObsEnum,
    13051315        SealevelWeightsEnum,

  • issm/trunk-jpl/src/c/shared/Enum/EnumToStringx.cpp

    r24398 r24447  
    670670                case SealevelriseStericRateEnum : return "SealevelriseStericRate";
    671671                case SealevelriseHydroRateEnum : return "SealevelriseHydroRate";
     672                case SealevelriseModeleoftrendEof1Enum : return "SealevelriseModeleoftrendEof1";
     673                case SealevelriseModeleoftrendEof2Enum : return "SealevelriseModeleoftrendEof2";
     674                case SealevelriseModeleoftrendEof3Enum : return "SealevelriseModeleoftrendEof3";
     675                case SealevelriseModeleoftrendEof4Enum : return "SealevelriseModeleoftrendEof4";
     676                case SealevelriseModeleoftrendPc1Enum : return "SealevelriseModeleoftrendPc1";
     677                case SealevelriseModeleoftrendPc2Enum : return "SealevelriseModeleoftrendPc2";
     678                case SealevelriseModeleoftrendPc3Enum : return "SealevelriseModeleoftrendPc3";
     679                case SealevelriseModeleoftrendPc4Enum : return "SealevelriseModeleoftrendPc4";
    672680                case SedimentHeadEnum : return "SedimentHead";
    673681                case SedimentHeadOldEnum : return "SedimentHeadOld";
    … …  
    13041312                case NearestInterpEnum : return "NearestInterp";
    13051313                case OutputdefinitionListEnum : return "OutputdefinitionList";
     1314                case QmuOutputEnum : return "QmuOutput";
     1315                case QmuCurrEvalIdEnum : return "QmuCurrEvalId";
    13061316                case SealevelObsEnum : return "SealevelObs";
    13071317                case SealevelWeightsEnum : return "SealevelWeights";

  • issm/trunk-jpl/src/c/shared/Enum/StringToEnumx.cpp

    r24398 r24447  
    685685              else if (strcmp(name,"SealevelriseStericRate")==0) return SealevelriseStericRateEnum;
    686686              else if (strcmp(name,"SealevelriseHydroRate")==0) return SealevelriseHydroRateEnum;
     687              else if (strcmp(name,"SealevelriseModeleoftrendEof1")==0) return SealevelriseModeleoftrendEof1Enum;
     688              else if (strcmp(name,"SealevelriseModeleoftrendEof2")==0) return SealevelriseModeleoftrendEof2Enum;
     689              else if (strcmp(name,"SealevelriseModeleoftrendEof3")==0) return SealevelriseModeleoftrendEof3Enum;
     690              else if (strcmp(name,"SealevelriseModeleoftrendEof4")==0) return SealevelriseModeleoftrendEof4Enum;
     691              else if (strcmp(name,"SealevelriseModeleoftrendPc1")==0) return SealevelriseModeleoftrendPc1Enum;
     692              else if (strcmp(name,"SealevelriseModeleoftrendPc2")==0) return SealevelriseModeleoftrendPc2Enum;
     693              else if (strcmp(name,"SealevelriseModeleoftrendPc3")==0) return SealevelriseModeleoftrendPc3Enum;
     694              else if (strcmp(name,"SealevelriseModeleoftrendPc4")==0) return SealevelriseModeleoftrendPc4Enum;
    687695              else if (strcmp(name,"SedimentHead")==0) return SedimentHeadEnum;
    688696              else if (strcmp(name,"SedimentHeadOld")==0) return SedimentHeadOldEnum;
    … …  
    744752              else if (strcmp(name,"SmbNetLW")==0) return SmbNetLWEnum;
    745753              else if (strcmp(name,"SmbNetSW")==0) return SmbNetSWEnum;
    746               else if (strcmp(name,"SmbPAir")==0) return SmbPAirEnum;
     754         else stage=7;
     755   }
     756   if(stage==7){
     757              if (strcmp(name,"SmbPAir")==0) return SmbPAirEnum;
    747758              else if (strcmp(name,"SmbP")==0) return SmbPEnum;
    748759              else if (strcmp(name,"SmbPddfacIce")==0) return SmbPddfacIceEnum;
    … …  
    752763              else if (strcmp(name,"SmbPrecipitationsLgm")==0) return SmbPrecipitationsLgmEnum;
    753764              else if (strcmp(name,"SmbPrecipitationsPresentday")==0) return SmbPrecipitationsPresentdayEnum;
    754          else stage=7;
    755    }
    756    if(stage==7){
    757               if (strcmp(name,"SmbPrecipitationsReconstructed")==0) return SmbPrecipitationsReconstructedEnum;
     765              else if (strcmp(name,"SmbPrecipitationsReconstructed")==0) return SmbPrecipitationsReconstructedEnum;
    758766              else if (strcmp(name,"SmbRe")==0) return SmbReEnum;
    759767              else if (strcmp(name,"SmbRefreeze")==0) return SmbRefreezeEnum;
    … …  
    867875              else if (strcmp(name,"Outputdefinition24")==0) return Outputdefinition24Enum;
    868876              else if (strcmp(name,"Outputdefinition25")==0) return Outputdefinition25Enum;
    869               else if (strcmp(name,"Outputdefinition26")==0) return Outputdefinition26Enum;
     877         else stage=8;
     878   }
     879   if(stage==8){
     880              if (strcmp(name,"Outputdefinition26")==0) return Outputdefinition26Enum;
    870881              else if (strcmp(name,"Outputdefinition27")==0) return Outputdefinition27Enum;
    871882              else if (strcmp(name,"Outputdefinition28")==0) return Outputdefinition28Enum;
    … …  
    875886              else if (strcmp(name,"Outputdefinition31")==0) return Outputdefinition31Enum;
    876887              else if (strcmp(name,"Outputdefinition32")==0) return Outputdefinition32Enum;
    877          else stage=8;
    878    }
    879    if(stage==8){
    880               if (strcmp(name,"Outputdefinition33")==0) return Outputdefinition33Enum;
     888              else if (strcmp(name,"Outputdefinition33")==0) return Outputdefinition33Enum;
    881889              else if (strcmp(name,"Outputdefinition34")==0) return Outputdefinition34Enum;
    882890              else if (strcmp(name,"Outputdefinition35")==0) return Outputdefinition35Enum;
    … …  
    990998              else if (strcmp(name,"CalvingLevermann")==0) return CalvingLevermannEnum;
    991999              else if (strcmp(name,"CalvingVonmises")==0) return CalvingVonmisesEnum;
    992               else if (strcmp(name,"Cfdragcoeffabsgrad")==0) return CfdragcoeffabsgradEnum;
     1000         else stage=9;
     1001   }
     1002   if(stage==9){
     1003              if (strcmp(name,"Cfdragcoeffabsgrad")==0) return CfdragcoeffabsgradEnum;
    9931004              else if (strcmp(name,"Cfsurfacelogvel")==0) return CfsurfacelogvelEnum;
    9941005              else if (strcmp(name,"Cfsurfacesquare")==0) return CfsurfacesquareEnum;
    … …  
    9981009              else if (strcmp(name,"Closed")==0) return ClosedEnum;
    9991010              else if (strcmp(name,"Colinear")==0) return ColinearEnum;
    1000          else stage=9;
    1001    }
    1002    if(stage==9){
    1003               if (strcmp(name,"Constraints")==0) return ConstraintsEnum;
     1011              else if (strcmp(name,"Constraints")==0) return ConstraintsEnum;
    10041012              else if (strcmp(name,"Contact")==0) return ContactEnum;
    10051013              else if (strcmp(name,"Contour")==0) return ContourEnum;
    … …  
    11131121              else if (strcmp(name,"SegInput2")==0) return SegInput2Enum;
    11141122              else if (strcmp(name,"TriaInput2")==0) return TriaInput2Enum;
    1115               else if (strcmp(name,"PentaInput2")==0) return PentaInput2Enum;
     1123         else stage=10;
     1124   }
     1125   if(stage==10){
     1126              if (strcmp(name,"PentaInput2")==0) return PentaInput2Enum;
    11161127              else if (strcmp(name,"IntMatExternalResult")==0) return IntMatExternalResultEnum;
    11171128              else if (strcmp(name,"IntMatParam")==0) return IntMatParamEnum;
    … …  
    11211132              else if (strcmp(name,"Internal")==0) return InternalEnum;
    11221133              else if (strcmp(name,"Intersect")==0) return IntersectEnum;
    1123          else stage=10;
    1124    }
    1125    if(stage==10){
    1126               if (strcmp(name,"InversionVzObs")==0) return InversionVzObsEnum;
     1134              else if (strcmp(name,"InversionVzObs")==0) return InversionVzObsEnum;
    11271135              else if (strcmp(name,"J")==0) return JEnum;
    11281136              else if (strcmp(name,"L1L2Approximation")==0) return L1L2ApproximationEnum;
    … …  
    12361244              else if (strcmp(name,"SMBforcing")==0) return SMBforcingEnum;
    12371245              else if (strcmp(name,"SMBgcm")==0) return SMBgcmEnum;
    1238               else if (strcmp(name,"SMBgemb")==0) return SMBgembEnum;
     1246         else stage=11;
     1247   }
     1248   if(stage==11){
     1249              if (strcmp(name,"SMBgemb")==0) return SMBgembEnum;
    12391250              else if (strcmp(name,"SMBgradients")==0) return SMBgradientsEnum;
    12401251              else if (strcmp(name,"SMBgradientscomponents")==0) return SMBgradientscomponentsEnum;
    … …  
    12441255              else if (strcmp(name,"SMBpdd")==0) return SMBpddEnum;
    12451256              else if (strcmp(name,"SMBpddSicopolis")==0) return SMBpddSicopolisEnum;
    1246          else stage=11;
    1247    }
    1248    if(stage==11){
    1249               if (strcmp(name,"SMBsemic")==0) return SMBsemicEnum;
     1257              else if (strcmp(name,"SMBsemic")==0) return SMBsemicEnum;
    12501258              else if (strcmp(name,"SSAApproximation")==0) return SSAApproximationEnum;
    12511259              else if (strcmp(name,"SSAFSApproximation")==0) return SSAFSApproximationEnum;
    … …  
    13341342              else if (strcmp(name,"NearestInterp")==0) return NearestInterpEnum;
    13351343              else if (strcmp(name,"OutputdefinitionList")==0) return OutputdefinitionListEnum;
     1344              else if (strcmp(name,"QmuOutput")==0) return QmuOutputEnum;
     1345              else if (strcmp(name,"QmuCurrEvalId")==0) return QmuCurrEvalIdEnum;
    13361346              else if (strcmp(name,"SealevelObs")==0) return SealevelObsEnum;
    13371347              else if (strcmp(name,"SealevelWeights")==0) return SealevelWeightsEnum;
Note: See TracChangeset for help on using the changeset viewer.