Changeset 22649

Timestamp:

03/29/18 11:31:53 (7 years ago)

Author:

seroussi

Message:

CHG: added exchange of melt rate in ocean coupling

File:

• issm/trunk-jpl/src/c/cores/transient_core.cpp (modified) (1 diff)

issm/trunk-jpl/src/c/cores/transient_core.cpp

@@ -118 +118 @@
                         ISSM_MPI_Send(icebase,oceannxsize*oceannysize,ISSM_MPI_DOUBLE,0,10001008,tomitgcmcomm);
                         _printf_("base sent\n");
-                        //oceanmelt = xNew<IssmDouble>(oceannxsize*oceannysize);
-                        //ISSM_MPI_Recv(&oceanmelt,oceannxsize*oceannysize,ISSM_MPI_DOUBLE,0,10001007,tomitgcmcomm,&status);
-                        //xDelete<IssmDouble>(icebase);
-                        //xDelete<IssmDouble>(oceangridx);
-                        //xDelete<IssmDouble>(oceangridy);
-                        //xDelete<IssmDouble>(oceanmelt);
+                        oceanmelt = xNew<IssmDouble>(oceannxsize*oceannysize);
+                        ISSM_MPI_Recv(&oceanmelt,oceannxsize*oceannysize,ISSM_MPI_DOUBLE,0,10001007,tomitgcmcomm,&status);
+                        _printf_("ocean melt received\n");
+                        xDelete<IssmDouble>(icebase);
+                        xDelete<IssmDouble>(oceangridx);
+                        xDelete<IssmDouble>(oceangridy);
+                        xDelete<IssmDouble>(oceanmelt);
                 }
         }