pkg/atm2d/initialise.F

09a6f3668a Jeff*0001 #include "ATM2D_OPTIONS.h"
                0002 #ifdef ATM2D_MPI_ON
                0003
                0004 CStartOfInterface
                0005       SUBROUTINE INITIALISE
                0006 C     /==========================================================\
                0007 C     | SUBROUTINE INITIALISE                                    |
                0008 C     | o Routine to initialise coupling component.              |
                0009 C     |==========================================================|
                0010 C     | Initialisation involves starting up MPI and then joining |
                0011 C     | the coupled configuration as a component with the special|
                0012 C     | name "Coupler". With the present MIT Coupler library     |
                0013 C     | only one process can register with the name "Coupler".   |
                0014 C     | This component is the process responsible for            |
                0015 C     | coordinating the transfer of data between other          |
                0016 C     | components and for mapping data from one components      |
                0017 C     | representation to anothers representation as appropriate.|
                0018 C     \==========================================================/
                0019       IMPLICIT NONE
                0020 C     === GLobal variables ==
                0021 #include "CPLIDS.h"
                0022
                0023 CEndOfInterface
                0024
                0025 C     === Local variables ===
                0026 C     iErr             - Error code
                0027 C     MPI_COMM_Coupler - Communicatior used by this component.
                0028 C                        Stored internally by the coupling library.
1aa77e172a Jean*0029 C     msgUnit          :: log-file I/O unit
09a6f3668a Jeff*0030       INTEGER iErr
                0031       INTEGER MPI_COMM_Coupler
1aa77e172a Jean*0032       INTEGER msgUnit
09a6f3668a Jeff*0033
                0034       CALL MPI_Init(iErr)
                0035
                0036 C--   Set the running directory (= rank_0 )
                0037       CALL SETDIR( 0 )
                0038
                0039 C     Register this process as the "coupler" participant. Currently there can
                0040 C     only be one coupler participant all others are "component" participants.
1aa77e172a Jean*0041       CALL MITCOUPLER_INIT(
                0042      I                      cplCompName,
                0043      O                      MPI_COMM_Coupler, msgUnit )
                0044
09a6f3668a Jeff*0045       CALL MITCOUPLER_INIT( cplCompName, MPI_COMM_Coupler )
                0046
                0047       RETURN
                0048       END
                0049 #endif