1 |
c |
2 |
c |
3 |
c ========================================= |
4 |
c Cost Function 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 * cost_... (imin,imax,jmin,jmax without olx,oly) |
25 |
c * cost_... (determination of filenames slightly changed) |
26 |
c * cost_initvaria (initialise jtlo,jthi,itlo,ithi) |
27 |
c * cost_salt (set ladinit to .true. for adsbar file) |
28 |
c * cost_temp (set ladinit to .true. for adtbar file) |