mom_opacity::optics_type integer integer mom_opacity::optics_type::nbands nbands The number of penetrating bands of SW radiation. real, dimension(:,:,:,:), pointer real, dimension(:,:,:,:), pointer mom_opacity::optics_type::opacity_band opacity_band => NULL() SW optical depth per unit thickness [m-1] The number of radiation bands is most rapidly varying (first) index. real, dimension(:,:,:), pointer real, dimension(:,:,:), pointer mom_opacity::optics_type::sw_pen_band sw_pen_band => NULL() shortwave radiation [Q R Z T-1 ~> W m-2] at the surface in each of the nbands bands that penetrates beyond the surface. The most rapidly varying dimension is the band. real, dimension(:), pointer real, dimension(:), pointer mom_opacity::optics_type::min_wavelength_band min_wavelength_band => NULL() The minimum wavelength in each band of penetrating shortwave radiation [nm]. real, dimension(:), pointer real, dimension(:), pointer mom_opacity::optics_type::max_wavelength_band max_wavelength_band => NULL() The maximum wavelength in each band of penetrating shortwave radiation [nm]. real real mom_opacity::optics_type::pensw_flux_absorb pensw_flux_absorb A heat flux that is small enough to be completely absorbed in the next sufficiently thick layer [H degC T-1 ~> degC m s-1 or degC kg m-2 s-1]. real real mom_opacity::optics_type::pensw_absorb_invlen pensw_absorb_invlen The inverse of the thickness that is used to absorb the remaining shortwave heat flux when it drops below PEN_SW_FLUX_ABSORB [H ~> m or kg m-2]. logical logical mom_opacity::optics_type::answers_2018 answers_2018 If true, use the order of arithmetic and expressions that recover the answers from the end of 2018. Otherwise, use updated and more robust forms of the same expressions. This type is used to store information about ocean optical properties. real logical integer mom_opacity::optics_type answers_2018 sw_pen_band opacity_band pensw_absorb_invlen min_wavelength_band max_wavelength_band pensw_flux_absorb nbands mom_opacity::optics_typeanswers_2018 mom_opacity::optics_typemax_wavelength_band mom_opacity::optics_typemin_wavelength_band mom_opacity::optics_typenbands mom_opacity::optics_typeopacity_band mom_opacity::optics_typepensw_absorb_invlen mom_opacity::optics_typepensw_flux_absorb mom_opacity::optics_typesw_pen_band