limb.c File Reference

Create observation geometry for a limb 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 limb sounder.

Definition in file limb.c.

Function Documentation

main()

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

Definition at line 27 of file limb.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);
  const double obsz = scan_ctl(argc, argv, "OBSZ", -1, "780", NULL);
  const double t0 = scan_ctl(argc, argv, "T0", -1, "0", NULL);
  const double t1 = scan_ctl(argc, argv, "T1", -1, "0", NULL);
  const double dt = scan_ctl(argc, argv, "DT", -1, "1", NULL);
  const double z0 = scan_ctl(argc, argv, "Z0", -1, "3", NULL);
  const double z1 = scan_ctl(argc, argv, "Z1", -1, "68", NULL);
  const double dz = scan_ctl(argc, argv, "DZ", -1, "1", NULL);
 
  /* Create measurement geometry... */
  for (double t = t0; t <= t1; t += dt)
    for (double z = z0; z <= z1; z += dz) {
      obs.time[obs.nr] = t;
      obs.obsz[obs.nr] = obsz;
      obs.vpz[obs.nr] = z;
      obs.vplat[obs.nr] = 180 / M_PI * acos((RE + z) / (RE + obsz));
      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: