| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/coupsend_r4tiles.F |
18 |
COUPSEND_R4TILES |
integer compind,numprocs |
|
./pkg/compon_communic/coupsend_r4tiles.F |
27 |
COUPSEND_R4TILES |
numprocs=num_component_procs(compind) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
28 |
COUPSEND_R4TILES |
if (numprocs.lt.1) then |
|
./pkg/compon_communic/coupsend_r4tiles.F |
38 |
COUPSEND_R4TILES |
do n=1,numprocs |
|
./pkg/compon_communic/coupsend_r4tiles.F |
70 |
COUPSEND_R4TILES |
& dest,' proc=',n,'/',numprocs,' tile=',bibj |
|
./pkg/compon_communic/couprecv_r8.F |
19 |
COUPRECV_R8 |
integer compind,numprocs |
|
./pkg/compon_communic/couprecv_r8.F |
29 |
COUPRECV_R8 |
numprocs=num_component_procs(compind) |
|
./pkg/compon_communic/couprecv_r8.F |
30 |
COUPRECV_R8 |
if (numprocs.lt.1) then |
|
./pkg/compon_communic/couprecv_r8.F |
40 |
COUPRECV_R8 |
do n=1,numprocs |
|
./pkg/compon_communic/couprecv_r8.F |
49 |
COUPRECV_R8 |
& ' proc=',n,'/',numprocs |
|
./pkg/compon_communic/coupsend_r8tiles.F |
18 |
COUPSEND_R8TILES |
integer compind,numprocs |
|
./pkg/compon_communic/coupsend_r8tiles.F |
27 |
COUPSEND_R8TILES |
numprocs=num_component_procs(compind) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
28 |
COUPSEND_R8TILES |
if (numprocs.lt.1) then |
|
./pkg/compon_communic/coupsend_r8tiles.F |
38 |
COUPSEND_R8TILES |
do n=1,numprocs |
|
./pkg/compon_communic/coupsend_r8tiles.F |
70 |
COUPSEND_R8TILES |
& dest,' proc=',n,'/',numprocs,' tile=',bibj |
|
./pkg/compon_communic/mitcomponent_register.F |
10 |
MITCOMPONENT_REGISTER |
integer myid, numprocs, ierr, rc |
|
./pkg/compon_communic/couprecv_r8tiles.F |
19 |
COUPRECV_R8TILES |
integer compind,numprocs |
|
./pkg/compon_communic/couprecv_r8tiles.F |
29 |
COUPRECV_R8TILES |
numprocs=num_component_procs(compind) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
30 |
COUPRECV_R8TILES |
if (numprocs.lt.1) then |
|
./pkg/compon_communic/couprecv_r8tiles.F |
40 |
COUPRECV_R8TILES |
do n=1,numprocs |
|
./pkg/compon_communic/couprecv_r8tiles.F |
54 |
COUPRECV_R8TILES |
& ' proc=',n,'/',numprocs,' tile=',bibj |
|
./pkg/compon_communic/coupsend_r4.F |
18 |
COUPSEND_R4 |
integer compind,numprocs |
|
./pkg/compon_communic/coupsend_r4.F |
27 |
COUPSEND_R4 |
numprocs=num_component_procs(compind) |
|
./pkg/compon_communic/coupsend_r4.F |
28 |
COUPSEND_R4 |
if (numprocs.lt.1) then |
|
./pkg/compon_communic/coupsend_r4.F |
38 |
COUPSEND_R4 |
do n=1,numprocs |
|
./pkg/compon_communic/coupsend_r4.F |
67 |
COUPSEND_R4 |
& ' proc=',n,'/',numprocs |
|
./pkg/compon_communic/mitcplr_init2a.F |
10 |
MITCPLR_INIT2A |
integer myid, numprocs, ierr |
|
./pkg/compon_communic/mitcplr_init2a.F |
20 |
MITCPLR_INIT2A |
call MPI_COMM_SIZE( MPI_COMM_myglobal, numprocs, ierr ) |
|
./pkg/compon_communic/mitcplr_init2a.F |
22 |
MITCPLR_INIT2A |
& ' Size = ',numprocs,' MPI_COMM_RANK ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init2a.F |
24 |
MITCPLR_INIT2A |
& ' Rank/Size = ',myid,' /',numprocs |
|
./pkg/compon_communic/mitcplr_init2a.F |
32 |
MITCPLR_INIT2A |
do n=0,numprocs-1 |
|
./pkg/compon_communic/mitcplr_init2a.F |
90 |
MITCPLR_INIT2A |
& ' my_coupler_rank =',my_coupler_rank,' /',numprocs |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
20 |
MITCOUPLER_TILE_REGISTER |
integer n,numprocs |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
33 |
MITCOUPLER_TILE_REGISTER |
numprocs=num_component_procs(compind) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
34 |
MITCOUPLER_TILE_REGISTER |
if (numprocs.lt.1) then |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
40 |
MITCOUPLER_TILE_REGISTER |
do n=1,numprocs |
|
./pkg/compon_communic/couprecv_r4tiles.F |
19 |
COUPRECV_R4TILES |
integer compind,numprocs |
|
./pkg/compon_communic/couprecv_r4tiles.F |
29 |
COUPRECV_R4TILES |
numprocs=num_component_procs(compind) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
30 |
COUPRECV_R4TILES |
if (numprocs.lt.1) then |
|
./pkg/compon_communic/couprecv_r4tiles.F |
40 |
COUPRECV_R4TILES |
do n=1,numprocs |
|
./pkg/compon_communic/couprecv_r4tiles.F |
54 |
COUPRECV_R4TILES |
& ' proc=',n,'/',numprocs,' tile=',bibj |
|
./pkg/compon_communic/mitcomponent_init.F |
11 |
MITCOMPONENT_INIT |
integer myid, numprocs, ierr, rc |
|
./pkg/compon_communic/couprecv_r4.F |
19 |
COUPRECV_R4 |
integer compind,numprocs |
|
./pkg/compon_communic/couprecv_r4.F |
29 |
COUPRECV_R4 |
numprocs=num_component_procs(compind) |
|
./pkg/compon_communic/couprecv_r4.F |
30 |
COUPRECV_R4 |
if (numprocs.lt.1) then |
|
./pkg/compon_communic/couprecv_r4.F |
40 |
COUPRECV_R4 |
do n=1,numprocs |
|
./pkg/compon_communic/couprecv_r4.F |
49 |
COUPRECV_R4 |
& ' proc=',n,'/',numprocs |
|
./pkg/compon_communic/coupsend_r8.F |
18 |
COUPSEND_R8 |
integer compind,numprocs |
|
./pkg/compon_communic/coupsend_r8.F |
27 |
COUPSEND_R8 |
numprocs=num_component_procs(compind) |
|
./pkg/compon_communic/coupsend_r8.F |
28 |
COUPSEND_R8 |
if (numprocs.lt.1) then |
|
./pkg/compon_communic/coupsend_r8.F |
38 |
COUPSEND_R8 |
do n=1,numprocs |
|
./pkg/compon_communic/coupsend_r8.F |
67 |
COUPSEND_R8 |
& ' proc=',n,'/',numprocs |
|
./pkg/compon_communic/mitcplr_init1.F |
11 |
MITCPLR_INIT1 |
integer myid, numprocs, ierr, rc |
|
./pkg/compon_communic/mitcplr_init1.F |
197 |
MITCPLR_INIT1 |
call MPI_COMM_SIZE( MPI_COMM_compcplr(n), numprocs, ierr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
199 |
MITCPLR_INIT1 |
& ' Size = ',numprocs,' MPI_COMM_SIZE ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init1.F |
201 |
MITCPLR_INIT1 |
& ' Rank/Size = ',j,' /',numprocs, |
|
./pkg/compon_communic/mitcplr_init1.F |
210 |
MITCPLR_INIT1 |
call MPI_COMM_SIZE( MPI_COMM_myglobal, numprocs, ierr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
212 |
MITCPLR_INIT1 |
& ' Size = ',numprocs,' MPI_COMM_SIZE ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init1.F |
214 |
MITCPLR_INIT1 |
& ' Rank/Size = ',j,' /',numprocs |
|
./pkg/compon_communic/mitcplr_init1.F |
35 |
MITCPLR_INIT1 |
call MPI_COMM_SIZE( MPI_COMM_WORLD, numprocs, ierr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
37 |
MITCPLR_INIT1 |
& ' Size = ',numprocs,' MPI_COMM_RANK ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init1.F |
39 |
MITCPLR_INIT1 |
& ' Rank/Size = ',myid,' /',numprocs |
|
./pkg/compon_communic/mitcplr_init1.F |
50 |
MITCPLR_INIT1 |
do n=0,numprocs-1 |
|
./pkg/compon_communic/mitcplr_init2b.F |
10 |
MITCPLR_INIT2B |
integer myid, numprocs, ierr |
|
./pkg/compon_communic/mitcplr_init2b.F |
26 |
MITCPLR_INIT2B |
call MPI_COMM_SIZE( MPI_COMM_temp, numprocs, ierr ) |
|
./pkg/compon_communic/mitcplr_init2b.F |
28 |
MITCPLR_INIT2B |
& ' Size = ',numprocs,' MPI_COMM_RANK ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init2b.F |
30 |
MITCPLR_INIT2B |
& ' Rank/Size = ',myid,' /',numprocs |
|
./pkg/compon_communic/mitcplr_init2b.F |
40 |
MITCPLR_INIT2B |
do n=0,numprocs-1 |
|
./pkg/compon_communic/mitcoupler_init.F |
11 |
MITCOUPLER_INIT |
integer myid, numprocs, ierr, rc |
|
./pkg/compon_communic/mitcoupler_register.F |
101 |
MITCOUPLER_REGISTER |
do n=1,numprocs |
|
./pkg/compon_communic/mitcoupler_register.F |
20 |
MITCOUPLER_REGISTER |
integer n,numprocs |
|
./pkg/compon_communic/mitcoupler_register.F |
33 |
MITCOUPLER_REGISTER |
numprocs=num_component_procs(compind) |
|
./pkg/compon_communic/mitcoupler_register.F |
34 |
MITCOUPLER_REGISTER |
if (numprocs.lt.1) then |
|
./pkg/compon_communic/mitcoupler_register.F |
40 |
MITCOUPLER_REGISTER |
do n=1,numprocs |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
12 |
MITCOMPONENT_TILE_REGISTER |
integer myid, numprocs, ierr, rc |