36 ERRMSG(
"Give parameters: <ctl> <obs>");
40 double t0 =
scan_ctl(argc, argv,
"T0", -1,
"0", NULL);
41 double t1 =
scan_ctl(argc, argv,
"T1", -1,
"0", NULL);
42 double dt =
scan_ctl(argc, argv,
"DT", -1,
"1", NULL);
43 double obsz =
scan_ctl(argc, argv,
"OBSZ", -1,
"700", NULL);
44 double lat0 =
scan_ctl(argc, argv,
"LAT0", -1,
"-8.01", NULL);
45 double lat1 =
scan_ctl(argc, argv,
"LAT1", -1,
"8.01", NULL);
46 double dlat =
scan_ctl(argc, argv,
"DLAT", -1,
"0.18", NULL);
49 for (
double t = t0; t <= t1; t += dt)
50 for (
double lat = lat0; lat <= lat1; lat += dlat) {
void read_ctl(int argc, char *argv[], ctl_t *ctl)
Read forward model control parameters.
void write_obs(const char *dirname, const char *filename, const ctl_t *ctl, const obs_t *obs)
Write observation data.
double scan_ctl(int argc, char *argv[], const char *varname, int arridx, const char *defvalue, char *value)
Search control parameter file for variable entry.
JURASSIC library declarations.
#define ERRMSG(...)
Print error message and quit program.
#define NR
Maximum number of ray paths.
int main(int argc, char *argv[])
Forward model control parameters.
Observation geometry and radiance data.
double vplat[NR]
View point latitude [deg].
double obsz[NR]
Observer altitude [km].
double time[NR]
Time (seconds since 2000-01-01T00:00Z).
int nr
Number of ray paths.