Changeset 27819


Ignore:
Timestamp:
06/30/23 19:19:51 (21 months ago)
Author:
seroussi
Message:

FIX: ocean time exchange was twice in data

File:
1 edited

Legend:

Unmodified
Added
Removed
  • issm/trunk-jpl/src/c/modules/OceanExchangeDatax/OceanExchangeDatax.cpp

    r27818 r27819  
    6868                ISSM_MPI_Bcast(oceangridx,ngrids_ocean,ISSM_MPI_DOUBLE,0,IssmComm::GetComm());
    6969                ISSM_MPI_Bcast(oceangridy,ngrids_ocean,ISSM_MPI_DOUBLE,0,IssmComm::GetComm());
    70                 ISSM_MPI_Bcast(&oceantime,1,ISSM_MPI_DOUBLE,0,IssmComm::GetComm());
    7170                femmodel->parameters->SetParam(oceangridx,ngrids_ocean,OceanGridXEnum);
    7271                femmodel->parameters->SetParam(oceangridy,ngrids_ocean,OceanGridYEnum);
    7372        }
    7473        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*/
    7975                femmodel->parameters->FindParam(&oceangridx,&ngrids_ocean,OceanGridXEnum);
    8076                femmodel->parameters->FindParam(&oceangridy,&ngrids_ocean,OceanGridYEnum);
    8177        }
     78
    8279
    8380        /*Interpolate ice thickness and mask onto ocean grid*/
Note: See TracChangeset for help on using the changeset viewer.