pkg/compon_communic/mitcoupler_init.F

bf4be02920 Jean*0001 !=======================================================================
64955f1f80 Jean*0002       subroutine MITCOUPLER_init(
                0003      I                      myTypeStr,
                0004      O                      MPI_COMM_local, msgUnit )
bf4be02920 Jean*0005       implicit none
                0006
                0007 ! MPI variables
                0008 #include "mpif.h"
                0009
                0010 ! Predefined constants/arrays
                0011 #include "CPLR_SIG.h"
                0012
191b8c84d5 Jean*0013 ! Arguments
                0014       character*(*) myTypeStr
                0015       integer MPI_COMM_local
64955f1f80 Jean*0016       integer msgUnit
191b8c84d5 Jean*0017
bf4be02920 Jean*0018 ! Functions
                0019
                0020 ! Local
                0021       logical couplerFlag
                0022
                0023 !     ------------------------------------------------------------------
                0024
                0025 ! Homogeneous registration phase (every process Bcasts)
64955f1f80 Jean*0026 !  also open a coupling log file (.clog) with I/O unit: LogUnit
                0027       couplerFlag = .TRUE.
bf4be02920 Jean*0028       call MITCPLR_init1( myTypeStr, couplerFlag )
64955f1f80 Jean*0029       msgUnit = LogUnit
bf4be02920 Jean*0030
                0031 ! Return the communicator for my component
191b8c84d5 Jean*0032       MPI_COMM_local = MPI_COMM_mylocal
bf4be02920 Jean*0033
                0034 ! Heterogeneous registration phase (within component incl. coupler)
                0035       call mitcplr_init2b( myTypeStr )
                0036
                0037 !     ------------------------------------------------------------------
                0038       return
                0039       end
                0040 !=======================================================================