NASA Logo
Ocean Color Science Software

ocssw V2022
modis_sciencestructure.f90
Go to the documentation of this file.
2 
4 
5 #if VIIRS_INST | AHI_INST | AMS_INST | ASTER_INST | AVIRIS_INST | EPIC_INST
6 
7  integer(1) :: bowtie_pixel
8  integer(1) :: bad_radiance_65
9  integer(1) :: bad_radiance_86
10  integer(1) :: bad_radiance_12
11  integer(1) :: bad_radiance_16
12  integer(1) :: bad_radiance_21
13  integer(1) :: bad_radiance_37
14  integer(1) :: bad_radiance_11
15 
16  integer(1) :: spectral_vnswir_21
17  integer(1) :: spectral_vnswir_1621
18  integer(1) :: spectral_vnswir_16
19  integer(1) :: spectral_vnswir_37
20 
21 #endif
22 
23 #if EPIC_INST
24  integer(1) :: icetau_outofbounds
25 #endif
26 
27 
28 ! product quality and retrieval processing QA flags
29  integer(1) :: optical_thickness_gc
30  integer(1) :: optical_thickness_outofbounds
31  integer(1) :: effective_radius_gc
32  integer(1) :: water_path_gc
33  integer(1) :: rayleigh_correction
34 ! since they have to go together as it is, let them sit together in one byte instead of two
35  integer(1) :: path_and_outcome
36  integer*1 :: path_and_outcome_pcl
37 
38  integer*1 :: path_and_outcome_16
39  integer*1 :: path_and_outcome_16_pcl
40 
41  integer*1 :: path_and_outcome_37
42  integer*1 :: path_and_outcome_37_pcl
43 
44  integer(1) :: path_and_outcome_1621
45  integer*1 :: path_and_outcome_1621_pcl
46 
47  integer*1 :: path_and_outcome_22
48  integer*1 :: path_and_outcome_22_pcl
49 
50  integer(1) :: band_used_for_optical_thickness
51  integer(1) :: optical_thickness_1621_gc
52  integer(1) :: effective_radius_1621_gc
53  integer(1) :: water_path_1621_gc
54  integer(1) :: multi_layer_cloud
55  integer(1) :: csr_flag
56  integer(1) :: ml_test_mark
57 
58 #if SEVIRI_INST | AHI_INST
59  integer :: tc_override
60  integer :: day_flag
61 #endif
62 
63  end type qualityanalysis
64 
65  type stat_type
66 
67  real :: retrieval_fraction
68  real :: land_fraction
69  real :: water_fraction
70  real :: snow_fraction
71  real :: cloud_fraction
72  real :: water_cloud_fraction
73  real :: ice_cloud_fraction
74  real*8 :: mean_liquid_tau
75  real*8 :: mean_ice_tau
76  real*8 :: mean_liquid_re21
77  real*8 :: mean_ice_re21
78  real*8 :: ctp_liquid
79  real*8 :: ctp_ice
80  real*8 :: ctp_undetermined
81  real*8 :: ctt_liquid
82  real*8 :: ctt_ice
83  real*8 :: ctt_undetermined
84 
85  end type stat_type
86 
88 
89  integer*2 :: tau
90  integer*2 :: re
91  integer*2 :: rss
92 
93  end type failed_type
94 
95 
96 
97 end module modis_sciencestructure
#define real
Definition: DbAlgOcean.cpp:26
#define re
Definition: l1_czcs.c:695