Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:38:29 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
bf4be02920 Jean*0001 !=======================================================================
64955f1f80 Jean*0002       subroutine MITCOMPONENT_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 = .FALSE.
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_init2a( myTypeStr )
                0036 
                0037 !     ------------------------------------------------------------------
                0038       return
                0039       end
                0040 !=======================================================================