integer MPI_COMM_local
MPI_COMM_local=MPI_COMM_mylocal
subroutine MITCOMPONENT_INIT( myTypeStr, MPI_COMM_local )
subroutine MITCOUPLER_INIT( myTypeStr, MPI_COMM_local )