Changeset 27812

Timestamp:

06/30/23 13:30:35 (21 months ago)

Author:

seroussi

Message:

FIX: temporary fix for ocean coupling in cartesian coordinates

File:

• issm/trunk-jpl/src/c/modules/OceanExchangeDatax/OceanExchangeDatax.cpp (modified) (3 diffs)

issm/trunk-jpl/src/c/modules/OceanExchangeDatax/OceanExchangeDatax.cpp

@@ -57 +57 @@
                 ISSM_MPI_Bcast(&oceangridnysize,1,ISSM_MPI_INT,0,IssmComm::GetComm());
                 ISSM_MPI_Bcast(&ngrids_ocean,1,ISSM_MPI_INT,0,IssmComm::GetComm());
-                ISSM_MPI_Bcast(&oceantime,1,ISSM_MPI_DOUBLE,0,IssmComm::GetComm());
                 femmodel->parameters->SetParam(oceangridnxsize,OceanGridNxEnum);
                 femmodel->parameters->SetParam(oceangridnysize,OceanGridNyEnum);
@@ -73 +72 @@
                 ISSM_MPI_Bcast(oceangridx,ngrids_ocean,ISSM_MPI_DOUBLE,0,IssmComm::GetComm());
                 ISSM_MPI_Bcast(oceangridy,ngrids_ocean,ISSM_MPI_DOUBLE,0,IssmComm::GetComm());
+                ISSM_MPI_Bcast(&oceantime,1,ISSM_MPI_DOUBLE,0,IssmComm::GetComm());
                 femmodel->parameters->SetParam(oceangridx,ngrids_ocean,OceanGridXEnum);
                 femmodel->parameters->SetParam(oceangridy,ngrids_ocean,OceanGridYEnum);
@@ -84 +84 @@
         femmodel->GetMesh(femmodel->vertices,femmodel->elements,&x_ice,&y_ice,&index_ice);
         BamgTriangulatex(&index_ocean,&nels_ocean,oceangridx,oceangridy,ngrids_ocean);
-        femmodel->vertices->LatLonList(&lat_ice,&lon_ice);
+        femmodel->vertices->XYList(&lon_ice,&lat_ice);
+        //femmodel->vertices->LatLonList(&lat_ice,&lon_ice);
         GetVectorFromInputsx(&icebase,femmodel,BaseEnum,VertexSIdEnum);
         Options* options = new Options();