MPTRAC
met_zm.c
Go to the documentation of this file.
1/*
2 This file is part of MPTRAC.
3
4 MPTRAC is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation, either version 3 of the License, or
7 (at your option) any later version.
8
9 MPTRAC is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
13
14 You should have received a copy of the GNU General Public License
15 along with MPTRAC. If not, see <http://www.gnu.org/licenses/>.
16
17 Copyright (C) 2013-2025 Forschungszentrum Juelich GmbH
18*/
19
25#include "mptrac.h"
26
27/* ------------------------------------------------------------
28 Dimensions...
29 ------------------------------------------------------------ */
30
32#define NZ 1000
33
35#define NY EY
36
37/* ------------------------------------------------------------
38 Main...
39 ------------------------------------------------------------ */
40
41int main(
42 int argc,
43 char *argv[]) {
44
45 ctl_t ctl;
46
47 clim_t *clim;
48
49 met_t *met;
50
51 dd_t *dd;
52
53 FILE *out;
54
55 static double timem[NZ][NY], psm[NZ][NY], tsm[NZ][NY], zsm[NZ][NY],
56 usm[NZ][NY], vsm[NZ][NY], essm[NZ][NY], nssm[NZ][NY], shfm[NZ][NY],
57 lsmm[NZ][NY], sstm[NZ][NY], pblm[NZ][NY],
58 ptm[NZ][NY], pctm[NZ][NY], pcbm[NZ][NY], clm[NZ][NY], plclm[NZ][NY],
59 plfcm[NZ][NY], pelm[NZ][NY], capem[NZ][NY], cinm[NZ][NY], o3cm[NZ][NY],
60 ttm[NZ][NY], ztm[NZ][NY], tm[NZ][NY], um[NZ][NY], vm[NZ][NY], wm[NZ][NY],
61 h2om[NZ][NY], h2otm[NZ][NY], pvm[NZ][NY], o3m[NZ][NY], lwcm[NZ][NY],
62 rwcm[NZ][NY], iwcm[NZ][NY], swcm[NZ][NY], ccm[NZ][NY], zm[NZ][NY],
63 rhm[NZ][NY], rhicem[NZ][NY], tdewm[NZ][NY], ticem[NZ][NY], tnatm[NZ][NY],
64 hno3m[NZ][NY], ohm[NZ][NY], h2o2m[NZ][NY], ho2m[NZ][NY], o1dm[NZ][NY], z,
65 zt, tt, plev[NZ], ps, ts, zs, us, vs, ess, nss, shf, lsm, sst, pbl,
66 pt, pct, pcb, plcl, plfc, pel, cape, cin, o3c, cl, t, u, v, w, pv,
67 h2o, h2ot, o3, lwc, rwc, iwc, swc, cc, lat, lats[NY], lonm[NZ][NY], cw[3];
68
69 static int np[NZ][NY], npc[NZ][NY], npt[NZ][NY], ny, nz, ci[3];
70
71 /* Allocate... */
72 ALLOC(clim, clim_t, 1);
73 ALLOC(met, met_t, 1);
74 ALLOC(dd, dd_t, 1);
75
76 /* Check arguments... */
77 if (argc < 4)
78 ERRMSG("Give parameters: <ctl> <zm.tab> <met0> [ <met1> ... ]");
79
80 /* Read control parameters... */
81 mptrac_read_ctl(argv[1], argc, argv, &ctl);
82 double z0 = scan_ctl(argv[1], argc, argv, "ZM_Z0", -1, "-999", NULL);
83 double z1 = scan_ctl(argv[1], argc, argv, "ZM_Z1", -1, "-999", NULL);
84 double dz = scan_ctl(argv[1], argc, argv, "ZM_DZ", -1, "-999", NULL);
85 double lon0 = scan_ctl(argv[1], argc, argv, "ZM_LON0", -1, "-360", NULL);
86 double lon1 = scan_ctl(argv[1], argc, argv, "ZM_LON1", -1, "360", NULL);
87 double lat0 = scan_ctl(argv[1], argc, argv, "ZM_LAT0", -1, "-90", NULL);
88 double lat1 = scan_ctl(argv[1], argc, argv, "ZM_LAT1", -1, "90", NULL);
89 double dlat = scan_ctl(argv[1], argc, argv, "ZM_DLAT", -1, "-999", NULL);
90
91 /* Read climatological data... */
92 mptrac_read_clim(&ctl, clim);
93
94 /* Loop over files... */
95 for (int i = 3; i < argc; i++) {
96
97 /* Read meteorological data... */
98 if (!mptrac_read_met(argv[i], &ctl, clim, met, dd))
99 continue;
100
101 /* Set vertical grid... */
102 if (z0 < 0)
103 z0 = Z(met->p[0]);
104 if (z1 < 0)
105 z1 = Z(met->p[met->np - 1]);
106 nz = 0;
107 if (dz < 0) {
108 for (int iz = 0; iz < met->np; iz++)
109 if (Z(met->p[iz]) >= z0 && Z(met->p[iz]) <= z1) {
110 plev[nz] = met->p[iz];
111 if ((++nz) >= NZ)
112 ERRMSG("Too many pressure levels!");
113 }
114 } else
115 for (z = z0; z <= z1; z += dz) {
116 plev[nz] = P(z);
117 if ((++nz) >= NZ)
118 ERRMSG("Too many pressure levels!");
119 }
120
121 /* Set horizontal grid... */
122 if (dlat <= 0)
123 dlat = fabs(met->lat[1] - met->lat[0]);
124 ny = 0;
125 if (lat0 < -90 && lat1 > 90) {
126 lat0 = gsl_stats_min(met->lat, 1, (size_t) met->ny);
127 lat1 = gsl_stats_max(met->lat, 1, (size_t) met->ny);
128 }
129 for (lat = lat0; lat <= lat1 + 0.001; lat += dlat) {
130 lats[ny] = round(lat * 1e3) / 1e3;
131 if ((++ny) >= NY)
132 ERRMSG("Too many latitudes!");
133 }
134
135 /* Average... */
136 for (int ix = 0; ix < met->nx; ix++)
137 if (met->lon[ix] >= lon0 && met->lon[ix] <= lon1)
138 for (int iy = 0; iy < ny; iy++)
139 for (int iz = 0; iz < nz; iz++) {
140
141 /* Interpolate meteo data... */
142 INTPOL_SPACE_ALL(plev[iz], met->lon[ix], lats[iy]);
143
144 /* Averaging... */
145 timem[iz][iy] += met->time;
146 lonm[iz][iy] += met->lon[ix];
147 zm[iz][iy] += z;
148 tm[iz][iy] += t;
149 um[iz][iy] += u;
150 vm[iz][iy] += v;
151 wm[iz][iy] += w;
152 pvm[iz][iy] += pv;
153 h2om[iz][iy] += h2o;
154 o3m[iz][iy] += o3;
155 lwcm[iz][iy] += lwc;
156 rwcm[iz][iy] += rwc;
157 iwcm[iz][iy] += iwc;
158 swcm[iz][iy] += swc;
159 ccm[iz][iy] += cc;
160 psm[iz][iy] += ps;
161 tsm[iz][iy] += ts;
162 zsm[iz][iy] += zs;
163 usm[iz][iy] += us;
164 vsm[iz][iy] += vs;
165 essm[iz][iy] += ess;
166 nssm[iz][iy] += nss;
167 shfm[iz][iy] += shf;
168 lsmm[iz][iy] += lsm;
169 sstm[iz][iy] += sst;
170 pblm[iz][iy] += pbl;
171 pctm[iz][iy] += pct;
172 pcbm[iz][iy] += pcb;
173 clm[iz][iy] += cl;
174 if (isfinite(plfc) && isfinite(pel) && cape >= ctl.conv_cape
175 && (ctl.conv_cin <= 0 || cin < ctl.conv_cin)) {
176 plclm[iz][iy] += plcl;
177 plfcm[iz][iy] += plfc;
178 pelm[iz][iy] += pel;
179 capem[iz][iy] += cape;
180 cinm[iz][iy] += cin;
181 npc[iz][iy]++;
182 }
183 if (isfinite(pt)) {
184 ptm[iz][iy] += pt;
185 ztm[iz][iy] += zt;
186 ttm[iz][iy] += tt;
187 h2otm[iz][iy] += h2ot;
188 npt[iz][iy]++;
189 }
190 o3cm[iz][iy] += o3c;
191 rhm[iz][iy] += RH(plev[iz], t, h2o);
192 rhicem[iz][iy] += RHICE(plev[iz], t, h2o);
193 tdewm[iz][iy] += TDEW(plev[iz], h2o);
194 ticem[iz][iy] += TICE(plev[iz], h2o);
195 hno3m[iz][iy] +=
196 clim_zm(&clim->hno3, met->time, lats[iy], plev[iz]);
197 tnatm[iz][iy] +=
198 nat_temperature(plev[iz], h2o,
199 clim_zm(&clim->hno3, met->time, lats[iy],
200 plev[iz]));
201 ohm[iz][iy] +=
202 clim_oh(&ctl, clim, met->time, met->lon[ix], lats[iy],
203 plev[iz]);
204 h2o2m[iz][iy]
205 += clim_zm(&clim->h2o2, met->time, lats[iy], plev[iz]);
206 ho2m[iz][iy]
207 += clim_zm(&clim->ho2, met->time, lats[iy], plev[iz]);
208 o1dm[iz][iy]
209 += clim_zm(&clim->o1d, met->time, lats[iy], plev[iz]);
210 np[iz][iy]++;
211 }
212 }
213
214 /* Create output file... */
215 LOG(1, "Write meteorological data file: %s", argv[2]);
216 if (!(out = fopen(argv[2], "w")))
217 ERRMSG("Cannot create file!");
218
219 /* Write header... */
220 MET_HEADER;
221
222 /* Write data... */
223 for (int iz = 0; iz < nz; iz++) {
224 fprintf(out, "\n");
225 for (int iy = 0; iy < ny; iy++)
226 fprintf(out,
227 "%.2f %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g"
228 " %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g"
229 " %g %g %g %g %g %g %g %g %g %g %g %g %g %d %d %d\n",
230 timem[iz][iy] / np[iz][iy], Z(plev[iz]),
231 lonm[iz][iy] / np[iz][iy], lats[iy],
232 plev[iz], tm[iz][iy] / np[iz][iy], um[iz][iy] / np[iz][iy],
233 vm[iz][iy] / np[iz][iy], wm[iz][iy] / np[iz][iy],
234 h2om[iz][iy] / np[iz][iy], o3m[iz][iy] / np[iz][iy],
235 zm[iz][iy] / np[iz][iy], pvm[iz][iy] / np[iz][iy],
236 psm[iz][iy] / np[iz][iy], tsm[iz][iy] / np[iz][iy],
237 zsm[iz][iy] / np[iz][iy], usm[iz][iy] / np[iz][iy],
238 vsm[iz][iy] / np[iz][iy], essm[iz][iy] / np[iz][iy],
239 nssm[iz][iy] / np[iz][iy], shfm[iz][iy] / np[iz][iy],
240 lsmm[iz][iy] / np[iz][iy],
241 sstm[iz][iy] / np[iz][iy], ptm[iz][iy] / npt[iz][iy],
242 ztm[iz][iy] / npt[iz][iy], ttm[iz][iy] / npt[iz][iy],
243 h2otm[iz][iy] / npt[iz][iy], lwcm[iz][iy] / np[iz][iy],
244 rwcm[iz][iy] / np[iz][iy], iwcm[iz][iy] / np[iz][iy],
245 swcm[iz][iy] / np[iz][iy], ccm[iz][iy] / np[iz][iy],
246 clm[iz][iy] / np[iz][iy], pctm[iz][iy] / np[iz][iy],
247 pcbm[iz][iy] / np[iz][iy], plclm[iz][iy] / npc[iz][iy],
248 plfcm[iz][iy] / npc[iz][iy], pelm[iz][iy] / npc[iz][iy],
249 capem[iz][iy] / npc[iz][iy], cinm[iz][iy] / npc[iz][iy],
250 rhm[iz][iy] / np[iz][iy], rhicem[iz][iy] / np[iz][iy],
251 tdewm[iz][iy] / np[iz][iy], ticem[iz][iy] / np[iz][iy],
252 tnatm[iz][iy] / np[iz][iy], hno3m[iz][iy] / np[iz][iy],
253 ohm[iz][iy] / np[iz][iy], h2o2m[iz][iy] / np[iz][iy],
254 ho2m[iz][iy] / np[iz][iy], o1dm[iz][iy] / np[iz][iy],
255 pblm[iz][iy] / np[iz][iy], o3cm[iz][iy] / np[iz][iy],
256 np[iz][iy], npt[iz][iy], npc[iz][iy]);
257 }
258
259 /* Close file... */
260 fclose(out);
261
262 /* Free... */
263 free(clim);
264 free(met);
265
266 return EXIT_SUCCESS;
267}
main
int main(int argc, char *argv[])
Definition: met_zm.c:41
NY
#define NY
Maximum number of latitudes.
Definition: met_zm.c:35
NZ
#define NZ
Maximum number of altitudes.
Definition: met_zm.c:32
clim_zm
double clim_zm(const clim_zm_t *zm, const double t, const double lat, const double p)
Interpolates monthly mean zonal mean climatological variables.
Definition: mptrac.c:406
nat_temperature
double nat_temperature(const double p, const double h2o, const double hno3)
Calculates the nitric acid trihydrate (NAT) temperature.
Definition: mptrac.c:6921
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
mptrac_read_clim
void mptrac_read_clim(const ctl_t *ctl, clim_t *clim)
Reads various climatological data and populates the given climatology structure.
Definition: mptrac.c:5406
clim_oh
double clim_oh(const ctl_t *ctl, const clim_t *clim, const double t, const double lon, const double lat, const double p)
Calculates the hydroxyl radical (OH) concentration from climatology data, with an optional diurnal co...
Definition: mptrac.c:89
mptrac_read_met
int mptrac_read_met(const char *filename, const ctl_t *ctl, const clim_t *clim, met_t *met, dd_t *dd)
Reads meteorological data from a file, supporting multiple formats and MPI broadcasting.
Definition: mptrac.c:6357
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
mptrac.h
MPTRAC library declarations.
INTPOL_SPACE_ALL
#define INTPOL_SPACE_ALL(p, lon, lat)
Interpolate multiple meteorological variables in space.
Definition: mptrac.h:883
ERRMSG
#define ERRMSG(...)
Print an error message with contextual information and terminate the program.
Definition: mptrac.h:2043
Z
#define Z(p)
Convert pressure to altitude.
Definition: mptrac.h:1880
P
#define P(z)
Compute pressure at given altitude.
Definition: mptrac.h:1443
MET_HEADER
#define MET_HEADER
Write header for meteorological data file.
Definition: mptrac.h:1051
TICE
#define TICE(p, h2o)
Calculate frost point temperature (WMO, 2018).
Definition: mptrac.h:1759
RHICE
#define RHICE(p, t, h2o)
Compute relative humidity over ice.
Definition: mptrac.h:1595
ALLOC
#define ALLOC(ptr, type, n)
Allocate memory for a pointer with error handling.
Definition: mptrac.h:416
RH
#define RH(p, t, h2o)
Compute relative humidity over water.
Definition: mptrac.h:1565
LOG
#define LOG(level,...)
Print a log message with a specified logging level.
Definition: mptrac.h:1973
TDEW
#define TDEW(p, h2o)
Calculate dew point temperature.
Definition: mptrac.h:1734
clim_t
Climatological data.
Definition: mptrac.h:3487
clim_t::ho2
clim_zm_t ho2
HO2 zonal means.
Definition: mptrac.h:3517
clim_t::hno3
clim_zm_t hno3
HNO3 zonal means.
Definition: mptrac.h:3508
clim_t::o1d
clim_zm_t o1d
O(1D) zonal means.
Definition: mptrac.h:3520
clim_t::h2o2
clim_zm_t h2o2
H2O2 zonal means.
Definition: mptrac.h:3514
ctl_t
Control parameters.
Definition: mptrac.h:2264
ctl_t::conv_cape
double conv_cape
CAPE threshold for convection module [J/kg].
Definition: mptrac.h:2816
ctl_t::conv_cin
double conv_cin
CIN threshold for convection module [J/kg].
Definition: mptrac.h:2819
dd_t
Domain decomposition data structure.
Definition: mptrac.h:3720
met_t
Meteo data structure.
Definition: mptrac.h:3546
met_t::nx
int nx
Number of longitudes.
Definition: mptrac.h:3552
met_t::ny
int ny
Number of latitudes.
Definition: mptrac.h:3555
met_t::np
int np
Number of pressure levels.
Definition: mptrac.h:3558
met_t::lon
double lon[EX]
Longitudes [deg].
Definition: mptrac.h:3564
met_t::time
double time
Time [s].
Definition: mptrac.h:3549
met_t::lat
double lat[EY]
Latitudes [deg].
Definition: mptrac.h:3567
met_t::p
double p[EP]
Pressure levels [hPa].
Definition: mptrac.h:3570
Generated on Mon Oct 13 2025 08:01:15 for MPTRAC by doxygen 1.9.4