Changeset 27819

Timestamp:

06/30/23 19:19:51 (22 months ago)

Author:

seroussi

Message:

FIX: ocean time exchange was twice in data

File:

• issm/trunk-jpl/src/c/modules/OceanExchangeDatax/OceanExchangeDatax.cpp (modified) (1 diff)

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

@@ -68 +68 @@
                 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);
         }
         else{
-                /*Exchange varying parameters for the initialization*/
-                ISSM_MPI_Send(&time,1,ISSM_MPI_DOUBLE,0,10001001,tomitgcmcomm);
-                ISSM_MPI_Recv(&oceantime,1,ISSM_MPI_DOUBLE,0,10001002,tomitgcmcomm,&status);
-
+                /*Recoved ocean grid from parameters*/
                 femmodel->parameters->FindParam(&oceangridx,&ngrids_ocean,OceanGridXEnum);
                 femmodel->parameters->FindParam(&oceangridy,&ngrids_ocean,OceanGridYEnum);
         }
+
 
         /*Interpolate ice thickness and mask onto ocean grid*/