Changeset 27819
- Timestamp:
- 06/30/23 19:19:51 (21 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/modules/OceanExchangeDatax/OceanExchangeDatax.cpp
r27818 r27819 68 68 ISSM_MPI_Bcast(oceangridx,ngrids_ocean,ISSM_MPI_DOUBLE,0,IssmComm::GetComm()); 69 69 ISSM_MPI_Bcast(oceangridy,ngrids_ocean,ISSM_MPI_DOUBLE,0,IssmComm::GetComm()); 70 ISSM_MPI_Bcast(&oceantime,1,ISSM_MPI_DOUBLE,0,IssmComm::GetComm());71 70 femmodel->parameters->SetParam(oceangridx,ngrids_ocean,OceanGridXEnum); 72 71 femmodel->parameters->SetParam(oceangridy,ngrids_ocean,OceanGridYEnum); 73 72 } 74 73 else{ 75 /*Exchange varying parameters for the initialization*/ 76 ISSM_MPI_Send(&time,1,ISSM_MPI_DOUBLE,0,10001001,tomitgcmcomm); 77 ISSM_MPI_Recv(&oceantime,1,ISSM_MPI_DOUBLE,0,10001002,tomitgcmcomm,&status); 78 74 /*Recoved ocean grid from parameters*/ 79 75 femmodel->parameters->FindParam(&oceangridx,&ngrids_ocean,OceanGridXEnum); 80 76 femmodel->parameters->FindParam(&oceangridy,&ngrids_ocean,OceanGridYEnum); 81 77 } 78 82 79 83 80 /*Interpolate ice thickness and mask onto ocean grid*/
Note:
See TracChangeset
for help on using the changeset viewer.