1 | ;+ |
---|
2 | ; |
---|
3 | ; @history |
---|
4 | ; 11/99 A. Jouzeau |
---|
5 | ; 10/2001 R. Hordoir, Added variables for |
---|
6 | ; boundary conditions |
---|
7 | ; 02/2002 R. Hordoir, Added North Pole Treatment |
---|
8 | ; 03/2003 R. Hordoir, Added variables for |
---|
9 | ; irregular input grid |
---|
10 | ; |
---|
11 | ;- |
---|
12 | ;----------------------------------------------------------------------- |
---|
13 | ; COMMON OF THE INTERPOLATION PROGRAM * |
---|
14 | ;----------------------------------------------------------------------- |
---|
15 | COMMON input_grid, jpiatm, jpjatm, south_lat, west_lon, dx, phi_input, phi_input_u, phi_input_v, $ |
---|
16 | pres_x, pres_y, ext_x, ext_y, lonatm, latatm, $ |
---|
17 | nstep, nit000, nitend, datadept, $ |
---|
18 | units, key_2d, lon_shift, x_axis,y_axis, y_axis_u, y_axis_v |
---|
19 | COMMON mutiple, add_offset, scale_factor, key_vari |
---|
20 | COMMON missing, nmiss, missing_val |
---|
21 | COMMON output_grid, jpioce, jpjoce, lon_u, lat_u, lon_v, lat_v, lon_f, lat_f, lon_t, lat_t, $ |
---|
22 | outdept |
---|
23 | COMMON tridim, jpkatm, jpkoce |
---|
24 | COMMON paths, input_dir, output_dir, datafile, data_u_file, data_v_file, maskfile, gridfile, $ |
---|
25 | outputfile, outputfile_x, outputfile_y |
---|
26 | COMMON datas, data_name, data_u_name, data_v_name, mask_name, lon_name, lon_u_name, $ |
---|
27 | lon_v_name, lon_f_name, lat_name, lat_u_name, lat_v_name, lat_f_name, $ |
---|
28 | datadept_name, outdept_name, time_name |
---|
29 | COMMON numid, nummsh, nummsk, numdta, numdta_u, numdta_v, numout |
---|
30 | COMMON param, nfil, ndim, nscal, ninterp, ndraw, modlam, nreverse, ndep, keydraw, nlevel, $ |
---|
31 | key_mask, key_ps,north_pole |
---|
32 | COMMON perfs, key_performance |
---|