raytrace.c File Reference

Determine atmospheric ray paths. More...

#include "jurassic.h"

Go to the source code of this file.

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

Detailed Description

Determine atmospheric ray paths.

Definition in file raytrace.c.

Function Documentation

main()

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

Definition at line 27 of file raytrace.c.

                {
 
  static atm_t atm, atm2;
  static ctl_t ctl;
  static los_t los;
  static obs_t obs;
 
  FILE *out;
 
  char filename[LEN], losbase[LEN];
 
  double u[NG];
 
  /* Check arguments... */
  if (argc < 4)
    ERRMSG("Give parameters: <ctl> <obs> <atm>");
 
  /* Read control parameters... */
  read_ctl(argc, argv, &ctl);
 
  /* Get basenames... */
  scan_ctl(argc, argv, "LOSBASE", -1, "los", losbase);
 
  /* Read observation geometry... */
  read_obs(NULL, argv[2], &ctl, &obs);
 
  /* Read atmospheric data... */
  read_atm(NULL, argv[3], &ctl, &atm);
 
  /* Write info... */
  LOG(1, "Write raytrace data: raytrace.tab");
 
  /* Create file... */
  if (!(out = fopen("raytrace.tab", "w")))
    ERRMSG("Cannot create file!");
 
  /* Write header... */
  fprintf(out,
          "# $1 = time (seconds since 2000-01-01T00:00Z)\n"
          "# $2 = observer altitude [km]\n"
          "# $3 = observer longitude [deg]\n"
          "# $4 = observer latitude [deg]\n"
          "# $5 = view point altitude [km]\n"
          "# $6 = view point longitude [deg]\n"
          "# $7 = view point latitude [deg]\n"
          "# $8 = tangent point altitude [km]\n"
          "# $9 = tangent point longitude [deg]\n"
          "# $10 = tangent point latitude [deg]\n"
          "# $11 = ray path index\n" "# $12 = ray path length [km]\n");
  for (int ig = 0; ig < ctl.ng; ig++)
    fprintf(out, "# $%d = %s column density [molec/cm^2]\n",
            13 + ig, ctl.emitter[ig]);
  fprintf(out, "\n");
 
  /* Loop over rays... */
  for (int ir = 0; ir < obs.nr; ir++) {
 
    /* Raytracing... */
    raytrace(&ctl, &atm, &obs, &los, ir);
 
    /* Copy data... */
    atm2.np = los.np;
    for (int ip = 0; ip < los.np; ip++) {
      atm2.time[ip] = obs.time[ir];
      atm2.z[ip] = los.z[ip];
      atm2.lon[ip] = los.lon[ip];
      atm2.lat[ip] = los.lat[ip];
      atm2.p[ip] = los.p[ip];
      atm2.t[ip] = los.t[ip];
      for (int ig = 0; ig < ctl.ng; ig++)
        atm2.q[ig][ip] = los.q[ip][ig];
      for (int iw = 0; iw < ctl.nw; iw++)
        atm2.k[iw][ip] = NAN;
    }
 
    /* Save data... */
    sprintf(filename, "los.%d", ir);
    write_atm(NULL, filename, &ctl, &atm2);
 
    /* Get column densities... */
    double s = 0;
    for (int ig = 0; ig < ctl.ng; ig++)
      u[ig] = 0;
    for (int ip = 0; ip < los.np; ip++) {
      s += los.ds[ip];
      for (int ig = 0; ig < ctl.ng; ig++)
        u[ig] += los.u[ip][ig];
    }
 
    /* Write summary data... */
    fprintf(out, "%.2f %g %g %g %g %g %g %g %g %g %d %g",
            obs.time[ir], obs.obsz[ir], obs.obslon[ir], obs.obslat[ir],
            obs.vpz[ir], obs.vplon[ir], obs.vplat[ir],
            obs.tpz[ir], obs.tplon[ir], obs.tplat[ir], ir, s);
    for (int ig = 0; ig < ctl.ng; ig++)
      fprintf(out, " %g", u[ig]);
    fprintf(out, "\n");
  }
 
  /* Close file... */
  fclose(out);
 
  return EXIT_SUCCESS;
}

Here is the call graph for this function: