1 |
|
2 |
c expid - experiment name |
3 |
c optimcycle - optimization no. |
4 |
c missing value - missing value identifier (usually -9999.) |
5 |
c ig - global start index x (zonal) |
6 |
c jg - global start index y (medid.) |
7 |
c nsx - no. of x-subgrids |
8 |
c nsy - no. of y-subgrids |
9 |
|
10 |
>>> MISSING: <<< |
11 |
c nr - no. of z-points vertical |
12 |
c snx |
13 |
c sny |
14 |
c nvartype |
15 |
c nvarlength |
16 |
>>> <<< |
17 |
|
18 |
c maxcvars - Number of control variables |
19 |
c (currently 6; 2 init. + 4 bound.) |
20 |
integer maxcvars |
21 |
parameter ( maxcvars = 20 ) |
22 |
|
23 |
c ncvarindex - "arbitrary" index to define variable: |
24 |
c * 101: initial temp. |
25 |
c * 102: initial sali. |
26 |
c * 103: heat flux |
27 |
c * 104: freshwater flux |
28 |
c * 105: u stress (zonal) |
29 |
c * 106: v stress (meri.) |
30 |
integer ncvarindex ( maxcvars ) |
31 |
|
32 |
c ncvarrecs - no. of records in control vector |
33 |
c * = 1 for init. temp./sali. |
34 |
c * = endrec - startrec + 1 for fluxes |
35 |
integer ncvarrecs ( maxcvars ) |
36 |
|
37 |
c ncvarrecstart - first record: |
38 |
c * NOT DEFINED for init. temp./sali. |
39 |
c * = startrec for fluxes |
40 |
integer ncvarrecstart ( maxcvars ) |
41 |
|
42 |
c ncvarrecsend - last record: |
43 |
c * NOT DEFINED for init. temp./sali. |
44 |
c * = endrec for fluxes |
45 |
integer ncvarrecsend ( maxcvars ) |
46 |
|
47 |
c ncvarxmax - no. of x-points in subgrid (zonal) |
48 |
c = snx |
49 |
integer ncvarxmax ( maxcvars ) |
50 |
|
51 |
c ncvarymax - no. of y-points in subgrid (meri.) |
52 |
c = sny |
53 |
integer ncvarymax ( maxcvars ) |
54 |
|
55 |
c ncvarnrmax - no. of z-points (vert.) |
56 |
c * = nr for init. temp./sali. |
57 |
c * = 1 for fluxes |
58 |
integer ncvarnrmax ( maxcvars ) |
59 |
|
60 |
c nwet[c/s/w]tile - Number of wet points in a tile for center (c), |
61 |
c south (s), and western (w) mask, resp. |
62 |
integer nwetctile ( nsx, nsy, nr ) |
63 |
integer nwetstile ( nsx, nsy, nr ) |
64 |
integer nwetwtile ( nsx, nsy, nr ) |
65 |
|
66 |
c ncvargrd - position in grid |
67 |
c * = 'c' : (center,center) |
68 |
c * = 's' : (center,south) |
69 |
c * = 'w' : (west,center) |
70 |
character*(1) ncvargrd(maxcvars) |