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 |