pkg/atm_ocn_coupler/accept_component_registrations.F

7f58e89433 Jean*0001 #include "CPP_OPTIONS.h"
                0002
                0003 CStartOfInterface
                0004       SUBROUTINE ACCEPT_COMPONENT_REGISTRATIONS
                0005 C     /==========================================================\
                0006 C     | SUBROUTINE ACCEPT_COMPONENT_REGISTRATIONS                |
                0007 C     | o Routine to coordinate registration of component other  |
                0008 C     |   component processes.                                   |
                0009 C     |==========================================================|
                0010 C     | During registration each component process sends its     |
                0011 C     | attributes. Currently attributes are the layout of tiles |
                0012 C     | that the process owns. The 'Coupler' component (i.e. this|
                0013 C     | process) stores these attributes. Subsequent transfers   |
                0014 C     | to/from the 'Coupler' process implicitly assume these    |
                0015 C     | gridding attributes. Only one set of attributes is       |
                0016 C     | allowed per process. The dimension arguments in the      |
                0017 C     | 'Coupler' process calls to the registration routine are  |
                0018 C     | used to check consistency. The tile interior extents     |
                0019 C     | registered by a component have to lie within the global  |
                0020 C     | extents set in the 'Coupler' process for that component. |
                0021 C     \==========================================================/
                0022       IMPLICIT NONE
                0023 C     === GLobal variables ==
                0024 #include "CPLIDS.h"
                0025 #include "ATMSIZE.h"
                0026 #include "OCNSIZE.h"
                0027 #include "ATMIDS.h"
                0028 #include "OCNIDS.h"
                0029
                0030 CEndOfInterface
                0031
                0032 C     === Local variables ===
                0033
                0034 C     During registration the coupler process collects attributes from each
                0035 C     of the "component" participants. It collects the attributes from each
                0036 C     participating component in turn. Individual components comprise of one
                0037 C     or more processes. Each component process does its own registration call
                0038 C     to report its attributes. The attributes that are collected
                0039 C     include information on the grid region that a particular process "owns"
                0040 C     and sends out information from.
                0041
                0042 C     Get attributes for atmosphere component.
                0043       CALL CPL_REGISTER_ATM
                0044
                0045 C     Get attributes for ocean component.
                0046       CALL CPL_REGISTER_OCN
                0047
                0048
                0049       RETURN
                0050       END