esmc_timemgrf.c

CCSM Research Tools: Community Atmosphere Model (CAM)

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgrgetcurrdate_ PESMC_TIMEMGRGETCURRDATE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrgetcurrdate_ pesmc_timemgrgetcurrdate__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrgetcurrdate_ pesmc_timemgrgetcurrdate
#else

#define esmc_timemgrgetcurrdate_ pesmc_timemgrgetcurrdate_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgrgetcurrdate_ ESMC_TIMEMGRGETCURRDATE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrgetcurrdate_ esmc_timemgrgetcurrdate__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrgetcurrdate_ esmc_timemgrgetcurrdate
#endif
#endif


#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgrsetcurrdateis_ PESMC_TIMEMGRSETCURRDATEIS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrsetcurrdateis_ pesmc_timemgrsetcurrdateis__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrsetcurrdateis_ pesmc_timemgrsetcurrdateis
#else

#define esmc_timemgrsetcurrdateis_ pesmc_timemgrsetcurrdateis_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgrsetcurrdateis_ ESMC_TIMEMGRSETCURRDATEIS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrsetcurrdateis_ esmc_timemgrsetcurrdateis__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrsetcurrdateis_ esmc_timemgrsetcurrdateis
#endif
#endif


#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgrgetprevdate_ PESMC_TIMEMGRGETPREVDATE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrgetprevdate_ pesmc_timemgrgetprevdate__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrgetprevdate_ pesmc_timemgrgetprevdate
#else

#define esmc_timemgrgetprevdate_ pesmc_timemgrgetprevdate_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgrgetprevdate_ ESMC_TIMEMGRGETPREVDATE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrgetprevdate_ esmc_timemgrgetprevdate__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrgetprevdate_ esmc_timemgrgetprevdate
#endif
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgrrestartwriteis_ PESMC_TIMEMGRRESTARTWRITEIS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrrestartwriteis_ pesmc_timemgrrestartwriteis__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrrestartwriteis_ pesmc_timemgrrestartwriteis
#else

#define esmc_timemgrrestartwriteis_ pesmc_timemgrrestartwriteis_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgrrestartwriteis_ ESMC_TIMEMGRRESTARTWRITEIS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrrestartwriteis_ esmc_timemgrrestartwriteis__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrrestartwriteis_ esmc_timemgrrestartwriteis
#endif
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgrrestartreadis_ PESMC_TIMEMGRRESTARTREADIS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrrestartreadis_ pesmc_timemgrrestartreadis__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrrestartreadis_ pesmc_timemgrrestartreadis
#else

#define esmc_timemgrrestartreadis_ pesmc_timemgrrestartreadis_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgrrestartreadis_ ESMC_TIMEMGRRESTARTREADIS
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrrestartreadis_ esmc_timemgrrestartreadis__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrrestartreadis_ esmc_timemgrrestartreadis
#endif
#endif

#ifdef MPI_BUILD_PROFILING
#ifdef FORTRANCAPS
#define esmc_timemgrdelete_ PESMC_TIMEMGRDELETE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrdelete_ pesmc_timemgrdelete__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrdelete_ pesmc_timemgrdelete
#else

#define esmc_timemgrdelete_ pesmc_timemgrdelete_
#endif
#else
#ifdef FORTRANCAPS
#define esmc_timemgrdelete_ ESMC_TIMEMGRDELETE
#elif defined(FORTRANDOUBLEUNDERSCORE)
#define esmc_timemgrdelete_ esmc_timemgrdelete__
#elif !defined(FORTRANUNDERSCORE)
#define esmc_timemgrdelete_ esmc_timemgrdelete
#endif
#endif

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


void   esmc_timemgrinit_(ESMC_TimeMgr this, ESMC_Time stepSize,
		       ESMC_Date startDate, ESMC_Date stopDate,
		       ESMC_Date baseDate, int *rc)
{
  *rc = ESMC_TimeMgrConstruct(this, stepSize, startDate, stopDate, baseDate);
}



void  esmc_timemgrinitis_(ESMC_TimeMgr this, 
			int *stepDays, int *stepSecs,
			int *startCalendarDate, int *startTOD,
			int *stopCalendarDate, int *stopTOD,
			int *baseCalendarDate, int *baseTOD,
			ESMC_CalendarType *type, int *rc)
{
  *rc = ESMC_TimeMgrConstructIS(this, *stepDays, *stepSecs, *startCalendarDate, 
			*startTOD, *stopCalendarDate, *stopTOD,
			*baseCalendarDate, *baseTOD, *type);
}



void  esmc_timemgrinitnobase_(ESMC_TimeMgr this, ESMC_Time stepSize,
			    ESMC_Date startDate, ESMC_Date stopDate, int *rc)
{
  *rc = ESMC_TimeMgrConstructNoBase(this, stepSize, startDate, stopDate);
}



void  esmc_timemgrinitnobaseis_(ESMC_TimeMgr this, 
			      int *stepDays, int *stepSecs,
			      int *startCalendarDate, int *startTOD,
			      int *stopCalendarDate, int *stopTOD,
			      int *baseCalendarDate, int *baseTOD,
			      ESMC_CalendarType *type, int *rc)
{
  *rc = ESMC_TimeMgrConstructNoBaseIS(this, *stepDays, *stepSecs, *startCalendarDate, 
			      *startTOD, *stopCalendarDate, *stopTOD, *type);
}



void  esmc_timemgradvance_(ESMC_TimeMgr this, int *rc)
{
  *rc = ESMC_TimeMgrAdvance(this);
}



void esmc_timemgrlaststep_(ESMC_TimeMgr this, ESMC_Bool *lastStep, int *rc)
{
  *rc = ESMC_TimeMgrLastStep(this, lastStep);
}



void esmc_timemgrsetstepsizestd_(ESMC_TimeMgr this, ESMC_Time stepSize, int *rc)
{
  *rc = ESMC_TimeMgrSetStepSize(this, stepSize);
}



void esmc_timemgrgetstepsizestd_(ESMC_TimeMgr this, ESMC_Time stepSize, int *rc)
{
  *rc = ESMC_TimeMgrGetStepSize(this, stepSize);
}




void esmc_timemgrsetstepsizeis_(ESMC_TimeMgr this, int *days, int *seconds, int *rc)
{
  *rc = ESMC_TimeMgrSetStepSizeIS(this, *days, *seconds);
}



void esmc_timemgrgetstepsizeis_(ESMC_TimeMgr this, int *days, int *seconds, int *rc)
{
  *rc = ESMC_TimeMgrGetStepSizeIS(this, days, seconds);
}



void esmc_timemgrgetnstep_(ESMC_TimeMgr this, int *nstep, int *rc)
{
  *rc = ESMC_TimeMgrGetNStep(this, nstep);
}



void esmc_timemgrsetnstep_(ESMC_TimeMgr this, int *nstep, int *rc)
{
  *rc = ESMC_TimeMgrSetNStep(this, *nstep);
}


void esmc_timemgrgetstartdate_(ESMC_TimeMgr this, ESMC_Date startDate, int *rc)
{
  *rc = ESMC_TimeMgrGetStartDate(this, startDate);
}



void esmc_timemgrgetstopdate_(ESMC_TimeMgr this, ESMC_Date stopDate, int *rc)
{
  *rc = ESMC_TimeMgrGetStopDate(this, stopDate);

}



void esmc_timemgrgetbasedate_(ESMC_TimeMgr this, ESMC_Date baseDate, int *rc)
{
  *rc = ESMC_TimeMgrGetBaseDate(this, baseDate);
}



void esmc_timemgrgetcurrdate_(ESMC_TimeMgr this, ESMC_Date currDate, int *rc)
{
  *rc = ESMC_TimeMgrGetCurrDate(this, currDate);
}



void esmc_timemgrsetcurrdateis_(ESMC_TimeMgr this, int *dateYYMMDD, int *tod, int *rc)
{
  *rc = ESMC_TimeMgrSetCurrDateIS(this, *dateYYMMDD, *tod);
}



void esmc_timemgrgetprevdate_(ESMC_TimeMgr this, ESMC_Date prevDate, int *rc)
{
  *rc = ESMC_TimeMgrGetPrevDate(this, prevDate);
}



void esmc_timemgrrestartwriteis_(ESMC_TimeMgr this,
			       ESMC_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 = ESMC_TimeMgrRestartWriteIS(this,
				 type,
				 nstep,
				 stepDays, stepSec,
				 startYYMMDD, startSec,
				 stopYYMMDD, stopSec,
				 baseYYMMDD, baseSec,
				 currYYMMDD, currSec);
}



void esmc_timemgrrestartreadis_(ESMC_TimeMgr this,
			      ESMC_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 = ESMC_TimeMgrRestartReadIS(this,
				*type,
				*nstep,
				*stepDays, *stepSec,
				*startYYMMDD, *startSec,
				*stopYYMMDD, *stopSec,
				*baseYYMMDD, *baseSec,
				*currYYMMDD, *currSec);
}

#if defined(__cplusplus)
}
#endif