| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/mitcoupler_register.F |
28 |
MITCOUPLER_REGISTER |
integer j,numtiles,nx,ny,i0,j0 |
|
./pkg/compon_communic/mitcoupler_register.F |
61 |
MITCOUPLER_REGISTER |
numtiles=ibuf(1) |
|
./pkg/compon_communic/mitcoupler_register.F |
67 |
MITCOUPLER_REGISTER |
if (numtiles.ne.1) then |
|
./pkg/compon_communic/mitcoupler_register.F |
68 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_tile_register: #tiles = ',numtiles |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
28 |
MITCOUPLER_TILE_REGISTER |
integer j,numtiles |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
60 |
MITCOUPLER_TILE_REGISTER |
numtiles=ibuf(1) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
61 |
MITCOUPLER_TILE_REGISTER |
if (numtiles.lt.1 .or. numtiles.gt.MAX_TILES) then |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
62 |
MITCOUPLER_TILE_REGISTER |
write(LogUnit,*) 'MITCOUPLER_tile_register: #tiles = ',numtiles |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
65 |
MITCOUPLER_TILE_REGISTER |
component_num_tiles(n,compind)=numtiles |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
67 |
MITCOUPLER_TILE_REGISTER |
do j=1,numtiles |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
99 |
MITCOUPLER_TILE_REGISTER |
& ' num_tiles = ',numtiles |