A sphere with three ocean waves in differing shades of blue. Next to the sphere, there is the bolded text "Ocean Color". Under that, there are two acronyms, separated by a vertical pipe: OB.DAAC (Ocean Biology Distributed Active Archive Center) and OBPG (Ocean Biology Processing Group). Lorem ipsum dolor sit amet
NASA Logo
Ocean Color Science Software

ocssw V2022
l1_io.c
Go to the documentation of this file.
1 /* =========================================================== */
2 /* Module l1_io.c */
3 /* */
4 /* Functions to open, close, read, and write a level-1b file, */
5 /* with the format determined by the file handle content. */
6 /* */
7 /* Written By: */
8 /* */
9 /* B. A. Franz */
10 /* SAIC General Sciences Corp. */
11 /* NASA/SIMBIOS Project */
12 /* April 1998 */
13 /* */
14 /* Modifications By: */
15 /* J. Gales */
16 /* Futuretech */
17 /* NASA/SIMBIOS Project */
18 /* 10/00 */
19 /* */
20 /* Add support for OCTSL1A */
21 /* W. Robinson, SAIC, 10 Dec 2004 add CZCS, VIIRS support */
22 /* =========================================================== */
23 #include "l1.h"
24 
25 #include "scene_meta.h"
26 
27 #include <stdio.h>
28 
29 #include "l1_mos.h"
30 #include "l1_hdf_generic_read.h"
31 #include "l1_seawifs.h"
32 #include "l1_seawifs_netcdf.h"
33 #include "l1_octs.h"
34 #include "l1_octs_netcdf.h"
35 #include "l1_osmi.h"
36 #include "l1_modis.h"
37 #include "l1_czcs.h"
38 #include "l1_xcal.h"
39 #include "l1_aci.h"
40 #include "l1_sgli.h"
41 #include "l1_ocm.h"
42 #include "l1_ocm2.h"
43 #include "l1_ocmdb.h"
44 #include "l1_meris_N1.h"
45 #include "l1_meris_CC.h"
46 #include "l1_safe.h"
47 #include "l1_viirs_h5.h"
48 #include "l1_viirs_l1b.h"
49 #include "l1_hico.h"
50 #include "l1_goci.h"
51 #include "l1_oli.h"
52 #include "l1_viirs_l1a.h"
53 #include "l1_ocia.h"
54 #include "l1_aviris.h"
55 #include "l1_prism.h"
56 #include "l1_nc_generic_read.h"
57 #include "l1_l5tm.h"
58 #include "l1_l7etm.h"
59 #include "l1_msi.h"
60 #include "l1_hawkeye.h"
61 #include "l1_misr.h"
62 #include "l1_oci.h"
63 #include "l1_ocis.h"
64 #include "l1_seabass.h"
65 #include "l1_l1c.h"
66 #include "l1_l1c_anc.h"
67 #include "l1_spexone.h"
68 
69 /* ---------------------------------------------------------------- */
70 /* Close the level 1 file associated with the input file handle. */
71 
72 /* ---------------------------------------------------------------- */
73 void closel1(filehandle *l1file) {
74  switch (l1file->format) {
75  case FT_L1HDF:
76  if (l1file->mode == READ)
77  closel1_hdf_g(l1file);
78  else
79  closel1_generic(l1file);
80  break;
81  case FT_L1BNCDF:
82  closel1_generic(l1file);
83  break;
84  case FT_MOSL1B:
85  closel1_mos(l1file);
86  break;
87 #ifdef BUILD_HISTORICAL
88  case FT_SEAWIFSL1A:
89  closel1_seawifs(l1file);
90  break;
91  case FT_SEAWIFSL1ANC:
92  closel1_seawifs_netcdf(l1file);
93  break;
94 #endif
95  case FT_OCTSL1A:
96  case FT_OCTSL1B:
97  closel1_octs(l1file);
98  break;
99  case FT_OCTSL1ANC:
100  closel1_octs_netcdf(l1file);
101  break;
102 #ifdef BUILD_HISTORICAL
103  case FT_OSMIL1A:
104  closel1_osmi(l1file);
105  break;
106 #endif
107  case FT_L1XCAL:
108  closel1_xcal(l1file);
109  break;
110 #ifdef BUILD_HISTORICAL
111  case FT_CZCSL1A:
112  closel1_czcs(l1file);
113  break;
114 #endif
115  case FT_MODISL1B:
116  closel1_modis();
117  break;
118 #ifdef BUILD_HISTORICAL
119  case FT_CLASSAVHRR:
120  closel1_aci(l1file);
121  break;
122 #endif
123  case FT_OCML1B:
124  closel1_ocm(l1file);
125  break;
126  case FT_OCM2L1B:
127  closel1_ocm2(l1file);
128  break;
129  case FT_OCML1BDB:
130  closel1_ocmdb(l1file);
131  break;
132  case FT_MERISL1B:
133  closel1_meris_N1(l1file);
134  break;
135  case FT_MERISCC:
136  closel1_meris_CC(l1file);
137  break;
138  case FT_MERISL1BSAFE:
139  closel1_safe(l1file);
140  break;
141  case FT_VIIRSL1B:
142  closel1_viirs_h5(l1file);
143  break;
144  case FT_VIIRSL1BNC:
145  closel1_viirs_l1b();
146  break;
147  case FT_VIIRSL1A:
148  closel1_viirs_l1a(l1file);
149  break;
150  case FT_HICOL1B:
151  closel1_hico(l1file);
152  break;
153  case FT_GOCIL1B:
154  closel1_goci(l1file);
155  break;
156  case FT_OLIL1B:
157  closel1_oli(l1file);
158  break;
159  case FT_OCIA:
160  closel1_ocia(l1file);
161  break;
162  case FT_OCIL1B:
163  closel1_oci(l1file);
164  break;
165  case FT_OCIS:
166  closel1_ocis(l1file);
167  break;
168  case FT_AVIRIS: {
169  aviris_t* data = (aviris_t*) l1file->private_data;
170  if (data->isnetcdf)
171  closel1_aviris_nc(l1file);
172  else
173  closel1_aviris(l1file);
174  } break;
175  case FT_PRISM:
176  closel1_prism(l1file);
177  break;
178  case FT_OLCI:
179  closel1_safe(l1file);
180  break;
181  case FT_SGLI:
182  closel1_sgli(l1file);
183  break;
184  case FT_L5TML1B:
185  closel1_l5tm(l1file);
186  break;
187  case FT_L7ETML1B:
188  closel1_l7etm(l1file);
189  break;
190  case FT_MSIL1C:
191  closel1_msi(l1file);
192  break;
193  case FT_HAWKEYEL1A:
194  closel1_hawkeye(l1file);
195  break;
196  case FT_MISR:
197  closel1_misr(l1file);
198  break;
199  case FT_SEABASSRRS:
200  close_seabass(l1file);
201  break;
202  case FT_L1C:
203  closel1_l1c(l1file);
204  break;
205  case FT_L1CANC:
206  closel1_l1c_anc(l1file);
207  break;
208  case FT_SPEXONE:
209  closel1_spexone(l1file);
210  break;
211  default:
212  fprintf(stderr,
213  "-E- %s Line %d: l1close - Unknown L1 file format specifier: %d\n",
214  __FILE__, __LINE__, l1file->format);
215  break;
216  };
217 
218  free(l1file->Fonom);
219  l1file->Fonom = NULL;
220 
221  return;
222 }
223 
224 /* ---------------------------------------------------------------- */
225 /* Open a level 1 file for reading, load file handle with metadata */
226 /* from file header. At a minimum, the name and format fields of */
227 /* file handle must be loaded before this function is called. */
228 
229 /* ---------------------------------------------------------------- */
230 int openl1(filehandle *l1file) {
231  int status = 1;
232  /*
233  if (l1file->sensorID == SEABASS){
234  return open_seabass(l1file);
235  }
236  */
237 
238  /* Get number of bands and band indexing from sensor table */
239  l1file->nbands = rdsensorinfo(l1file->sensorID, l1_input->evalmask, NULL, NULL);
240  if (l1file->nbands < 0) {
241  printf("-E- %s line %d: Error reading sensor table\n",
242  __FILE__, __LINE__);
243  return (status);
244  }
245  rdsensorinfo(l1file->sensorID, l1_input->evalmask, "Bindx", (void **) &l1file->bindx);
246  l1file->nbandsir = rdsensorinfo(l1file->sensorID, l1_input->evalmask, "NbandsIR", NULL);
247 
248  /* set wavelength index */
249  rdsensorinfo(l1file->sensorID, l1_input->evalmask, "Lambda", (void **) &l1file->iwave);
250  rdsensorinfo(l1file->sensorID, l1_input->evalmask, "fwave", (void **) &l1file->fwave);
251  rdsensorinfo(l1file->sensorID, l1_input->evalmask, "Fobar", (void **) &l1file->Fobar);
252  rdsensorinfo(l1file->sensorID, l1_input->evalmask, "Tau_r", (void **) &l1file->Tau_r);
253  rdsensorinfo(l1file->sensorID, l1_input->evalmask, "k_oz", (void **) &l1file->k_oz);
254  rdsensorinfo(l1file->sensorID, l1_input->evalmask, "k_no2", (void **) &l1file->k_no2);
255  rdsensorinfo(l1file->sensorID, l1_input->evalmask, "aw", (void **) &l1file->aw);
256  rdsensorinfo(l1file->sensorID, l1_input->evalmask, "bbw", (void **) &l1file->bbw);
257 
258  bindex_set(l1file->iwave, l1file->nbands + l1file->nbandsir, BANDW);
259 
260  if ((l1file->Fonom = (float*) calloc(l1file->nbands, sizeof (float))) == NULL) {
261  printf("-E- (%s, %d) Cannot allocate space for l1file->Fonom\n", __FILE__, __LINE__);
262  exit(EXIT_FAILURE);
263  }
264  int i;
265  for (i = 0; i < l1file->nbands; i++) {
266  if (l1_input->outband_opt >= 2) {
267  get_f0_thuillier_ext(l1file->iwave[i], BANDW, l1file->Fonom + i);
268  } else {
269  l1file->Fonom[i] = l1file->Fobar[i];
270  }
271  }
272 
273  /* Open L1 file for reading or writing, as requested */
274  if (l1file->mode == READ) {
275 
276  switch (l1file->format) {
277  case FT_MOSL1B:
278  status = openl1_read_mos(l1file);
279  break;
280 #ifdef BUILD_HISTORICAL
281  case FT_SEAWIFSL1A:
282  status = openl1_seawifs(l1file);
283  break;
284  case FT_SEAWIFSL1ANC:
285  status = openl1_seawifs_netcdf(l1file);
286  break;
287 #endif
288  case FT_L1HDF:
289  status = openl1_read_hdf_g(l1file);
290  break;
291  case FT_L1BNCDF:
292  status = openl1_nc_generic(l1file);
293  break;
294  case FT_OCTSL1A:
295  case FT_OCTSL1B:
296  status = openl1_octs(l1file);
297  break;
298  case FT_OCTSL1ANC:
299  status = openl1_octs_netcdf(l1file);
300  break;
301 #ifdef BUILD_HISTORICAL
302  case FT_OSMIL1A:
303  status = openl1_osmi(l1file);
304  break;
305 #endif
306  case FT_L1XCAL:
307  status = openl1_xcal(l1file);
308  break;
309 #ifdef BUILD_HISTORICAL
310  case FT_CZCSL1A:
311  status = openl1_czcs(l1file);
312  break;
313 #endif
314  case FT_MODISL1B:
315  status = openl1_modis(l1file);
316  break;
317 #ifdef BUILD_HISTORICAL
318  case FT_CLASSAVHRR:
319  status = openl1_aci(l1file);
320  break;
321 #endif
322  case FT_OCML1B:
323  status = openl1_ocm(l1file);
324  break;
325  case FT_OCM2L1B:
326  status = openl1_ocm2(l1file);
327  break;
328  case FT_OCML1BDB:
329  status = openl1_ocmdb(l1file);
330  break;
331  case FT_MERISL1B:
332  status = openl1_meris_N1(l1file);
333  break;
334  case FT_VIIRSL1B:
335  status = openl1_viirs_h5(l1file);
336  break;
337  case FT_VIIRSL1BNC:
338  status = openl1_viirs_l1b(l1file);
339  break;
340  case FT_VIIRSL1A:
341  status = openl1_viirs_l1a(l1file);
342  break;
343  case FT_HICOL1B:
344  status = openl1_hico(l1file);
345  break;
346  case FT_GOCIL1B:
347  status = openl1_goci(l1file);
348  break;
349  case FT_MERISCC:
350  status = openl1_meris_CC(l1file);
351  break;
352  case FT_MERISL1BSAFE:
353  status = openl1_safe(l1file);
354  break;
355  case FT_OLIL1B:
356  status = openl1_oli(l1file);
357  break;
358  case FT_OCIA:
359  status = openl1_ocia(l1file);
360  break;
361  case FT_OCIL1B:
362  status = openl1_oci(l1file);
363  break;
364  case FT_OCIS:
365  status = openl1_ocis(l1file);
366  break;
367  case FT_AVIRIS: {
368  aviris_t* data = (aviris_t*)l1file->private_data;
369  if (data->isnetcdf)
370  status = openl1_aviris_nc(l1file);
371  else
372  status = openl1_aviris(l1file);
373  } break;
374  case FT_PRISM:
375  status = openl1_prism(l1file);
376  break;
377  case FT_OLCI:
378  status = openl1_safe(l1file);
379  break;
380  case FT_SGLI:
381  status = openl1_sgli(l1file);
382  break;
383  case FT_L5TML1B:
384  status = openl1_l5tm(l1file);
385  break;
386  case FT_L7ETML1B:
387  status = openl1_l7etm(l1file);
388  break;
389  case FT_MSIL1C:
390  status = openl1_msi(l1file);
391  break;
392  case FT_HAWKEYEL1A:
393  status = openl1_hawkeye(l1file);
394  break;
395  case FT_MISR:
396  status = openl1_misr(l1file);
397  break;
398  case FT_SEABASSRRS:
399  status = open_seabass(l1file);
400  break;
401  case FT_L1C:
402  status = openl1_l1c(l1file);
403  break;
404  case FT_SPEXONE:
405  status = openl1_spexone(l1file);
406  break;
407  case FT_L1CANC:
408  status = openl1_l1c_anc(l1file);
409  break;
410  default:
411  printf("openl1 - Unknown L1 input file format specifier: %d\n",
412  l1file->format);
413  break;
414  };
415 
416  } else {
417 
418  switch (l1file->format) {
419  case FT_L1HDF:
420  case FT_L1BNCDF:
421  status = openl1_write(l1file);
422  break;
423  default:
424  printf("Unknown L1 output file format specifier: %d\n",
425  l1file->format);
426  break;
427  };
428  }
429 
430  return (status);
431 }
432 
433 
434 /* ---------------------------------------------------------------- */
435 /* Read a specific level 1 record from the file pointed to by the */
436 /* input file handle and load the data into the l1 record structure.*/
437 
438 /* ---------------------------------------------------------------- */
439 int readl1(filehandle *l1file, int32_t recnum, l1str *l1rec) {
440  int status=1;
441  int32_t ip;
442  aviris_t* data = (aviris_t*) l1file->private_data;
443 
444  /* Clear the L1 record */
445  init_l1(l1rec);
446  l1rec->tilt = 0.0;
447  l1rec->mside = 0;
448  l1rec->detnum = 0;
449  /* Altitude of sensor should be set in l1_sensor.c
450  * If not set it will be assumed sensor is above atmosphere
451  * and no rayleigh correction will be done.
452  */
453  l1rec->alt = BAD_FLT;
454 
455  for (ip = 0; ip < l1file->npix; ip++) {
456  l1rec->pixnum[ip] = ip;
457  l1rec->slot[ip] = 0;
458  l1rec->alpha[ip] = 0.0;
459  }
460 
461  l1rec->iscan = recnum;
462 
463  l1rec->l1file = l1file;
464 
465  switch (l1file->format) {
466  case FT_L1HDF:
467  status = readl1_hdf_g(l1file, recnum, l1rec);
468  break;
469  case FT_L1BNCDF:
470  status = readl1_nc_generic(l1file, recnum, l1rec);
471  break;
472  case FT_MOSL1B:
473  status = readl1_mos(l1file, recnum, l1rec);
474  break;
475 #ifdef BUILD_HISTORICAL
476  case FT_SEAWIFSL1A:
477  status = readl1_seawifs(l1file, recnum, l1rec);
478  break;
479  case FT_SEAWIFSL1ANC:
480  status = readl1_seawifs_netcdf(l1file, recnum, l1rec);
481  break;
482 #endif
483  case FT_OCTSL1A:
484  case FT_OCTSL1B:
485  status = readl1_octs(l1file, recnum, l1rec);
486  break;
487  case FT_OCTSL1ANC:
488  status = readl1_octs_netcdf(l1file, recnum, l1rec);
489  break;
490 #ifdef BUILD_HISTORICAL
491  case FT_OSMIL1A:
492  status = readl1_osmi(l1file, recnum, l1rec);
493  break;
494 #endif
495  case FT_L1XCAL:
496  status = readl1_xcal(l1file, recnum, l1rec);
497  break;
498 #ifdef BUILD_HISTORICAL
499  case FT_CZCSL1A:
500  status = readl1_czcs(l1file, recnum, l1rec);
501  break;
502 #endif
503  case FT_MODISL1B:
504  status = readl1_modis(l1file, recnum, l1rec, 0);
505  break;
506 #ifdef BUILD_HISTORICAL
507  case FT_CLASSAVHRR:
508  status = readl1_aci(l1file, recnum, l1rec);
509  break;
510 #endif
511  case FT_OCML1B:
512  status = readl1_ocm(l1file, recnum, l1rec);
513  break;
514  case FT_OCM2L1B:
515  status = readl1_ocm2(l1file, recnum, l1rec);
516  break;
517  case FT_OCML1BDB:
518  status = readl1_ocmdb(l1file, recnum, l1rec);
519  break;
520  case FT_MERISL1B:
521  status = readl1_meris_N1(l1file, recnum, l1rec);
522  break;
523  case FT_MERISCC:
524  status = readl1_meris_CC(l1file, recnum, l1rec);
525  break;
526  case FT_MERISL1BSAFE:
527  status = readl1_safe(l1file, recnum, l1rec);
528  break;
529  case FT_VIIRSL1B:
530  status = readl1_viirs_h5(l1file, recnum, l1rec, 0);
531  break;
532  case FT_VIIRSL1BNC:
533  status = readl1_viirs_l1b(l1file, recnum, l1rec, 0);
534  break;
535  case FT_VIIRSL1A:
536  status = readl1_viirs_l1a(l1file, recnum, l1rec);
537  break;
538  case FT_HICOL1B:
539  status = readl1_hico(l1file, recnum, l1rec, 0);
540  break;
541  case FT_GOCIL1B:
542  status = readl1_goci(l1file, recnum, l1rec, 0);
543  break;
544  case FT_OLIL1B:
545  status = readl1_oli(l1file, recnum, l1rec, 0);
546  break;
547  case FT_OCIA:
548  status = readl1_ocia(l1file, recnum, l1rec);
549  break;
550  case FT_OCIL1B:
551  status = readl1_oci(l1file, recnum, l1rec, 0);
552  break;
553  case FT_OCIS:
554  status = readl1_ocis(l1file, recnum, l1rec);
555  break;
556  case FT_AVIRIS:
557  if (data->isnetcdf)
558  status = readl1_aviris_nc(l1file, recnum, l1rec);
559  else
560  status = readl1_aviris(l1file, recnum, l1rec);
561  // status = 0;
562  break;
563  case FT_PRISM:
564  status = readl1_prism(l1file, recnum, l1rec);
565  // status = 0;
566  break;
567  case FT_OLCI:
568  status = readl1_safe(l1file, recnum, l1rec);
569  // status = 0;
570  break;
571  case FT_SGLI:
572  status = readl1_sgli(l1file, recnum, l1rec);
573  // status = 0;
574  break;
575  case FT_L5TML1B:
576  status = readl1_l5tm(l1file,recnum,l1rec, 0);
577  break;
578  case FT_L7ETML1B:
579  status = readl1_l7etm(l1file,recnum,l1rec, 0);
580  break;
581  case FT_MSIL1C:
582  status = readl1_msi(l1file,recnum,l1rec, 0);
583  break;
584  case FT_HAWKEYEL1A:
585  status = readl1_hawkeye(l1file,recnum,l1rec);
586  break;
587  case FT_MISR:
588  status = readl1_misr(l1file,l1rec);
589  break;
590  case FT_SEABASSRRS:
591  status = read_seabass(l1file,l1rec);
592  break;
593  default:
594  printf("readl1 - Unknown L1 input file format specifier: %d\n",
595  l1file->format);
596  break;
597  };
598 
599 
600  if (status != 0) {
601  fprintf(stderr,
602  "-E- %s Line %d: Error reading L1B.\n",
603  __FILE__, __LINE__);
604  return (1);
605  }
606 
607  for (ip = 0; ip < l1file->npix; ip++) {
608  if (l1rec->lon[ip] <= -180.0 || l1rec->lon[ip] >= 180.0 || isnan(l1rec->lon[ip]) ||
609  l1rec->lat[ip] <= -90.0 || l1rec->lat[ip] >= 90.0 || isnan(l1rec->lat[ip])) {
610  l1rec->navfail[ip] = 1;
611  }
612  }
613 
614  /* Reduce to sub-sample scan if requested */
615  if (l1subpix(l1file, l1rec) != 0)
616  return (1);
617 
618  setflagbits_l1(0, l1rec, -1);
619 
620  /* update scene meta */
621  scene_meta_put(l1rec);
622 
623  return (0);
624 }
625 
626 
627 
628 
629 /* ---------------------------------------------------------------- */
630 /* Read lon and lat for a specific level 1 record from the file */
631 /* pointed to by the input file handle and load the data into the */
632 /* l1 record structure. */
633 /* */
634 /* Lonlat needs to read only the following variables */
635 /* Lon, */
636 /* Lat, */
637 /* Solar Zentih, */
638 /* Time */
639 /* ---------------------------------------------------------------- */
640 int readl1_lonlat(filehandle *l1file, int32_t recnum, l1str *l1rec) {
641  int status;
642  l1rec->iscan = recnum;
643 
644  for (int ip = 0; ip < l1file->npix; ip++) {
645  l1rec->navfail[ip] = 0;
646  l1rec->flags[ip] = 0;
647  }
648 
649  switch (l1file->format) {
650 #ifdef BUILD_HISTORICAL
651  case FT_SEAWIFSL1A:
652  status = readl1_lonlat_seawifs(l1file, recnum, l1rec);
653  break;
654  case FT_SEAWIFSL1ANC:
655  status = readl1_lonlat_seawifs_netcdf(l1file, recnum, l1rec);
656  break;
657 #endif
658  case FT_MODISL1B:
659  status = readl1_modis(l1file, recnum, l1rec, 1);
660  break;
661  case FT_MERISL1B:
662  status = readl1_lonlat_meris_N1(l1file, recnum, l1rec);
663  break;
664  case FT_VIIRSL1B:
665  status = readl1_viirs_h5(l1file, recnum, l1rec, 1);
666  break;
667  case FT_VIIRSL1BNC:
668  status = readl1_viirs_l1b(l1file, recnum, l1rec, 1);
669  break;
670  case FT_HICOL1B:
671  status = readl1_hico(l1file, recnum, l1rec, 1);
672  break;
673  case FT_GOCIL1B:
674  status = readl1_goci(l1file, recnum, l1rec, 1);
675  break;
676  case FT_OLIL1B:
677  status = readl1_oli(l1file, recnum, l1rec, 1);
678  break;
679  case FT_L5TML1B:
680  status = readl1_l5tm(l1file,recnum,l1rec, 1);
681  break;
682  case FT_L7ETML1B:
683  status = readl1_l7etm(l1file,recnum,l1rec, 1);
684  break;
685  case FT_MSIL1C:
686  status = readl1_msi(l1file, recnum, l1rec, 1);
687  break;
688  case FT_OCIL1B:
689  status = readl1_oci(l1file, recnum, l1rec, 1);
690  break;
691  case FT_L1C:
692  status = readl1_l1c(l1file, recnum, l1rec);
693  break;
694  case FT_L1CANC:
695  status = readl1_l1c_anc(l1file, recnum, l1rec);
696  break;
697  case FT_SPEXONE:
698  status = readl1_spexone(l1file, recnum, l1rec);
699  break;
700  default:
701  status = readl1(l1file, recnum, l1rec);
702  break;
703  };
704 
705  if (status != 0) {
706  fprintf(stderr,
707  "-E- %s Line %d: Error reading L1B.\n",
708  __FILE__, __LINE__);
709  return (1);
710  }
711 
712  for (int ip = 0; ip < l1file->npix; ip++) {
713  if (l1rec->lon[ip] <= -180.0 || l1rec->lon[ip] >= 180.0 || isnan(l1rec->lon[ip]) ||
714  l1rec->lat[ip] <= -90.0 || l1rec->lat[ip] >= 90.0 || isnan(l1rec->lat[ip])) {
715  l1rec->navfail[ip] = 1;
716  l1rec->flags[ip] |= NAVFAIL;
717  }
718  }
719 
720  return (0);
721 }
722 
openl1_ocm2
int openl1_ocm2(filehandle *file)
Definition: l1_ocm2.c:104
openl1_osmi
int openl1_osmi(filehandle *file)
Definition: l1_osmi.c:70
l1file
int32 l1file(int32 sdfid, int32 *nsamp, int32 *nscans, int16 *dtynum)
Definition: l1stat_chk.c:586
closel1_seawifs_netcdf
int closel1_seawifs_netcdf(filehandle *file)
Definition: l1_seawifs_netcdf.cpp:717
openl1_meris_CC
int openl1_meris_CC(filehandle *file)
Definition: l1_meris_CC.c:302
bindex_set
void bindex_set(int32_t wave[], int nwave, int dwave_vswir)
Definition: windex.c:15
FT_L1BNCDF
@ FT_L1BNCDF
Definition: filetype.h:19
l1_viirs_l1b.h
closel1_safe
int closel1_safe(filehandle *file)
Definition: l1_safe.cpp:659
openl1_xcal
int openl1_xcal(filehandle *file)
Definition: l1_xcal.c:31
readl1_lonlat_seawifs_netcdf
int readl1_lonlat_seawifs_netcdf(filehandle *file, int32_t recnum, l1str *l1rec)
Definition: l1_seawifs_netcdf.cpp:664
readl1_hdf_g
int readl1_hdf_g(filehandle *file, int32_t recnum, l1str *l1rec)
Definition: l1_hdf_generic_read.c:119
FT_MISR
@ FT_MISR
Definition: filetype.h:59
closel1_xcal
int closel1_xcal(filehandle *file)
Definition: l1_xcal.c:170
readl1_l1c_anc
int readl1_l1c_anc(filehandle *file, int32_t line, l1str *l1rec)
Definition: l1_l1c_anc.c:132
l1_meris_N1.h
MERIS reader.
closel1_sgli
int closel1_sgli(filehandle *file)
Definition: l1_sgli.c:1334
status
int status
Definition: l1_czcs_hdf.c:32
FT_OCML1B
@ FT_OCML1B
Definition: filetype.h:34
FT_OCML1BDB
@ FT_OCML1BDB
Definition: filetype.h:35
FT_OLCI
@ FT_OLCI
Definition: filetype.h:39
closel1_ocmdb
int closel1_ocmdb(filehandle *file)
Definition: l1_ocmdb.c:222
closel1_hdf_g
int closel1_hdf_g(filehandle *file)
Definition: l1_hdf_generic_read.c:157
closel1_meris_CC
int closel1_meris_CC(filehandle *file)
Definition: l1_meris_CC.c:537
l1_osmi.h
openl1_hawkeye
int openl1_hawkeye(filehandle *file)
Definition: l1_hawkeye.c:161
l1_viirs_l1a.h
readl1_ocia
int readl1_ocia(filehandle *file, int32_t scan, l1str *l1rec)
Definition: l1_ocia.c:124
openl1_oli
int openl1_oli(filehandle *file)
Definition: l1_oli.c:141
closel1_ocm2
int closel1_ocm2(filehandle *file)
Definition: l1_ocm2.c:214
l1_prism.h
l1_goci.h
closel1_prism
int closel1_prism(filehandle *file)
Definition: l1_prism.c:427
readl1_spexone
int readl1_spexone(filehandle *file, int32_t line, l1str *l1rec)
Definition: l1_spexone.c:176
closel1_misr
int closel1_misr(filehandle *file)
Definition: l1_misr.c:901
NULL
#define NULL
Definition: decode_rs.h:63
FT_OCIA
@ FT_OCIA
Definition: filetype.h:42
closel1_ocia
int closel1_ocia(filehandle *file)
Definition: l1_ocia.c:318
closel1_msi
int closel1_msi(filehandle *file)
Definition: l1_msi.cpp:1016
readl1_sgli
int readl1_sgli(filehandle *file, int32_t scan, l1str *l1rec)
Definition: l1_sgli.c:793
readl1_l1c
int readl1_l1c(filehandle *file, int32_t line, l1str *l1rec)
Definition: l1_l1c.c:172
FT_L7ETML1B
@ FT_L7ETML1B
Definition: filetype.h:56
l1_seawifs.h
READ
#define READ
Definition: l1c.h:33
closel1_viirs_l1b
int closel1_viirs_l1b()
Definition: l1_viirs_l1b.c:894
closel1_l5tm
int closel1_l5tm(filehandle *file)
Definition: l1_l5tm.c:575
l1rec
read l1rec
Definition: HOWTO_Add_a_sensor.txt:72
closel1_l1c_anc
int closel1_l1c_anc(filehandle *file)
Definition: l1_l1c_anc.c:187
openl1_modis
int openl1_modis(filehandle *l1file)
Definition: l1_modis.c:614
openl1_l1c_anc
int openl1_l1c_anc(filehandle *file)
Definition: l1_l1c_anc.c:36
openl1_oci
int openl1_oci(filehandle *file)
Definition: l1_oci.c:99
readl1_prism
int readl1_prism(filehandle *file, int recnum, l1str *l1rec, int lonlat)
Definition: l1_prism.c:310
FT_OCTSL1ANC
@ FT_OCTSL1ANC
Definition: filetype.h:37
FT_SEAWIFSL1A
@ FT_SEAWIFSL1A
Definition: filetype.h:47
FT_VIIRSL1A
@ FT_VIIRSL1A
Definition: filetype.h:51
readl1_oci
int readl1_oci(filehandle *file, int32_t line, l1str *l1rec, int lonlat)
Definition: l1_oci.c:434
scene_meta.h
readl1_viirs_l1b
int readl1_viirs_l1b(filehandle *l1file, const int32_t iline, l1str *l1rec, int lonlat)
Definition: l1_viirs_l1b.c:724
l1_spexone.h
l1_sgli.h
open_seabass
int open_seabass(filehandle *l1file)
Definition: l1_seabass.cpp:31
FT_PRISM
@ FT_PRISM
Definition: filetype.h:46
openl1_msi
int openl1_msi(filehandle *file)
Definition: l1_msi.cpp:480
closel1_goci
int closel1_goci(filehandle *file)
Definition: l1_goci.c:188
FT_OCTSL1A
@ FT_OCTSL1A
Definition: filetype.h:36
scene_meta_put
void scene_meta_put(l1str *l1rec)
Definition: scene_meta.c:72
l1_misr.h
readl1_aviris
int readl1_aviris(filehandle *file, int32_t recnum, l1str *l1rec)
Definition: l1_aviris.c:676
openl1_ocmdb
int openl1_ocmdb(filehandle *file)
Definition: l1_ocmdb.c:23
FT_VIIRSL1B
@ FT_VIIRSL1B
Definition: filetype.h:52
FT_HICOL1B
@ FT_HICOL1B
Definition: filetype.h:18
l1_oli.h
openl1_l7etm
int openl1_l7etm(filehandle *file)
Definition: l1_l7etm.c:126
FT_AVIRIS
@ FT_AVIRIS
Definition: filetype.h:14
FT_MERISL1BSAFE
@ FT_MERISL1BSAFE
Definition: filetype.h:29
openl1
int openl1(filehandle *l1file)
Definition: l1_io.c:230
openl1_spexone
int openl1_spexone(filehandle *file)
Definition: l1_spexone.c:45
names::if
character(len=1000) if
Definition: names.f90:13
l1_seabass.h
readl1_octs_netcdf
int32_t readl1_octs_netcdf(filehandle *l1file, int32_t recnum, l1str *l1rec)
Definition: l1_octs_netcdf.cpp:669
closel1_ocm
int closel1_ocm(filehandle *file)
Definition: l1_ocm.c:242
openl1_viirs_l1b
int openl1_viirs_l1b(filehandle *l1file)
Definition: l1_viirs_l1b.c:426
openl1_sgli
int openl1_sgli(filehandle *l1file)
Definition: l1_sgli.c:366
readl1_seawifs
int readl1_seawifs(filehandle *file, int32_t recnum, l1str *l1rec)
Definition: l1_seawifs.c:444
l1_oci.h
readl1_goci
int readl1_goci(filehandle *file, int recnum, l1str *l1rec, int lonlat)
Definition: l1_goci.c:84
closel1_modis
int closel1_modis()
Definition: l1_modis.c:1637
FT_MERISCC
@ FT_MERISCC
Definition: filetype.h:26
l1_ocis.h
FT_OCTSL1B
@ FT_OCTSL1B
Definition: filetype.h:38
openl1_misr
int openl1_misr(filehandle *file)
Definition: l1_misr.c:39
readl1_msi
int readl1_msi(filehandle *file, int recnum, l1str *l1rec, int lonlat)
Definition: l1_msi.cpp:637
FT_MERISL1B
@ FT_MERISL1B
Definition: filetype.h:27
openl1_nc_generic
int openl1_nc_generic(filehandle *file)
Definition: l1_nc_generic_read.c:25
closel1_oci
int closel1_oci(filehandle *file)
Definition: l1_oci.c:643
recnum
read recnum
Definition: HOWTO_Add_a_sensor.txt:72
l1_hawkeye.h
openl1_seawifs_netcdf
int openl1_seawifs_netcdf(filehandle *file)
Definition: l1_seawifs_netcdf.cpp:418
FT_VIIRSL1BNC
@ FT_VIIRSL1BNC
Definition: filetype.h:53
closel1_mos
int closel1_mos(filehandle *l1file)
Definition: l1_mos.c:469
l1subpix
int l1subpix(filehandle *l1file, l1str *l1rec)
Definition: l1subpix.c:17
readl1_l7etm
int readl1_l7etm(filehandle *file, int recnum, l1str *l1rec, int lonlat)
Definition: l1_l7etm.c:339
readl1_czcs
int readl1_czcs(filehandle *file, int32_t recnum, l1str *l1rec)
Definition: l1_czcs.c:471
l1_ocmdb.h
openl1_seawifs
int openl1_seawifs(filehandle *file)
Definition: l1_seawifs.c:310
FT_OCIS
@ FT_OCIS
Definition: filetype.h:44
l1_safe.h
l1_hico.h
closel1
void closel1(filehandle *l1file)
Definition: l1_io.c:73
openl1_safe
int openl1_safe(filehandle *l1file)
Definition: l1_safe.cpp:40
openl1_ocis
int openl1_ocis(filehandle *file)
Definition: l1_ocis.c:85
l1_input
l1_input_t * l1_input
Definition: l1_options.c:9
l1_ocia.h
readl1_xcal
int readl1_xcal(filehandle *file, int32_t scan, l1str *l1rec)
Definition: l1_xcal.c:72
readl1_ocis
int readl1_ocis(filehandle *file, int32_t line, l1str *l1rec)
Definition: l1_ocis.c:354
closel1_l7etm
int closel1_l7etm(filehandle *file)
Definition: l1_l7etm.c:462
readl1_safe
int readl1_safe(filehandle *file, int32_t scan, l1str *l1rec)
Definition: l1_safe.cpp:196
readl1_seawifs_netcdf
int readl1_seawifs_netcdf(filehandle *file, int32_t recnum, l1str *l1rec)
Definition: l1_seawifs_netcdf.cpp:533
openl1_hico
int openl1_hico(filehandle *file)
Definition: l1_hico.c:61
closel1_seawifs
int closel1_seawifs(filehandle *file)
Definition: l1_seawifs.c:622
openl1_aviris
int openl1_aviris(filehandle *file)
Definition: l1_aviris.c:172
l1_aviris.h
closel1_osmi
int closel1_osmi(filehandle *file)
Definition: l1_osmi.c:233
openl1_viirs_h5
int openl1_viirs_h5(filehandle *file)
Definition: l1_viirs_h5.c:622
closel1_ocis
int closel1_ocis(filehandle *file)
Definition: l1_ocis.c:531
readl1_ocmdb
int readl1_ocmdb(filehandle *file, int32_t scan, l1str *l1rec)
Definition: l1_ocmdb.c:82
readl1_lonlat
int readl1_lonlat(filehandle *l1file, int32_t recnum, l1str *l1rec)
Definition: l1_io.c:640
FT_HAWKEYEL1A
@ FT_HAWKEYEL1A
Definition: filetype.h:58
data
no change in intended resolving MODur00064 Corrected handling of bad ephemeris attitude data
Definition: HISTORY.txt:356
FT_SPEXONE
@ FT_SPEXONE
Definition: filetype.h:61
l1_l5tm.h
openl1_octs
int openl1_octs(filehandle *l1file)
Definition: l1_octs.c:328
closel1_viirs_l1a
int closel1_viirs_l1a(filehandle *file)
Definition: l1_viirs_l1a.c:615
openl1_prism
int openl1_prism(filehandle *file)
Definition: l1_prism.c:45
openl1_read_mos
int openl1_read_mos(filehandle *l1file)
Definition: l1_mos.c:101
FT_L5TML1B
@ FT_L5TML1B
Definition: filetype.h:55
readl1_oli
int readl1_oli(filehandle *file, int recnum, l1str *l1rec, int lonlat)
Definition: l1_oli.c:431
l1_l1c_anc.h
closel1_aviris_nc
int closel1_aviris_nc(filehandle *l1file)
Definition: l1_aviris_nc.c:358
openl1_ocm
int openl1_ocm(filehandle *file)
Definition: l1_ocm.c:18
FT_L1C
@ FT_L1C
Definition: filetype.h:65
closel1_aci
int closel1_aci(filehandle *file)
Definition: l1_aci.c:1165
closel1_octs
int closel1_octs(filehandle *l1file)
Definition: l1_octs.c:1147
openl1_viirs_l1a
int openl1_viirs_l1a(filehandle *file)
Definition: l1_viirs_l1a.c:62
closel1_generic
void closel1_generic(filehandle *l1file)
Definition: l1_generic_write.c:768
readl1_l5tm
int readl1_l5tm(filehandle *file, int recnum, l1str *l1rec, int lonlat)
Definition: l1_l5tm.c:430
readl1_meris_CC
int readl1_meris_CC(filehandle *file, int32_t scan, l1str *l1rec)
Definition: l1_meris_CC.c:431
BAD_FLT
#define BAD_FLT
Definition: jplaeriallib.h:19
l1_nc_generic_read.h
init_l1
void init_l1(l1str *l1rec)
Definition: init_l1.c:11
closel1_aviris
int closel1_aviris(filehandle *file)
Definition: l1_aviris.c:921
readl1_octs
int readl1_octs(filehandle *l1file, int32_t recnum, l1str *l1rec)
Definition: l1_octs.c:510
FT_SEABASSRRS
@ FT_SEABASSRRS
Definition: filetype.h:60
FT_OCM2L1B
@ FT_OCM2L1B
Definition: filetype.h:33
readl1_aviris_nc
int readl1_aviris_nc(filehandle *l1file, int32_t recnum, l1str *l1rec)
Definition: l1_aviris_nc.c:161
FT_GOCIL1B
@ FT_GOCIL1B
Definition: filetype.h:17
closel1_hawkeye
int closel1_hawkeye(filehandle *file)
Definition: l1_hawkeye.c:715
readl1
int readl1(filehandle *l1file, int32_t recnum, l1str *l1rec)
Definition: l1_io.c:439
readl1_aci
int readl1_aci(filehandle *file, int32_t scan, l1str *l1rec)
Definition: l1_aci.c:136
openl1_l1c
int openl1_l1c(filehandle *file)
Definition: l1_l1c.c:44
FT_MOSL1B
@ FT_MOSL1B
Definition: filetype.h:32
readl1_meris_N1
int readl1_meris_N1(filehandle *file, int32_t scan, l1str *l1rec)
reads 1 scan line from MERIS file, loads l1rec
Definition: l1_meris_N1.c:275
readl1_viirs_h5
int readl1_viirs_h5(filehandle *file, int32_t dline, l1str *l1rec, int lonlat)
Definition: l1_viirs_h5.c:1404
openl1_octs_netcdf
int32_t openl1_octs_netcdf(filehandle *l1file)
Definition: l1_octs_netcdf.cpp:503
readl1_lonlat_meris_N1
int readl1_lonlat_meris_N1(filehandle *file, int32_t scan, l1str *l1rec)
reads 1 scan line from MERIS file, loads l1rec
Definition: l1_meris_N1.c:679
readl1_nc_generic
int readl1_nc_generic(filehandle *file, int32_t scan, l1str *l1rec)
Definition: l1_nc_generic_read.c:58
FT_L1HDF
@ FT_L1HDF
Definition: filetype.h:20
openl1_read_hdf_g
int openl1_read_hdf_g(filehandle *file)
Definition: l1_hdf_generic_read.c:82
close_seabass
int close_seabass(filehandle *file)
Definition: l1_seabass.cpp:221
closel1_meris_N1
int closel1_meris_N1(filehandle *file)
closes MERIS file, loads l1rec
Definition: l1_meris_N1.c:751
l1_hdf_generic_read.h
readl1_lonlat_seawifs
int readl1_lonlat_seawifs(filehandle *file, int32_t recnum, l1str *l1rec)
Definition: l1_seawifs.c:578
FT_MSIL1C
@ FT_MSIL1C
Definition: filetype.h:57
l1_seawifs_netcdf.h
FT_SGLI
@ FT_SGLI
Definition: filetype.h:54
FT_L1CANC
@ FT_L1CANC
Definition: filetype.h:66
openl1_czcs
int openl1_czcs(filehandle *file)
Definition: l1_czcs.c:360
openl1_write
int openl1_write(filehandle *l1file)
Definition: l1_generic_write.c:176
rdsensorinfo
int32_t rdsensorinfo(int32_t, int32_t, const char *, void **)
Definition: rdsensorinfo.c:69
setflagbits_l1
void setflagbits_l1(int level, l1str *l1rec, int32_t ipix)
Definition: setflags_l1.c:131
BANDW
#define BANDW
Definition: l1.h:53
closel1_viirs_h5
int closel1_viirs_h5(filehandle *file)
Definition: l1_viirs_h5.c:1754
closel1_oli
int closel1_oli(filehandle *file)
Definition: l1_oli.c:670
readl1_misr
int readl1_misr(filehandle *l1file, l1str *l1rec)
Definition: l1_misr.c:339
read_seabass
int read_seabass(filehandle *file, l1str *l1rec)
Definition: l1_seabass.cpp:143
l1_ocm.h
openl1_aci
int openl1_aci(filehandle *file)
Definition: l1_aci.c:57
FT_MODISL1B
@ FT_MODISL1B
Definition: filetype.h:31
readl1_hawkeye
int readl1_hawkeye(filehandle *file, int32_t oline, l1str *l1rec)
Definition: l1_hawkeye.c:499
l1_czcs.h
FT_OCIL1B
@ FT_OCIL1B
Definition: filetype.h:43
l1_l7etm.h
l1_l1c.h
readl1_viirs_l1a
int readl1_viirs_l1a(filehandle *file, int32_t line, l1str *l1rec)
Definition: l1_viirs_l1a.c:254
l1_mos.h
i
int i
Definition: decode_rs.h:71
l1_octs_netcdf.h
readl1_mos
int readl1_mos(filehandle *l1file, int32_t recnum, l1str *l1rec)
Definition: l1_mos.c:388
get_f0_thuillier_ext
void get_f0_thuillier_ext(int32_t wl, int32_t width, float *f0)
Definition: get_f0.c:137
l1_octs.h
closel1_octs_netcdf
int32_t closel1_octs_netcdf(filehandle *l1file)
Definition: l1_octs_netcdf.cpp:836
l1_msi.h
l1_viirs_h5.h
l1_aci.h
FT_OLIL1B
@ FT_OLIL1B
Definition: filetype.h:41
FT_CLASSAVHRR
@ FT_CLASSAVHRR
Definition: filetype.h:15
readl1_ocm
int readl1_ocm(filehandle *file, int32_t scan, l1str *l1rec)
Definition: l1_ocm.c:57
FT_L1XCAL
@ FT_L1XCAL
Definition: filetype.h:21
closel1_l1c
int closel1_l1c(filehandle *file)
Definition: l1_l1c.c:232
l1_xcal.h
l1_ocm2.h
openl1_aviris_nc
int openl1_aviris_nc(filehandle *l1file)
Definition: l1_aviris_nc.c:21
openl1_l5tm
int openl1_l5tm(filehandle *file)
Definition: l1_l5tm.c:223
l1_meris_CC.h
openl1_ocia
int openl1_ocia(filehandle *file)
Definition: l1_ocia.c:20
readl1_modis
int readl1_modis(filehandle *l1file, const int32_t line, l1str *l1rec, int lonlat)
Definition: l1_modis.c:1448
readl1_osmi
int readl1_osmi(filehandle *file, int32_t recnum, l1str *l1rec)
Definition: l1_osmi.c:154
FT_OSMIL1A
@ FT_OSMIL1A
Definition: filetype.h:45
closel1_hico
int closel1_hico(filehandle *file)
Definition: l1_hico.c:443
FT_SEAWIFSL1ANC
@ FT_SEAWIFSL1ANC
Definition: filetype.h:48
closel1_spexone
int closel1_spexone(filehandle *file)
Definition: l1_spexone.c:231
FT_CZCSL1A
@ FT_CZCSL1A
Definition: filetype.h:16
openl1_goci
int openl1_goci(filehandle *file)
Definition: l1_goci.c:19
readl1_hico
int readl1_hico(filehandle *file, int32_t scan, l1str *l1rec, int lonlat)
Definition: l1_hico.c:348
NAVFAIL
#define NAVFAIL
Definition: l2_flags.h:36
l1_modis.h
openl1_meris_N1
int openl1_meris_N1(filehandle *file)
opens a MERIS file for reading to load into L1 record
Definition: l1_meris_N1.c:112
readl1_ocm2
int readl1_ocm2(filehandle *file, int32_t scan, l1str *l1rec)
Definition: l1_ocm2.c:136
closel1_czcs
int closel1_czcs(filehandle *file)
Definition: l1_czcs.c:668


ABOUT

Our Team

Contact Us

DATA

Get Started

Find Data

Use Data

TOOLS

SeaBASS

SeaDAS

Giovanni Data Visualizer

Worldview Mapping Interface

Mission Quality Monitor

HELP

How to Use Earthdata Search

Level 3 & 4 Browser Help

File Search Help

Search & Download Help

Earthdata Forum

Join Mailing List

How to Cite Data

CONNECT WITH US
COMPLIANCE

Web Privacy Policy

Data & Information Policy

Communications Policy

Accessibility

Freedom of Information Act

USA.gov

Responsible NASA Official: Sean Bailey
Curator: OceanColor Webmaster