1 |
C $Header: $ |
2 |
C $Name: $ |
3 |
|
4 |
#include "ATM2D_OPTIONS.h" |
5 |
#ifdef ATM2D_MPI_ON |
6 |
|
7 |
CStartOfInterface |
8 |
SUBROUTINE ACCEPT_COMPONENT_REGISTRATIONS |
9 |
C /==========================================================\ |
10 |
C | SUBROUTINE ACCEPT_COMPONENT_REGISTRATIONS | |
11 |
C | o Routine to coordinate registration of component other | |
12 |
C | component processes. | |
13 |
C |==========================================================| |
14 |
C | During registration each component process sends its | |
15 |
C | attributes. Currently attributes are the layout of tiles | |
16 |
C | that the process owns. The 'Coupler' component (i.e. this| |
17 |
C | process) stores these attributes. Subsequent transfers | |
18 |
C | to/from the 'Coupler' process implicitly assume these | |
19 |
C | gridding attributes. Only one set of attributes is | |
20 |
C | allowed per process. The dimension arguments in the | |
21 |
C | 'Coupler' process calls to the registration routine are | |
22 |
C | used to check consistency. The tile interior extents | |
23 |
C | registered by a component have to lie within the global | |
24 |
C | extents set in the 'Coupler' process for that component. | |
25 |
C \==========================================================/ |
26 |
IMPLICIT NONE |
27 |
C === GLobal variables == |
28 |
#include "CPLIDS.h" |
29 |
#include "OCNSIZE.h" |
30 |
#include "OCNIDS.h" |
31 |
|
32 |
CEndOfInterface |
33 |
|
34 |
C === Local variables === |
35 |
|
36 |
C During registration the coupler process collects attributes from each |
37 |
C of the "component" participants. It collects the attributes from each |
38 |
C participating component in turn. Individual components comprise of one |
39 |
C or more processes. Each component process does its own registration call |
40 |
C to report its attributes. The attributes that are collected |
41 |
C include information on the grid region that a particular process "owns" |
42 |
C and sends out information from. |
43 |
|
44 |
C Get attributes for ocean component. |
45 |
CALL CPL_REGISTER_OCN |
46 |
|
47 |
|
48 |
RETURN |
49 |
END |
50 |
|
51 |
#endif |
52 |
|