nadir.c File Reference

Create observation geometry for a nadir sounder. More...

#include "jurassic.h"

Go to the source code of this file.

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

Detailed Description

Create observation geometry for a nadir sounder.

Definition in file nadir.c.

Function Documentation

main()

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

Definition at line 27 of file nadir.c.

                {
 
  static ctl_t ctl;
  static obs_t obs;
 
  /* Check arguments... */
  if (argc < 3)
    ERRMSG("Give parameters: <ctl> <obs>");
 
  /* Read control parameters... */
  read_ctl(argc, argv, &ctl);
  double t0 = scan_ctl(argc, argv, "T0", -1, "0", NULL);
  double t1 = scan_ctl(argc, argv, "T1", -1, "0", NULL);
  double dt = scan_ctl(argc, argv, "DT", -1, "1", NULL);
  double obsz = scan_ctl(argc, argv, "OBSZ", -1, "700", NULL);
  double lat0 = scan_ctl(argc, argv, "LAT0", -1, "-8.01", NULL);
  double lat1 = scan_ctl(argc, argv, "LAT1", -1, "8.01", NULL);
  double dlat = scan_ctl(argc, argv, "DLAT", -1, "0.18", NULL);
 
  /* Create measurement geometry... */
  for (double t = t0; t <= t1; t += dt)
    for (double lat = lat0; lat <= lat1; lat += dlat) {
      obs.time[obs.nr] = t;
      obs.obsz[obs.nr] = obsz;
      obs.vplat[obs.nr] = lat;
      if ((++obs.nr) >= NR)
        ERRMSG("Too many rays!");
    }
 
  /* Write observation data... */
  write_obs(NULL, argv[2], &ctl, &obs);
 
  return EXIT_SUCCESS;
}

Here is the call graph for this function: