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