cosp_output_mod Module Reference

Data Types
type	ctrl_outcosp

Functions/Subroutines
subroutine	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	i
logical, dimension(3), save	cosp_outfilekeys
integer, dimension(3), save	cosp_nidfiles
integer, dimension(3), save	nhoricosp
integer, dimension(3), save	nvert
integer, dimension(3), save	nvertmcosp
integer, dimension(3), save	nvertcol
integer, dimension(3), save	nvertisccp
integer, dimension(3), save	nvertp
real, dimension(3), save	zoutm_cosp
real, save	zdtimemoy_cosp
character(len=20), dimension(3), save	cosp_outfiletypes
character(len=20), dimension(3), save	cosp_outfilenames
real, dimension(3), save	cosp_ecritfiles
type(ctrl_outcosp), save	o_cllcalipso = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "cllcalipso", "Lidar Low-level Cloud Fraction", "1", (/ ('', i=1, 3) /))
type(ctrl_outcosp), save	o_clmcalipso = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "clmcalipso", "Lidar Mid-level Cloud Fraction", "1", (/ ('', i=1, 3) /))
type(ctrl_outcosp), save	o_clhcalipso = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "clhcalipso", "Lidar Hight-level Cloud Fraction", "1", (/ ('', i=1, 3) /))
type(ctrl_outcosp), save	o_cltcalipso = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "cltcalipso", "Lidar Total Cloud Fraction", "1", (/ ('', i=1, 3) /))
type(ctrl_outcosp), save	o_clcalipso = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "clcalipso", "Lidar Cloud Fraction (532 nm)", "1", (/ ('', i=1, 3) /))
type(ctrl_outcosp), save	o_cfad_lidarsr532 = ctrl_outcosp((/ .FALSE., .FALSE., .FALSE. /), "cfad_lidarsr532", "Lidar Scattering Ratio CFAD (532 nm)", "1", (/ ('', i=1, 3) /))
type(ctrl_outcosp), save	o_parasol_refl = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "parasol_refl", "PARASOL-like mono-directional reflectance", "1", (/ ('', i=1, 3) /))
type(ctrl_outcosp), save	o_parasol_crefl = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "parasol_crefl", "PARASOL-like mono-directional reflectance (integral)", "1", (/ ('', i=1, 3) /))
type(ctrl_outcosp), save	o_ncrefl = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "Ncrefl", "Nb PARASOL-like mono-directional reflectance (integral)", "1", (/ ('', i=1, 3) /))
type(ctrl_outcosp), save	o_atb532 = ctrl_outcosp((/ .FALSE., .FALSE., .FALSE. /), "atb532", "Lidar Attenuated Total Backscatter (532 nm)", "1", (/ ('', i=1, 3) /))
type(ctrl_outcosp), save	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	o_sunlit = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "sunlit", "1 for day points, 0 for nightime", "1", (/ ('', i=1, 3) /))
type(ctrl_outcosp), save	o_clisccp2 = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "clisccp2", "Cloud Fraction as Calculated by the ISCCP Simulator", "1", (/ ('', i=1, 3) /))
type(ctrl_outcosp), save	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	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	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	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	o_tauisccp = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), "tauisccp", "Optical Depth as Calculated by the ISCCP Simulator", "1", (/ ('', i=1, 3) /))
type(ctrl_outcosp), save	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	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	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_varsdefined = .FALSE.
real, save	cosp_fill_value

Function/Subroutine Documentation

subroutine cosp_output_mod::cosp_output_open	(	integer	Nlevlmdz,
		integer	Ncolumns,
		real, dimension(nlevlmdz)	presnivs,
		real	dtime,
		real	freq_cosp,
		logical	ok_mensuelCOSP,
		logical	ok_journeCOSP,
		logical	ok_hfCOSP,
		logical	ok_all_xml,
		real	ecrit_mth,
		real	ecrit_day,
		real	ecrit_hf,
		logical	use_vgrid,
		type(cosp_vgrid)	vgrid
	)

Definition at line 97 of file cosp_output_mod.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

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

Definition at line 24 of file cosp_output_mod.F90.

real, save cosp_output_mod::cosp_fill_value

Definition at line 83 of file cosp_output_mod.F90.

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

Definition at line 15 of file cosp_output_mod.F90.

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

Definition at line 14 of file cosp_output_mod.F90.

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

Definition at line 23 of file cosp_output_mod.F90.

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

Definition at line 22 of file cosp_output_mod.F90.

logical, save cosp_output_mod::cosp_varsdefined = .FALSE.

Definition at line 82 of file cosp_output_mod.F90.

integer, private cosp_output_mod::i

Definition at line 12 of file cosp_output_mod.F90.

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

Definition at line 17 of file cosp_output_mod.F90.

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

Definition at line 17 of file cosp_output_mod.F90.

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

Definition at line 17 of file cosp_output_mod.F90.

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

Definition at line 17 of file cosp_output_mod.F90.

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

Definition at line 17 of file cosp_output_mod.F90.

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

Definition at line 17 of file cosp_output_mod.F90.

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) /))

Definition at line 73 of file cosp_output_mod.F90.

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) /))

Definition at line 54 of file cosp_output_mod.F90.

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) /))

Definition at line 56 of file cosp_output_mod.F90.

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) /))

Definition at line 65 of file cosp_output_mod.F90.

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) /))

Definition at line 63 of file cosp_output_mod.F90.

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) /))

Definition at line 46 of file cosp_output_mod.F90.

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

Definition at line 44 of file cosp_output_mod.F90.

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

Definition at line 40 of file cosp_output_mod.F90.

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) /))

Definition at line 61 of file cosp_output_mod.F90.

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

Definition at line 36 of file cosp_output_mod.F90.

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

Definition at line 38 of file cosp_output_mod.F90.

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

Definition at line 42 of file cosp_output_mod.F90.

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) /))

Definition at line 69 of file cosp_output_mod.F90.

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) /))

Definition at line 78 of file cosp_output_mod.F90.

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) /))

Definition at line 75 of file cosp_output_mod.F90.

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) /))

Definition at line 52 of file cosp_output_mod.F90.

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) /))

Definition at line 50 of file cosp_output_mod.F90.

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) /))

Definition at line 48 of file cosp_output_mod.F90.

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) /))

Definition at line 59 of file cosp_output_mod.F90.

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) /))

Definition at line 71 of file cosp_output_mod.F90.

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) /))

Definition at line 67 of file cosp_output_mod.F90.

real, save cosp_output_mod::zdtimemoy_cosp

Definition at line 20 of file cosp_output_mod.F90.

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

Definition at line 18 of file cosp_output_mod.F90.