pkg/cal/cal_summary.F

6d54cf9ca1 Ed H*0001 #include "CAL_OPTIONS.h"
a63ed37559 Patr*0002
17206208d3 Jean*0003       SUBROUTINE CAL_SUMMARY(
                0004      I                        myThid )
                0005
                0006 C     ==================================================================
                0007 C     SUBROUTINE cal_Summary
                0008 C     ==================================================================
                0009 C
                0010 C     o List all the settings of the calendar tool.
                0011 C
                0012 C     started: Christian Eckert eckert@mit.edu  30-Jun-1999
                0013 C     changed: Christian Eckert eckert@mit.edu  10-Jan-2000
                0014 C              - corrected typo: nIterEnd --> nEndIter.
                0015 C              Christian Eckert eckert@mit.edu  03-Feb-2000
                0016 C              - Introduced new routine and function names, cal_<NAME>,
                0017 C                for verion 0.1.3.
                0018 C
                0019 C     ==================================================================
                0020 C     SUBROUTINE cal_Summary
                0021 C     ==================================================================
                0022
                0023       IMPLICIT NONE
                0024
                0025 C     == global variables ==
a63ed37559 Patr*0026 #include "EEPARAMS.h"
                0027 #include "cal.h"
                0028
17206208d3 Jean*0029 C     == routine arguments ==
                0030 C     myThid  - thread number for this instance of the routine.
                0031       INTEGER myThid
a63ed37559 Patr*0032
17206208d3 Jean*0033 C     == local variables ==
                0034       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0035       INTEGER numcaldays
                0036       INTEGER numcalmonths
                0037       INTEGER numcalyears
a63ed37559 Patr*0038
13a16b18e5 Jean*0039 C     == Functions ==
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 C     == end of interface ==
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 c     WRITE(msgBuf,'(A,A)')
                0074 c    &'Calendar version: ',calendarversion
                0075 c     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0076 c    &                    SQUEEZE_RIGHT, myThid )
                0077 c     WRITE(msgBuf,'(A)') ' '
                0078 c     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0079 c    &                    SQUEEZE_RIGHT, myThid )
                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