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