/[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.4 by jmc, Tue Nov 30 20:50:54 2010 UTC revision 1.5 by jmc, Thu Apr 5 21:59:03 2012 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CAL_OPTIONS.h"  #include "CAL_OPTIONS.h"
5    
6        subroutine cal_Summary(        SUBROUTINE CAL_SUMMARY(
7       I                        mythid       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  
 c     changed: Christian Eckert eckert@mit.edu  10-Jan-2000  
 c  
 c              - corrected typo: nIterEnd --> nEndIter.  
 c  
 c              Christian Eckert eckert@mit.edu  03-Feb-2000  
 c  
 c              - Introduced new routine and function names, cal_<NAME>,  
 c                for verion 0.1.3.  
 c  
 c     ==================================================================  
 c     SUBROUTINE cal_Summary  
 c     ==================================================================  
8    
9        implicit none  C     ==================================================================
10    C     SUBROUTINE cal_Summary
11    C     ==================================================================
12    C
13    C     o List all the settings of the calendar tool.
14    C
15    C     started: Christian Eckert eckert@mit.edu  30-Jun-1999
16    C     changed: Christian Eckert eckert@mit.edu  10-Jan-2000
17    C              - corrected typo: nIterEnd --> nEndIter.
18    C              Christian Eckert eckert@mit.edu  03-Feb-2000
19    C              - Introduced new routine and function names, cal_<NAME>,
20    C                for verion 0.1.3.
21    C
22    C     ==================================================================
23    C     SUBROUTINE cal_Summary
24    C     ==================================================================
25    
26  c     == global variables ==        IMPLICIT NONE
27    
28    C     == global variables ==
29  #include "EEPARAMS.h"  #include "EEPARAMS.h"
30  #include "cal.h"  #include "cal.h"
31    
32  c     == routine arguments ==  C     == routine arguments ==
33    C     myThid  - thread number for this instance of the routine.
34  c     mythid  - thread number for this instance of the routine.        INTEGER myThid
35    
36        integer mythid  C     == local variables ==
37          CHARACTER*(MAX_LEN_MBUF) msgBuf
38  c     == local variables ==        INTEGER numcaldays
39          INTEGER numcalmonths
40        character*(max_len_mbuf) msgbuf        INTEGER numcalyears
41        integer numcaldays  
42        integer numcalmonths  C     == EXTERNAL ==
43        integer numcalyears        INTEGER  cal_IntYears
44          EXTERNAL cal_IntYears
45  c     == external ==        INTEGER  cal_IntMonths
46          EXTERNAL cal_IntMonths
47        integer  cal_IntYears        INTEGER  cal_IntDays
48        external cal_IntYears        EXTERNAL cal_IntDays
49        integer  cal_IntMonths  
50        external cal_IntMonths  C     == end of interface ==
51        integer  cal_IntDays  
52        external cal_IntDays        _BEGIN_MASTER(myThid)
53    
54  c     == end of interface ==        numcalyears  = cal_IntYears ( myThid )
55          numcalmonths = cal_IntMonths( myThid )
56        numcalyears  = cal_IntYears ( mythid )        numcaldays   = cal_IntDays  ( myThid )
57        numcalmonths = cal_IntMonths( mythid )  
58        numcaldays   = cal_IntDays  ( mythid )        WRITE(msgBuf,'(A)') ' '
59          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
60        write(msgbuf,'(a)')       &                    SQUEEZE_RIGHT, myThid )
61       &' '        WRITE(msgBuf,'(A)')
       call print_message( msgbuf, standardmessageunit,  
      &                    SQUEEZE_RIGHT , mythid)  
       write(msgbuf,'(a)')  
62       &'// ======================================================='       &'// ======================================================='
63        call print_message( msgbuf, standardmessageunit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
64       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT, myThid )
65        write(msgbuf,'(a)')        WRITE(msgBuf,'(A)')
66       &'// Calendar configuration >>> START <<<'       &'// Calendar configuration >>> START <<<'
67        call print_message( msgbuf, standardmessageunit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
68       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT, myThid )
69        write(msgbuf,'(a)')        WRITE(msgBuf,'(A)')
70       &'// ======================================================='       &'// ======================================================='
71        call print_message( msgbuf, standardmessageunit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
72       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT, myThid )
73        write(msgbuf,'(a)')        WRITE(msgBuf,'(A)') ' '
74       &' '        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
75        call print_message( msgbuf, standardmessageunit,       &                    SQUEEZE_RIGHT, myThid )
76       &                    SQUEEZE_RIGHT , mythid)  c     WRITE(msgBuf,'(A,A)')
77        write(msgbuf,'(a,a)')  c    &'Calendar version: ',calendarversion
78       &'Calendar version: ',calendarversion  c     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
79        call print_message( msgbuf, standardmessageunit,  c    &                    SQUEEZE_RIGHT, myThid )
80       &                    SQUEEZE_RIGHT , mythid)  c     WRITE(msgBuf,'(A)') ' '
81        write(msgbuf,'(a)')  c     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
82       &' '  c    &                    SQUEEZE_RIGHT, myThid )
83        call print_message( msgbuf, standardmessageunit,  
84       &                    SQUEEZE_RIGHT , mythid)        CALL WRITE_0D_RL( modelstart, INDEX_NONE,'modelstart =',
85         &  ' /* Start time of the model integration [s] */')
86        call WRITE_0D_RL( modelstart, INDEX_NONE,'startTime =',        CALL WRITE_0D_RL( modelend, INDEX_NONE, 'modelend  =',
87       &'   /* Start time of the model integration [s] */')       &  ' /* End time of the model integration [s] */')
88        call WRITE_0D_RL( modelend, INDEX_NONE,'endTime =',        CALL WRITE_0D_RL( modelstep, INDEX_NONE,'modelstep =',
89       &'   /* End time of the model integration [s] */')       &  ' /* Time interval for a model forward step [s] */')
90        call WRITE_0D_RL( modelstep, INDEX_NONE,'deltatclock =',        CALL WRITE_0D_L( usingGregorianCalendar, INDEX_NONE,
91       &'   /* Time interval for a model forward step [s] */')       &                'usingGregorianCalendar=',
92        call write_0d_l( usingGregorianCalendar, INDEX_NONE,       &  ' /* Calendar Type: Gregorian Calendar */')
93       &                'usingGregorianCalendar =',        CALL WRITE_0D_L( usingJulianCalendar, INDEX_NONE,
      &'  /* Calendar Type: Gregorian Calendar */')  
       call write_0d_l( usingJulianCalendar, INDEX_NONE,  
94       &                'usingJulianCalendar =',       &                'usingJulianCalendar =',
95       &'  /* Calendar Type: Julian Calendar */')       &  ' /* Calendar Type: Julian Calendar */')
96        call write_0d_l( usingModelCalendar, INDEX_NONE,        CALL WRITE_0D_L( usingModelCalendar, INDEX_NONE,
97       &                'usingModelCalendar =',       &                'usingModelCalendar  =',
98       &'  /* Calendar Type: Model Calendar */')       &  ' /* Calendar Type: Model Calendar */')
99        call write_0d_l( usingNoCalendar, INDEX_NONE,        CALL WRITE_0D_I( modelstartdate(1), INDEX_NONE,
100       &                'usingNoCalendar =',       &                'modelstartdate YYYYMMDD =',
101       &'  /* Calendar Type: No Calendar */')       &  ' /* Model start date YYYY-MM-DD */')
102        call write_0d_i( modelstartdate(1), INDEX_NONE,        CALL WRITE_0D_I( modelstartdate(2), INDEX_NONE,
103       &                'modelstartdate (YYYYMMDD) =',       &                '  modelstartdate HHMMSS =',
104       &'   /* Model start date YYYY-MM-DD  */')       &  ' /* Model start date HH-MM-SS  */')
105        call write_0d_i( modelstartdate(2), INDEX_NONE,        CALL WRITE_0D_I( modelenddate(1), INDEX_NONE,
106       &                'modelstartdate (HHMMSS) =',       &                'modelenddate   YYYYMMDD =',
107       &'   /* Model start date HH-MM-SS  */')       &  ' /* Model end date YYYY-MM-DD */')
108        call write_0d_i( modelenddate(1), INDEX_NONE,        CALL WRITE_0D_I( modelenddate(2), INDEX_NONE,
109       &                'modelenddate (YYYYMMDD) =',       &                '  modelenddate   HHMMSS =',
110       &'   /* Model end date YYYY-MM-DD  */')       &  ' /* Model end date HH-MM-SS  */')
111        call write_0d_i( modelenddate(2), INDEX_NONE,        CALL WRITE_0D_I( numcalyears, INDEX_NONE,
      &                'modelenddate (HHMMSS) =',  
      &'   /* Model end date HH-MM-SS  */')  
       call write_0d_i( numcalyears, INDEX_NONE,  
112       &                'intyears =',       &                'intyears =',
113       &  ' /* Number of calendar years affected by the integration */')       &  ' /* Number of calendar years affected by the integration */')
114        call write_0d_i( numcalmonths, INDEX_NONE,        CALL WRITE_0D_I( numcalmonths, INDEX_NONE,
115       &                'intmonths=',       &                'intmonths=',
116       &  ' /* Number of calendar months affected by the integration */')       &  ' /* Number of calendar months affected by the integration */')
117        call write_0d_i( numcaldays, INDEX_NONE,        CALL WRITE_0D_I( numcaldays, INDEX_NONE,
118       &                'intdays =',       &                'intdays =',
119       &  ' /* Number of calendar days affected by the integration */')       &  ' /* Number of calendar days affected by the integration */')
120  c     call write_0d_i( modeliter0, INDEX_NONE,        CALL WRITE_0D_I( modeliter0, INDEX_NONE,
121  c    &                'nIter0 =',       &                'modeliter0 =',
122  c    &'   /* Base timestep number  */')       &  ' /* Base timestep number  */')
123  c     call write_0d_i( modeliterend, INDEX_NONE,        CALL WRITE_0D_I( modeliterend, INDEX_NONE,
124  c    &                'nEndIter =',       &                'modeliterend =',
125  c    &'   /* Final timestep number  */')       &  ' /* Final timestep number  */')
126  c     call write_0d_i( modelintsteps, INDEX_NONE,        CALL WRITE_0D_I( modelintsteps, INDEX_NONE,
127  c    &                'nTimeSteps =',       &                'modelintsteps=',
128  c    &'   /* Number of model timesteps  */')       &  ' /* Number of model timesteps  */')
129        write(msgbuf,'(a)')        WRITE(msgBuf,'(A)') ' '
130       &' '        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
131        call print_message( msgbuf, standardmessageunit,       &                    SQUEEZE_RIGHT, myThid )
132       &                    SQUEEZE_RIGHT , mythid)        WRITE(msgBuf,'(A)')
       write(msgbuf,'(a)')  
133       &'// ======================================================='       &'// ======================================================='
134        call print_message( msgbuf, standardmessageunit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
135       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT, myThid )
136        write(msgbuf,'(a)')        WRITE(msgBuf,'(A)')
137       &'// Calendar configuration  >>> END <<<'       &'// Calendar configuration  >>> END <<<'
138        call print_message( msgbuf, standardmessageunit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
139       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT, myThid )
140        write(msgbuf,'(a)')        WRITE(msgBuf,'(A)')
141       &'// ======================================================='       &'// ======================================================='
142        call print_message( msgbuf, standardmessageunit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
143       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT, myThid )
144        write(msgbuf,'(a)')        WRITE(msgBuf,'(A)') ' '
145       &' '        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
146        call print_message( msgbuf, standardmessageunit,       &                    SQUEEZE_RIGHT, myThid )
147       &                    SQUEEZE_RIGHT , mythid)  
148          _END_MASTER(myThid)
149    
150        return        RETURN
151        end        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22