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)