Index: src/ScriptTcl.C
===================================================================
RCS file: /home/cvs/namd/cvsroot/namd2/src/ScriptTcl.C,v
retrieving revision 1.90
diff -c -r1.90 ScriptTcl.C
*** src/ScriptTcl.C	2014/01/09 20:20:07	1.90
--- src/ScriptTcl.C	2014/05/31 17:15:32
***************
*** 64,69 ****
--- 64,75 ----
  static float *coords;
  static Vector *vcoords;
  
+ #if CMK_CONVERSE_MPI
+ class MPI_Comm;
+ extern MPI_Comm *charmInterPartitionCommPtr;
+ extern MPI_Comm *charmIntraPartitionCommPtr;
+ #endif
+ 
  
  void ScriptTcl::suspend() {
    BackEnd::suspend();
***************
*** 1524,1529 ****
--- 1530,1544 ----
    Tcl_CreateCommand(interp, "reloadGridforceGrid", Tcl_reloadGridforceGrid,
      (ClientData) this, (Tcl_CmdDeleteProc *) NULL);
    // END gf
+ 
+ #if CMK_CONVERSE_MPI
+   if ( charmInterPartitionCommPtr ) {
+     Tcl_Obj* TURBINE_ADLB_COMM = Tcl_NewStringObj("TURBINE_ADLB_COMM", -1);
+     Tcl_Obj* adlb_comm_ptr = Tcl_NewLongObj((long) charmInterPartitionCommPtr);
+     Tcl_ObjSetVar2(interp, TURBINE_ADLB_COMM, NULL, adlb_comm_ptr, 0);
+   }
+ #endif
+ 
  #endif
  
  }