Changeset 27249 for issm/branches/trunk-larour-SLPS2022/src/c/modules/UpdateMmesx/UpdateMmesx.cpp

Timestamp:

08/30/22 12:09:48 (3 years ago)

Author:

Eric.Larour

Message:

CHG: update of model id actually working.

File:

• issm/branches/trunk-larour-SLPS2022/src/c/modules/UpdateMmesx/UpdateMmesx.cpp (modified) (1 diff)

issm/branches/trunk-larour-SLPS2022/src/c/modules/UpdateMmesx/UpdateMmesx.cpp

@@ -8 +8 @@
 
 void  UpdateMmesx(FemModel* femmodel){ 
+        
 
         if(VerboseModule()) _printf0_("   Updating Mmes\n");
 
-                 
         /*Deal with solid earth external: {{{*/
-        if (femmodel->inputs->Exist(SolidearthExternalDisplacementEastRateEnum) && femmodel->inputs->GetInputObjectEnum(SolidearthExternalDisplacementEastRateEnum)==DatasetInputEnum){
+        int horiz=0;
+        femmodel->parameters->FindParam(&horiz,SolidearthSettingsHorizEnum);
+
+        if (femmodel->inputs->Exist(SolidearthExternalDisplacementUpRateEnum) && femmodel->inputs->GetInputObjectEnum(SolidearthExternalDisplacementUpRateEnum)==DatasetInputEnum){
                 
                 IssmDouble modelid=0;
                 femmodel->parameters->FindParam(&modelid,SolidearthExternalModelidEnum);
-        
+                //_printf_("modelid: " << modelid << "\n");
+                
                 /*replace dataset of forcings with only one, the modelid'th:*/
-                MmeToInputFromIdx(femmodel->inputs,femmodel->elements,femmodel->parameters,modelid-1,SolidearthExternalDisplacementNorthRateEnum, P1Enum);
-                MmeToInputFromIdx(femmodel->inputs,femmodel->elements,femmodel->parameters,modelid-1,SolidearthExternalDisplacementEastRateEnum, P1Enum);
                 MmeToInputFromIdx(femmodel->inputs,femmodel->elements,femmodel->parameters,modelid-1,SolidearthExternalDisplacementUpRateEnum, P1Enum);
                 MmeToInputFromIdx(femmodel->inputs,femmodel->elements,femmodel->parameters,modelid-1,SolidearthExternalGeoidRateEnum, P1Enum);
 
+                if (horiz){
+                        MmeToInputFromIdx(femmodel->inputs,femmodel->elements,femmodel->parameters,modelid-1,SolidearthExternalDisplacementNorthRateEnum, P1Enum);
+                        MmeToInputFromIdx(femmodel->inputs,femmodel->elements,femmodel->parameters,modelid-1,SolidearthExternalDisplacementEastRateEnum, P1Enum);
+                }
+                
         } /*}}}*/
         /*Deal with dsl: {{{*/