cosp_output_mod – Fortran Program

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!! Ouverture des fichier et definition des axes!!!!!!!! histbeg, histvert !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Uses

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Used by

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Variables

cosp_outfilekeys cosp_nidfiles nhoricosp nvert nvertmcosp nvertcol nvertbze nvertsratio nvertisccp nvertp nverttemp nvertmisr nvertReffIce nvertReffLiq nverttau zoutm_cosp zdtimemoy_cosp cosp_outfiletypes cosp_outfilenames cosp_ecritfiles o_cllcalipso o_clmcalipso o_clhcalipso o_cltcalipso o_clcalipso o_cfad_lidarsr532 o_parasol_refl o_parasol_crefl o_Ncrefl o_atb532 o_beta_mol532 o_cllcalipsoice o_cllcalipsoliq o_clmcalipsoice o_clmcalipsoliq o_clhcalipsoice o_clhcalipsoliq o_cltcalipsoice o_cltcalipsoliq o_cllcalipsoun o_clmcalipsoun o_clhcalipsoun o_cltcalipsoun o_clcalipsoice o_clcalipsoliq o_clcalipsoun o_clcalipsotmpice o_clcalipsotmpliq o_clcalipsotmpun o_clcalipsotmp o_clopaquecalipso o_clthincalipso o_clzopaquecalipso o_clcalipsoopaque o_clcalipsothin o_clcalipsozopaque o_clcalipsoopacity o_proftemp o_profSR o_cfadDbze94 o_dbze94 o_clcalipso2 o_cltlidarradar o_sunlit o_clisccp2 o_boxtauisccp o_boxptopisccp o_tclisccp o_ctpisccp o_tauisccp o_albisccp o_meantbisccp o_meantbclrisccp o_clMISR o_cllmodis o_clmmodis o_clhmodis o_cltmodis o_clwmodis o_climodis o_tautmodis o_tauwmodis o_tauimodis o_tautlogmodis o_tauwlogmodis o_tauilogmodis o_reffclwmodis o_reffclimodis o_pctmodis o_lwpmodis o_iwpmodis o_clmodis o_crimodis o_crlmodis o_tbrttov o_fracout cosp_varsdefined Cosp_fill_value

Derived Types

ctrl_outcosp

Subroutines

cosp_output_open

Variables

Type	Visibility	Attributes		Name		Initial
logical,	public,	DIMENSION(3), SAVE	::	cosp_outfilekeys
integer,	public,	DIMENSION(3), SAVE	::	cosp_nidfiles
integer,	public,	DIMENSION(3), SAVE	::	nhoricosp
integer,	public,	DIMENSION(3), SAVE	::	nvert
integer,	public,	DIMENSION(3), SAVE	::	nvertmcosp
integer,	public,	DIMENSION(3), SAVE	::	nvertcol
integer,	public,	DIMENSION(3), SAVE	::	nvertbze
integer,	public,	DIMENSION(3), SAVE	::	nvertsratio
integer,	public,	DIMENSION(3), SAVE	::	nvertisccp
integer,	public,	DIMENSION(3), SAVE	::	nvertp
integer,	public,	DIMENSION(3), SAVE	::	nverttemp
integer,	public,	DIMENSION(3), SAVE	::	nvertmisr
integer,	public,	DIMENSION(3), SAVE	::	nvertReffIce
integer,	public,	DIMENSION(3), SAVE	::	nvertReffLiq
integer,	public,	DIMENSION(3), SAVE	::	nverttau
real,	public,	DIMENSION(3), SAVE	::	zoutm_cosp
real,	public,	SAVE	::	zdtimemoy_cosp
character(len=20),	public,	DIMENSION(3), SAVE	::	cosp_outfiletypes
character(len=20),	public,	DIMENSION(3), SAVE	::	cosp_outfilenames
real,	public,	DIMENSION(3), SAVE	::	cosp_ecritfiles			!! Controle des variables a sortir dans les fichiers !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
type(ctrl_outcosp),	public,	SAVE	::	o_cllcalipso	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cllcalipso", "Lidar Low-level Cloud Fraction", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clmcalipso	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clmcalipso", "Lidar Mid-level Cloud Fraction", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clhcalipso	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clhcalipso", "Lidar High-level Cloud Fraction", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cltcalipso	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cltcalipso", "Lidar Total Cloud Fraction", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipso	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipso", "Lidar Cloud Fraction (532 nm)", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cfad_lidarsr532	=	ctrl_outcosp((/.FALSE., .FALSE., .FALSE./), "cfad_lidarsr532", "Lidar Scattering Ratio CFAD (532 nm)", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_parasol_refl	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "parasol_refl", "PARASOL-like mono-directional reflectance", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_parasol_crefl	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "parasol_crefl", "PARASOL-like mono-directional reflectance (integral)", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_Ncrefl	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "Ncrefl", "Nb PARASOL-like mono-directional reflectance (integral)", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_atb532	=	ctrl_outcosp((/.FALSE., .FALSE., .FALSE./), "atb532", "Lidar Attenuated Total Backscatter (532 nm)", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_beta_mol532	=	ctrl_outcosp((/.FALSE., .FALSE., .FALSE./), "beta_mol532", "Lidar Molecular Backscatter (532 nm)", "m-1 sr-1", (/('', i=1, 3)/))	AI 11 2015
type(ctrl_outcosp),	public,	SAVE	::	o_cllcalipsoice	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cllcalipsoice", "CALIPSO Ice-Phase Low Level Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cllcalipsoliq	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cllcalipsoliq", "CALIPSO Liq-Phase Low Level Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clmcalipsoice	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clmcalipsoice", "CALIPSO Ice-Phase Mid Level Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clmcalipsoliq	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clmcalipsoliq", "CALIPSO Liq-Phase Mid Level Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clhcalipsoice	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clhcalipsoice", "CALIPSO Ice-Phase High Level Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clhcalipsoliq	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clhcalipsoliq", "CALIPSO Liq-Phase High Level Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cltcalipsoice	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cltcalipsoice", "CALIPSO Ice-Phase Tot Level Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cltcalipsoliq	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cltcalipsoliq", "CALIPSO Liq-Phase Tot Level Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cllcalipsoun	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cllcalipsoun", "CALIPSO Undefined-Phase Low Level Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clmcalipsoun	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clmcalipsoun", "CALIPSO Undefined-Phase Mid Level Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clhcalipsoun	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clhcalipsoun", "CALIPSO Undefined-Phase High Level Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cltcalipsoun	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cltcalipsoun", "CALIPSO Undefined-Phase Tot Level Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsoice	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsoice", "Lidar Ice-Phase Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsoliq	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsoliq", "Lidar Liq-Phase Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsoun	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsoun", "Lidar Undef-Phase Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsotmpice	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsotmpice", "Lidar Ice-Phase Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsotmpliq	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsotmpliq", "Lidar Liq-Phase Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsotmpun	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsotmpun", "Lidar Undef-Phase Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsotmp	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsotmp", "Lidar Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clopaquecalipso	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clopaquecalipso", "Lidar Opaque Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clthincalipso	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clthincalipso", "Lidar Thin Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clzopaquecalipso	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clzopaquecalipso", "Lidar mean opacity altitude", "m", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsoopaque	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsoopaque", "Lidar Opaque profile Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsothin	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsothin", "Lidar Thin profile Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsozopaque	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsozopaque", "Lidar z_opaque Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsoopacity	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsoopacity", "Lidar opacity Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_proftemp	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "proftemp", "Temperature profiles (40 lev)", "K", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_profSR	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "profSR", "Lidar Scattering Ratio profiles (532 nm)", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cfadDbze94	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cfadDbze94", "CloudSat Radar Reflectivity CFAD", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_dbze94	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "dbze94", "CloudSat Radar Reflectivity", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipso2	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipso2", "CALIPSO Cloud Fraction Undetected by CloudSat", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cltlidarradar	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cltlidarradar", "Lidar and Radar Total Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_sunlit	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "sunlit", "1 for day points, 0 for nightime", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clisccp2	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clisccp2", "Cloud Fraction as Calculated by the ISCCP Simulator", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	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),	public,	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),	public,	SAVE	::	o_tclisccp	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "tclisccp", "Total Cloud Fraction as Calculated by the ISCCP Simulator", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	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),	public,	SAVE	::	o_tauisccp	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "tauisccp", "Optical Depth as Calculated by the ISCCP Simulator", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	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),	public,	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),	public,	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)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clMISR	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clMISR", "Cloud Fraction as Calculated by the MISR Simulator", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cllmodis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cllmodis", "MODIS Low-level Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clmmodis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clmmodis", "MODIS Mid-level Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clhmodis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clhmodis", "MODIS High-level Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cltmodis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cltmodis", "MODIS Total Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clwmodis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clwmodis", "MODIS Cloud Fraction water mean", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_climodis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "climodis", "MODIS Cloud Fraction ice mean", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_tautmodis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "tautmodis", "MODIS Optical_Thickness_Total_Mean", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_tauwmodis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "tauwmodis", "MODIS Optical_Thickness_Water_Mean", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_tauimodis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "tauimodis", "MODIS Optical_Thickness_Ice_Mean", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_tautlogmodis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "tautlogmodis", "MODIS Optical_Thickness_Total_logMean", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_tauwlogmodis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "tauwlogmodis", "MODIS Optical_Thickness_Water_logMean", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_tauilogmodis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "tauilogmodis", "MODIS Optical_Thickness_Ice_logMean", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_reffclwmodis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "reffclwmodis", "Modis Cloud_Particle_Size_Water_Mean", "m", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_reffclimodis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "reffclimodis", "Modis Cloud_Particle_Size_Ice_Mean", "m", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_pctmodis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "pctmodis", "Modis Cloud_Top_Pressure_Total_Mean", "Pa", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_lwpmodis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "lwpmodis", "Modis Liquid_Water_Path_Mean", "kg m-2", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_iwpmodis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "iwpmodis", "Modis Ice_Water_Path_Mean", "kg m-2", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clmodis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clmodis", "MODIS Cloud Area Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_crimodis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "crimodis", "Optical_Thickness_vs_ReffIce from Modis", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_crlmodis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "crlmodis", "Optical_Thickness_vs_ReffLiq from Modis", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_tbrttov	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "tbrttov", "Rttovs Cloud Area Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_fracout	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "fracout", "Subcolumn output from SCOPS", "%", (/('', i=1, 3)/))
logical,	public,	SAVE	::	cosp_varsdefined	=	.FALSE.
real,	public,	SAVE	::	Cosp_fill_value

Derived Types

type, public :: ctrl_outcosp

Components

Type	Visibility	Attributes		Name
logical,	public,	DIMENSION(3)	::	cles	! Sortir ou non le champs
character(len=20),	public		::	name
character(len=150),	public		::	description	! Nom
character(len=20),	public		::	unit	! Unite
character(len=20),	public,	DIMENSION(3)	::	cosp_typeecrit	! Operation (ave, inst, ...)

Subroutines

public 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, stlidar)

! Variables d'entree Definition valeurs axes ! Valeur indefinie en cas IOIPSL

Arguments

Type	Attributes		Name
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
type(COSP_LIDARSTATS)		::	stlidar	! Variables locales

cosp_output_mod Module

Contents

Variables

Derived Types

Subroutines

Uses

Used by

Contents

Variables

Derived Types

Subroutines

Variables

Derived Types

type, public :: ctrl_outcosp

Components

Subroutines

public 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, stlidar)

Arguments