m_simu_airs – Fortran Program

Uses

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

tau_thresh p_thresh em_min em_max undef

Functions

search_tropopause

Subroutines

cloud_structure normal_undef normal2_undef sous_section masque caract topbot ordonne sim_mesh test_bornes

Variables

Type	Visibility	Attributes		Name		Initial
real,	public,	parameter	::	tau_thresh	=	0.05
real,	public,	parameter	::	p_thresh	=	445.
real,	public,	parameter	::	em_min	=	0.2
real,	public,	parameter	::	em_max	=	0.85
real,	public,	parameter	::	undef	=	999.

Functions

public function search_tropopause(P, T, alt, N) result(P_tropo)

Arguments

Type		Name
real	::	P(N)
real	::	T(N)
real	::	alt(N)
integer	::	N

Return Value real

Subroutines

public subroutine cloud_structure(len_cs, rneb_cs, temp_cs, emis_cs, iwco_cs, pres_cs, dz_cs, rhodz_cs, rad_cs, cc_tot_cs, cc_hc_cs, cc_hist_cs, cc_Cb_cs, cc_ThCi_cs, cc_Anv_cs, pcld_hc_cs, tcld_hc_cs, em_hc_cs, iwp_hc_cs, deltaz_hc_cs, pcld_Cb_cs, tcld_Cb_cs, em_Cb_cs, pcld_ThCi_cs, tcld_ThCi_cs, em_ThCi_cs, pcld_Anv_cs, tcld_Anv_cs, em_Anv_cs, em_hist_cs, iwp_hist_cs, deltaz_hist_cs, rad_hist_cs)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	len_cs
real,	intent(in),	DIMENSION(:)	::	rneb_cs
real,	intent(in),	DIMENSION(:)	::	temp_cs
real,	intent(in),	DIMENSION(:)	::	emis_cs
real,	intent(in),	DIMENSION(:)	::	iwco_cs
real,	intent(in),	DIMENSION(:)	::	pres_cs
real,	intent(in),	DIMENSION(:)	::	dz_cs
real,	intent(in),	DIMENSION(:)	::	rhodz_cs
real,	intent(in),	DIMENSION(:)	::	rad_cs
real,	intent(out)		::	cc_tot_cs
real,	intent(out)		::	cc_hc_cs
real,	intent(out)		::	cc_hist_cs
real,	intent(out)		::	cc_Cb_cs
real,	intent(out)		::	cc_ThCi_cs
real,	intent(out)		::	cc_Anv_cs
real,	intent(out)		::	pcld_hc_cs
real,	intent(out)		::	tcld_hc_cs
real,	intent(out)		::	em_hc_cs
real,	intent(out)		::	iwp_hc_cs
real,	intent(out)		::	deltaz_hc_cs
real,	intent(out)		::	pcld_Cb_cs
real,	intent(out)		::	tcld_Cb_cs
real,	intent(out)		::	em_Cb_cs
real,	intent(out)		::	pcld_ThCi_cs
real,	intent(out)		::	tcld_ThCi_cs
real,	intent(out)		::	em_ThCi_cs
real,	intent(out)		::	pcld_Anv_cs
real,	intent(out)		::	tcld_Anv_cs
real,	intent(out)		::	em_Anv_cs
real,	intent(out)		::	em_hist_cs
real,	intent(out)		::	iwp_hist_cs
real,	intent(out)		::	deltaz_hist_cs
real,	intent(out)		::	rad_hist_cs

public subroutine normal_undef(num, den)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(inout)			::	num
real,	intent(in)			::	den

public subroutine normal2_undef(res, num, den)

Arguments

Type	Intent		Name
real,	intent(out)	::	res
real,	intent(in)	::	num
real,	intent(in)	::	den

public subroutine sous_section(len_cs, rneb_cs, temp_cs, emis_cs, iwco_cs, pres_cs, dz_cs, rhodz_cs, rad_cs, rneb_ord, rnebmax, stot, shc, shist, sCb, sThCi, sAnv, emis, pcld, tcld, iwp, deltaz, rad)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	len_cs
real,	intent(in),	DIMENSION(len_cs)	::	rneb_cs
real,	intent(in),	DIMENSION(len_cs)	::	temp_cs
real,	intent(in),	DIMENSION(len_cs)	::	emis_cs
real,	intent(in),	DIMENSION(len_cs)	::	iwco_cs
real,	intent(in),	DIMENSION(len_cs)	::	pres_cs
real,	intent(in),	DIMENSION(len_cs)	::	dz_cs
real,	intent(in),	DIMENSION(len_cs)	::	rhodz_cs
real,	intent(in),	DIMENSION(len_cs)	::	rad_cs
real,	intent(in),	DIMENSION(len_cs)	::	rneb_ord
real,	intent(in)		::	rnebmax
real,	intent(inout)		::	stot
real,	intent(inout)		::	shc
real,	intent(inout)		::	shist
real,	intent(inout)		::	sCb
real,	intent(inout)		::	sThCi
real,	intent(inout)		::	sAnv
real,	intent(out)		::	emis
real,	intent(out)		::	pcld
real,	intent(out)		::	tcld
real,	intent(out)		::	iwp
real,	intent(out)		::	deltaz
real,	intent(out)		::	rad

public subroutine masque(ibeg, iend, som_tau, visible, w)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	ibeg
integer,	intent(in)		::	iend
real,	intent(in)		::	som_tau
integer,	intent(inout)		::	visible
real,	intent(inout),	DIMENSION(:)	::	w

public subroutine caract(ibeg, iend, temp_cs, tau_cs, iwco_cs, pres_cs, dz_cs, rhodz_cs, rad_cs, pcld, tcld, som_tau, som_iwc, som_dz, som_rad)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	ibeg
integer,	intent(in)		::	iend
real,	intent(in),	DIMENSION(:)	::	temp_cs
real,	intent(in),	DIMENSION(:)	::	tau_cs
real,	intent(in),	DIMENSION(:)	::	iwco_cs
real,	intent(in),	DIMENSION(:)	::	pres_cs
real,	intent(in),	DIMENSION(:)	::	dz_cs
real,	intent(in),	DIMENSION(:)	::	rhodz_cs
real,	intent(in),	DIMENSION(:)	::	rad_cs
real,	intent(out)		::	pcld
real,	intent(out)		::	tcld
real,	intent(out)		::	som_tau
real,	intent(out)		::	som_iwc
real,	intent(out)		::	som_dz
real,	intent(out)		::	som_rad

public subroutine topbot(ideb, w, ibeg, iend)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	ideb
real,	intent(in),	DIMENSION(:)	::	w
integer,	intent(out)		::	ibeg
integer,	intent(out)		::	iend

public subroutine ordonne(len_cs, rneb_cs, rneb_ord)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	len_cs
real,	intent(in),	DIMENSION(:)	::	rneb_cs
real,	intent(out),	DIMENSION(:)	::	rneb_ord

public subroutine sim_mesh(rneb_1D, temp_1D, emis_1D, iwcon_1D, rad_1D, pres, dz, rhodz_1D, cc_tot_mesh, cc_hc_mesh, cc_hist_mesh, pcld_hc_mesh, tcld_hc_mesh, em_hc_mesh, iwp_hc_mesh, deltaz_hc_mesh, cc_Cb_mesh, cc_ThCi_mesh, cc_Anv_mesh, pcld_Cb_mesh, tcld_Cb_mesh, em_Cb_mesh, pcld_ThCi_mesh, tcld_ThCi_mesh, em_ThCi_mesh, pcld_Anv_mesh, tcld_Anv_mesh, em_Anv_mesh, em_hist_mesh, iwp_hist_mesh, deltaz_hist_mesh, rad_hist_mesh)

Arguments

Type	Intent	Attributes		Name
real,	intent(in),	DIMENSION(klev)	::	rneb_1D
real,	intent(in),	DIMENSION(klev)	::	temp_1D
real,	intent(in),	DIMENSION(klev)	::	emis_1D
real,	intent(in),	DIMENSION(klev)	::	iwcon_1D
real,	intent(in),	DIMENSION(klev)	::	rad_1D
real,	intent(in),	DIMENSION(klev)	::	pres
real,	intent(in),	DIMENSION(klev)	::	dz
real,	intent(in),	DIMENSION(klev)	::	rhodz_1D
real,	intent(out)		::	cc_tot_mesh
real,	intent(out)		::	cc_hc_mesh
real,	intent(out)		::	cc_hist_mesh
real,	intent(out)		::	pcld_hc_mesh
real,	intent(out)		::	tcld_hc_mesh
real,	intent(out)		::	em_hc_mesh
real,	intent(out)		::	iwp_hc_mesh
real,	intent(out)		::	deltaz_hc_mesh
real,	intent(out)		::	cc_Cb_mesh
real,	intent(out)		::	cc_ThCi_mesh
real,	intent(out)		::	cc_Anv_mesh
real,	intent(out)		::	pcld_Cb_mesh
real,	intent(out)		::	tcld_Cb_mesh
real,	intent(out)		::	em_Cb_mesh
real,	intent(out)		::	pcld_ThCi_mesh
real,	intent(out)		::	tcld_ThCi_mesh
real,	intent(out)		::	em_ThCi_mesh
real,	intent(out)		::	pcld_Anv_mesh
real,	intent(out)		::	tcld_Anv_mesh
real,	intent(out)		::	em_Anv_mesh
real,	intent(out)		::	em_hist_mesh
real,	intent(out)		::	iwp_hist_mesh
real,	intent(out)		::	deltaz_hist_mesh
real,	intent(out)		::	rad_hist_mesh

public subroutine test_bornes(sx, x, bsup, binf)

Arguments

Type	Intent		Name
character(len=14),	intent(in)	::	sx
real,	intent(in)	::	x
real,	intent(in)	::	bsup
real,	intent(in)	::	binf

m_simu_airs Module

Contents

Variables

Functions

Subroutines

Uses

Used by

Contents

Variables

Functions

Subroutines

Variables

Functions

public function search_tropopause(P, T, alt, N) result(P_tropo)

Arguments

Return Value real

Subroutines

Arguments

public subroutine normal_undef(num, den)

Arguments

public subroutine normal2_undef(res, num, den)

Arguments

public subroutine sous_section(len_cs, rneb_cs, temp_cs, emis_cs, iwco_cs, pres_cs, dz_cs, rhodz_cs, rad_cs, rneb_ord, rnebmax, stot, shc, shist, sCb, sThCi, sAnv, emis, pcld, tcld, iwp, deltaz, rad)

Arguments

public subroutine masque(ibeg, iend, som_tau, visible, w)

Arguments

public subroutine caract(ibeg, iend, temp_cs, tau_cs, iwco_cs, pres_cs, dz_cs, rhodz_cs, rad_cs, pcld, tcld, som_tau, som_iwc, som_dz, som_rad)

Arguments

public subroutine topbot(ideb, w, ibeg, iend)

Arguments

public subroutine ordonne(len_cs, rneb_cs, rneb_ord)

Arguments

Arguments

public subroutine test_bornes(sx, x, bsup, binf)

Arguments