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