lmdz_cosp_output_mod – Fortran Program

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

Uses

- cosp_kinds
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

i 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_cfadLidarsr532 o_atb532 o_lidarBetaMol532 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_clopaquetemp o_clthintemp o_clzopaquetemp o_clopaquemeanz o_clthinmeanz o_clthinemis o_clopaquemeanzse o_clthinmeanzse o_clzopaquecalipsose o_cllgrLidar532 o_clmgrLidar532 o_clhgrLidar532 o_cltgrLidar532 o_clgrLidar532 o_cfadLidarsr532gr o_atb532gr o_lidarBetaMol532gr o_cllatlid o_clmatlid o_clhatlid o_cltatlid o_clatlid o_cfadLidarsr355 o_atb355 o_lidarBetaMol355 o_parasolGrid_refl o_parasolPix_refl o_cfadDbze94 o_dbze94 o_ptradarflag0 o_ptradarflag1 o_ptradarflag2 o_ptradarflag3 o_ptradarflag4 o_ptradarflag5 o_ptradarflag6 o_ptradarflag7 o_ptradarflag8 o_ptradarflag9 o_radarpia o_clcalipso2 o_cltlidarradar o_cloudsat_tcc o_cloudsat_tcc2 o_clisccp o_boxtauisccp o_boxptopisccp o_cltisccp o_pctisccp o_tauisccp o_albisccp o_meantbisccp o_meantbclrisccp o_misr_fq o_misr_meanztop o_misr_cldarea 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_modis_ot_vs_ctp o_modis_ot_vs_reffice o_modis_ot_vs_reffliq o_tbrttov o_fracout cosp_varsdefined Cosp_fill_value

Derived Types

ctrl_outcosp

Subroutines

lmdz_cosp_output_open

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public		::	i			!!!!! Controle des fichier de sorties Cosp !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
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", "CALIPSO Low-level Cloud Fraction", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clmcalipso	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clmcalipso", "CALIPSO Mid-level Cloud Fraction", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clhcalipso	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clhcalipso", "CALIPSO High-level Cloud Fraction", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cltcalipso	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cltcalipso", "CALIPSO Total Cloud Fraction", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipso	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipso", "CALIPSO Cloud Fraction (532 nm)", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cfadLidarsr532	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cfadLidarsr532", "CALIPSO Scattering Ratio CFAD (532 nm)", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_atb532	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "atb532", "CALIPSO Attenuated Total Backscatter (532 nm)", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_lidarBetaMol532	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "lidarBetaMol532", "CALIPSO 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", "CALIPSO Ice-Phase Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsoliq	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsoliq", "CALIPSO Liq-Phase Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsoun	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsoun", "CALIPSO Undef-Phase Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsotmpice	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsotmpice", "CALIPSO Ice-Phase Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsotmpliq	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsotmpliq", "CALIPSO Liq-Phase Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsotmpun	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsotmpun", "CALIPSO Undef-Phase Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsotmp	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsotmp", "CALIPSO Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clopaquecalipso	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clopaquecalipso", "CALIPSO Opaque Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clthincalipso	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clthincalipso", "CALIPSO Thin Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clzopaquecalipso	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clzopaquecalipso", "CALIPSO mean opacity altitude", "m", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsoopaque	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsoopaque", "CALIPSO Opaque profile Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsothin	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsothin", "CALIPSO Thin profile Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsozopaque	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsozopaque", "CALIPSO z_opaque Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clcalipsoopacity	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clcalipsoopacity", "CALIPSO opacity Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clopaquetemp	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clopaquetemp", "CALIPSO Opaque Cloud Temperature", "K", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clthintemp	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clthintemp", "CALIPSO Thin Cloud Temperature", "K", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clzopaquetemp	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clzopaquetemp", "CALIPSO z_opaque Temperature", "K", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clopaquemeanz	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clopaquemeanz", "CALIPSO Opaque Cloud Altitude", "m", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clthinmeanz	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clthinmeanz", "CALIPSO Thin Cloud Altitude", "m", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clthinemis	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clthinemis", "CALIPSO Thin Cloud Emissivity", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clopaquemeanzse	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clopaquemeanzse", "CALIPSO Opaque Cloud Altitude with respect to Surface Elevation", "m", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clthinmeanzse	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clthinmeanzse", "CALIPSO Thin Cloud Altitude with respect to Surface Elevation", "m", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clzopaquecalipsose	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clzopaquecalipsose", "CALIPSO mean opacity Altitude with respect to Surface Elevation", "m", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cllgrLidar532	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cllgrLidar532", "GROUND LIDAR 532 nm Low-level Cloud Fraction", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clmgrLidar532	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clmgrLidar532", "GROUND LIDAR 532 nm Mid-level Cloud Fraction", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clhgrLidar532	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clhgrLidar532", "GROUND LIDAR 532 nm High-level Cloud Fraction", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cltgrLidar532	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cltgrLidar532", "GROUND LIDAR 532 nm Total Cloud Fraction", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clgrLidar532	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clgrLidar532", "GROUND LIDAR 532 nm Cloud Fraction", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cfadLidarsr532gr	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cfadLidarsr532gr", "GROUND LIDAR 532 nm Scattering Ratio CFAD", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_atb532gr	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "atb532gr", "GROUND LIDAR 532 nm Attenuated Total Backscatter (532 nm)", "m-1 sr-1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_lidarBetaMol532gr	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "lidarBetaMol532gr", "GROUND LIDAR 532 nm Molecular Backscatter (532 nm)", "m-1 sr-1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cllatlid	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cllatlid", "ATLID Low-level Cloud Fraction", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clmatlid	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clmatlid", "ATLID Mid-level Cloud Fraction", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clhatlid	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clhatlid", "ATLID High-level Cloud Fraction", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cltatlid	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cltatlid", "ATLID Total Cloud Fraction", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clatlid	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clatlid", "ATLID Cloud Fraction (532 nm)", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cfadLidarsr355	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cfadLidarsr355", "ATLID Scattering Ratio CFAD (532 nm)", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_atb355	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "atb355", "ATLID Attenuated Total Backscatter (532 nm)", "m-1 sr-1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_lidarBetaMol355	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "lidarBetaMol355", "ATLID Molecular Backscatter (532 nm)", "m-1 sr-1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_parasolGrid_refl	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "parasolGrid_refl", "PARASOL Reflectance", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_parasolPix_refl	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "parasolPix_refl", "PARASOL Subcolumn Reflectance", "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_ptradarflag0	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "ptradarflag0", "CloudSat Radar Precipitation frequency flag 0", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_ptradarflag1	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "ptradarflag1", "CloudSat Radar Precipitation frequency flag 1", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_ptradarflag2	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "ptradarflag2", "CloudSat Radar Precipitation frequency flag 2", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_ptradarflag3	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "ptradarflag3", "CloudSat Radar Precipitation frequency flag 3", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_ptradarflag4	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "ptradarflag4", "CloudSat Radar Precipitation frequency flag 4", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_ptradarflag5	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "ptradarflag5", "CloudSat Radar Precipitation frequency flag 5", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_ptradarflag6	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "ptradarflag6", "CloudSat Radar Precipitation frequency flag 6", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_ptradarflag7	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "ptradarflag7", "CloudSat Radar Precipitation frequency flag 7", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_ptradarflag8	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "ptradarflag8", "CloudSat Radar Precipitation frequency flag 8", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_ptradarflag9	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "ptradarflag9", "CloudSat Radar Precipitation frequency flag 9", "1", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_radarpia	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "radarpia", "CloudSat Radar PIA", "1", (/('', 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", "CALIPSO and CloudSat Radar Total Cloud Fraction", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cloudsat_tcc	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cloudsat_tcc", "CALIPSO and CloudSat Radar Total Cloud Fraction?", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cloudsat_tcc2	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cloudsat_tcc2", "CALIPSO and CloudSat Radar Total Cloud Fraction?", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_clisccp	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "clisccp", "Cloud Fraction as Calculated by the ISCCP Simulator", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_boxtauisccp	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "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((/.TRUE., .TRUE., .TRUE./), "boxptopisccp", "Cloud Top Pressure in Each Column as Calculated by the ISCCP Simulator", "Pa", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_cltisccp	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "cltisccp", "Total Cloud Fraction as Calculated by the ISCCP Simulator", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_pctisccp	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "pctisccp", "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((/.TRUE., .TRUE., .TRUE./), "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((/.TRUE., .TRUE., .TRUE./), "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_misr_fq	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "misr_fq", "MISR joint-PDF of cloud top pressure and optical depth", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_misr_meanztop	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "misr_meanztop", "MISR Mean Cloud Top Height", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_misr_cldarea	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "misr_cldarea", "MISR cloud cover", "%", (/('', 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_modis_ot_vs_ctp	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "modis_ot_vs_ctp", "MODIS joint-PDF of cloud top pressure and optical depth", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_modis_ot_vs_reffice	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "modis_ot_vs_reffice", "MODIS Joint-PDF of optical-depth and ice particle size", "%", (/('', i=1, 3)/))
type(ctrl_outcosp),	public,	SAVE	::	o_modis_ot_vs_reffliq	=	ctrl_outcosp((/.TRUE., .TRUE., .TRUE./), "modis_ot_vs_reffliq", "MODIS Joint-PDF of optical-depth and liquid particle size", "%", (/('', 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 lmdz_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, Nlvgrid, vgrid_z_loc, vgrid_mz)

! 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	! Variables locales
logical		::	ok_journeCOSP	! Variables locales
logical		::	ok_hfCOSP	! Variables locales
logical		::	ok_all_xml	! Variables locales
real		::	ecrit_mth
real		::	ecrit_day
real		::	ecrit_hf
logical		::	use_vgrid
integer		::	Nlvgrid
real,	dimension(Nlvgrid)	::	vgrid_z_loc
real,	dimension(Nlevlmdz)	::	vgrid_mz

lmdz_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 lmdz_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, Nlvgrid, vgrid_z_loc, vgrid_mz)

Arguments