Due to the lapse in federal government funding, NASA is not updating this website. We sincerely regret this inconvenience.
NASA Logo
Ocean Color Science Software

ocssw V2022
sst.c
Go to the documentation of this file.
1 #include "sst.h"
2 
3 
9 float *get_sst_dust_correction(l2str *l2rec)
10 {
11  float *dust = NULL;
12  extern l1qstr l1que;
13  call_dust_correction(l2rec->l1rec, &l1que, input, "SST", &dust);
14  return (dust);
15 }
16 
22 float *get_bias_sst(l2str *l2rec)
23 {
24  float *sses_var = NULL;
25  extern l1qstr l1que;
26  call_sses_bias(l2rec->l1rec, &l1que, input, "SST", &sses_var);
27  return (sses_var);
28 }
29 
35 float *get_bias_sst4(l2str *l2rec)
36 {
37  float *sses_var = NULL;
38  extern l1qstr l1que;
39  call_sses_bias(l2rec->l1rec, &l1que, input, "SST4", &sses_var);
40  return (sses_var);
41 }
42 
48 float *get_bias_sst_triple(l2str *l2rec)
49 {
50  float *sses_var = NULL;
51  extern l1qstr l1que;
52  call_sses_bias(l2rec->l1rec, &l1que, input, "SST3", &sses_var);
53  return (sses_var);
54 }
55 
61 float *get_stdv_sst(l2str *l2rec)
62 {
63  float *sses_var = NULL;
64  extern l1qstr l1que;
65  call_sses_std(l2rec->l1rec, &l1que, input, "SST", &sses_var);
66  return (sses_var);
67 }
68 
74 int16 *get_counts_sst(l2str *l2rec)
75 {
76  int16 *counts = NULL;
77  extern l1qstr l1que;
78  call_sses_counts(l2rec->l1rec, &l1que, input, "SST", &counts);
79  return counts;
80 }
81 
87 int16 *get_counts_sst4(l2str *l2rec)
88 {
89  int16 *counts = NULL;
90  extern l1qstr l1que;
91  call_sses_counts(l2rec->l1rec, &l1que, input, "SST4", &counts);
92  return counts;
93 }
94 
101 {
102  int16 *counts = NULL;
103  extern l1qstr l1que;
104  call_sses_counts(l2rec->l1rec, &l1que, input, "SST3", &counts);
105  return counts;
106 }
107 
113 float *get_stdv_sst4(l2str *l2rec)
114 {
115  float *sses_var = NULL;
116  extern l1qstr l1que;
117  call_sses_std(l2rec->l1rec, &l1que, input, "SST4", &sses_var); // we pass here the SST
118  return (sses_var);
119 }
120 
126 float *get_stdv_sst_triple(l2str *l2rec)
127 {
128  float *sses_var = NULL;
129  extern l1qstr l1que;
130  call_sses_std(l2rec->l1rec, &l1que, input, "SST3", &sses_var); // we pass here the SST
131  return (sses_var);
132 }
133 
139 int8 *get_qual_sst(l2str *l2rec)
140 {
141  int8 *qual_flags = NULL;
142  extern l1qstr l1que;
143  call_qual_flags(l2rec->l1rec, &l1que, input, "SST", &qual_flags); // we pass here the SST
144  return qual_flags;
145 
146 }
147 
153 int8 *get_qual_sst4(l2str *l2rec)
154 {
155  int8 *qual_flags = NULL;
156  extern l1qstr l1que;
157  call_qual_flags(l2rec->l1rec, &l1que, input, "SST4", &qual_flags); // we pass here the SST
158  return qual_flags;
159 }
160 
166 int8 *get_qual_sst_triple(l2str *l2rec)
167 {
168  int8 *qual_flags = NULL;
169  extern l1qstr l1que;
170  call_qual_flags(l2rec->l1rec, &l1que, input, "SST3", &qual_flags); // we pass here the SST
171  return qual_flags;
172 }
173 
179 int16 *get_flags_sst(l2str *l2rec)
180 {
181  int16 *flags_sst = NULL;
182  extern l1qstr l1que;
183  call_sst_flags(l2rec->l1rec, &l1que, input, "SST", &flags_sst);
184  return flags_sst;
185 
186 }
187 
193 int16 *get_flags_sst4(l2str *l2rec)
194 {
195  int16 *flags_sst = NULL;
196  extern l1qstr l1que;
197  call_sst_flags(l2rec->l1rec, &l1que, input, "SST4", &flags_sst);
198  return flags_sst;
199 }
200 
207 {
208  int16 *flags_sst = NULL;
209  extern l1qstr l1que;
210  call_sst_flags(l2rec->l1rec, &l1que, input, "SST3", &flags_sst);
211  return flags_sst;
212 }
213 
219 float *get_sst(l2str *l2rec)
220 {
221  float *sst_cpp = NULL;
222  extern l1qstr l1que;
223 
224  call_sst(l2rec->l1rec, &l1que, input, "SST", &sst_cpp);
225  return sst_cpp;
226 }
227 
233 float *get_sst4(l2str *l2rec)
234 {
235  float *sst_cpp = NULL;
236  extern l1qstr l1que;
237  call_sst(l2rec->l1rec, &l1que, input, "SST4", &sst_cpp);
238  return sst_cpp;
239 }
240 
246 float *get_sst_triple(l2str *l2rec)
247 {
248  float *sst_cpp = NULL;
249  extern l1qstr l1que;
250  call_sst(l2rec->l1rec, &l1que, input, "SST3", &sst_cpp);
251  return sst_cpp;
252 }
253 
259 float *get_bias_mean_sst(l2str *l2rec)
260 {
261  float *sses_var = NULL;
262  extern l1qstr l1que;
263  call_sses_bias_mean(l2rec->l1rec, &l1que, input, "SST", &sses_var);
264  return (sses_var);
265 }
266 
272 float *get_bias_mean_sst4(l2str *l2rec)
273 {
274  float *sses_var = NULL;
275  extern l1qstr l1que;
276  call_sses_bias_mean(l2rec->l1rec, &l1que, input, "SST4", &sses_var);
277  return (sses_var);
278 }
279 
285 float *get_bias_mean_sst_triple(l2str *l2rec)
286 {
287  float *sses_var = NULL;
288  extern l1qstr l1que;
289  call_sses_bias_mean(l2rec->l1rec, &l1que, input, "SST3", &sses_var);
290  return (sses_var);
291 }
292 
293 
float * get_bias_mean_sst4(l2str *l2rec)
Get the means SSES bias for SST4.
Definition: sst.c:272
subroutine dust
Definition: 6sm1.f:3800
float * get_stdv_sst(l2str *l2rec)
Retrive the STD bias SSES for SST.
Definition: sst.c:61
integer, parameter int16
Definition: cubeio.f90:3
float * get_bias_mean_sst_triple(l2str *l2rec)
Get the means SSES bias for SST3.
Definition: sst.c:285
float * get_sst(l2str *l2rec)
Get the sst for SST.
Definition: sst.c:219
void call_sst_flags(l1str *l1rec, l1qstr *l1qrec, instr *input, const char *product_type, int16 **flags_out)
int16 * get_counts_sst(l2str *l2rec)
Retrive Counts SSES for SST.
Definition: sst.c:74
int8 * get_qual_sst(l2str *l2rec)
Retrive Qual level (0-5) for SST.
Definition: sst.c:139
#define NULL
Definition: decode_rs.h:63
float * get_bias_sst(l2str *l2rec)
Retrive the bias SSES for SST (both VIIRS and MODIS)
Definition: sst.c:22
uint8 * counts
Definition: l1_czcs_hdf.c:30
void call_sses_std(l1str *l1rec, l1qstr *l1qrec, instr *input, const char *product_type, float **sses_std_out)
float * get_bias_sst_triple(l2str *l2rec)
Retrive the bias SSES for SST3 (VIIRS)
Definition: sst.c:48
instr * input
float * get_bias_sst4(l2str *l2rec)
Retrive the bias SSES for SST4 (MODIS)
Definition: sst.c:35
float * get_bias_mean_sst(l2str *l2rec)
Get the means SSES bias for SST.
Definition: sst.c:259
l1qstr l1que
Definition: getl1rec.c:7
void call_dust_correction(l1str *l1rec, l1qstr *l1qrec, instr *input, const char *product_type, float **dust_correction)
float * get_sst4(l2str *l2rec)
Get the sst for SST4.
Definition: sst.c:233
int8 * get_qual_sst4(l2str *l2rec)
Retrive Qual level for SST4.
Definition: sst.c:153
int16 * get_flags_sst(l2str *l2rec)
Retrive Cloud Mask Flags for SST.
Definition: sst.c:179
void call_sses_counts(l1str *l1rec, l1qstr *l1qrec, instr *input, const char *product_type, int16_t **sses_counts)
int16 * get_flags_sst_triple(l2str *l2rec)
Retrive Cloud Mask Flags for SST3.
Definition: sst.c:206
void call_sses_bias_mean(l1str *l1rec, l1qstr *l1qrec, instr *input, const char *product_type, float **sses_bias_mean_out)
int8 * get_qual_sst_triple(l2str *l2rec)
Retrive Qual level for SST3.
Definition: sst.c:166
float * get_stdv_sst4(l2str *l2rec)
Retrive the STD bias SSES for SST4.
Definition: sst.c:113
int16 * get_flags_sst4(l2str *l2rec)
Retrive Cloud Mask Flags for SST4.
Definition: sst.c:193
float * get_sst_triple(l2str *l2rec)
Get the sst for SST3.
Definition: sst.c:246
void call_sses_bias(l1str *l1rec, l1qstr *l1qrec, instr *input, const char *product_type, float **sses_bias_out)
int16 * get_counts_sst_triple(l2str *l2rec)
Retrive Counts SSES for SST3.
Definition: sst.c:100
float * get_sst_dust_correction(l2str *l2rec)
Retrive the dust SST correction for MODIS and product SST *.
Definition: sst.c:9
void call_qual_flags(l1str *l1rec, l1qstr *l1qrec, instr *input, const char *product_type, int8 **qual_out)
float * get_stdv_sst_triple(l2str *l2rec)
Retrive the STD bias SSES for SST3.
Definition: sst.c:126
int16 * get_counts_sst4(l2str *l2rec)
Retrive Counts SSES for SST4.
Definition: sst.c:87
void call_sst(l1str *l1rec, l1qstr *l1qrec, instr *input, const char *product_type, float **sst_out)