Go to the source code of this file.

Data Types
type	cosp_output_mod::ctrl_outcosp

Modules
module	cosp_output_mod

Functions/Subroutines
subroutine	cosp_output_mod::cosp_output_open (Nlevlmdz, Ncolumns, presnivs, dtime, freq_cosp, ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP, ok_all_xml, ecrit_mth, ecrit_day, ecrit_hf, use_vgrid, vgrid)

Variables
integer, private	cosp_output_mod::i

logical, dimension(3), save	cosp_output_mod::cosp_outfilekeys

integer, dimension(3), save	cosp_output_mod::cosp_nidfiles

integer, dimension(3), save	cosp_output_mod::nhoricosp

integer, dimension(3), save	cosp_output_mod::nvert

integer, dimension(3), save	cosp_output_mod::nvertmcosp

integer, dimension(3), save	cosp_output_mod::nvertcol

integer, dimension(3), save	cosp_output_mod::nvertisccp

integer, dimension(3), save	cosp_output_mod::nvertp

real, dimension(3), save	cosp_output_mod::zoutm_cosp

real, save	cosp_output_mod::zdtimemoy_cosp

character(len=20), dimension(3), save	cosp_output_mod::cosp_outfiletypes

character(len=20), dimension(3), save	cosp_output_mod::cosp_outfilenames

real, dimension(3), save	cosp_output_mod::cosp_ecritfiles

type(ctrl_outcosp), save	cosp_output_mod::o_cllcalipso = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "cllcalipso", "Lidar Low-level Cloud Fraction", "1", (/ ('', i=1, 3) /))

type(ctrl_outcosp), save	cosp_output_mod::o_clmcalipso = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "clmcalipso", "Lidar Mid-level Cloud Fraction", "1", (/ ('', i=1, 3) /))

type(ctrl_outcosp), save	cosp_output_mod::o_clhcalipso = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "clhcalipso", "Lidar Hight-level Cloud Fraction", "1", (/ ('', i=1, 3) /))

type(ctrl_outcosp), save	cosp_output_mod::o_cltcalipso = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "cltcalipso", "Lidar Total Cloud Fraction", "1", (/ ('', i=1, 3) /))

type(ctrl_outcosp), save	cosp_output_mod::o_clcalipso = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "clcalipso", "Lidar Cloud Fraction (532 nm)", "1", (/ ('', i=1, 3) /))

type(ctrl_outcosp), save	cosp_output_mod::o_cfad_lidarsr532 = ctrl_outcosp((/ .FALSE., .FALSE., .FALSE. /), "cfad_lidarsr532", "Lidar Scattering Ratio CFAD (532 nm)", "1", (/ ('', i=1, 3) /))

type(ctrl_outcosp), save	cosp_output_mod::o_parasol_refl = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "parasol_refl", "PARASOL-like mono-directional reflectance", "1", (/ ('', i=1, 3) /))

type(ctrl_outcosp), save	cosp_output_mod::o_parasol_crefl = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "parasol_crefl", "PARASOL-like mono-directional reflectance (integral)", "1", (/ ('', i=1, 3) /))

type(ctrl_outcosp), save	cosp_output_mod::o_ncrefl = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "Ncrefl", "Nb PARASOL-like mono-directional reflectance (integral)", "1", (/ ('', i=1, 3) /))

type(ctrl_outcosp), save	cosp_output_mod::o_atb532 = ctrl_outcosp((/ .FALSE., .FALSE., .FALSE. /), "atb532", "Lidar Attenuated Total Backscatter (532 nm)", "1", (/ ('', i=1, 3) /))

type(ctrl_outcosp), save	cosp_output_mod::o_beta_mol532 = ctrl_outcosp((/ .FALSE., .FALSE., .FALSE. /), "beta_mol532", "Lidar Molecular Backscatter (532 nm)", "m-1 sr-1", (/ ('', i=1, 3) /))

type(ctrl_outcosp), save	cosp_output_mod::o_sunlit = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "sunlit", "1 for day points, 0 for nightime", "1", (/ ('', i=1, 3) /))

type(ctrl_outcosp), save	cosp_output_mod::o_clisccp2 = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "clisccp2", "Cloud Fraction as Calculated by the ISCCP Simulator", "1", (/ ('', i=1, 3) /))

type(ctrl_outcosp), save	cosp_output_mod::o_boxtauisccp = ctrl_outcosp((/ .FALSE., .FALSE., .FALSE. /), "boxtauisccp", "Optical Depth in Each Column as Calculated by the ISCCP Simulator", "1", (/ ('', i=1, 3) /))

type(ctrl_outcosp), save	cosp_output_mod::o_boxptopisccp = ctrl_outcosp((/ .FALSE., .FALSE., .FALSE. /), "boxptopisccp", "Cloud Top Pressure in Each Column as Calculated by the ISCCP Simulator", "Pa", (/ ('', i=1, 3) /))

type(ctrl_outcosp), save	cosp_output_mod::o_tclisccp = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "tclisccp", "Total Cloud Fraction as Calculated by the ISCCP Simulator", "1", (/ ('', i=1, 3) /))

type(ctrl_outcosp), save	cosp_output_mod::o_ctpisccp = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "ctpisccp", "Mean Cloud Top Pressure as Calculated by the ISCCP Simulator", "Pa", (/ ('', i=1, 3) /))

type(ctrl_outcosp), save	cosp_output_mod::o_tauisccp = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "tauisccp", "Optical Depth as Calculated by the ISCCP Simulator", "1", (/ ('', i=1, 3) /))

type(ctrl_outcosp), save	cosp_output_mod::o_albisccp = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "albisccp", "Mean Cloud Albedo as Calculated by the ISCCP Simulator", "1", (/ ('', i=1, 3) /))

type(ctrl_outcosp), save	cosp_output_mod::o_meantbisccp = ctrl_outcosp((/ .FALSE., .FALSE., .FALSE. /), "meantbisccp", " Mean all-sky 10.5 micron brightness temperature as calculated by the ISCCP Simulator", "K", (/ ('', i=1, 3) /))

type(ctrl_outcosp), save	cosp_output_mod::o_meantbclrisccp = ctrl_outcosp((/ .FALSE., .FALSE., .FALSE. /), "meantbclrisccp", "Mean clear-sky 10.5 micron brightness temperature as calculated by the ISCCP Simulator", "K", (/ ('', i=1, 3) /))

logical, save	cosp_output_mod::cosp_varsdefined = .FALSE.

real, save	cosp_output_mod::cosp_fill_value

Data Types

Modules

Functions/Subroutines

Variables