| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/CPLR_SIG.h |
36 |
NO PROCEDURE |
integer LogUnit |
|
./pkg/compon_communic/CPLR_SIG.h |
37 |
NO PROCEDURE |
parameter( LogUnit=99 ) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
29 |
COUPSEND_R4TILES |
write(LogUnit,*) 'coupsend_r4tiles: compind = ',compind |
|
./pkg/compon_communic/coupsend_r4tiles.F |
33 |
COUPSEND_R4TILES |
& write(LogUnit,*) 'coupsend_r4tiles: ',component_Name(compind) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
35 |
COUPSEND_R4TILES |
& write(LogUnit,*) 'coupsend_r4tiles: dataname=',dataname |
|
./pkg/compon_communic/coupsend_r4tiles.F |
69 |
COUPSEND_R4TILES |
write(LogUnit,*) 'coupsend_r4tiles: calling MPI_Send dest=', |
|
./pkg/compon_communic/coupsend_r4tiles.F |
71 |
COUPSEND_R4TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
75 |
COUPSEND_R4TILES |
write(LogUnit,*) 'coupsend_r4tiles: returned ierr=',ierr |
|
./pkg/compon_communic/coupsend_r4tiles.F |
76 |
COUPSEND_R4TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
80 |
COUPSEND_R4TILES |
write(LogUnit,*) 'coupsend_r4tiles: rank(W,G)=', |
|
./pkg/compon_communic/comprecv_r8tiles.F |
38 |
COMPRECV_R8TILES |
write(LogUnit,*) 'comprecv_r8tiles: calling MPI_Recv rank=',rank |
|
./pkg/compon_communic/comprecv_r8tiles.F |
39 |
COMPRECV_R8TILES |
write(LogUnit,*) 'comprecv_r8tiles: dataname=',dataname |
|
./pkg/compon_communic/comprecv_r8tiles.F |
40 |
COMPRECV_R8TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
44 |
COMPRECV_R8TILES |
write(LogUnit,*) 'comprecv_r8tiles: returned ierr=',ierr |
|
./pkg/compon_communic/comprecv_r8tiles.F |
45 |
COMPRECV_R8TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
49 |
COMPRECV_R8TILES |
write(LogUnit,*) 'comprecv_r8tiles: rank(W,G)=', |
|
./pkg/compon_communic/comprecv_r8tiles.F |
67 |
COMPRECV_R8TILES |
write(LogUnit,*) 'comprecv_r8tiles: recvdname = ',recvdname |
|
./pkg/compon_communic/comprecv_r8tiles.F |
68 |
COMPRECV_R8TILES |
write(LogUnit,*) 'comprecv_r8tiles: dataname = ',dataname |
|
./pkg/compon_communic/couprecv_r8.F |
31 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8: compind = ',compind |
|
./pkg/compon_communic/couprecv_r8.F |
35 |
COUPRECV_R8 |
& write(LogUnit,*) 'couprecv_r8: ',component_Name(compind) |
|
./pkg/compon_communic/couprecv_r8.F |
37 |
COUPRECV_R8 |
& write(LogUnit,*) 'couprecv_r8: dataname=',dataname |
|
./pkg/compon_communic/couprecv_r8.F |
48 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8: calling MPI_Recv rank=',rank, |
|
./pkg/compon_communic/couprecv_r8.F |
50 |
COUPRECV_R8 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/couprecv_r8.F |
54 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8: returned ierr=',ierr |
|
./pkg/compon_communic/couprecv_r8.F |
55 |
COUPRECV_R8 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/couprecv_r8.F |
59 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8tiles: rank(W,G)=', |
|
./pkg/compon_communic/couprecv_r8.F |
72 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8tiles: Io,Ni=',Io,Ni |
|
./pkg/compon_communic/couprecv_r8.F |
76 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8tiles: Jo,Nj=',Jo,Nj |
|
./pkg/compon_communic/couprecv_r8.F |
82 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8: recvdname = ',recvdname |
|
./pkg/compon_communic/couprecv_r8.F |
83 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8: dataname = ',dataname |
|
./pkg/compon_communic/coupsend_r8tiles.F |
29 |
COUPSEND_R8TILES |
write(LogUnit,*) 'coupsend_r8tiles: compind = ',compind |
|
./pkg/compon_communic/coupsend_r8tiles.F |
33 |
COUPSEND_R8TILES |
& write(LogUnit,*) 'coupsend_r8tiles: ',component_Name(compind) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
35 |
COUPSEND_R8TILES |
& write(LogUnit,*) 'coupsend_r8tiles: dataname=',dataname |
|
./pkg/compon_communic/coupsend_r8tiles.F |
69 |
COUPSEND_R8TILES |
write(LogUnit,*) 'coupsend_r8tiles: calling MPI_Send dest=', |
|
./pkg/compon_communic/coupsend_r8tiles.F |
71 |
COUPSEND_R8TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
75 |
COUPSEND_R8TILES |
write(LogUnit,*) 'coupsend_r8tiles: returned ierr=',ierr |
|
./pkg/compon_communic/coupsend_r8tiles.F |
76 |
COUPSEND_R8TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
80 |
COUPSEND_R8TILES |
write(LogUnit,*) 'coupsend_r8tiles: rank(W,G)=', |
|
./pkg/compon_communic/comprecv_r8.F |
32 |
COMPRECV_R8 |
write(LogUnit,*) 'comprecv_r8: calling MPI_Recv rank=',rank |
|
./pkg/compon_communic/comprecv_r8.F |
33 |
COMPRECV_R8 |
write(LogUnit,*) 'comprecv_r8: dataname=',dataname |
|
./pkg/compon_communic/comprecv_r8.F |
34 |
COMPRECV_R8 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/comprecv_r8.F |
38 |
COMPRECV_R8 |
write(LogUnit,*) 'comprecv_r8: returned ierr=',ierr |
|
./pkg/compon_communic/comprecv_r8.F |
39 |
COMPRECV_R8 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/comprecv_r8.F |
43 |
COMPRECV_R8 |
write(LogUnit,*) 'comprecv_r8tiles: rank(W,G)=', |
|
./pkg/compon_communic/comprecv_r8.F |
61 |
COMPRECV_R8 |
write(LogUnit,*) 'comprecv_r8: recvdname = ',recvdname |
|
./pkg/compon_communic/comprecv_r8.F |
62 |
COMPRECV_R8 |
write(LogUnit,*) 'comprecv_r8: dataname = ',dataname |
|
./pkg/compon_communic/mitcomponent_register.F |
48 |
MITCOMPONENT_REGISTER |
write(LogUnit,*) 'MITCOMPONENT_register: rank(W,G,L)=', |
|
./pkg/compon_communic/mitcomponent_register.F |
55 |
MITCOMPONENT_REGISTER |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/compsend_r4.F |
47 |
COMPSEND_R4 |
write(LogUnit,*) 'compsend_r4: calling MPI_Send dest=',dest |
|
./pkg/compon_communic/compsend_r4.F |
48 |
COMPSEND_R4 |
write(LogUnit,*) 'compsend_r4: dataname=',dataname |
|
./pkg/compon_communic/compsend_r4.F |
49 |
COMPSEND_R4 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/compsend_r4.F |
53 |
COMPSEND_R4 |
write(LogUnit,*) 'compsend_r4: returned ierr=',ierr |
|
./pkg/compon_communic/compsend_r4.F |
54 |
COMPSEND_R4 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/compsend_r4.F |
58 |
COMPSEND_R4 |
write(LogUnit,*) 'compsend_r4: rank(W,G,L)=', |
|
./pkg/compon_communic/compsend_r8tiles.F |
57 |
COMPSEND_R8TILES |
write(LogUnit,*) |
|
./pkg/compon_communic/compsend_r8tiles.F |
59 |
COMPSEND_R8TILES |
write(LogUnit,*) 'compsend_r8tiles: dataname=',dataname |
|
./pkg/compon_communic/compsend_r8tiles.F |
60 |
COMPSEND_R8TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/compsend_r8tiles.F |
64 |
COMPSEND_R8TILES |
write(LogUnit,*) 'compsend_r8tiles: returned ierr=',ierr |
|
./pkg/compon_communic/compsend_r8tiles.F |
65 |
COMPSEND_R8TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/compsend_r8tiles.F |
69 |
COMPSEND_R8TILES |
write(LogUnit,*) 'compsend_r8tiles: rank(W,G,L)=', |
|
./pkg/compon_communic/couprecv_r8tiles.F |
31 |
COUPRECV_R8TILES |
write(LogUnit,*) 'couprecv_r8tiles: compind = ',compind |
|
./pkg/compon_communic/couprecv_r8tiles.F |
35 |
COUPRECV_R8TILES |
& write(LogUnit,*) 'couprecv_r8tiles: ',component_Name(compind) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
37 |
COUPRECV_R8TILES |
& write(LogUnit,*) 'couprecv_r8tiles: dataname=',dataname |
|
./pkg/compon_communic/couprecv_r8tiles.F |
52 |
COUPRECV_R8TILES |
write(LogUnit,*) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
55 |
COUPRECV_R8TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
59 |
COUPRECV_R8TILES |
write(LogUnit,*) 'couprecv_r8tiles: returned ierr=',ierr |
|
./pkg/compon_communic/couprecv_r8tiles.F |
60 |
COUPRECV_R8TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
64 |
COUPRECV_R8TILES |
write(LogUnit,*) 'couprecv_r8tiles: rank(W,G)=', |
|
./pkg/compon_communic/couprecv_r8tiles.F |
77 |
COUPRECV_R8TILES |
write(LogUnit,*) 'couprecv_r8tiles: Io,Ni=',Io,Ni |
|
./pkg/compon_communic/couprecv_r8tiles.F |
81 |
COUPRECV_R8TILES |
write(LogUnit,*) 'couprecv_r8tiles: Jo,Nj=',Jo,Nj |
|
./pkg/compon_communic/couprecv_r8tiles.F |
95 |
COUPRECV_R8TILES |
write(LogUnit,*) 'couprecv_r8tiles: recvdname = ',recvdname |
|
./pkg/compon_communic/couprecv_r8tiles.F |
96 |
COUPRECV_R8TILES |
write(LogUnit,*) 'couprecv_r8tiles: dataname = ',dataname |
|
./pkg/compon_communic/comprecv_r4.F |
32 |
COMPRECV_R4 |
write(LogUnit,*) 'comprecv_r4: calling MPI_Recv rank=',rank |
|
./pkg/compon_communic/comprecv_r4.F |
33 |
COMPRECV_R4 |
write(LogUnit,*) 'comprecv_r4: dataname=',dataname |
|
./pkg/compon_communic/comprecv_r4.F |
34 |
COMPRECV_R4 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/comprecv_r4.F |
38 |
COMPRECV_R4 |
write(LogUnit,*) 'comprecv_r4: returned ierr=',ierr |
|
./pkg/compon_communic/comprecv_r4.F |
39 |
COMPRECV_R4 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/comprecv_r4.F |
43 |
COMPRECV_R4 |
write(LogUnit,*) 'comprecv_r4tiles: rank(W,G)=', |
|
./pkg/compon_communic/comprecv_r4.F |
61 |
COMPRECV_R4 |
write(LogUnit,*) 'comprecv_r4: recvdname = ',recvdname |
|
./pkg/compon_communic/comprecv_r4.F |
62 |
COMPRECV_R4 |
write(LogUnit,*) 'comprecv_r4: dataname = ',dataname |
|
./pkg/compon_communic/coupsend_r4.F |
29 |
COUPSEND_R4 |
write(LogUnit,*) 'coupsend_r4: compind = ',compind |
|
./pkg/compon_communic/coupsend_r4.F |
33 |
COUPSEND_R4 |
& write(LogUnit,*) 'coupsend_r4: ',component_Name(compind) |
|
./pkg/compon_communic/coupsend_r4.F |
35 |
COUPSEND_R4 |
& write(LogUnit,*) 'coupsend_r4: dataname=',dataname |
|
./pkg/compon_communic/coupsend_r4.F |
66 |
COUPSEND_R4 |
write(LogUnit,*) 'coupsend_r4: calling MPI_Send dest=',dest, |
|
./pkg/compon_communic/coupsend_r4.F |
68 |
COUPSEND_R4 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/coupsend_r4.F |
72 |
COUPSEND_R4 |
write(LogUnit,*) 'coupsend_r4: returned ierr=',ierr |
|
./pkg/compon_communic/coupsend_r4.F |
73 |
COUPSEND_R4 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/coupsend_r4.F |
77 |
COUPSEND_R4 |
write(LogUnit,*) 'coupsend_r4tiles: rank(W,G)=', |
|
./pkg/compon_communic/mitcplr_init2a.F |
17 |
MITCPLR_INIT2A |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ', |
|
./pkg/compon_communic/mitcplr_init2a.F |
21 |
MITCPLR_INIT2A |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ', |
|
./pkg/compon_communic/mitcplr_init2a.F |
23 |
MITCPLR_INIT2A |
if (VERB) write(LogUnit,*) 'MITCPLR_init2a: ', |
|
./pkg/compon_communic/mitcplr_init2a.F |
50 |
MITCPLR_INIT2A |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ', |
|
./pkg/compon_communic/mitcplr_init2a.F |
74 |
MITCPLR_INIT2A |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ', |
|
./pkg/compon_communic/mitcplr_init2a.F |
78 |
MITCPLR_INIT2A |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ', |
|
./pkg/compon_communic/mitcplr_init2a.F |
87 |
MITCPLR_INIT2A |
if (VERB) write(LogUnit,*) 'MITCPLR_init2a: ', |
|
./pkg/compon_communic/mitcplr_init2a.F |
93 |
MITCPLR_INIT2A |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/compsend_r4tiles.F |
57 |
COMPSEND_R4TILES |
write(LogUnit,*) |
|
./pkg/compon_communic/compsend_r4tiles.F |
59 |
COMPSEND_R4TILES |
write(LogUnit,*) 'compsend_r4tiles: dataname=',dataname |
|
./pkg/compon_communic/compsend_r4tiles.F |
60 |
COMPSEND_R4TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/compsend_r4tiles.F |
64 |
COMPSEND_R4TILES |
write(LogUnit,*) 'compsend_r4tiles: returned ierr=',ierr |
|
./pkg/compon_communic/compsend_r4tiles.F |
65 |
COMPSEND_R4TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/compsend_r4tiles.F |
69 |
COMPSEND_R4TILES |
write(LogUnit,*) 'compsend_r4tiles: rank(W,G,L)=', |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
101 |
MITCOUPLER_TILE_REGISTER |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
35 |
MITCOUPLER_TILE_REGISTER |
write(LogUnit,*) 'MITCOUPLER_tile_register: compind = ',compind |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
51 |
MITCOUPLER_TILE_REGISTER |
write(LogUnit,*) 'MITCOUPLER_tile_register: rank(W,G)=', |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
59 |
MITCOUPLER_TILE_REGISTER |
write(LogUnit,*) 'MITCOUPLER_tile_register: #tiles = ',numtiles |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
75 |
MITCOUPLER_TILE_REGISTER |
write(LogUnit,*) 'MITCOUPLER_tile_register: rank(W,G)=', |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
87 |
MITCOUPLER_TILE_REGISTER |
write(LogUnit,*) 'MITCOUPLER_tile_register:', |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
93 |
MITCOUPLER_TILE_REGISTER |
write(LogUnit,*) 'MITCOUPLER_tile_register:', |
|
./pkg/compon_communic/compsend_r8.F |
47 |
COMPSEND_R8 |
write(LogUnit,*) 'compsend_r8: calling MPI_Send dest=',dest |
|
./pkg/compon_communic/compsend_r8.F |
48 |
COMPSEND_R8 |
write(LogUnit,*) 'compsend_r8: dataname=',dataname |
|
./pkg/compon_communic/compsend_r8.F |
49 |
COMPSEND_R8 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/compsend_r8.F |
53 |
COMPSEND_R8 |
write(LogUnit,*) 'compsend_r8: returned ierr=',ierr |
|
./pkg/compon_communic/compsend_r8.F |
54 |
COMPSEND_R8 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/compsend_r8.F |
58 |
COMPSEND_R8 |
write(LogUnit,*) 'compsend_r8: rank(W,G,L)=', |
|
./pkg/compon_communic/comprecv_r4tiles.F |
38 |
COMPRECV_R4TILES |
write(LogUnit,*) 'comprecv_r4tiles: calling MPI_Recv rank=',rank |
|
./pkg/compon_communic/comprecv_r4tiles.F |
39 |
COMPRECV_R4TILES |
write(LogUnit,*) 'comprecv_r4tiles: dataname=',dataname |
|
./pkg/compon_communic/comprecv_r4tiles.F |
40 |
COMPRECV_R4TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
44 |
COMPRECV_R4TILES |
write(LogUnit,*) 'comprecv_r4tiles: returned ierr=',ierr |
|
./pkg/compon_communic/comprecv_r4tiles.F |
45 |
COMPRECV_R4TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
49 |
COMPRECV_R4TILES |
write(LogUnit,*) 'comprecv_r4tiles: rank(W,G)=', |
|
./pkg/compon_communic/comprecv_r4tiles.F |
67 |
COMPRECV_R4TILES |
write(LogUnit,*) 'comprecv_r4tiles: recvdname = ',recvdname |
|
./pkg/compon_communic/comprecv_r4tiles.F |
68 |
COMPRECV_R4TILES |
write(LogUnit,*) 'comprecv_r4tiles: dataname = ',dataname |
|
./pkg/compon_communic/couprecv_r4tiles.F |
31 |
COUPRECV_R4TILES |
write(LogUnit,*) 'couprecv_r4tiles: compind = ',compind |
|
./pkg/compon_communic/couprecv_r4tiles.F |
35 |
COUPRECV_R4TILES |
& write(LogUnit,*) 'couprecv_r4tiles: ',component_Name(compind) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
37 |
COUPRECV_R4TILES |
& write(LogUnit,*) 'couprecv_r4tiles: dataname=',dataname |
|
./pkg/compon_communic/couprecv_r4tiles.F |
52 |
COUPRECV_R4TILES |
write(LogUnit,*) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
55 |
COUPRECV_R4TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
59 |
COUPRECV_R4TILES |
write(LogUnit,*) 'couprecv_r4tiles: returned ierr=',ierr |
|
./pkg/compon_communic/couprecv_r4tiles.F |
60 |
COUPRECV_R4TILES |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
64 |
COUPRECV_R4TILES |
write(LogUnit,*) 'couprecv_r4tiles: rank(W,G)=', |
|
./pkg/compon_communic/couprecv_r4tiles.F |
77 |
COUPRECV_R4TILES |
write(LogUnit,*) 'couprecv_r4tiles: Io,Ni=',Io,Ni |
|
./pkg/compon_communic/couprecv_r4tiles.F |
81 |
COUPRECV_R4TILES |
write(LogUnit,*) 'couprecv_r4tiles: Jo,Nj=',Jo,Nj |
|
./pkg/compon_communic/couprecv_r4tiles.F |
95 |
COUPRECV_R4TILES |
write(LogUnit,*) 'couprecv_r4tiles: recvdname = ',recvdname |
|
./pkg/compon_communic/couprecv_r4tiles.F |
96 |
COUPRECV_R4TILES |
write(LogUnit,*) 'couprecv_r4tiles: dataname = ',dataname |
|
./pkg/compon_communic/couprecv_r4.F |
31 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4: compind = ',compind |
|
./pkg/compon_communic/couprecv_r4.F |
35 |
COUPRECV_R4 |
& write(LogUnit,*) 'couprecv_r4: ',component_Name(compind) |
|
./pkg/compon_communic/couprecv_r4.F |
37 |
COUPRECV_R4 |
& write(LogUnit,*) 'couprecv_r4: dataname=',dataname |
|
./pkg/compon_communic/couprecv_r4.F |
48 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4: calling MPI_Recv rank=',rank, |
|
./pkg/compon_communic/couprecv_r4.F |
50 |
COUPRECV_R4 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/couprecv_r4.F |
54 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4: returned ierr=',ierr |
|
./pkg/compon_communic/couprecv_r4.F |
55 |
COUPRECV_R4 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/couprecv_r4.F |
59 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4tiles: rank(W,G)=', |
|
./pkg/compon_communic/couprecv_r4.F |
72 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4tiles: Io,Ni=',Io,Ni |
|
./pkg/compon_communic/couprecv_r4.F |
76 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4tiles: Jo,Nj=',Jo,Nj |
|
./pkg/compon_communic/couprecv_r4.F |
82 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4: recvdname = ',recvdname |
|
./pkg/compon_communic/couprecv_r4.F |
83 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4: dataname = ',dataname |
|
./pkg/compon_communic/coupsend_r8.F |
29 |
COUPSEND_R8 |
write(LogUnit,*) 'coupsend_r8: compind = ',compind |
|
./pkg/compon_communic/coupsend_r8.F |
33 |
COUPSEND_R8 |
& write(LogUnit,*) 'coupsend_r8: ',component_Name(compind) |
|
./pkg/compon_communic/coupsend_r8.F |
35 |
COUPSEND_R8 |
& write(LogUnit,*) 'coupsend_r8: dataname=',dataname |
|
./pkg/compon_communic/coupsend_r8.F |
66 |
COUPSEND_R8 |
write(LogUnit,*) 'coupsend_r8: calling MPI_Send dest=',dest, |
|
./pkg/compon_communic/coupsend_r8.F |
68 |
COUPSEND_R8 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/coupsend_r8.F |
72 |
COUPSEND_R8 |
write(LogUnit,*) 'coupsend_r8: returned ierr=',ierr |
|
./pkg/compon_communic/coupsend_r8.F |
73 |
COUPSEND_R8 |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/coupsend_r8.F |
77 |
COUPSEND_R8 |
write(LogUnit,*) 'coupsend_r8tiles: rank(W,G)=', |
|
./pkg/compon_communic/mitcplr_init1.F |
221 |
MITCPLR_INIT1 |
open(LogUnit,file=cbuf,status='unknown',form='formatted') |
|
./pkg/compon_communic/mitcplr_init1.F |
222 |
MITCPLR_INIT1 |
write(LogUnit,'(2a)') '========================================', |
|
./pkg/compon_communic/mitcplr_init1.F |
224 |
MITCPLR_INIT1 |
write(LogUnit,*) 'This is "',myTypeStr,'"' |
|
./pkg/compon_communic/mitcplr_init1.F |
225 |
MITCPLR_INIT1 |
write(LogUnit,*) 'myid in MPI_COMM_World = ',myid |
|
./pkg/compon_communic/mitcplr_init1.F |
227 |
MITCPLR_INIT1 |
& write(LogUnit,*) 'myid in MPI_COMM_Global = ',j |
|
./pkg/compon_communic/mitcplr_init2b.F |
100 |
MITCPLR_INIT2B |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/mitcplr_init2b.F |
23 |
MITCPLR_INIT2B |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2b: ', |
|
./pkg/compon_communic/mitcplr_init2b.F |
27 |
MITCPLR_INIT2B |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2b: ', |
|
./pkg/compon_communic/mitcplr_init2b.F |
29 |
MITCPLR_INIT2B |
if (DEBUG) write(LogUnit,*) 'MITCPLR_init2b: ', |
|
./pkg/compon_communic/mitcplr_init2b.F |
58 |
MITCPLR_INIT2B |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2b: ', |
|
./pkg/compon_communic/mitcplr_init2b.F |
89 |
MITCPLR_INIT2B |
write(LogUnit,*) 'MITCPLR_init2b: ', |
|
./pkg/compon_communic/mitcplr_init2b.F |
93 |
MITCPLR_INIT2B |
write(LogUnit,*) 'MITCPLR_init2b: ', |
|
./pkg/compon_communic/mitcoupler_register.F |
102 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: proc,nx,ny = ',n, |
|
./pkg/compon_communic/mitcoupler_register.F |
107 |
MITCOUPLER_REGISTER |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/mitcoupler_register.F |
35 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: compind = ',compind |
|
./pkg/compon_communic/mitcoupler_register.F |
51 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: rank(W,G)=', |
|
./pkg/compon_communic/mitcoupler_register.F |
65 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_tile_register: #tiles = ',numtiles |
|
./pkg/compon_communic/mitcoupler_register.F |
69 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: nx = ',nx |
|
./pkg/compon_communic/mitcoupler_register.F |
73 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: ny = ',ny |
|
./pkg/compon_communic/mitcoupler_register.F |
77 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: i0 = ',i0 |
|
./pkg/compon_communic/mitcoupler_register.F |
81 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: j0 = ',j0 |
|
./pkg/compon_communic/mitcoupler_register.F |
85 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: i0 = ',i0 |
|
./pkg/compon_communic/mitcoupler_register.F |
89 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: j0 = ',j0 |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
104 |
MITCOMPONENT_TILE_REGISTER |
call FLUSH(LogUnit) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
39 |
MITCOMPONENT_TILE_REGISTER |
& write(LogUnit,*) 'MITCOMPONENT_tile_register: bi,bj=',bi,bj, |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
42 |
MITCOMPONENT_TILE_REGISTER |
if (VERB) write(LogUnit,*) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
48 |
MITCOMPONENT_TILE_REGISTER |
if (VERB) write(LogUnit,*) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
69 |
MITCOMPONENT_TILE_REGISTER |
write(LogUnit,*) 'MITCOMPONENT_tile_register: rank(W,G,L)=', |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
95 |
MITCOMPONENT_TILE_REGISTER |
write(LogUnit,*) 'MITCOMPONENT_tile_register: rank(W,G,L)=', |