mf_timemgrf.c

来自「CCSM Research Tools: Community Atmospher」· C语言 代码 · 共 687 行 · 第 1/2 页

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define mf_timemgrgetcurrdate_ PMF_TIMEMGRGETCURRDATE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define mf_timemgrgetcurrdate_ pmf_timemgrgetcurrdate__
#elif !defined(FORTRANUNDERSCORE)
#define mf_timemgrgetcurrdate_ pmf_timemgrgetcurrdate
#else

#define mf_timemgrgetcurrdate_ pmf_timemgrgetcurrdate_
#endif
#else
#ifdef FORTRANCAPS
#define mf_timemgrgetcurrdate_ MF_TIMEMGRGETCURRDATE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define mf_timemgrgetcurrdate_ mf_timemgrgetcurrdate__
#elif !defined(FORTRANUNDERSCORE)
#define mf_timemgrgetcurrdate_ mf_timemgrgetcurrdate
#endif
#endif


#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define mf_timemgrsetcurrdateis_ PMF_TIMEMGRSETCURRDATEIS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define mf_timemgrsetcurrdateis_ pmf_timemgrsetcurrdateis__
#elif !defined(FORTRANUNDERSCORE)
#define mf_timemgrsetcurrdateis_ pmf_timemgrsetcurrdateis
#else

#define mf_timemgrsetcurrdateis_ pmf_timemgrsetcurrdateis_
#endif
#else
#ifdef FORTRANCAPS
#define mf_timemgrsetcurrdateis_ MF_TIMEMGRSETCURRDATEIS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define mf_timemgrsetcurrdateis_ mf_timemgrsetcurrdateis__
#elif !defined(FORTRANUNDERSCORE)
#define mf_timemgrsetcurrdateis_ mf_timemgrsetcurrdateis
#endif
#endif


#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define mf_timemgrgetprevdate_ PMF_TIMEMGRGETPREVDATE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define mf_timemgrgetprevdate_ pmf_timemgrgetprevdate__
#elif !defined(FORTRANUNDERSCORE)
#define mf_timemgrgetprevdate_ pmf_timemgrgetprevdate
#else

#define mf_timemgrgetprevdate_ pmf_timemgrgetprevdate_
#endif
#else
#ifdef FORTRANCAPS
#define mf_timemgrgetprevdate_ MF_TIMEMGRGETPREVDATE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define mf_timemgrgetprevdate_ mf_timemgrgetprevdate__
#elif !defined(FORTRANUNDERSCORE)
#define mf_timemgrgetprevdate_ mf_timemgrgetprevdate
#endif
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define mf_timemgrrestartwriteis_ PMF_TIMEMGRRESTARTWRITEIS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define mf_timemgrrestartwriteis_ pmf_timemgrrestartwriteis__
#elif !defined(FORTRANUNDERSCORE)
#define mf_timemgrrestartwriteis_ pmf_timemgrrestartwriteis
#else

#define mf_timemgrrestartwriteis_ pmf_timemgrrestartwriteis_
#endif
#else
#ifdef FORTRANCAPS
#define mf_timemgrrestartwriteis_ MF_TIMEMGRRESTARTWRITEIS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define mf_timemgrrestartwriteis_ mf_timemgrrestartwriteis__
#elif !defined(FORTRANUNDERSCORE)
#define mf_timemgrrestartwriteis_ mf_timemgrrestartwriteis
#endif
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define mf_timemgrrestartreadis_ PMF_TIMEMGRRESTARTREADIS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define mf_timemgrrestartreadis_ pmf_timemgrrestartreadis__
#elif !defined(FORTRANUNDERSCORE)
#define mf_timemgrrestartreadis_ pmf_timemgrrestartreadis
#else

#define mf_timemgrrestartreadis_ pmf_timemgrrestartreadis_
#endif
#else
#ifdef FORTRANCAPS
#define mf_timemgrrestartreadis_ MF_TIMEMGRRESTARTREADIS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define mf_timemgrrestartreadis_ mf_timemgrrestartreadis__
#elif !defined(FORTRANUNDERSCORE)
#define mf_timemgrrestartreadis_ mf_timemgrrestartreadis
#endif
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define mf_timemgrdelete_ PMF_TIMEMGRDELETE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define mf_timemgrdelete_ pmf_timemgrdelete__
#elif !defined(FORTRANUNDERSCORE)
#define mf_timemgrdelete_ pmf_timemgrdelete
#else

#define mf_timemgrdelete_ pmf_timemgrdelete_
#endif
#else
#ifdef FORTRANCAPS
#define mf_timemgrdelete_ MF_TIMEMGRDELETE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define mf_timemgrdelete_ mf_timemgrdelete__
#elif !defined(FORTRANUNDERSCORE)
#define mf_timemgrdelete_ mf_timemgrdelete
#endif
#endif

/* Definitions of Fortran Wrapper routines */
#if defined(__cplusplus)
extern "C" {
#endif


void   mf_timemgrinit_(MF_TimeMgr this, MF_Time stepSize,
		       MF_Date startDate, MF_Date stopDate,
		       MF_Date baseDate, int *rc)
{
  *rc = MF_TimeMgrConstruct(this, stepSize, startDate, stopDate, baseDate);
}



void  mf_timemgrinitis_(MF_TimeMgr this, 
			int *stepDays, int *stepSecs,
			int *startCalendarDate, int *startTOD,
			int *stopCalendarDate, int *stopTOD,
			int *baseCalendarDate, int *baseTOD,
			MF_CalendarType *type, int *rc)
{
  *rc = MF_TimeMgrConstructIS(this, *stepDays, *stepSecs, *startCalendarDate, 
			*startTOD, *stopCalendarDate, *stopTOD,
			*baseCalendarDate, *baseTOD, *type);
}



void  mf_timemgrinitnobase_(MF_TimeMgr this, MF_Time stepSize,
			    MF_Date startDate, MF_Date stopDate, int *rc)
{
  *rc = MF_TimeMgrConstructNoBase(this, stepSize, startDate, stopDate);
}



void  mf_timemgrinitnobaseis_(MF_TimeMgr this, 
			      int *stepDays, int *stepSecs,
			      int *startCalendarDate, int *startTOD,
			      int *stopCalendarDate, int *stopTOD,
			      int *baseCalendarDate, int *baseTOD,
			      MF_CalendarType *type, int *rc)
{
  *rc = MF_TimeMgrConstructNoBaseIS(this, *stepDays, *stepSecs, *startCalendarDate, 
			      *startTOD, *stopCalendarDate, *stopTOD, *type);
}



void  mf_timemgradvance_(MF_TimeMgr this, int *rc)
{
  *rc = MF_TimeMgrAdvance(this);
}



void mf_timemgrlaststep_(MF_TimeMgr this, MF_Bool *lastStep, int *rc)
{
  *rc = MF_TimeMgrLastStep(this, lastStep);
}



void mf_timemgrsetstepsizestd_(MF_TimeMgr this, MF_Time stepSize, int *rc)
{
  *rc = MF_TimeMgrSetStepSize(this, stepSize);
}



void mf_timemgrgetstepsizestd_(MF_TimeMgr this, MF_Time stepSize, int *rc)
{
  *rc = MF_TimeMgrGetStepSize(this, stepSize);
}




void mf_timemgrsetstepsizeis_(MF_TimeMgr this, int *days, int *seconds, int *rc)
{
  *rc = MF_TimeMgrSetStepSizeIS(this, *days, *seconds);
}



void mf_timemgrgetstepsizeis_(MF_TimeMgr this, int *days, int *seconds, int *rc)
{
  *rc = MF_TimeMgrGetStepSizeIS(this, days, seconds);
}



void mf_timemgrgetnstep_(MF_TimeMgr this, int *nstep, int *rc)
{
  *rc = MF_TimeMgrGetNStep(this, nstep);
}



void mf_timemgrsetnstep_(MF_TimeMgr this, int *nstep, int *rc)
{
  *rc = MF_TimeMgrSetNStep(this, *nstep);
}


void mf_timemgrgetstartdate_(MF_TimeMgr this, MF_Date startDate, int *rc)
{
  *rc = MF_TimeMgrGetStartDate(this, startDate);
}



void mf_timemgrgetstopdate_(MF_TimeMgr this, MF_Date stopDate, int *rc)
{
  *rc = MF_TimeMgrGetStopDate(this, stopDate);

}



void mf_timemgrgetbasedate_(MF_TimeMgr this, MF_Date baseDate, int *rc)
{
  *rc = MF_TimeMgrGetBaseDate(this, baseDate);
}



void mf_timemgrgetcurrdate_(MF_TimeMgr this, MF_Date currDate, int *rc)
{
  *rc = MF_TimeMgrGetCurrDate(this, currDate);
}



void mf_timemgrsetcurrdateis_(MF_TimeMgr this, int *dateYYMMDD, int *tod, int *rc)
{
  *rc = MF_TimeMgrSetCurrDateIS(this, *dateYYMMDD, *tod);
}



void mf_timemgrgetprevdate_(MF_TimeMgr this, MF_Date prevDate, int *rc)
{
  *rc = MF_TimeMgrGetPrevDate(this, prevDate);
}



void mf_timemgrrestartwriteis_(MF_TimeMgr this,
			       MF_CalendarType *type,
			       int *nstep,
			       int *stepDays, int *stepSec,
			       int *startYYMMDD, int *startSec,
			       int *stopYYMMDD, int *stopSec,
			       int *baseYYMMDD, int *baseSec,
			       int *currYYMMDD, int *currSec,
			       int *rc)
{
  *rc = MF_TimeMgrRestartWriteIS(this,
				 type,
				 nstep,
				 stepDays, stepSec,
				 startYYMMDD, startSec,
				 stopYYMMDD, stopSec,
				 baseYYMMDD, baseSec,
				 currYYMMDD, currSec);
}



void mf_timemgrrestartreadis_(MF_TimeMgr this,
			      MF_CalendarType *type,
			      int *nstep,
			      int *stepDays, int *stepSec,
			      int *startYYMMDD, int *startSec,
			      int *stopYYMMDD, int *stopSec,
			      int *baseYYMMDD, int *baseSec,
			      int *currYYMMDD, int *currSec,
			      int *rc)
{
  *rc = MF_TimeMgrRestartReadIS(this,
				*type,
				*nstep,
				*stepDays, *stepSec,
				*startYYMMDD, *startSec,
				*stopYYMMDD, *stopSec,
				*baseYYMMDD, *baseSec,
				*currYYMMDD, *currSec);
}

#if defined(__cplusplus)
}
#endif