Changeset 27816

Timestamp:

06/30/23 15:30:45 (21 months ago)

Author:

seroussi

Message:

FIX: send dyn. thickness before receiving melt

File:

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

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

@@ -134 +134 @@
                         if((oceantime - time > 0.1*yts) & (oceantime - time < -0.1*yts)) _error_("Ocean and ice time are starting to diverge");
                         oceanmelt = xNew<IssmDouble>(ngrids_ocean);
+                        ISSM_MPI_Send(icethickness_oceangrid,ngrids_ocean,ISSM_MPI_DOUBLE,0,10001008,tomitgcmcomm);
                         ISSM_MPI_Recv(oceanmelt,ngrids_ocean,ISSM_MPI_DOUBLE,0,10001007,tomitgcmcomm,&status);
-                        ISSM_MPI_Send(icethickness_oceangrid,ngrids_ocean,ISSM_MPI_DOUBLE,0,10001008,tomitgcmcomm);
                 }
                 ISSM_MPI_Bcast(&oceantime,1,ISSM_MPI_DOUBLE,0,IssmComm::GetComm());