gras_msg_send(socket_column[l-1], gras_msgtype_by_name("dataB"), &mydataB);
bB=mydataB;
INFO1("send my data B (%.3g) to my (vertical) neighbors",bB);
gras_msg_send(socket_column[l-1], gras_msgtype_by_name("dataB"), &mydataB);
bB=mydataB;
INFO1("send my data B (%.3g) to my (vertical) neighbors",bB);