1 |
|
C $Header$ |
2 |
|
C $Name$ |
3 |
|
|
4 |
!======================================================================= |
!======================================================================= |
5 |
subroutine mitcplr_init2a( myTypeStr ) |
subroutine mitcplr_init2a( myTypeStr ) |
6 |
implicit none |
implicit none |
26 |
if (VERB) write(LogUnit,*) 'MITCPLR_init2a: ', |
if (VERB) write(LogUnit,*) 'MITCPLR_init2a: ', |
27 |
& ' Rank/Size = ',myid,' /',numprocs |
& ' Rank/Size = ',myid,' /',numprocs |
28 |
|
|
29 |
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |
30 |
|
|
31 |
! Assume nothing again |
! Assume nothing again |
32 |
num_coupler_procs=0 |
num_coupler_procs=0 |
48 |
lenbuf=12 |
lenbuf=12 |
49 |
call MPI_Bcast( |
call MPI_Bcast( |
50 |
& ibuf, lenbuf, MPI_INTEGER, |
& ibuf, lenbuf, MPI_INTEGER, |
51 |
& n, |
& n, |
52 |
& MPI_COMM_myglobal, ierr ) |
& MPI_COMM_myglobal, ierr ) |
53 |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ', |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ', |
54 |
& ' MPI_Bcast from ',ibuf(1),ibuf(2),' ierr=',ierr |
& ' MPI_Bcast from ',ibuf(1),ibuf(2),' ierr=',ierr |
70 |
stop 'MITCPLR_init2a: I can only handle one coupling process' |
stop 'MITCPLR_init2a: I can only handle one coupling process' |
71 |
endif |
endif |
72 |
|
|
73 |
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |
74 |
|
|
75 |
! Find-out my position (rank) in the "world" communicator |
! Find-out my position (rank) in the "world" communicator |
76 |
call MPI_COMM_RANK( MPI_COMM_World, n, ierr ) |
call MPI_COMM_RANK( MPI_COMM_World, n, ierr ) |