/[MITgcm]/MITgcm/eesupp/src/ini_jam.F
ViewVC logotype

Annotation of /MITgcm/eesupp/src/ini_jam.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.6 - (hide annotations) (download)
Sat Mar 27 03:51:51 2004 UTC (21 years, 3 months ago) by edhill
Branch: MAIN
CVS Tags: checkpoint57m_post, checkpoint57g_pre, checkpoint57s_post, checkpoint58b_post, checkpoint57b_post, checkpoint57g_post, checkpoint56b_post, checkpoint57y_post, checkpoint54d_post, checkpoint54e_post, checkpoint62c, checkpoint57r_post, checkpoint57d_post, checkpoint57i_post, checkpoint59, checkpoint58, checkpoint55, checkpoint54, checkpoint57, checkpoint56, checkpoint53, checkpoint58f_post, checkpoint57n_post, checkpoint58d_post, checkpoint58a_post, checkpoint57z_post, checkpoint54f_post, checkpoint62a, checkpoint58y_post, checkpoint55a_post, checkpoint58t_post, checkpoint55i_post, checkpoint57l_post, checkpoint57h_post, checkpoint57t_post, checkpoint55c_post, checkpoint57v_post, checkpoint57f_post, checkpoint53d_post, checkpoint60, checkpoint61, checkpoint62, checkpoint57a_post, checkpoint57h_pre, checkpoint57x_post, checkpoint54b_post, checkpoint58w_post, checkpoint52m_post, checkpoint57y_pre, checkpoint55g_post, checkpoint58o_post, checkpoint57c_post, checkpoint58p_post, checkpoint58q_post, checkpoint55d_post, checkpoint58e_post, checkpoint58m_post, checkpoint53c_post, checkpoint55d_pre, checkpoint57c_pre, checkpoint58r_post, checkpoint55j_post, checkpoint54a_post, checkpoint55h_post, checkpoint58n_post, checkpoint57e_post, checkpoint55b_post, checkpoint53a_post, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint55f_post, checkpoint59c, checkpoint59b, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, checkpoint53g_post, checkpoint57p_post, checkpint57u_post, checkpoint57q_post, mitgcm_mapl_00, eckpoint57e_pre, checkpoint58k_post, checkpoint62b, checkpoint58v_post, checkpoint56a_post, checkpoint58l_post, checkpoint53f_post, checkpoint54a_pre, checkpoint53b_pre, checkpoint57h_done, checkpoint57j_post, checkpoint57f_pre, checkpoint61f, checkpoint58g_post, checkpoint58x_post, checkpoint61n, checkpoint52n_post, checkpoint59j, checkpoint58h_post, checkpoint56c_post, checkpoint58j_post, checkpoint57a_pre, checkpoint57o_post, checkpoint61q, checkpoint57k_post, checkpoint61z, checkpoint53b_post, checkpoint57w_post, checkpoint61e, checkpoint58i_post, checkpoint58c_post, checkpoint58u_post, checkpoint53d_pre, checkpoint58s_post, checkpoint55e_post, checkpoint61g, checkpoint61d, checkpoint54c_post, checkpoint61b, checkpoint61c, checkpoint61a, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61x, checkpoint61y
Changes since 1.5: +2 -2 lines 
 o cleanup comments (NO CODE CHANGES) in eesupp for protex
 o the "api reference" framework now builds documentation for:
     eesupp, pkg/generic_advdiff, and pkg/gmredi
 o remove mnc from the default gfd in pkg_groups pending
     further testing on systems where NetCDF is not installed
1 edhill 1.6 C $Header: /u/gcmpack/MITgcm/eesupp/src/ini_jam.F,v 1.5 2001/09/21 03:54:35 cnh Exp $
2 cnh 1.5 C $Name: $
3 adcroft 1.1
4     #include "CPP_EEOPTIONS.h"
5    
6     #define USE_JAM_INIT
7    
8 cnh 1.5 CBOP
9    
10     C !ROUTINE: INI_JAM
11    
12     C !INTERFACE:
13 adcroft 1.1 SUBROUTINE INI_JAM
14 cnh 1.5 IMPLICIT NONE
15 adcroft 1.1
16 cnh 1.5 C !DESCRIPTION:
17     C *=================================================================================*
18 edhill 1.6 C | SUBROUTINE INI\_JAM
19 cnh 1.5 C | o Initialise JAM based communication
20     C *=================================================================================*
21     C | Connect to synchronising daemon process that allocates jam network ids to
22     C | each process and initialises network once all processes are connected.
23     C *=================================================================================*
24 adcroft 1.1
25    
26 cnh 1.5 C !USES:
27 adcroft 1.1 C == Global data ==
28 cnh 1.5 #ifdef LETS_MAKE_JAM
29 adcroft 1.1 #include "SIZE.h"
30     #include "EEPARAMS.h"
31     #include "EESUPPORT.h"
32     #include "JAM_INFO.h"
33     #include "MPI_INFO.h"
34     #ifdef ALLOW_MPI
35     #include "mpif.h"
36     #endif
37    
38 cnh 1.5 C !LOCAL VARIABLES:
39 adcroft 1.1 C == Local variables ==
40 cnh 1.5 C dummyVal :: Variable which is used in sync. call
41     C rc :: Return code
42     C myTwoProcRank :: Temp. for holding ranking within processor pairs.
43 adcroft 1.2 Real*8 dummyVal
44 adcroft 1.1 INTEGER rc
45     #ifdef JAM_WITH_TWO_PROCS_PER_NODE
46     INTEGER myTwoProcRank
47     #endif
48 cnh 1.5 CEOP
49 adcroft 1.1
50     C Names used in JAM exch testing for MPI based exchange
51     mpi_northId = mpiPidN
52     mpi_southId = mpiPidS
53    
54     #ifdef USE_JAM_INIT
55     C JAM initialisation. This should work with or without
56     C MPI. If we dont use MPI we have to start procs. by hand
57     C though!
58     #ifndef JAM_WITH_TWO_PROCS_PER_NODE
59     CALL JAM_collective_init
60     #else /* ! JAM_WITH_TWO_PROCS_PER_NODE */
61     myTwoProcRank = MOD(myProcId,2)
62     IF ( myTwoProcRank .EQ. 0 ) THEN
63     myTwoProcRank = 1
64     ELSE
65     myTwoProcRank = 0
66     ENDIF
67     CALL JAM_collective_init( myTwoProcRank )
68     #endif /* JAM_WITH_TWO_PROCS_PER_NODE */
69    
70     CALL GET_JAM_self_address( jam_pid )
71     CALL GET_JAM_partition_size( jam_np )
72     jam_exchKey = 100
73     dummyVal = 0.
74     CALL JAM_barrier_start( dummyVal )
75     CALL JAM_barrier_done( dummyVal )
76    
77     C Set up connectivity
78     jam_northId = jam_pid+1
79     IF ( jam_northId .EQ. jam_np ) jam_northId = 0
80     jam_southId = jam_pid-1
81     IF ( jam_southId .LT. 0 ) jam_southId = jam_np-1
82    
83     numberOfProcs = jam_np
84     myProcId = jam_pid
85 adcroft 1.3
86     #ifdef JAM_WITH_TWO_PROCS_PER_NODE
87     C The following fixes the instance where MPI and
88     C James JAM arrive at a different id for this process
89     C *note* this assumes nPx=1 (no parallization in X)
90     myPid = jam_pid
91     pidN = mod(jam_pid+1,jam_np)
92     pidS = mod(jam_pid-1+jam_np,jam_np)
93     pidW = jam_pid
94     pidE = jam_pid
95     myYGlobalLo = sNy*nSy*jam_pid+1
96     myXGlobalLo = 1
97     #endif
98 adcroft 1.1
99     #endif
100     #endif /* LETS_MAKE_JAM */
101    
102     RETURN
103     END
  ViewVC Help
Powered by ViewVC 1.1.22