1 |
jmc |
1.4 |
C $Header: /u/gcmpack/MITgcm/pkg/compon_communic/mitcoupler_init.F,v 1.3 2013/11/27 21:48:30 jmc Exp $ |
2 |
jmc |
1.2 |
C $Name: $ |
3 |
|
|
|
4 |
jmc |
1.1 |
!======================================================================= |
5 |
jmc |
1.4 |
subroutine MITCOUPLER_init( |
6 |
|
|
I myTypeStr, |
7 |
|
|
O MPI_COMM_local, msgUnit ) |
8 |
jmc |
1.1 |
implicit none |
9 |
|
|
|
10 |
|
|
! MPI variables |
11 |
|
|
#include "mpif.h" |
12 |
|
|
|
13 |
|
|
! Predefined constants/arrays |
14 |
|
|
#include "CPLR_SIG.h" |
15 |
|
|
|
16 |
jmc |
1.3 |
! Arguments |
17 |
|
|
character*(*) myTypeStr |
18 |
|
|
integer MPI_COMM_local |
19 |
jmc |
1.4 |
integer msgUnit |
20 |
jmc |
1.3 |
|
21 |
jmc |
1.1 |
! Functions |
22 |
|
|
|
23 |
|
|
! Local |
24 |
|
|
logical couplerFlag |
25 |
|
|
|
26 |
|
|
! ------------------------------------------------------------------ |
27 |
|
|
|
28 |
|
|
! Homogeneous registration phase (every process Bcasts) |
29 |
jmc |
1.4 |
! also open a coupling log file (.clog) with I/O unit: LogUnit |
30 |
|
|
couplerFlag = .TRUE. |
31 |
jmc |
1.1 |
call MITCPLR_init1( myTypeStr, couplerFlag ) |
32 |
jmc |
1.4 |
msgUnit = LogUnit |
33 |
jmc |
1.1 |
|
34 |
|
|
! Return the communicator for my component |
35 |
jmc |
1.3 |
MPI_COMM_local = MPI_COMM_mylocal |
36 |
jmc |
1.1 |
|
37 |
|
|
! Heterogeneous registration phase (within component incl. coupler) |
38 |
|
|
call mitcplr_init2b( myTypeStr ) |
39 |
|
|
|
40 |
|
|
! ------------------------------------------------------------------ |
41 |
|
|
return |
42 |
|
|
end |
43 |
|
|
!======================================================================= |