Changeset 22848

Timestamp:

06/18/18 10:23:38 (7 years ago)

Author:

seroussi

Message:

CHG: options for default base in ice/ocean coupling

File:

• issm/trunk-jpl/src/c/cores/transient_core.cpp (modified) (1 diff)

issm/trunk-jpl/src/c/cores/transient_core.cpp

@@ -130 +130 @@
                         femmodel->vertices->LatLonList(&lat_ice,&lon_ice);
                         GetVectorFromInputsx(&icebase,femmodel,BaseEnum,VertexSIdEnum);
+                        Options* options = new Options();
+                        GenericOption<double> *odouble = new GenericOption<double>();
+                        const char* name = "default";
+                        odouble->name =xNew<char>(strlen(name)+1);
+                        memcpy(odouble->name,name,(strlen(name)+1)*sizeof(char));
+                        odouble->value=+9999.;
+                        odouble->numel=1;
+                        odouble->ndims=1;
+                        odouble->size=NULL;
+                        options->AddOption(odouble);
                         InterpFromMeshToMesh2dx(&base_oceangrid,index_ice,lon_ice,lat_ice,ngrids_ice,nels_ice,
                                                         icebase,ngrids_ice,1,
-                                                        oceangridx,oceangridy,ngrids_ocean,NULL);   
+                                                        oceangridx,oceangridy,ngrids_ocean,options);   
+                        delete options;
 
                         ISSM_MPI_Send(base_oceangrid,ngrids_ocean,ISSM_MPI_DOUBLE,0,10001008,tomitgcmcomm);