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

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

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

Revision 1.5 - (show annotations) (download)
Thu Apr 5 21:59:03 2012 UTC (12 years 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 C $Header: /u/gcmpack/MITgcm/pkg/cal/cal_summary.F,v 1.4 2010/11/30 20:50:54 jmc Exp $
2 C $Name: $
3
4 #include "CAL_OPTIONS.h"
5
6 SUBROUTINE CAL_SUMMARY(
7 I myThid )
8
9 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 IMPLICIT NONE
27
28 C == global variables ==
29 #include "EEPARAMS.h"
30 #include "cal.h"
31
32 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 &'// ======================================================='
63 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
64 & SQUEEZE_RIGHT, myThid )
65 WRITE(msgBuf,'(A)')
66 &'// Calendar configuration >>> START <<<'
67 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
68 & SQUEEZE_RIGHT, myThid )
69 WRITE(msgBuf,'(A)')
70 &'// ======================================================='
71 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 & 'usingJulianCalendar =',
95 & ' /* 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 & 'intyears =',
113 & ' /* Number of calendar years affected by the integration */')
114 CALL WRITE_0D_I( numcalmonths, INDEX_NONE,
115 & 'intmonths=',
116 & ' /* Number of calendar months affected by the integration */')
117 CALL WRITE_0D_I( numcaldays, INDEX_NONE,
118 & 'intdays =',
119 & ' /* Number of calendar days affected by the integration */')
120 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 &'// ======================================================='
134 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
135 & SQUEEZE_RIGHT, myThid )
136 WRITE(msgBuf,'(A)')
137 &'// Calendar configuration >>> END <<<'
138 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
139 & SQUEEZE_RIGHT, myThid )
140 WRITE(msgBuf,'(A)')
141 &'// ======================================================='
142 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
150 RETURN
151 END
  ViewVC Help
Powered by ViewVC 1.1.22