NASA Ocean Color

ocssw V2022

 module ch_xfr
   !  this will contain all data needed for chimaera use for a line
   !  (and any surrounding lines) from l2gen
   !
   !  Also, any new data to transfer out
   !
   !  W. Robinson, SAIC, Nov 2018
   !
   ! l1b data
   real, allocatable, dimension( :,:,: ) :: c2_refl, c2_bnd_unc
   real, allocatable, dimension( : ) :: c2_spec_unc, c2_unc_sf
   real, allocatable, dimension( :,: ) :: c2_lat, c2_lon, c2_senz
   real, allocatable, dimension( :,: ) :: c2_sena, c2_solz, c2_sola, c2_relaz
   ! anc data
   real, allocatable, dimension( :,:,: ) :: c2_prof_mixr, c2_prof_t
   real, allocatable, dimension( :,:,: ) :: c2_prof_p, c2_prof_hgt
   real, allocatable, dimension( :,: ) :: c2_tsfc, c2_psfc, c2_tot_o3 
   real, allocatable, dimension( :,: ) :: c2_wind
   real, allocatable, dimension( :,: ) :: c2_ice_frac, c2_snow_frac
   real, allocatable, dimension( :,: ) :: c2_alt_o3, c2_alt_icec
   ! anc sfc albedo
   real, allocatable, dimension( :,:,: ) :: c2_sfc_albedo
   ! cloud top hgt, p, t transfer arrays
   real, allocatable, dimension( :,: ) :: c2_cth, c2_ctp, c2_ctt
   !
   integer*1, allocatable, dimension( :,: ) :: c2_sfc_lvl, c2_trop_lvl
   integer, allocatable, dimension( :,: ) :: c2_alt_snowice
   ! cloud mask data
   integer*1, allocatable, dimension( :,: ) :: c2_cld_det, c2_conf_cld 
   integer*1, allocatable, dimension( :,: ) :: c2_clr_66, c2_clr_95, c2_clr_99
   integer*1, allocatable, dimension( :,: ) :: c2_sno_sfc, c2_wtr_sfc
   integer*1, allocatable, dimension( :,: ) :: c2_coast_sfc, c2_desert_sfc
   integer*1, allocatable, dimension( :,: ) :: c2_lnd_sfc, c2_night, c2_glint
   integer*1, allocatable, dimension( :,: ) :: c2_ocean_no_snow, c2_ocean_snow 
   integer*1, allocatable, dimension( :,: ) :: c2_lnd_no_snow, c2_lnd_snow
   integer*1, allocatable, dimension( :,: ) :: c2_tst_h_138, c2_tst_vis_refl
   integer*1, allocatable, dimension( :,: ) :: c2_tst_vis_ratio, c2_vis_cld_250
   integer*1, allocatable, dimension( :,: ) :: c2_appl_hcld_138
   integer*1, allocatable, dimension( :,: ) :: c2_appl_vis_refl
   integer*1, allocatable, dimension( :,: ) :: c2_appl_vis_nir_ratio
   !
   !  band presence array
   integer*1, allocatable, dimension( : ) :: c2_cmp_there
   !
   ! dimensions, location in whole chunck
   integer :: c2_npix, c2_nlin, c2_nbnd, c2_nbnd_albedo, c2_nlvl_model, &
     c2_scan, c2_st_samp, c2_g_year, c2_g_day
   !
   !  c2_sensor_id, the identification of which sensor is being used
   integer :: c2_sensor_id
   integer :: ocis_id = 31  ! code for OCIS from sensorDefs.h
   integer :: oci_id = 30  ! code for OCIS from sensorDefs.h
   !
   !  the cm_from_l2 is a switch to say read from the l2 inputs instead of 
   !  the work file
   integer :: cm_from_l2
   character(len=500) :: c2_cloud_hgt_file
   !
   !
   !  And now for data to transfer out to l2gen -- diagnostic for the point refl
   !  relative to the table
   real, allocatable, dimension( :,:,: ) :: prd_out_refl_loc_2100
   real, allocatable, dimension( :,:,: ) :: prd_out_refl_loc_1600
   real, allocatable, dimension( :,:,: ) :: prd_out_refl_loc_1621
   real, allocatable, dimension( :,:,: ) :: prd_out_refl_loc_2200
   integer :: tbl_lo_abs=1, tbl_hi_abs=2, tbl_lo_abs_ice=3, tbl_hi_abs_ice=4, &
     refl_abs=5, tbl_lo_nabs=6, tbl_hi_nabs=7, tbl_lo_nabs_ice=8, &
     tbl_hi_nabs_ice=9, refl_nabs=10
  
   ! Also the save arrays, so the 3-line results are saved
   real, allocatable, dimension( :,:,: ) :: prd_out_refl_loc_2100_sav
   real, allocatable, dimension( :,:,: ) :: prd_out_refl_loc_1600_sav
   real, allocatable, dimension( :,:,: ) :: prd_out_refl_loc_2200_sav
   real, allocatable, dimension( :,:,: ) :: prd_out_refl_loc_1621_sav
 end module ch_xfr

ch_xfr

Definition: ch_xfr.f90:1

ch_xfr::c2_alt_icec

real, dimension(:,:), allocatable c2_alt_icec

Definition: ch_xfr.f90:20

ch_xfr::c2_trop_lvl

integer *1, dimension(:,:), allocatable c2_trop_lvl

Definition: ch_xfr.f90:26

ch_xfr::c2_psfc

real, dimension(:,:), allocatable c2_psfc

Definition: ch_xfr.f90:17

ch_xfr::c2_alt_snowice

integer, dimension(:,:), allocatable c2_alt_snowice

Definition: ch_xfr.f90:27

ch_xfr::c2_wtr_sfc

integer *1, dimension(:,:), allocatable c2_wtr_sfc

Definition: ch_xfr.f90:31

ch_xfr::c2_g_year

integer c2_g_year

Definition: ch_xfr.f90:46

ch_xfr::c2_clr_99

integer *1, dimension(:,:), allocatable c2_clr_99

Definition: ch_xfr.f90:30

ch_xfr::c2_nbnd_albedo

integer c2_nbnd_albedo

Definition: ch_xfr.f90:46

ch_xfr::refl_abs

integer refl_abs

Definition: ch_xfr.f90:66

ch_xfr::c2_prof_hgt

real, dimension(:,:,:), allocatable c2_prof_hgt

Definition: ch_xfr.f90:16

ch_xfr::c2_bnd_unc

real, dimension(:,:,:), allocatable c2_bnd_unc

Definition: ch_xfr.f90:10

ch_xfr::c2_sno_sfc

integer *1, dimension(:,:), allocatable c2_sno_sfc

Definition: ch_xfr.f90:31

ch_xfr::ocis_id

integer ocis_id

Definition: ch_xfr.f90:51

ch_xfr::c2_lon

real, dimension(:,:), allocatable c2_lon

Definition: ch_xfr.f90:12

ch_xfr::prd_out_refl_loc_2100_sav

real, dimension(:,:,:), allocatable prd_out_refl_loc_2100_sav

Definition: ch_xfr.f90:71

ch_xfr::c2_appl_hcld_138

integer *1, dimension(:,:), allocatable c2_appl_hcld_138

Definition: ch_xfr.f90:38

ch_xfr::c2_vis_cld_250

integer *1, dimension(:,:), allocatable c2_vis_cld_250

Definition: ch_xfr.f90:37

ch_xfr::cm_from_l2

integer cm_from_l2

Definition: ch_xfr.f90:56

ch_xfr::c2_sena

real, dimension(:,:), allocatable c2_sena

Definition: ch_xfr.f90:13

ch_xfr::c2_tst_h_138

integer *1, dimension(:,:), allocatable c2_tst_h_138

Definition: ch_xfr.f90:36

ch_xfr::c2_ocean_snow

integer *1, dimension(:,:), allocatable c2_ocean_snow

Definition: ch_xfr.f90:34

ch_xfr::c2_desert_sfc

integer *1, dimension(:,:), allocatable c2_desert_sfc

Definition: ch_xfr.f90:32

ch_xfr::tbl_lo_nabs_ice

integer tbl_lo_nabs_ice

Definition: ch_xfr.f90:66

ch_xfr::c2_unc_sf

real, dimension(:), allocatable c2_unc_sf

Definition: ch_xfr.f90:11

ch_xfr::prd_out_refl_loc_1621_sav

real, dimension(:,:,:), allocatable prd_out_refl_loc_1621_sav

Definition: ch_xfr.f90:74

ch_xfr::c2_prof_mixr

real, dimension(:,:,:), allocatable c2_prof_mixr

Definition: ch_xfr.f90:15

ch_xfr::prd_out_refl_loc_1600

real, dimension(:,:,:), allocatable prd_out_refl_loc_1600

Definition: ch_xfr.f90:63

ch_xfr::c2_solz

real, dimension(:,:), allocatable c2_solz

Definition: ch_xfr.f90:13

ch_xfr::c2_sfc_albedo

real, dimension(:,:,:), allocatable c2_sfc_albedo

Definition: ch_xfr.f90:22

ch_xfr::c2_night

integer *1, dimension(:,:), allocatable c2_night

Definition: ch_xfr.f90:33

ch_xfr::c2_lat

real, dimension(:,:), allocatable c2_lat

Definition: ch_xfr.f90:12

ch_xfr::c2_ctp

real, dimension(:,:), allocatable c2_ctp

Definition: ch_xfr.f90:24

ch_xfr::c2_nlin

integer c2_nlin

Definition: ch_xfr.f90:46

ch_xfr::c2_tsfc

real, dimension(:,:), allocatable c2_tsfc

Definition: ch_xfr.f90:17

ch_xfr::prd_out_refl_loc_2200

real, dimension(:,:,:), allocatable prd_out_refl_loc_2200

Definition: ch_xfr.f90:65

ch_xfr::tbl_hi_nabs_ice

integer tbl_hi_nabs_ice

Definition: ch_xfr.f90:66

ch_xfr::prd_out_refl_loc_1600_sav

real, dimension(:,:,:), allocatable prd_out_refl_loc_1600_sav

Definition: ch_xfr.f90:72

ch_xfr::refl_nabs

integer refl_nabs

Definition: ch_xfr.f90:66

ch_xfr::c2_cld_det

integer *1, dimension(:,:), allocatable c2_cld_det

Definition: ch_xfr.f90:29

ch_xfr::c2_appl_vis_refl

integer *1, dimension(:,:), allocatable c2_appl_vis_refl

Definition: ch_xfr.f90:39

ch_xfr::c2_relaz

real, dimension(:,:), allocatable c2_relaz

Definition: ch_xfr.f90:13

ch_xfr::c2_npix

integer c2_npix

Definition: ch_xfr.f90:46

ch_xfr::c2_ice_frac

real, dimension(:,:), allocatable c2_ice_frac

Definition: ch_xfr.f90:19

ch_xfr::c2_tst_vis_refl

integer *1, dimension(:,:), allocatable c2_tst_vis_refl

Definition: ch_xfr.f90:36

ch_xfr::c2_cloud_hgt_file

character(len=500) c2_cloud_hgt_file

Definition: ch_xfr.f90:57

ch_xfr::c2_g_day

integer c2_g_day

Definition: ch_xfr.f90:46

ch_xfr::c2_coast_sfc

integer *1, dimension(:,:), allocatable c2_coast_sfc

Definition: ch_xfr.f90:32

ch_xfr::c2_sensor_id

integer c2_sensor_id

Definition: ch_xfr.f90:50

ch_xfr::c2_glint

integer *1, dimension(:,:), allocatable c2_glint

Definition: ch_xfr.f90:33

ch_xfr::c2_lnd_snow

integer *1, dimension(:,:), allocatable c2_lnd_snow

Definition: ch_xfr.f90:35

ch_xfr::c2_prof_p

real, dimension(:,:,:), allocatable c2_prof_p

Definition: ch_xfr.f90:16

ch_xfr::tbl_hi_abs_ice

integer tbl_hi_abs_ice

Definition: ch_xfr.f90:66

ch_xfr::prd_out_refl_loc_1621

real, dimension(:,:,:), allocatable prd_out_refl_loc_1621

Definition: ch_xfr.f90:64

ch_xfr::c2_lnd_sfc

integer *1, dimension(:,:), allocatable c2_lnd_sfc

Definition: ch_xfr.f90:33

ch_xfr::c2_tst_vis_ratio

integer *1, dimension(:,:), allocatable c2_tst_vis_ratio

Definition: ch_xfr.f90:37

ch_xfr::tbl_lo_abs_ice

integer tbl_lo_abs_ice

Definition: ch_xfr.f90:66

ch_xfr::c2_appl_vis_nir_ratio

integer *1, dimension(:,:), allocatable c2_appl_vis_nir_ratio

Definition: ch_xfr.f90:40

ch_xfr::c2_clr_95

integer *1, dimension(:,:), allocatable c2_clr_95

Definition: ch_xfr.f90:30

ch_xfr::c2_scan

integer c2_scan

Definition: ch_xfr.f90:46

ch_xfr::tbl_lo_nabs

integer tbl_lo_nabs

Definition: ch_xfr.f90:66

ch_xfr::c2_lnd_no_snow

integer *1, dimension(:,:), allocatable c2_lnd_no_snow

Definition: ch_xfr.f90:35

ch_xfr::c2_nlvl_model

integer c2_nlvl_model

Definition: ch_xfr.f90:46

ch_xfr::c2_ocean_no_snow

integer *1, dimension(:,:), allocatable c2_ocean_no_snow

Definition: ch_xfr.f90:34

ch_xfr::c2_sfc_lvl

integer *1, dimension(:,:), allocatable c2_sfc_lvl

Definition: ch_xfr.f90:26

ch_xfr::oci_id

integer oci_id

Definition: ch_xfr.f90:52

ch_xfr::c2_alt_o3

real, dimension(:,:), allocatable c2_alt_o3

Definition: ch_xfr.f90:20

ch_xfr::c2_nbnd

integer c2_nbnd

Definition: ch_xfr.f90:46

ch_xfr::prd_out_refl_loc_2200_sav

real, dimension(:,:,:), allocatable prd_out_refl_loc_2200_sav

Definition: ch_xfr.f90:73

ch_xfr::tbl_hi_nabs

integer tbl_hi_nabs

Definition: ch_xfr.f90:66

ch_xfr::tbl_lo_abs

integer tbl_lo_abs

Definition: ch_xfr.f90:66

ch_xfr::c2_clr_66

integer *1, dimension(:,:), allocatable c2_clr_66

Definition: ch_xfr.f90:30

ch_xfr::c2_ctt

real, dimension(:,:), allocatable c2_ctt

Definition: ch_xfr.f90:24

ch_xfr::c2_st_samp

integer c2_st_samp

Definition: ch_xfr.f90:46

ch_xfr::tbl_hi_abs

integer tbl_hi_abs

Definition: ch_xfr.f90:66

ch_xfr::c2_snow_frac

real, dimension(:,:), allocatable c2_snow_frac

Definition: ch_xfr.f90:19

ch_xfr::c2_wind

real, dimension(:,:), allocatable c2_wind

Definition: ch_xfr.f90:18

ch_xfr::c2_senz

real, dimension(:,:), allocatable c2_senz

Definition: ch_xfr.f90:12

ch_xfr::prd_out_refl_loc_2100

real, dimension(:,:,:), allocatable prd_out_refl_loc_2100

Definition: ch_xfr.f90:62

ch_xfr::c2_prof_t

real, dimension(:,:,:), allocatable c2_prof_t

Definition: ch_xfr.f90:15

ch_xfr::c2_sola

real, dimension(:,:), allocatable c2_sola

Definition: ch_xfr.f90:13

ch_xfr::c2_spec_unc

real, dimension(:), allocatable c2_spec_unc

Definition: ch_xfr.f90:11

ch_xfr::c2_tot_o3

real, dimension(:,:), allocatable c2_tot_o3

Definition: ch_xfr.f90:17

ch_xfr::c2_cmp_there

integer *1, dimension(:), allocatable c2_cmp_there

Definition: ch_xfr.f90:43

ch_xfr::c2_cth

real, dimension(:,:), allocatable c2_cth

Definition: ch_xfr.f90:24

ch_xfr::c2_conf_cld

integer *1, dimension(:,:), allocatable c2_conf_cld

Definition: ch_xfr.f90:29

ch_xfr::c2_refl

real, dimension(:,:,:), allocatable c2_refl

Definition: ch_xfr.f90:10