/[MITgcm]/MITgcm/pkg/cal/cal_summary.F
ViewVC logotype

Diff of /MITgcm/pkg/cal/cal_summary.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by jmc, Thu Apr 5 21:59:03 2012 UTC revision 1.6 by jmc, Thu Jun 5 19:38:45 2014 UTC
# Line 39  C     == local variables == Line 39  C     == local variables ==
39        INTEGER numcalmonths        INTEGER numcalmonths
40        INTEGER numcalyears        INTEGER numcalyears
41    
42  C     == EXTERNAL ==  C     == Functions ==
43        INTEGER  cal_IntYears        INTEGER  cal_IntYears
44        EXTERNAL cal_IntYears        EXTERNAL cal_IntYears
45        INTEGER  cal_IntMonths        INTEGER  cal_IntMonths
# Line 85  c    &                    SQUEEZE_RIGHT, Line 85  c    &                    SQUEEZE_RIGHT,
85       &  ' /* Start time of the model integration [s] */')       &  ' /* Start time of the model integration [s] */')
86        CALL WRITE_0D_RL( modelend, INDEX_NONE, 'modelend  =',        CALL WRITE_0D_RL( modelend, INDEX_NONE, 'modelend  =',
87       &  ' /* End time of the model integration [s] */')       &  ' /* End time of the model integration [s] */')
88        CALL WRITE_0D_RL( modelstep, INDEX_NONE,'modelstep =',        CALL WRITE_0D_RL( modelStep, INDEX_NONE,'modelStep =',
89       &  ' /* Time interval for a model forward step [s] */')       &  ' /* Time interval for a model forward step [s] */')
90        CALL WRITE_0D_L( usingGregorianCalendar, INDEX_NONE,        CALL WRITE_0D_L( usingGregorianCalendar, INDEX_NONE,
91       &                'usingGregorianCalendar=',       &                'usingGregorianCalendar=',
# Line 93  c    &                    SQUEEZE_RIGHT, Line 93  c    &                    SQUEEZE_RIGHT,
93        CALL WRITE_0D_L( usingJulianCalendar, INDEX_NONE,        CALL WRITE_0D_L( usingJulianCalendar, INDEX_NONE,
94       &                'usingJulianCalendar =',       &                'usingJulianCalendar =',
95       &  ' /* Calendar Type: Julian Calendar */')       &  ' /* Calendar Type: Julian Calendar */')
96          CALL WRITE_0D_L( usingNoLeapYearCal, INDEX_NONE,
97         &                'usingNoLeapYearCal  =',
98         &  ' /* Calendar Type: without Leap Year */')
99        CALL WRITE_0D_L( usingModelCalendar, INDEX_NONE,        CALL WRITE_0D_L( usingModelCalendar, INDEX_NONE,
100       &                'usingModelCalendar  =',       &                'usingModelCalendar  =',
101       &  ' /* Calendar Type: Model Calendar */')       &  ' /* Calendar Type: Model Calendar */')
102        CALL WRITE_0D_I( modelstartdate(1), INDEX_NONE,        CALL WRITE_0D_I( modelStartDate(1), INDEX_NONE,
103       &                'modelstartdate YYYYMMDD =',       &                'modelStartDate YYYYMMDD =',
104       &  ' /* Model start date YYYY-MM-DD */')       &  ' /* Model start date YYYY-MM-DD */')
105        CALL WRITE_0D_I( modelstartdate(2), INDEX_NONE,        CALL WRITE_0D_I( modelStartDate(2), INDEX_NONE,
106       &                '  modelstartdate HHMMSS =',       &                '  modelStartDate HHMMSS =',
107       &  ' /* Model start date HH-MM-SS  */')       &  ' /* Model start date HH-MM-SS  */')
108        CALL WRITE_0D_I( modelenddate(1), INDEX_NONE,        CALL WRITE_0D_I( modelEndDate(1), INDEX_NONE,
109       &                'modelenddate   YYYYMMDD =',       &                'modelEndDate   YYYYMMDD =',
110       &  ' /* Model end date YYYY-MM-DD */')       &  ' /* Model end date YYYY-MM-DD */')
111        CALL WRITE_0D_I( modelenddate(2), INDEX_NONE,        CALL WRITE_0D_I( modelEndDate(2), INDEX_NONE,
112       &                '  modelenddate   HHMMSS =',       &                '  modelEndDate   HHMMSS =',
113       &  ' /* Model end date HH-MM-SS  */')       &  ' /* Model end date HH-MM-SS  */')
114        CALL WRITE_0D_I( numcalyears, INDEX_NONE,        CALL WRITE_0D_I( numcalyears, INDEX_NONE,
115       &                'intyears =',       &                'intyears =',
# Line 117  c    &                    SQUEEZE_RIGHT, Line 120  c    &                    SQUEEZE_RIGHT,
120        CALL WRITE_0D_I( numcaldays, INDEX_NONE,        CALL WRITE_0D_I( numcaldays, INDEX_NONE,
121       &                'intdays =',       &                'intdays =',
122       &  ' /* Number of calendar days affected by the integration */')       &  ' /* Number of calendar days affected by the integration */')
123        CALL WRITE_0D_I( modeliter0, INDEX_NONE,        CALL WRITE_0D_I( modelIter0, INDEX_NONE,
124       &                'modeliter0 =',       &                'modelIter0 =',
125       &  ' /* Base timestep number  */')       &  ' /* Base timestep number  */')
126        CALL WRITE_0D_I( modeliterend, INDEX_NONE,        CALL WRITE_0D_I( modelIterEnd, INDEX_NONE,
127       &                'modeliterend =',       &                'modelIterEnd =',
128       &  ' /* Final timestep number  */')       &  ' /* Final timestep number  */')
129        CALL WRITE_0D_I( modelintsteps, INDEX_NONE,        CALL WRITE_0D_I( modelIntSteps, INDEX_NONE,
130       &                'modelintsteps=',       &                'modelIntSteps=',
131       &  ' /* Number of model timesteps  */')       &  ' /* Number of model timesteps  */')
132        WRITE(msgBuf,'(A)') ' '        WRITE(msgBuf,'(A)') ' '
133        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22