C $Header: /u/gcmpack/MITgcm/pkg/cal/cal_summary.F,v 1.6 2014/06/05 19:38:45 jmc Exp $
C $Name: $
#include "CAL_OPTIONS.h"
SUBROUTINE CAL_SUMMARY(
I myThid )
C ==================================================================
C SUBROUTINE cal_Summary
C ==================================================================
C
C o List all the settings of the calendar tool.
C
C started: Christian Eckert eckert@mit.edu 30-Jun-1999
C changed: Christian Eckert eckert@mit.edu 10-Jan-2000
C - corrected typo: nIterEnd --> nEndIter.
C Christian Eckert eckert@mit.edu 03-Feb-2000
C - Introduced new routine and function names, cal_,
C for verion 0.1.3.
C
C ==================================================================
C SUBROUTINE cal_Summary
C ==================================================================
IMPLICIT NONE
C == global variables ==
#include "EEPARAMS.h"
#include "cal.h"
C == routine arguments ==
C myThid - thread number for this instance of the routine.
INTEGER myThid
C == local variables ==
CHARACTER*(MAX_LEN_MBUF) msgBuf
INTEGER numcaldays
INTEGER numcalmonths
INTEGER numcalyears
C == Functions ==
INTEGER cal_IntYears
EXTERNAL
INTEGER cal_IntMonths
EXTERNAL
INTEGER cal_IntDays
EXTERNAL
C == end of interface ==
_BEGIN_MASTER(myThid)
numcalyears = cal_IntYears ( myThid )
numcalmonths = cal_IntMonths( myThid )
numcaldays = cal_IntDays ( myThid )
WRITE(msgBuf,'(A)') ' '
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
& SQUEEZE_RIGHT, myThid )
WRITE(msgBuf,'(A)')
&'// ======================================================='
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
& SQUEEZE_RIGHT, myThid )
WRITE(msgBuf,'(A)')
&'// Calendar configuration >>> START <<<'
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
& SQUEEZE_RIGHT, myThid )
WRITE(msgBuf,'(A)')
&'// ======================================================='
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
& SQUEEZE_RIGHT, myThid )
WRITE(msgBuf,'(A)') ' '
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
& SQUEEZE_RIGHT, myThid )
c WRITE(msgBuf,'(A,A)')
c &'Calendar version: ',calendarversion
c CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
c & SQUEEZE_RIGHT, myThid )
c WRITE(msgBuf,'(A)') ' '
c CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
c & SQUEEZE_RIGHT, myThid )
CALL WRITE_0D_RL( modelstart, INDEX_NONE,'modelstart =',
& ' /* Start time of the model integration [s] */')
CALL WRITE_0D_RL( modelend, INDEX_NONE, 'modelend =',
& ' /* End time of the model integration [s] */')
CALL WRITE_0D_RL( modelStep, INDEX_NONE,'modelStep =',
& ' /* Time interval for a model forward step [s] */')
CALL WRITE_0D_L( usingGregorianCalendar, INDEX_NONE,
& 'usingGregorianCalendar=',
& ' /* Calendar Type: Gregorian Calendar */')
CALL WRITE_0D_L( usingJulianCalendar, INDEX_NONE,
& 'usingJulianCalendar =',
& ' /* Calendar Type: Julian Calendar */')
CALL WRITE_0D_L( usingNoLeapYearCal, INDEX_NONE,
& 'usingNoLeapYearCal =',
& ' /* Calendar Type: without Leap Year */')
CALL WRITE_0D_L( usingModelCalendar, INDEX_NONE,
& 'usingModelCalendar =',
& ' /* Calendar Type: Model Calendar */')
CALL WRITE_0D_I( modelStartDate(1), INDEX_NONE,
& 'modelStartDate YYYYMMDD =',
& ' /* Model start date YYYY-MM-DD */')
CALL WRITE_0D_I( modelStartDate(2), INDEX_NONE,
& ' modelStartDate HHMMSS =',
& ' /* Model start date HH-MM-SS */')
CALL WRITE_0D_I( modelEndDate(1), INDEX_NONE,
& 'modelEndDate YYYYMMDD =',
& ' /* Model end date YYYY-MM-DD */')
CALL WRITE_0D_I( modelEndDate(2), INDEX_NONE,
& ' modelEndDate HHMMSS =',
& ' /* Model end date HH-MM-SS */')
CALL WRITE_0D_I( numcalyears, INDEX_NONE,
& 'intyears =',
& ' /* Number of calendar years affected by the integration */')
CALL WRITE_0D_I( numcalmonths, INDEX_NONE,
& 'intmonths=',
& ' /* Number of calendar months affected by the integration */')
CALL WRITE_0D_I( numcaldays, INDEX_NONE,
& 'intdays =',
& ' /* Number of calendar days affected by the integration */')
CALL WRITE_0D_I( modelIter0, INDEX_NONE,
& 'modelIter0 =',
& ' /* Base timestep number */')
CALL WRITE_0D_I( modelIterEnd, INDEX_NONE,
& 'modelIterEnd =',
& ' /* Final timestep number */')
CALL WRITE_0D_I( modelIntSteps, INDEX_NONE,
& 'modelIntSteps=',
& ' /* Number of model timesteps */')
WRITE(msgBuf,'(A)') ' '
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
& SQUEEZE_RIGHT, myThid )
WRITE(msgBuf,'(A)')
&'// ======================================================='
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
& SQUEEZE_RIGHT, myThid )
WRITE(msgBuf,'(A)')
&'// Calendar configuration >>> END <<<'
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
& SQUEEZE_RIGHT, myThid )
WRITE(msgBuf,'(A)')
&'// ======================================================='
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
& SQUEEZE_RIGHT, myThid )
WRITE(msgBuf,'(A)') ' '
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
& SQUEEZE_RIGHT, myThid )
_END_MASTER(myThid)
RETURN
END