1 |
heimbach |
1.1 |
c |
2 |
|
|
c |
3 |
|
|
c ========================================= |
4 |
|
|
c Control Vector Package for the MITgcmUV |
5 |
|
|
c ========================================= |
6 |
|
|
c |
7 |
|
|
c Current Version: 0.0.1 (20-Jun-2000) |
8 |
|
|
c |
9 |
|
|
c |
10 |
|
|
c General Outline: |
11 |
|
|
c ---------------- |
12 |
|
|
c |
13 |
|
|
c |
14 |
|
|
c ======== |
15 |
|
|
c HISTORY: |
16 |
|
|
c ======== |
17 |
|
|
c |
18 |
|
|
c |
19 |
|
|
c started: Christian Eckert eckert@mit.edu 1999 |
20 |
|
|
c |
21 |
|
|
c changed: Patrick Heimbach heimbach@mit.edu 20-Jun-2000 |
22 |
|
|
c |
23 |
|
|
c - Bug fixes: |
24 |
|
|
c * ctrl_Getadxx (eliminated dumiter, dumtime) |
25 |
|
|
c * ctrl_Getadxx (replaced adprefix by common yadmark) |
26 |
|
|
c * ctrl_get... (set ladinit to false) |
27 |
|
|
c * ctrl_init (diffsecs wrongly declared) |
28 |
|
|
c * ctrl_init (included name list /packnames/) |
29 |
|
|
c * ctrl_init (call cal_ToSeconds wrong argument list) |
30 |
|
|
c * ctrl_pack |
31 |
|
|
c + Transferred filename definitions to ctrl_init |
32 |
|
|
c + single filename convention with or without |
33 |
|
|
c ALLOW_ECCO_OPTIMIZATION |
34 |
|
|
c + moved writing to ecco_ctrl to block |
35 |
|
|
c 'if ( .NOT. first .AND. last ) then' |
36 |
|
|
c * ctrl_pack |
37 |
|
|
c + Transferred filename definitions to ctrl_init |
38 |
|
|
c + single filename convention with or without |
39 |
|
|
c ALLOW_ECCO_OPTIMIZATION |