| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
25 |
MITCOUPLER_TILE_REGISTER |
integer j,numtiles |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
57 |
MITCOUPLER_TILE_REGISTER |
numtiles=ibuf(1) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
58 |
MITCOUPLER_TILE_REGISTER |
if (numtiles.lt.1 .or. numtiles.gt.MAX_TILES) then |
|
./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 |
62 |
MITCOUPLER_TILE_REGISTER |
component_num_tiles(n,compind)=numtiles |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
64 |
MITCOUPLER_TILE_REGISTER |
do j=1,numtiles |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
96 |
MITCOUPLER_TILE_REGISTER |
& ' num_tiles = ',numtiles |
|
./pkg/compon_communic/mitcoupler_register.F |
25 |
MITCOUPLER_REGISTER |
integer j,numtiles,nx,ny,i0,j0 |
|
./pkg/compon_communic/mitcoupler_register.F |
58 |
MITCOUPLER_REGISTER |
numtiles=ibuf(1) |
|
./pkg/compon_communic/mitcoupler_register.F |
64 |
MITCOUPLER_REGISTER |
if (numtiles.ne.1) then |
|
./pkg/compon_communic/mitcoupler_register.F |
65 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_tile_register: #tiles = ',numtiles |