1 |
C $Header: $ |
2 |
C $Name: $ |
3 |
|
4 |
c ================================================================== |
5 |
c HEADER ECCO |
6 |
c ================================================================== |
7 |
c |
8 |
c o Header for the ECCO project. |
9 |
c |
10 |
c started: Christian Eckert eckert@mit.edu 23-Feb-1999 |
11 |
c |
12 |
c changed: Christian Eckert eckert@mit.edu |
13 |
c |
14 |
c |
15 |
c ================================================================== |
16 |
c HEADER ECCO |
17 |
c ================================================================== |
18 |
|
19 |
c Version of the release and versions of used packages: |
20 |
c ===================================================== |
21 |
c |
22 |
c eccoVersion - ecco release version. |
23 |
c usesCalendarVersion - version of the calendar that has to |
24 |
c be used. |
25 |
c usesExternalForcingVersion - version of the external forcing that |
26 |
c has to be used. |
27 |
c usesAdjointSupportVersion - version of the adjoint support routines |
28 |
c that have to be used. |
29 |
c usesOptimizationVersion - version of the oof-line optimization |
30 |
c that has to be used. |
31 |
|
32 |
character*(5) eccoVersion |
33 |
character*(5) eccoUsesCalVersion |
34 |
character*(5) eccoUsesExfVersion |
35 |
character*(5) eccoUsesAdsuppVersion |
36 |
character*(5) eccoUsesOptimVersion |
37 |
|
38 |
parameter( eccoVersion = '0.1.0' ) |
39 |
parameter( eccoUsesCalVersion = '0.1.4' ) |
40 |
parameter( eccoUsesExfVersion = '0.1.1' ) |
41 |
parameter( eccoUsesAdsuppVersion = '0.1.0' ) |
42 |
parameter( eccoUsesOptimVersion = '2.1.0' ) |
43 |
|
44 |
|
45 |
c Experiment name: |
46 |
c ================ |
47 |
|
48 |
common /ecco_c/ |
49 |
& expId |
50 |
character*(10) expId |
51 |
|
52 |
|
53 |
c Integration information: |
54 |
c ======================== |
55 |
c |
56 |
c nyears - number of calendar years that are affected by the |
57 |
c current integration. |
58 |
|
59 |
common /ecco_i/ |
60 |
& nyears, nmonths, ndays, numsteps, |
61 |
& ecco_prevcall |
62 |
integer nyears |
63 |
integer nmonths |
64 |
integer ndays |
65 |
integer numsteps |
66 |
|
67 |
integer ecco_prevcall |
68 |
|
69 |
c ================================================================== |
70 |
c END OF HEADER ECCO |
71 |
c ================================================================== |
72 |
|
73 |
|