llc_90/code-async/asyncio_bron_f2c.c

#include <mpi.h>
void bron_f1(MPI_Comm *, int *, int *, MPI_Comm *);
void bron_f2(int *);
void bron_f3(char *, int *, int *, void *);
void bron_f4(int *);

// Initialization function. 
// Only compute ranks return.
void asyncio_bron_f_f1_( MPI_Comm *mpiCommParent,
                         int *mpiComputeNP,
                         int *totalNumTiles,
                         MPI_Comm *mpiCommCompute ) { 
 bron_f1(mpiCommParent, mpiComputeNP, totalNumTiles, mpiCommCompute );
}

// Each compute rank calls this to register the
// tileID(s) it owns. For multiple tileIDs per
// rank call multiple times. Indicate that 
// registration is finished by calling with tileID=-1
void asyncio_bron_f_f2_( int *tileID ) {
 bron_f2(tileID);
}

// Call this from each rank to post data for writing.
// fldNum is a numeric code for field to write (passing strings between
// Fortran and C is a pain). epochID is timestep number.
void asyncio_bron_f_f3_( int *fldNum, int *tileID, int *epochID, void *data){
 char fldCode;
 //if ( *fldNum == 1 ) { fldCode='u'; }
 //if ( *fldNum == 2 ) { fldCode='v'; }
 //if ( *fldNum == 3 ) { fldCode='t'; }
 //if ( *fldNum == 4 ) { fldCode='s'; }
 //if ( *fldNum == 5 ) { fldCode='x'; }
 //if ( *fldNum == 6 ) { fldCode='y'; }
 //if ( *fldNum == 7 ) { fldCode='n'; }
 //if ( *fldNum == 8 ) { fldCode='d'; }
 //if ( *fldNum == 9 ) { fldCode='h'; }

 //if ( *fldNum == 10 ) { fldCode='a'; }  // seaice fields
 //if ( *fldNum == 11 ) { fldCode='b'; }
 //if ( *fldNum == 12 ) { fldCode='c'; }
 //if ( *fldNum == 13 ) { fldCode='d'; }
 //if ( *fldNum == 14 ) { fldCode='e'; }
 //if ( *fldNum == 15 ) { fldCode='f'; }
 //if ( *fldNum == 16 ) { fldCode='g'; }
 fldCode = *fldNum;
 bron_f3(&fldCode, tileID, epochID, data);
}

// Call this once from one rank to make I/O ranks clean up and
// finish/return. Indicate that the compute 
// ranks are done processing and sending data.
void asyncio_bron_f_f4_( int *epochID ){
 bron_f4(epochID);
}
1	dimitri	1.1	#include <mpi.h>
2			void bron_f1(MPI_Comm , int , int , MPI_Comm );
3			void bron_f2(int *);
4			void bron_f3(char , int , int , void );
5			void bron_f4(int *);
6
7			// Initialization function.
8			// Only compute ranks return.
9			void asyncio_bron_f_f1_( MPI_Comm *mpiCommParent,
10			int *mpiComputeNP,
11			int *totalNumTiles,
12			MPI_Comm *mpiCommCompute ) {
13			bron_f1(mpiCommParent, mpiComputeNP, totalNumTiles, mpiCommCompute );
14			}
15
16			// Each compute rank calls this to register the
17			// tileID(s) it owns. For multiple tileIDs per
18			// rank call multiple times. Indicate that
19			// registration is finished by calling with tileID=-1
20			void asyncio_bron_f_f2_( int *tileID ) {
21			bron_f2(tileID);
22			}
23
24			// Call this from each rank to post data for writing.
25			// fldNum is a numeric code for field to write (passing strings between
26			// Fortran and C is a pain). epochID is timestep number.
27			void asyncio_bron_f_f3_( int fldNum, int tileID, int epochID, void data){
28			char fldCode;
29			//if ( *fldNum == 1 ) { fldCode='u'; }
30			//if ( *fldNum == 2 ) { fldCode='v'; }
31			//if ( *fldNum == 3 ) { fldCode='t'; }
32			//if ( *fldNum == 4 ) { fldCode='s'; }
33			//if ( *fldNum == 5 ) { fldCode='x'; }
34			//if ( *fldNum == 6 ) { fldCode='y'; }
35			//if ( *fldNum == 7 ) { fldCode='n'; }
36			//if ( *fldNum == 8 ) { fldCode='d'; }
37			//if ( *fldNum == 9 ) { fldCode='h'; }
38
39			//if ( *fldNum == 10 ) { fldCode='a'; } // seaice fields
40			//if ( *fldNum == 11 ) { fldCode='b'; }
41			//if ( *fldNum == 12 ) { fldCode='c'; }
42			//if ( *fldNum == 13 ) { fldCode='d'; }
43			//if ( *fldNum == 14 ) { fldCode='e'; }
44			//if ( *fldNum == 15 ) { fldCode='f'; }
45			//if ( *fldNum == 16 ) { fldCode='g'; }
46			fldCode = *fldNum;
47			bron_f3(&fldCode, tileID, epochID, data);
48			}
49
50			// Call this once from one rank to make I/O ranks clean up and
51			// finish/return. Indicate that the compute
52			// ranks are done processing and sending data.
53			void asyncio_bron_f_f4_( int *epochID ){
54			bron_f4(epochID);
55			}