eesupp/src/ini_jam.F

C $Header: /u/gcmpack/models/MITgcmUV/eesupp/src/ini_jam.F,v 1.1 2000/03/14 16:10:23 adcroft Exp $

#include "CPP_EEOPTIONS.h"

#define USE_JAM_INIT

      SUBROUTINE INI_JAM

C     Initialise JAM based communication
      IMPLICIT NONE

#ifdef LETS_MAKE_JAM

C     == Global data ==
#include "SIZE.h"
#include "EEPARAMS.h"
#include "EESUPPORT.h"

#include "JAM_INFO.h"
#include "MPI_INFO.h"

#ifdef ALLOW_MPI
#include "mpif.h"
#endif

C     == Local variables ==
      Real*8  dummyVal
      INTEGER rc
      CHARACTER*(MAX_LEN_FNAM) fnam
#ifdef JAM_WITH_TWO_PROCS_PER_NODE
      INTEGER myTwoProcRank
#endif

C     Names used in JAM exch testing for MPI based exchange
      mpi_northId = mpiPidN
      mpi_southId = mpiPidS

#ifdef USE_JAM_INIT
C     JAM initialisation. This should work with or without
C     MPI. If we dont use MPI we have to start procs. by hand
C     though!
#ifndef JAM_WITH_TWO_PROCS_PER_NODE
      CALL JAM_collective_init
#else  /* ! JAM_WITH_TWO_PROCS_PER_NODE */
      myTwoProcRank = MOD(myProcId,2)
      IF ( myTwoProcRank .EQ. 0 ) THEN
       myTwoProcRank = 1
      ELSE
       myTwoProcRank = 0
      ENDIF
      CALL JAM_collective_init( myTwoProcRank )
#endif /* JAM_WITH_TWO_PROCS_PER_NODE */

      CALL GET_JAM_self_address(   jam_pid )
      CALL GET_JAM_partition_size( jam_np  )
      jam_exchKey = 100
      dummyVal    = 0.
      CALL JAM_barrier_start( dummyVal )
      CALL JAM_barrier_done(  dummyVal )

C     Set up connectivity
      jam_northId = jam_pid+1
      IF ( jam_northId .EQ. jam_np ) jam_northId = 0
      jam_southId = jam_pid-1
      IF ( jam_southId .LT. 0      ) jam_southId = jam_np-1

      numberOfProcs = jam_np
      myProcId      = jam_pid

#endif
#endif /* LETS_MAKE_JAM */

      RETURN
      END
1	C $Header: /u/gcmpack/models/MITgcmUV/eesupp/src/ini_jam.F,v 1.1 2000/03/14 16:10:23 adcroft Exp $
2
3	#include "CPP_EEOPTIONS.h"
4
5	#define USE_JAM_INIT
6
7	SUBROUTINE INI_JAM
8
9	C Initialise JAM based communication
10	IMPLICIT NONE
11
12	#ifdef LETS_MAKE_JAM
13
14	C == Global data ==
15	#include "SIZE.h"
16	#include "EEPARAMS.h"
17	#include "EESUPPORT.h"
18
19	#include "JAM_INFO.h"
20	#include "MPI_INFO.h"
21
22	#ifdef ALLOW_MPI
23	#include "mpif.h"
24	#endif
25
26	C == Local variables ==
27	Real*8 dummyVal
28	INTEGER rc
29	CHARACTER*(MAX_LEN_FNAM) fnam
30	#ifdef JAM_WITH_TWO_PROCS_PER_NODE
31	INTEGER myTwoProcRank
32	#endif
33
34	C Names used in JAM exch testing for MPI based exchange
35	mpi_northId = mpiPidN
36	mpi_southId = mpiPidS
37
38	#ifdef USE_JAM_INIT
39	C JAM initialisation. This should work with or without
40	C MPI. If we dont use MPI we have to start procs. by hand
41	C though!
42	#ifndef JAM_WITH_TWO_PROCS_PER_NODE
43	CALL JAM_collective_init
44	#else /* ! JAM_WITH_TWO_PROCS_PER_NODE */
45	myTwoProcRank = MOD(myProcId,2)
46	IF ( myTwoProcRank .EQ. 0 ) THEN
47	myTwoProcRank = 1
48	ELSE
49	myTwoProcRank = 0
50	ENDIF
51	CALL JAM_collective_init( myTwoProcRank )
52	#endif /* JAM_WITH_TWO_PROCS_PER_NODE */
53
54	CALL GET_JAM_self_address( jam_pid )
55	CALL GET_JAM_partition_size( jam_np )
56	jam_exchKey = 100
57	dummyVal = 0.
58	CALL JAM_barrier_start( dummyVal )
59	CALL JAM_barrier_done( dummyVal )
60
61	C Set up connectivity
62	jam_northId = jam_pid+1
63	IF ( jam_northId .EQ. jam_np ) jam_northId = 0
64	jam_southId = jam_pid-1
65	IF ( jam_southId .LT. 0 ) jam_southId = jam_np-1
66
67	numberOfProcs = jam_np
68	myProcId = jam_pid
69
70	#endif
71	#endif /* LETS_MAKE_JAM */
72
73	RETURN
74	END