MPTRAC
Functions
wind.c File Reference

Create meteorological data files with synthetic wind fields. More...

#include "mptrac.h"

Go to the source code of this file.

Functions

int main (int argc, char *argv[])
 

Detailed Description

Create meteorological data files with synthetic wind fields.

Definition in file wind.c.

Function Documentation

◆ main()

int main ( int  argc,
char *  argv[] 
)

Definition at line 27 of file wind.c.

29 {
30
31 ctl_t ctl;
32
33 static char filename[LEN];
34
35 static double r, dataLon[EX], dataLat[EY], dataZ[EP];
36
37 static float *dataT, *dataU, *dataV, *dataW;
38
39 static int ncid, varid, dims[4], year, mon, day, hour, min, sec;
40
41 static size_t start[4], count[4];
42
43 /* Allocate... */
44 ALLOC(dataT, float,
45 EP * EY * EX);
46 ALLOC(dataU, float,
47 EP * EY * EX);
48 ALLOC(dataV, float,
49 EP * EY * EX);
50 ALLOC(dataW, float,
51 EP * EY * EX);
52
53 /* Check arguments... */
54 if (argc < 3)
55 ERRMSG("Give parameters: <ctl> <metbase>");
56
57 /* Read control parameters... */
58 mptrac_read_ctl(argv[1], argc, argv, &ctl);
59 double t0 = scan_ctl(argv[1], argc, argv, "WIND_T0", -1, "0", NULL);
60 const int nx =
61 (int) scan_ctl(argv[1], argc, argv, "WIND_NX", -1, "360", NULL);
62 const int ny =
63 (int) scan_ctl(argv[1], argc, argv, "WIND_NY", -1, "181", NULL);
64 const int nz =
65 (int) scan_ctl(argv[1], argc, argv, "WIND_NZ", -1, "61", NULL);
66 const double z0 = scan_ctl(argv[1], argc, argv, "WIND_Z0", -1, "0", NULL);
67 const double z1 = scan_ctl(argv[1], argc, argv, "WIND_Z1", -1, "60", NULL);
68 const double u0 =
69 scan_ctl(argv[1], argc, argv, "WIND_U0", -1, "38.587660177302", NULL);
70 const double u1 =
71 scan_ctl(argv[1], argc, argv, "WIND_U1", -1, "38.587660177302", NULL);
72 const double w0 = scan_ctl(argv[1], argc, argv, "WIND_W0", -1, "0", NULL);
73 const double alpha =
74 scan_ctl(argv[1], argc, argv, "WIND_ALPHA", -1, "0.0", NULL);
75 const int lat_reverse =
76 (int) scan_ctl(argv[1], argc, argv, "WIND_LAT_REVERSE", -1, "0", NULL);
77
78 /* Check dimensions... */
79 if (nx < 1 || nx > EX)
80 ERRMSG("Set 1 <= NX <= MAX!");
81 if (ny < 1 || ny > EY)
82 ERRMSG("Set 1 <= NY <= MAX!");
83 if (nz < 1 || nz > EP)
84 ERRMSG("Set 1 <= NZ <= MAX!");
85
86 /* Get time... */
87 jsec2time(t0, &year, &mon, &day, &hour, &min, &sec, &r);
88 t0 = year * 10000. + mon * 100. + day + hour / 24.;
89
90 /* Set filename... */
91 sprintf(filename, "%s_%d_%02d_%02d_%02d.nc", argv[2], year, mon, day, hour);
92
93 /* Create netCDF file... */
94 NC(nc_create(filename, NC_NETCDF4, &ncid));
95
96 /* Create dimensions... */
97 NC(nc_def_dim(ncid, "time", 1, &dims[0]));
98 NC(nc_def_dim(ncid, "lev", (size_t) nz, &dims[1]));
99 NC(nc_def_dim(ncid, "lat", (size_t) ny, &dims[2]));
100 NC(nc_def_dim(ncid, "lon", (size_t) nx, &dims[3]));
101
102 /* Create variables... */
103 NC_DEF_VAR("time", NC_DOUBLE, 1, &dims[0], "time", "day as %Y%m%d.%f", 0,
104 0);
105 NC_DEF_VAR("lev", NC_DOUBLE, 1, &dims[1], "air_pressure", "Pa", 0, 0);
106 NC_DEF_VAR("lat", NC_DOUBLE, 1, &dims[2], "latitude", "degrees_north", 0,
107 0);
108 NC_DEF_VAR("lon", NC_DOUBLE, 1, &dims[3], "longitude", "degrees_east", 0,
109 0);
110 NC_DEF_VAR("T", NC_FLOAT, 4, &dims[0], "Temperature", "K", 0, 0);
111 NC_DEF_VAR("U", NC_FLOAT, 4, &dims[0], "zonal wind", "m s**-1", 0, 0);
112 NC_DEF_VAR("V", NC_FLOAT, 4, &dims[0], "meridional wind", "m s**-1", 0, 0);
113 NC_DEF_VAR("W", NC_FLOAT, 4, &dims[0], "vertical velocity", "Pa s**-1", 0,
114 0);
115
116 /* End definition... */
117 NC(nc_enddef(ncid));
118
119 /* Set coordinates... */
120 for (int ix = 0; ix < nx; ix++)
121 dataLon[ix] = 360.0 / nx * (double) ix;
122 for (int iy = 0; iy < ny; iy++)
123 dataLat[iy] = (lat_reverse ? -(180.0 / (ny - 1) * (double) iy - 90)
124 : (180.0 / (ny - 1) * (double) iy - 90));
125 for (int iz = 0; iz < nz; iz++)
126 dataZ[iz] = 100. * P(LIN(0.0, z0, nz - 1.0, z1, iz));
127
128 /* Write coordinates... */
129 NC_PUT_DOUBLE("time", &t0, 0);
130 NC_PUT_DOUBLE("lev", dataZ, 0);
131 NC_PUT_DOUBLE("lat", dataLat, 0);
132 NC_PUT_DOUBLE("lon", dataLon, 0);
133
134 /* Create wind fields (Williamson et al., 1992)... */
135 for (int ix = 0; ix < nx; ix++)
136 for (int iy = 0; iy < ny; iy++)
137 for (int iz = 0; iz < nz; iz++) {
138 int idx = (iz * ny + iy) * nx + ix;
139 dataU[idx] = (float) (LIN(0.0, u0, nz - 1.0, u1, iz)
140 * (cos(DEG2RAD(dataLat[iy]))
141 * cos(DEG2RAD(alpha))
142 + sin(DEG2RAD(dataLat[iy]))
143 * cos(DEG2RAD(dataLon[ix]))
144 * sin(DEG2RAD(alpha))));
145 dataV[idx] = (float) (-LIN(0.0, u0, nz - 1.0, u1, iz)
146 * sin(DEG2RAD(dataLon[ix]))
147 * sin(DEG2RAD(alpha)));
148 dataW[idx] = (float) DZ2DP(1e-3 * w0, dataZ[iz]);
149 }
150
151 /* Write data... */
152 NC_PUT_FLOAT("T", dataT, 0);
153 NC_PUT_FLOAT("U", dataU, 0);
154 NC_PUT_FLOAT("V", dataV, 0);
155 NC_PUT_FLOAT("W", dataW, 0);
156
157 /* Close file... */
158 NC(nc_close(ncid));
159
160 /* Free... */
161 free(dataT);
162 free(dataU);
163 free(dataV);
164 free(dataW);
165
166 return EXIT_SUCCESS;
167}
scan_ctl
double scan_ctl(const char *filename, int argc, char *argv[], const char *varname, const int arridx, const char *defvalue, char *value)
Scans a control file or command-line arguments for a specified variable.
Definition: mptrac.c:10899
jsec2time
void jsec2time(const double jsec, int *year, int *mon, int *day, int *hour, int *min, int *sec, double *remain)
Converts Julian seconds to calendar date and time components.
Definition: mptrac.c:2535
mptrac_read_ctl
void mptrac_read_ctl(const char *filename, int argc, char *argv[], ctl_t *ctl)
Reads control parameters from a configuration file and populates the given structure.
Definition: mptrac.c:5466
LEN
#define LEN
Maximum length of ASCII data lines.
Definition: mptrac.h:298
NC
#define NC(cmd)
Execute a NetCDF command and check for errors.
Definition: mptrac.h:1167
ERRMSG
#define ERRMSG(...)
Print an error message with contextual information and terminate the program.
Definition: mptrac.h:2043
EY
#define EY
Maximum number of latitudes for meteo data.
Definition: mptrac.h:293
P
#define P(z)
Compute pressure at given altitude.
Definition: mptrac.h:1443
EX
#define EX
Maximum number of longitudes for meteo data.
Definition: mptrac.h:288
DZ2DP
#define DZ2DP(dz, p)
Convert a change in altitude to a change in pressure.
Definition: mptrac.h:651
ALLOC
#define ALLOC(ptr, type, n)
Allocate memory for a pointer with error handling.
Definition: mptrac.h:416
DEG2RAD
#define DEG2RAD(deg)
Converts degrees to radians.
Definition: mptrac.h:567
NC_PUT_FLOAT
#define NC_PUT_FLOAT(varname, ptr, hyperslab)
Write a float array to a NetCDF file.
Definition: mptrac.h:1304
NC_DEF_VAR
#define NC_DEF_VAR(varname, type, ndims, dims, long_name, units, level, quant)
Define a NetCDF variable with attributes.
Definition: mptrac.h:1196
EP
#define EP
Maximum number of pressure levels for meteo data.
Definition: mptrac.h:283
NC_PUT_DOUBLE
#define NC_PUT_DOUBLE(varname, ptr, hyperslab)
Write double precision data to a NetCDF variable.
Definition: mptrac.h:1280
LIN
#define LIN(x0, y0, x1, y1, x)
Linear interpolation.
Definition: mptrac.h:1010
ctl_t
Control parameters.
Definition: mptrac.h:2264
Here is the call graph for this function:
Generated on Mon Oct 13 2025 08:01:17 for MPTRAC by doxygen 1.9.4