/[MITgcm]/MITgcm/pkg/cal/cal.h
ViewVC logotype

Annotation of /MITgcm/pkg/cal/cal.h

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

Revision 1.7 - (hide annotations) (download)
Thu Apr 5 21:59:03 2012 UTC (12 years, 2 months ago) by jmc
Branch: MAIN
Changes since 1.6: +8 -10 lines
File MIME type: text/plain 
- 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.7 C $Header: /u/gcmpack/MITgcm/pkg/cal/cal.h,v 1.6 2012/04/03 15:20:29 jmc Exp $
2 jmc 1.5 C $Name: $
3 heimbach 1.1
4 jmc 1.6 C ==================================================================
5     C HEADER calendar
6     C ==================================================================
7     C
8     C o This header file contains variables that are used by the
9     C calendar tool. The calendar tool can be used in the ECCO
10     C SEALION release of the MITgcmUV.
11     C
12     C started: Christian Eckert eckert@mit.edu 30-Jun-1999
13     C changed: Christian Eckert eckert@mit.edu 17-Dec-1999
14     C - restructured the original version in order to have a
15     C better interface to the MITgcmUV.
16     C
17     C ==================================================================
18     C HEADER calendar
19     C ==================================================================
20    
21     C - Parameters of the numerical model:
22     C
23     C modelstart - start time of the numerical model.
24     C modelstartdate - start date of the numerical model.
25     C modelend - end time of the numerical model.
26     C modelenddate - end date of the numerical model.
27     C modelstep - timestep of the numerical model.
28     C modelintsteps - number of timestep that are to be performed.
29     C modeliter0 - the numerical models initial timestep number.
30     C modeliterend - the models last timestep number.
31     cC modelstepsperday - number of model time steps per calendar day.
32 jmc 1.7
33 jmc 1.6 C - Parameters used by the calendar:
34     C
35     C refdate - first day of the Gregorian Calendar.
36     C nmonthyear - number months in a year.
37     C ndaymonth - days per month depending on the year being a
38     C leap year or not. If the Gregorian calendar is
39     C not used a 360 days year with 30 days months is
40     C used instead.
41     C ndaysnoleap - number of days in a usual year.
42     C ndaysleap - number of days in a leap year.
43     C nmaxdaymonth - maximum number of days in a years month.
44     C hoursperday - number of hours in a calendars day.
45     C minutesperday - number of minutes in a calendars day.
46     C minutesperhour - number of minutes in a calendars hour.
47     C secondsperday - number of seconds in a calendars day.
48     C secondsperhour - number of seconds in a calendars hour.
49     C secondsperminute - number of seconds in a calendars minute.
50 jmc 1.7 C cal_setStatus :: status of calendar parms setting (0=none, 3=fully set)
51 heimbach 1.1
52 jmc 1.6 COMMON /cal_rl/
53 heimbach 1.1 & modelstart,
54     & modelend,
55     & modelstep
56     _RL modelstart
57     _RL modelend
58     _RL modelstep
59    
60 jmc 1.6 COMMON /cal_i/
61 heimbach 1.1 & refdate,
62     & nmonthyear,
63     & ndaymonth,
64     & ndaysnoleap,
65     & ndaysleap,
66     & nmaxdaymonth,
67     & hoursperday,
68     & minutesperday,
69     & minutesperhour,
70     & secondsperday,
71     & secondsperhour,
72     & secondsperminute,
73     & modelstartdate,
74     & modelenddate,
75     & modeliter0,
76     & modeliterend,
77     & modelintsteps,
78 jmc 1.7 & cal_setStatus,
79 heimbach 1.3 & startdate_1,
80     & startdate_2
81 heimbach 1.1
82 jmc 1.6 INTEGER refdate(4)
83     INTEGER nmonthyear
84     INTEGER ndaymonth(12,2)
85     INTEGER ndaysnoleap
86     INTEGER ndaysleap
87     INTEGER nmaxdaymonth
88     INTEGER hoursperday
89     INTEGER minutesperday
90     INTEGER minutesperhour
91     INTEGER secondsperday
92     INTEGER secondsperhour
93     INTEGER secondsperminute
94    
95     INTEGER modelstartdate(4)
96     INTEGER modelenddate(4)
97     INTEGER modeliter0
98     INTEGER modeliterend
99     INTEGER modelintsteps
100 heimbach 1.1
101 jmc 1.7 INTEGER cal_setStatus
102 jmc 1.6 INTEGER startdate_1
103     INTEGER startdate_2
104 heimbach 1.3
105 jmc 1.4 C calendarDumps :: When set, approximate months (30-31 days) and years (360-372 days)
106     C for parameters chkPtFreq, pChkPtFreq, taveFreq, SEAICE_taveFreq,
107     C KPP_taveFreq, and freq in pkg/diagnostics are converted to exact
108     C calendar months and years. Requires pkg/cal.
109 jmc 1.6 COMMON /cal_l/
110 jmc 1.4 & calendarDumps,
111 heimbach 1.1 & usingModelCalendar,
112     & usingJulianCalendar,
113     & usingGregorianCalendar
114 jmc 1.6 LOGICAL calendarDumps
115     LOGICAL usingModelCalendar
116     LOGICAL usingJulianCalendar
117     LOGICAL usingGregorianCalendar
118    
119 jmc 1.7 C TheCalendar - type of calendar to use; available: 'model' or 'gregorian'.
120 jmc 1.6 C dayofweek - Week day number one is the week day of refdate.
121     C For the Gregorian calendar this is Friday, 15-Oct-1582.
122     C monthofyear - Both available calendars are assumed to have twelve
123     C months.
124     COMMON /calendar_ch/
125 jmc 1.7 & TheCalendar,
126 heimbach 1.1 & dayofweek,
127     & monthofyear
128 jmc 1.7 CHARACTER*(9) TheCalendar
129 jmc 1.6 CHARACTER*(3) dayofweek(7)
130     CHARACTER*(3) monthofyear(12)
131 heimbach 1.1
  ViewVC Help
Powered by ViewVC 1.1.22