Changeset 22547

Timestamp:

03/16/18 12:10:25 (7 years ago)

Author:

seroussi

Message:

NEW: exchanging matrices for the coupling

File:

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

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

@@ -99 +99 @@
                         ISSM_MPI_Recv(&oceannysize,1,ISSM_MPI_INT,0,10001004,tomitgcmcomm,&status);
                         _printf_("ocean time: "<< oceantime<<"\n");
-                        printf("nx size: %i \n",oceannxsize);
-                        printf("ny size: %i \n",oceannysize);
-                        //oceangridx = xNew<IssmDouble>(oceannxsize*oceannysize);
-                        //ISSM_MPI_Recv(&oceangridx,oceannxsize*oceannysize,ISSM_MPI_DOUBLE,0,10001005,tomitgcmcomm,&status);
-                        //oceangridy = xNew<IssmDouble>(oceannxsize*oceannysize);
-                        //ISSM_MPI_Recv(&oceangridy,oceannxsize*oceannysize,ISSM_MPI_DOUBLE,0,10001006,tomitgcmcomm,&status);
+                        _printf_("nx size : "<< oceannxsize<<"\n");
+                        _printf_("ny size : "<< oceannysize<<"\n");
+                        oceangridx = xNew<IssmDouble>(oceannxsize*oceannysize);
+                        ISSM_MPI_Recv(&oceangridx,oceannxsize*oceannysize,ISSM_MPI_DOUBLE,0,10001005,tomitgcmcomm,&status);
+                        _printf_("gridx received \n");
+                        oceangridy = xNew<IssmDouble>(oceannxsize*oceannysize);
+                        ISSM_MPI_Recv(&oceangridy,oceannxsize*oceannysize,ISSM_MPI_DOUBLE,0,10001006,tomitgcmcomm,&status);
+                        _printf_("gridy received \n");
                         //icebase = xNew<IssmDouble>(oceannxsize*oceannysize);
                         //ISSM_MPI_Send(&icebase,oceannxsize*oceannysize,ISSM_MPI_DOUBLE,0,10001008,tomitgcmcomm);