Changeset 21583
- Timestamp:
- 03/01/17 23:26:48 (8 years ago)
- Location:
- issm/trunk-jpl/src/c
- Files:
-
- 16 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/Makefile.am
r21529 r21583 453 453 endif 454 454 #}}} 455 #Gia Ivinssources {{{455 #Gia sources {{{ 456 456 if GIAIVINS 457 issm_sources += ./cores/gia ivins_core.cpp\457 issm_sources += ./cores/gia_core.cpp\ 458 458 ./analyses/GiaIvinsAnalysis.cpp\ 459 ./modules/Gia IvinsDeflectionCorex/GiaIvinsDeflectionCorex.cpp\460 ./modules/Gia IvinsDeflectionCorex/distme.f\461 ./modules/Gia IvinsDeflectionCorex/freed.f\462 ./modules/Gia IvinsDeflectionCorex/ojrule.f\463 ./modules/Gia IvinsDeflectionCorex/pwise.f\464 ./modules/Gia IvinsDeflectionCorex/qwise.f\465 ./modules/Gia IvinsDeflectionCorex/stot.f\466 ./modules/Gia IvinsDeflectionCorex/what0.f459 ./modules/GiaDeflectionCorex/GiaDeflectionCorex.cpp\ 460 ./modules/GiaDeflectionCorex/distme.f\ 461 ./modules/GiaDeflectionCorex/freed.f\ 462 ./modules/GiaDeflectionCorex/ojrule.f\ 463 ./modules/GiaDeflectionCorex/pwise.f\ 464 ./modules/GiaDeflectionCorex/qwise.f\ 465 ./modules/GiaDeflectionCorex/stot.f\ 466 ./modules/GiaDeflectionCorex/what0.f 467 467 endif 468 468 #}}} -
issm/trunk-jpl/src/c/analyses/GiaIvinsAnalysis.cpp
r21532 r21583 31 31 32 32 iomodel->FetchDataToInput(elements,"md.geometry.thickness",ThicknessEnum); 33 iomodel->FetchDataToInput(elements,"md.gia ivins.mantle_viscosity",GiaIvinsMantleViscosityEnum);34 iomodel->FetchDataToInput(elements,"md.gia ivins.lithosphere_thickness",GiaIvinsLithosphereThicknessEnum);33 iomodel->FetchDataToInput(elements,"md.gia.mantle_viscosity",GiaMantleViscosityEnum); 34 iomodel->FetchDataToInput(elements,"md.gia.lithosphere_thickness",GiaLithosphereThicknessEnum); 35 35 iomodel->FetchDataToInput(elements,"md.mask.ice_levelset",MaskIceLevelsetEnum); 36 36 }/*}}}*/ -
issm/trunk-jpl/src/c/classes/Elements/Element.h
r21578 r21583 294 294 virtual void ZeroLevelsetCoordinates(IssmDouble** pxyz_zero,IssmDouble* xyz_list,int levelsetenum)=0; 295 295 296 #ifdef _HAVE_GIA _296 #ifdef _HAVE_GIAIVINS_ 297 297 virtual void GiaDeflection(Vector<IssmDouble>* wg,Vector<IssmDouble>* dwgdt,IssmDouble* x,IssmDouble* y)=0; 298 298 #endif -
issm/trunk-jpl/src/c/classes/Elements/Penta.cpp
r21578 r21583 3536 3536 /*}}}*/ 3537 3537 3538 #ifdef _HAVE_GIA _3538 #ifdef _HAVE_GIAIVINS_ 3539 3539 void Penta::GiaDeflection(Vector<IssmDouble>* wg,Vector<IssmDouble>* dwgdt,IssmDouble* x,IssmDouble* y){/*{{{*/ 3540 3540 _error_("GIA deflection not implemented yet!"); -
issm/trunk-jpl/src/c/classes/Elements/Penta.h
r21578 r21583 182 182 #endif 183 183 184 #ifdef _HAVE_GIA _184 #ifdef _HAVE_GIAIVINS_ 185 185 void GiaDeflection(Vector<IssmDouble>* wg,Vector<IssmDouble>* dwgdt,IssmDouble* x,IssmDouble* y); 186 186 #endif -
issm/trunk-jpl/src/c/classes/Elements/Seg.h
r21578 r21583 165 165 IssmDouble GetAreaSpherical(void){_error_("not implemented yet!");}; 166 166 167 #ifdef _HAVE_GIA _167 #ifdef _HAVE_GIAIVINS_ 168 168 void GiaDeflection(Vector<IssmDouble>* wg,Vector<IssmDouble>* dwgdt,IssmDouble* x,IssmDouble* y){_error_("not implemented yet");}; 169 169 #endif -
issm/trunk-jpl/src/c/classes/Elements/Tetra.h
r21578 r21583 172 172 void ZeroLevelsetCoordinates(IssmDouble** pxyz_zero,IssmDouble* xyz_list,int levelsetenum); 173 173 174 #ifdef _HAVE_GIA _174 #ifdef _HAVE_GIAIVINS_ 175 175 void GiaDeflection(Vector<IssmDouble>* wg,Vector<IssmDouble>* dwgdt,IssmDouble* x,IssmDouble* y){_error_("not implemented yet");}; 176 176 #endif -
issm/trunk-jpl/src/c/classes/Elements/Tria.cpp
r21578 r21583 15 15 #include "../classes.h" 16 16 #include "../../shared/shared.h" 17 #ifdef _HAVE_GIA _17 #ifdef _HAVE_GIAIVINS_ 18 18 #include "../../modules/GiaDeflectionCorex/GiaDeflectionCorex.h" 19 19 #endif … … 3453 3453 /*}}}*/ 3454 3454 3455 #ifdef _HAVE_GIA _3455 #ifdef _HAVE_GIAIVINS_ 3456 3456 void Tria::GiaDeflection(Vector<IssmDouble>* wg,Vector<IssmDouble>* dwgdt,IssmDouble* x, IssmDouble* y){/*{{{*/ 3457 3457 -
issm/trunk-jpl/src/c/classes/Elements/Tria.h
r21578 r21583 141 141 void ZeroLevelsetCoordinates(IssmDouble** pxyz_zero,IssmDouble* xyz_list,int levelsetenum); 142 142 143 #ifdef _HAVE_GIA _143 #ifdef _HAVE_GIAIVINS_ 144 144 void GiaDeflection(Vector<IssmDouble>* wg,Vector<IssmDouble>* dwgdt,IssmDouble* x,IssmDouble* y); 145 145 #endif -
issm/trunk-jpl/src/c/classes/FemModel.cpp
r21578 r21583 2317 2317 /*}}}*/ 2318 2318 #endif 2319 #ifdef _HAVE_GIA _2319 #ifdef _HAVE_GIAIVINS_ 2320 2320 void FemModel::Deflection(Vector<IssmDouble>* wg,Vector<IssmDouble>* dwgdt, IssmDouble* x, IssmDouble* y){ /*{{{*/ 2321 2321 -
issm/trunk-jpl/src/c/classes/FemModel.h
r21578 r21583 117 117 void ThicknessAbsGradientx( IssmDouble* pJ); 118 118 void ThicknessPositivex(IssmDouble* pJ); 119 #ifdef _HAVE_GIA _119 #ifdef _HAVE_GIAIVINS_ 120 120 void Deflection(Vector<IssmDouble>* wg,Vector<IssmDouble>* dwgdt, IssmDouble* x, IssmDouble* y); 121 121 #endif -
issm/trunk-jpl/src/c/cores/CorePointerFromSolutionEnum.cpp
r21579 r21583 66 66 break; 67 67 case GiaSolutionEnum: 68 #if _HAVE_GIA _68 #if _HAVE_GIAIVINS_ 69 69 solutioncore=&gia_core; 70 70 #else -
issm/trunk-jpl/src/c/cores/transient_core.cpp
r21579 r21583 140 140 if(isgia){ 141 141 if(VerboseSolution()) _printf0_(" computing glacial isostatic adjustment\n"); 142 #ifdef _HAVE_GIA _142 #ifdef _HAVE_GIAIVINS_ 143 143 gia_core(femmodel); 144 144 #else -
issm/trunk-jpl/src/c/shared/Enum/EnumDefinitions.h
r21551 r21583 335 335 ThermalNumRequestedOutputsEnum, 336 336 ThermalRequestedOutputsEnum, 337 Gia IvinsMantleViscosityEnum,338 Gia IvinsLithosphereThicknessEnum,337 GiaMantleViscosityEnum, 338 GiaLithosphereThicknessEnum, 339 339 ThicknessEnum, 340 340 TimesteppingStartTimeEnum, … … 350 350 TransientIsmasstransportEnum, 351 351 TransientIsthermalEnum, 352 TransientIsgia ivinsEnum,352 TransientIsgiaEnum, 353 353 TransientIsesaEnum, 354 354 TransientIsdamageevolutionEnum, … … 568 568 DivergenceEnum, 569 569 MaxDivergenceEnum, 570 Gia IvinsCrossSectionShapeEnum,571 Gia IvinsdWdtEnum,572 Gia IvinsWEnum,570 GiaCrossSectionShapeEnum, 571 GiadWdtEnum, 572 GiaWEnum, 573 573 /*}}}*/ 574 574 /*Results{{{*/ … … 931 931 TransientSolutionEnum, 932 932 UzawaPressureAnalysisEnum, 933 Gia IvinsSolutionEnum,933 GiaSolutionEnum, 934 934 GiaIvinsAnalysisEnum, 935 935 EsaSolutionEnum, -
issm/trunk-jpl/src/c/shared/Enum/EnumToStringx.cpp
r21551 r21583 341 341 case ThermalNumRequestedOutputsEnum : return "ThermalNumRequestedOutputs"; 342 342 case ThermalRequestedOutputsEnum : return "ThermalRequestedOutputs"; 343 case Gia IvinsMantleViscosityEnum : return "GiaIvinsMantleViscosity";344 case Gia IvinsLithosphereThicknessEnum : return "GiaIvinsLithosphereThickness";343 case GiaMantleViscosityEnum : return "GiaMantleViscosity"; 344 case GiaLithosphereThicknessEnum : return "GiaLithosphereThickness"; 345 345 case ThicknessEnum : return "Thickness"; 346 346 case TimesteppingStartTimeEnum : return "TimesteppingStartTime"; … … 356 356 case TransientIsmasstransportEnum : return "TransientIsmasstransport"; 357 357 case TransientIsthermalEnum : return "TransientIsthermal"; 358 case TransientIsgia ivinsEnum : return "TransientIsgiaivins";358 case TransientIsgiaEnum : return "TransientIsgia"; 359 359 case TransientIsesaEnum : return "TransientIsesa"; 360 360 case TransientIsdamageevolutionEnum : return "TransientIsdamageevolution"; … … 566 566 case DivergenceEnum : return "Divergence"; 567 567 case MaxDivergenceEnum : return "MaxDivergence"; 568 case Gia IvinsCrossSectionShapeEnum : return "GiaIvinsCrossSectionShape";569 case Gia IvinsdWdtEnum : return "GiaIvinsdWdt";570 case Gia IvinsWEnum : return "GiaIvinsW";568 case GiaCrossSectionShapeEnum : return "GiaCrossSectionShape"; 569 case GiadWdtEnum : return "GiadWdt"; 570 case GiaWEnum : return "GiaW"; 571 571 case SaveResultsEnum : return "SaveResults"; 572 572 case BoolExternalResultEnum : return "BoolExternalResult"; … … 901 901 case TransientSolutionEnum : return "TransientSolution"; 902 902 case UzawaPressureAnalysisEnum : return "UzawaPressureAnalysis"; 903 case Gia IvinsSolutionEnum : return "GiaIvinsSolution";903 case GiaSolutionEnum : return "GiaSolution"; 904 904 case GiaIvinsAnalysisEnum : return "GiaIvinsAnalysis"; 905 905 case EsaSolutionEnum : return "EsaSolution"; -
issm/trunk-jpl/src/c/shared/Enum/StringToEnumx.cpp
r21551 r21583 347 347 else if (strcmp(name,"ThermalNumRequestedOutputs")==0) return ThermalNumRequestedOutputsEnum; 348 348 else if (strcmp(name,"ThermalRequestedOutputs")==0) return ThermalRequestedOutputsEnum; 349 else if (strcmp(name,"Gia IvinsMantleViscosity")==0) return GiaIvinsMantleViscosityEnum;350 else if (strcmp(name,"Gia IvinsLithosphereThickness")==0) return GiaIvinsLithosphereThicknessEnum;349 else if (strcmp(name,"GiaMantleViscosity")==0) return GiaMantleViscosityEnum; 350 else if (strcmp(name,"GiaLithosphereThickness")==0) return GiaLithosphereThicknessEnum; 351 351 else if (strcmp(name,"Thickness")==0) return ThicknessEnum; 352 352 else if (strcmp(name,"TimesteppingStartTime")==0) return TimesteppingStartTimeEnum; … … 362 362 else if (strcmp(name,"TransientIsmasstransport")==0) return TransientIsmasstransportEnum; 363 363 else if (strcmp(name,"TransientIsthermal")==0) return TransientIsthermalEnum; 364 else if (strcmp(name,"TransientIsgia ivins")==0) return TransientIsgiaivinsEnum;364 else if (strcmp(name,"TransientIsgia")==0) return TransientIsgiaEnum; 365 365 else if (strcmp(name,"TransientIsesa")==0) return TransientIsesaEnum; 366 366 else if (strcmp(name,"TransientIsdamageevolution")==0) return TransientIsdamageevolutionEnum; … … 578 578 else if (strcmp(name,"Divergence")==0) return DivergenceEnum; 579 579 else if (strcmp(name,"MaxDivergence")==0) return MaxDivergenceEnum; 580 else if (strcmp(name,"Gia IvinsCrossSectionShape")==0) return GiaIvinsCrossSectionShapeEnum;581 else if (strcmp(name,"Gia IvinsdWdt")==0) return GiaIvinsdWdtEnum;582 else if (strcmp(name,"Gia IvinsW")==0) return GiaIvinsWEnum;580 else if (strcmp(name,"GiaCrossSectionShape")==0) return GiaCrossSectionShapeEnum; 581 else if (strcmp(name,"GiadWdt")==0) return GiadWdtEnum; 582 else if (strcmp(name,"GiaW")==0) return GiaWEnum; 583 583 else if (strcmp(name,"SaveResults")==0) return SaveResultsEnum; 584 584 else if (strcmp(name,"BoolExternalResult")==0) return BoolExternalResultEnum; … … 922 922 else if (strcmp(name,"TransientSolution")==0) return TransientSolutionEnum; 923 923 else if (strcmp(name,"UzawaPressureAnalysis")==0) return UzawaPressureAnalysisEnum; 924 else if (strcmp(name,"Gia IvinsSolution")==0) return GiaIvinsSolutionEnum;924 else if (strcmp(name,"GiaSolution")==0) return GiaSolutionEnum; 925 925 else if (strcmp(name,"GiaIvinsAnalysis")==0) return GiaIvinsAnalysisEnum; 926 926 else if (strcmp(name,"EsaSolution")==0) return EsaSolutionEnum;
Note:
See TracChangeset
for help on using the changeset viewer.