File indexing completed on 2018-03-02 18:38:17 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
6d54cf9ca1 Ed H*0001 #include "CAL_OPTIONS.h"
a63ed37559 Patr*0002
17206208d3 Jean*0003 SUBROUTINE CAL_SUMMARY(
0004 I myThid )
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023 IMPLICIT NONE
0024
0025
a63ed37559 Patr*0026 #include "EEPARAMS.h"
0027 #include "cal.h"
0028
17206208d3 Jean*0029
0030
0031 INTEGER myThid
a63ed37559 Patr*0032
17206208d3 Jean*0033
0034 CHARACTER*(MAX_LEN_MBUF) msgBuf
0035 INTEGER numcaldays
0036 INTEGER numcalmonths
0037 INTEGER numcalyears
a63ed37559 Patr*0038
13a16b18e5 Jean*0039
17206208d3 Jean*0040 INTEGER cal_IntYears
0041 EXTERNAL cal_IntYears
0042 INTEGER cal_IntMonths
0043 EXTERNAL cal_IntMonths
0044 INTEGER cal_IntDays
0045 EXTERNAL cal_IntDays
a63ed37559 Patr*0046
17206208d3 Jean*0047
a63ed37559 Patr*0048
17206208d3 Jean*0049 _BEGIN_MASTER(myThid)
a63ed37559 Patr*0050
17206208d3 Jean*0051 numcalyears = cal_IntYears ( myThid )
0052 numcalmonths = cal_IntMonths( myThid )
0053 numcaldays = cal_IntDays ( myThid )
a63ed37559 Patr*0054
17206208d3 Jean*0055 WRITE(msgBuf,'(A)') ' '
0056 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0057 & SQUEEZE_RIGHT, myThid )
0058 WRITE(msgBuf,'(A)')
a63ed37559 Patr*0059 &'// ======================================================='
17206208d3 Jean*0060 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0061 & SQUEEZE_RIGHT, myThid )
0062 WRITE(msgBuf,'(A)')
a63ed37559 Patr*0063 &'// Calendar configuration >>> START <<<'
17206208d3 Jean*0064 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0065 & SQUEEZE_RIGHT, myThid )
0066 WRITE(msgBuf,'(A)')
a63ed37559 Patr*0067 &'// ======================================================='
17206208d3 Jean*0068 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0069 & SQUEEZE_RIGHT, myThid )
0070 WRITE(msgBuf,'(A)') ' '
0071 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0072 & SQUEEZE_RIGHT, myThid )
0073
0074
0075
0076
0077
0078
0079
0080
0081 CALL WRITE_0D_RL( modelstart, INDEX_NONE,'modelstart =',
0082 & ' /* Start time of the model integration [s] */')
0083 CALL WRITE_0D_RL( modelend, INDEX_NONE, 'modelend =',
0084 & ' /* End time of the model integration [s] */')
13a16b18e5 Jean*0085 CALL WRITE_0D_RL( modelStep, INDEX_NONE,'modelStep =',
17206208d3 Jean*0086 & ' /* Time interval for a model forward step [s] */')
0087 CALL WRITE_0D_L( usingGregorianCalendar, INDEX_NONE,
0088 & 'usingGregorianCalendar=',
0089 & ' /* Calendar Type: Gregorian Calendar */')
0090 CALL WRITE_0D_L( usingJulianCalendar, INDEX_NONE,
a63ed37559 Patr*0091 & 'usingJulianCalendar =',
17206208d3 Jean*0092 & ' /* Calendar Type: Julian Calendar */')
13a16b18e5 Jean*0093 CALL WRITE_0D_L( usingNoLeapYearCal, INDEX_NONE,
0094 & 'usingNoLeapYearCal =',
0095 & ' /* Calendar Type: without Leap Year */')
17206208d3 Jean*0096 CALL WRITE_0D_L( usingModelCalendar, INDEX_NONE,
0097 & 'usingModelCalendar =',
0098 & ' /* Calendar Type: Model Calendar */')
13a16b18e5 Jean*0099 CALL WRITE_0D_I( modelStartDate(1), INDEX_NONE,
0100 & 'modelStartDate YYYYMMDD =',
17206208d3 Jean*0101 & ' /* Model start date YYYY-MM-DD */')
13a16b18e5 Jean*0102 CALL WRITE_0D_I( modelStartDate(2), INDEX_NONE,
0103 & ' modelStartDate HHMMSS =',
17206208d3 Jean*0104 & ' /* Model start date HH-MM-SS */')
13a16b18e5 Jean*0105 CALL WRITE_0D_I( modelEndDate(1), INDEX_NONE,
0106 & 'modelEndDate YYYYMMDD =',
17206208d3 Jean*0107 & ' /* Model end date YYYY-MM-DD */')
13a16b18e5 Jean*0108 CALL WRITE_0D_I( modelEndDate(2), INDEX_NONE,
0109 & ' modelEndDate HHMMSS =',
17206208d3 Jean*0110 & ' /* Model end date HH-MM-SS */')
0111 CALL WRITE_0D_I( numcalyears, INDEX_NONE,
a63ed37559 Patr*0112 & 'intyears =',
3f544a969b Jean*0113 & ' /* Number of calendar years affected by the integration */')
17206208d3 Jean*0114 CALL WRITE_0D_I( numcalmonths, INDEX_NONE,
3f544a969b Jean*0115 & 'intmonths=',
0116 & ' /* Number of calendar months affected by the integration */')
17206208d3 Jean*0117 CALL WRITE_0D_I( numcaldays, INDEX_NONE,
a63ed37559 Patr*0118 & 'intdays =',
3f544a969b Jean*0119 & ' /* Number of calendar days affected by the integration */')
13a16b18e5 Jean*0120 CALL WRITE_0D_I( modelIter0, INDEX_NONE,
0121 & 'modelIter0 =',
17206208d3 Jean*0122 & ' /* Base timestep number */')
13a16b18e5 Jean*0123 CALL WRITE_0D_I( modelIterEnd, INDEX_NONE,
0124 & 'modelIterEnd =',
17206208d3 Jean*0125 & ' /* Final timestep number */')
13a16b18e5 Jean*0126 CALL WRITE_0D_I( modelIntSteps, INDEX_NONE,
0127 & 'modelIntSteps=',
17206208d3 Jean*0128 & ' /* Number of model timesteps */')
0129 WRITE(msgBuf,'(A)') ' '
0130 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0131 & SQUEEZE_RIGHT, myThid )
0132 WRITE(msgBuf,'(A)')
a63ed37559 Patr*0133 &'// ======================================================='
17206208d3 Jean*0134 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0135 & SQUEEZE_RIGHT, myThid )
0136 WRITE(msgBuf,'(A)')
a63ed37559 Patr*0137 &'// Calendar configuration >>> END <<<'
17206208d3 Jean*0138 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0139 & SQUEEZE_RIGHT, myThid )
0140 WRITE(msgBuf,'(A)')
a63ed37559 Patr*0141 &'// ======================================================='
17206208d3 Jean*0142 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0143 & SQUEEZE_RIGHT, myThid )
0144 WRITE(msgBuf,'(A)') ' '
0145 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0146 & SQUEEZE_RIGHT, myThid )
0147
0148 _END_MASTER(myThid)
a63ed37559 Patr*0149
17206208d3 Jean*0150 RETURN
0151 END