|
ocssw
1.0
|
00001 00002 #include <stdio.h> 00003 #include <stdlib.h> 00004 #include "l1_struc.h" 00005 #include "l12_parms.h" 00006 #include "l12_proto.h" 00007 00008 /* --------------------------------------------------------- */ 00009 /* init_l1() - initialize a Level-1 record */ 00010 /* --------------------------------------------------------- */ 00011 void init_l1( l1str *l1rec, int32_t npix) 00012 { 00013 char *p = l1rec->data; 00014 00015 int32_t nband = NBANDS; 00016 int32_t nbir = NBANDSIR; 00017 00018 int32_t ip, ib, ipb; 00019 00020 for (ip=0; ip<npix; ip++) { 00021 l1rec->lon [ip] = BAD_FLT; 00022 l1rec->lat [ip] = BAD_FLT; 00023 l1rec->solz [ip] = BAD_FLT; 00024 l1rec->sola [ip] = BAD_FLT; 00025 l1rec->senz [ip] = BAD_FLT; 00026 l1rec->sena [ip] = BAD_FLT; 00027 l1rec->delphi [ip] = BAD_FLT; 00028 l1rec->alpha [ip] = BAD_FLT; 00029 00030 l1rec->ws [ip] = BAD_FLT; 00031 l1rec->wd [ip] = BAD_FLT; 00032 l1rec->mw [ip] = BAD_FLT; 00033 l1rec->zw [ip] = BAD_FLT; 00034 l1rec->pr [ip] = BAD_FLT; 00035 l1rec->oz [ip] = BAD_FLT; 00036 l1rec->wv [ip] = BAD_FLT; 00037 l1rec->rh [ip] = BAD_FLT; 00038 l1rec->no2_tropo [ip] = BAD_FLT; 00039 l1rec->no2_strat [ip] = BAD_FLT; 00040 l1rec->height [ip] = BAD_FLT; 00041 l1rec->glint_coef [ip] = BAD_FLT; 00042 l1rec->cloud_albedo[ip] = BAD_FLT; 00043 l1rec->aerindex [ip] = BAD_FLT; 00044 l1rec->sstref [ip] = BAD_FLT; 00045 l1rec->sssref [ip] = BAD_FLT; 00046 l1rec->rho_cirrus [ip] = BAD_FLT; 00047 00048 l1rec->pixnum [ip] = 0; 00049 l1rec->flags [ip] = 0; 00050 l1rec->elev [ip] = 0; 00051 l1rec->ancqc [ip] = 0; 00052 l1rec->mask [ip] = 0; 00053 l1rec->hilt [ip] = 0; 00054 l1rec->cloud [ip] = 0; 00055 l1rec->glint [ip] = 0; 00056 l1rec->land [ip] = 0; 00057 l1rec->swater [ip] = 0; 00058 l1rec->ice [ip] = 0; 00059 l1rec->solzmax[ip] = 0; 00060 l1rec->senzmax[ip] = 0; 00061 l1rec->stlight[ip] = 0; 00062 l1rec->absaer [ip] = 0; 00063 l1rec->navfail[ip] = 0; 00064 l1rec->navwarn[ip] = 0; 00065 l1rec->darkpix[ip] = 0; 00066 l1rec->filter [ip] = 0; 00067 l1rec->cirrus [ip] = 0; 00068 l1rec->pixdet [ip] = 0; 00069 l1rec->in_flags[ip] = 0; 00070 l1rec->nobs [ip] = 1; 00071 00072 for (ib=0; ib<nband; ib++) { 00073 ipb = ip*nband+ib; 00074 l1rec->Lt [ipb] = BAD_FLT; 00075 l1rec->Lt_unc [ipb] = BAD_FLT; 00076 l1rec->t_h2o [ipb] = BAD_FLT; 00077 l1rec->t_o2 [ipb] = BAD_FLT; 00078 l1rec->tg_sol [ipb] = BAD_FLT; 00079 l1rec->tg_sen [ipb] = BAD_FLT; 00080 l1rec->t_sol [ipb] = BAD_FLT; 00081 l1rec->t_sen [ipb] = BAD_FLT; 00082 l1rec->tLf [ipb] = BAD_FLT; 00083 l1rec->Lr [ipb] = BAD_FLT; 00084 l1rec->L_q [ipb] = BAD_FLT; 00085 l1rec->L_u [ipb] = BAD_FLT; 00086 l1rec->polcor [ipb] = BAD_FLT; 00087 l1rec->dpol [ipb] = BAD_FLT; 00088 l1rec->TLg [ipb] = BAD_FLT; 00089 l1rec->rhos [ipb] = BAD_FLT; 00090 l1rec->sw_a [ipb] = BAD_FLT; 00091 l1rec->sw_bb [ipb] = BAD_FLT; 00092 l1rec->sw_n [ipb] = BAD_FLT; 00093 l1rec->radcor [ipb] = 0.0; 00094 00095 } 00096 00097 for (ib=0; ib<nbir; ib++) { 00098 ipb = ip*nbir+ib; 00099 l1rec->Ltir[ipb] = BAD_FLT; 00100 l1rec->Bt [ipb] = BAD_FLT; 00101 } 00102 00103 } 00104 } 00105 00106 00107
1.7.6.1