| 1 |
C $Header: $ |
| 2 |
C $Name: $ |
| 3 |
|
| 4 |
! Special meanings/handles |
| 5 |
integer MITCPLR_COUPLER |
| 6 |
parameter(MITCPLR_COUPLER=59) |
| 7 |
|
| 8 |
logical DEBUG |
| 9 |
parameter (DEBUG=.TRUE.) |
| 10 |
logical VERB |
| 11 |
c parameter (VERB=.TRUE.) |
| 12 |
parameter (VERB=.FALSE.) |
| 13 |
|
| 14 |
! Parameters for fixed length declarations |
| 15 |
integer MAX_PROCS |
| 16 |
parameter(MAX_PROCS=128) |
| 17 |
|
| 18 |
integer MAX_IBUF |
| 19 |
parameter(MAX_IBUF=1024) |
| 20 |
|
| 21 |
integer MAXLEN_COMP_NAME |
| 22 |
parameter( MAXLEN_COMP_NAME=32 ) |
| 23 |
|
| 24 |
integer MAX_COMPONENTS |
| 25 |
parameter( MAX_COMPONENTS=10 ) |
| 26 |
|
| 27 |
integer MAX_TILES |
| 28 |
parameter( MAX_TILES=16 ) |
| 29 |
|
| 30 |
integer HEADER_SIZE |
| 31 |
parameter( HEADER_SIZE=8+MAXLEN_COMP_NAME ) |
| 32 |
|
| 33 |
integer MAX_R4_BUFLEN |
| 34 |
parameter( MAX_R4_BUFLEN=HEADER_SIZE+256*256 ) |
| 35 |
|
| 36 |
integer MAX_R8_BUFLEN |
| 37 |
parameter( MAX_R8_BUFLEN=HEADER_SIZE+256*256 ) |
| 38 |
|
| 39 |
integer LogUnit |
| 40 |
parameter( LogUnit=99 ) |
| 41 |
|
| 42 |
! Temporary arrays for local use |
| 43 |
c integer rank(MAX_PROCS) |
| 44 |
integer ibuf(MAX_IBUF) |
| 45 |
|
| 46 |
! The list of components |
| 47 |
integer num_components |
| 48 |
character*(MAXLEN_COMP_NAME) component_List(MAX_COMPONENTS) |
| 49 |
common /CPLR_COMP_LIST/ |
| 50 |
& num_components, |
| 51 |
& component_List |
| 52 |
|
| 53 |
! Coupler has duplicate copy of details |
| 54 |
integer num_coupler_procs |
| 55 |
integer rank_coupler_procs(MAX_PROCS) |
| 56 |
character*(MAXLEN_COMP_NAME) coupler_Name |
| 57 |
common /CPLR_COUPLER/ |
| 58 |
& num_coupler_procs, |
| 59 |
& rank_coupler_procs, |
| 60 |
& coupler_Name |
| 61 |
|
| 62 |
! Buffers |
| 63 |
real*4 r4buf(MAX_R4_BUFLEN) |
| 64 |
real*8 r8buf(MAX_R8_BUFLEN) |
| 65 |
common /CPLR_BUFFERS/ |
| 66 |
& r4buf,r8buf |
| 67 |
|
| 68 |
! Information for communicating with my two communicators |
| 69 |
integer my_component_ind |
| 70 |
integer my_rank_in_world |
| 71 |
integer MPI_COMM_mylocal |
| 72 |
integer num_procs_in_local |
| 73 |
integer my_rank_in_local |
| 74 |
integer MPI_COMM_myglobal |
| 75 |
integer num_procs_in_global |
| 76 |
integer my_rank_in_global |
| 77 |
integer my_coupler_rank |
| 78 |
integer my_num_tiles |
| 79 |
integer my_tile_nx(MAX_TILES) |
| 80 |
integer my_tile_ny(MAX_TILES) |
| 81 |
integer my_tile_i0(MAX_TILES) |
| 82 |
integer my_tile_j0(MAX_TILES) |
| 83 |
integer my_tile_bi(MAX_TILES) |
| 84 |
integer my_tile_bj(MAX_TILES) |
| 85 |
character*(MAXLEN_COMP_NAME) my_component_name |
| 86 |
common /CPLR_IDENT/ |
| 87 |
& my_component_ind, |
| 88 |
& my_rank_in_world, |
| 89 |
& MPI_COMM_mylocal, |
| 90 |
& num_procs_in_local, |
| 91 |
& my_rank_in_local, |
| 92 |
& MPI_COMM_myglobal, |
| 93 |
& num_procs_in_global, |
| 94 |
a my_rank_in_global, |
| 95 |
& my_coupler_rank, |
| 96 |
& my_num_tiles, |
| 97 |
& my_tile_nx, |
| 98 |
& my_tile_ny, |
| 99 |
& my_tile_i0, |
| 100 |
& my_tile_j0, |
| 101 |
& my_tile_bi, |
| 102 |
& my_tile_bj, |
| 103 |
& my_component_name |
| 104 |
|
| 105 |
! The components details |
| 106 |
integer num_component_procs(MAX_COMPONENTS) |
| 107 |
integer rank_component_procs(MAX_PROCS,MAX_COMPONENTS) |
| 108 |
integer num_compcplr_procs(MAX_COMPONENTS) |
| 109 |
integer rank_compcplr_procs(MAX_PROCS,MAX_COMPONENTS) |
| 110 |
integer MPI_COMM_component(MAX_COMPONENTS) |
| 111 |
integer MPI_COMM_compcplr(MAX_COMPONENTS) |
| 112 |
integer component_num_tiles(MAX_PROCS,MAX_COMPONENTS) |
| 113 |
integer component_tile_nx(MAX_TILES,MAX_PROCS,MAX_COMPONENTS) |
| 114 |
integer component_tile_ny(MAX_TILES,MAX_PROCS,MAX_COMPONENTS) |
| 115 |
integer component_tile_i0(MAX_TILES,MAX_PROCS,MAX_COMPONENTS) |
| 116 |
integer component_tile_j0(MAX_TILES,MAX_PROCS,MAX_COMPONENTS) |
| 117 |
character*(MAXLEN_COMP_NAME) component_Name(MAX_COMPONENTS) |
| 118 |
common /CPLR_COMPONENTS/ |
| 119 |
& num_component_procs, |
| 120 |
& rank_component_procs, |
| 121 |
& num_compcplr_procs, |
| 122 |
& rank_compcplr_procs, |
| 123 |
& MPI_COMM_component, |
| 124 |
& MPI_COMM_compcplr, |
| 125 |
& component_num_tiles, |
| 126 |
& component_tile_nx, |
| 127 |
& component_tile_ny, |
| 128 |
& component_tile_i0, |
| 129 |
& component_tile_j0, |
| 130 |
& component_Name |
Parent Directory
| 
Revision Log
| 
Revision Graph