Changeset 22544
- Timestamp:
- 03/16/18 11:45:47 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/cores/transient_core.cpp
r22541 r22544 74 74 75 75 if(isoceancoupling){ 76 printf("startin ocean coupling \n");76 _printf_("startin ocean coupling \n"); 77 77 int my_rank; 78 78 int oceannxsize,oceannysize; … … 91 91 tomitgcmcomm=parcom->GetParameterValue(); 92 92 if(my_rank==0){ 93 printf("starting ocean coupling rank 0 \n");94 printf("coupling time: "<< coupling_time <<"\n");93 _printf_("starting ocean coupling rank 0 \n"); 94 _printf_("coupling time: "<< coupling_time <<"\n"); 95 95 ISSM_MPI_Send(&coupling_time,1,ISSM_MPI_DOUBLE,0,10001000,tomitgcmcomm); 96 96 ISSM_MPI_Send(&time,1,ISSM_MPI_DOUBLE,0,10001001,tomitgcmcomm); … … 98 98 ISSM_MPI_Recv(&oceannxsize,1,ISSM_MPI_INT,0,10001003,tomitgcmcomm,&status); 99 99 ISSM_MPI_Recv(&oceannysize,1,ISSM_MPI_INT,0,10001004,tomitgcmcomm,&status); 100 printf("ocean time: "<< oceantime<<"\n");100 _printf_("ocean time: "<< oceantime<<"\n"); 101 101 printf("nx size: %i \n",oceannxsize); 102 102 printf("ny size: %i \n",oceannysize);
Note:
See TracChangeset
for help on using the changeset viewer.