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

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

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

Revision 1.5 - (hide annotations) (download)
Thu Apr 5 21:59:03 2012 UTC (12 years, 2 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint64x, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64j, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint64a, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f
Changes since 1.4: +127 -141 lines 
- move calendar setting & summary (previously in cal_readparams.F) into new
  S/R CAL_INIT_FIXED to be called later in the initialisation process, once
  length of the simulation is set (after SET_PARMS call); This is an atempt
  to fix Pb when, e.g.: pkg/longstep, modifies the length of the run.
- For safety: keep a reccord of pkg/cal parameter settings status
           to allow to STOP if one pkg/cal S/R is called too early.
- adjust list of vars stored in "cal.h" (add: TheCalendar & cal_setStatus;
         remove usingNoCalendar & calendarversion)
1 jmc 1.5 C $Header: /u/gcmpack/MITgcm/pkg/cal/cal_summary.F,v 1.4 2010/11/30 20:50:54 jmc Exp $
2 edhill 1.2 C $Name: $
3 heimbach 1.1
4 edhill 1.2 #include "CAL_OPTIONS.h"
5 heimbach 1.1
6 jmc 1.5 SUBROUTINE CAL_SUMMARY(
7     I myThid )
8 heimbach 1.1
9 jmc 1.5 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 heimbach 1.1
26 jmc 1.5 IMPLICIT NONE
27 heimbach 1.1
28 jmc 1.5 C == global variables ==
29 heimbach 1.1 #include "EEPARAMS.h"
30     #include "cal.h"
31    
32 jmc 1.5 C == routine arguments ==
33     C myThid - thread number for this instance of the routine.
34     INTEGER myThid
35    
36     C == local variables ==
37     CHARACTER*(MAX_LEN_MBUF) msgBuf
38     INTEGER numcaldays
39     INTEGER numcalmonths
40     INTEGER numcalyears
41    
42     C == EXTERNAL ==
43     INTEGER cal_IntYears
44     EXTERNAL cal_IntYears
45     INTEGER cal_IntMonths
46     EXTERNAL cal_IntMonths
47     INTEGER cal_IntDays
48     EXTERNAL cal_IntDays
49    
50     C == end of interface ==
51    
52     _BEGIN_MASTER(myThid)
53    
54     numcalyears = cal_IntYears ( myThid )
55     numcalmonths = cal_IntMonths( myThid )
56     numcaldays = cal_IntDays ( myThid )
57    
58     WRITE(msgBuf,'(A)') ' '
59     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
60     & SQUEEZE_RIGHT, myThid )
61     WRITE(msgBuf,'(A)')
62 heimbach 1.1 &'// ======================================================='
63 jmc 1.5 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
64     & SQUEEZE_RIGHT, myThid )
65     WRITE(msgBuf,'(A)')
66 heimbach 1.1 &'// Calendar configuration >>> START <<<'
67 jmc 1.5 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
68     & SQUEEZE_RIGHT, myThid )
69     WRITE(msgBuf,'(A)')
70 heimbach 1.1 &'// ======================================================='
71 jmc 1.5 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
72     & SQUEEZE_RIGHT, myThid )
73     WRITE(msgBuf,'(A)') ' '
74     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
75     & SQUEEZE_RIGHT, myThid )
76     c WRITE(msgBuf,'(A,A)')
77     c &'Calendar version: ',calendarversion
78     c CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
79     c & SQUEEZE_RIGHT, myThid )
80     c WRITE(msgBuf,'(A)') ' '
81     c CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
82     c & SQUEEZE_RIGHT, myThid )
83    
84     CALL WRITE_0D_RL( modelstart, INDEX_NONE,'modelstart =',
85     & ' /* Start time of the model integration [s] */')
86     CALL WRITE_0D_RL( modelend, INDEX_NONE, 'modelend =',
87     & ' /* End time of the model integration [s] */')
88     CALL WRITE_0D_RL( modelstep, INDEX_NONE,'modelstep =',
89     & ' /* Time interval for a model forward step [s] */')
90     CALL WRITE_0D_L( usingGregorianCalendar, INDEX_NONE,
91     & 'usingGregorianCalendar=',
92     & ' /* Calendar Type: Gregorian Calendar */')
93     CALL WRITE_0D_L( usingJulianCalendar, INDEX_NONE,
94 heimbach 1.1 & 'usingJulianCalendar =',
95 jmc 1.5 & ' /* Calendar Type: Julian Calendar */')
96     CALL WRITE_0D_L( usingModelCalendar, INDEX_NONE,
97     & 'usingModelCalendar =',
98     & ' /* Calendar Type: Model Calendar */')
99     CALL WRITE_0D_I( modelstartdate(1), INDEX_NONE,
100     & 'modelstartdate YYYYMMDD =',
101     & ' /* Model start date YYYY-MM-DD */')
102     CALL WRITE_0D_I( modelstartdate(2), INDEX_NONE,
103     & ' modelstartdate HHMMSS =',
104     & ' /* Model start date HH-MM-SS */')
105     CALL WRITE_0D_I( modelenddate(1), INDEX_NONE,
106     & 'modelenddate YYYYMMDD =',
107     & ' /* Model end date YYYY-MM-DD */')
108     CALL WRITE_0D_I( modelenddate(2), INDEX_NONE,
109     & ' modelenddate HHMMSS =',
110     & ' /* Model end date HH-MM-SS */')
111     CALL WRITE_0D_I( numcalyears, INDEX_NONE,
112 heimbach 1.1 & 'intyears =',
113 jmc 1.4 & ' /* Number of calendar years affected by the integration */')
114 jmc 1.5 CALL WRITE_0D_I( numcalmonths, INDEX_NONE,
115 jmc 1.4 & 'intmonths=',
116     & ' /* Number of calendar months affected by the integration */')
117 jmc 1.5 CALL WRITE_0D_I( numcaldays, INDEX_NONE,
118 heimbach 1.1 & 'intdays =',
119 jmc 1.4 & ' /* Number of calendar days affected by the integration */')
120 jmc 1.5 CALL WRITE_0D_I( modeliter0, INDEX_NONE,
121     & 'modeliter0 =',
122     & ' /* Base timestep number */')
123     CALL WRITE_0D_I( modeliterend, INDEX_NONE,
124     & 'modeliterend =',
125     & ' /* Final timestep number */')
126     CALL WRITE_0D_I( modelintsteps, INDEX_NONE,
127     & 'modelintsteps=',
128     & ' /* Number of model timesteps */')
129     WRITE(msgBuf,'(A)') ' '
130     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
131     & SQUEEZE_RIGHT, myThid )
132     WRITE(msgBuf,'(A)')
133 heimbach 1.1 &'// ======================================================='
134 jmc 1.5 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
135     & SQUEEZE_RIGHT, myThid )
136     WRITE(msgBuf,'(A)')
137 heimbach 1.1 &'// Calendar configuration >>> END <<<'
138 jmc 1.5 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
139     & SQUEEZE_RIGHT, myThid )
140     WRITE(msgBuf,'(A)')
141 heimbach 1.1 &'// ======================================================='
142 jmc 1.5 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
143     & SQUEEZE_RIGHT, myThid )
144     WRITE(msgBuf,'(A)') ' '
145     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
146     & SQUEEZE_RIGHT, myThid )
147    
148     _END_MASTER(myThid)
149 heimbach 1.1
150 jmc 1.5 RETURN
151     END
  ViewVC Help
Powered by ViewVC 1.1.22