lmdz_lscp_condensation – Fortran Program

pre-cmip7 routines are below and are becoming obsolete

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.

Subroutines

condensation_lognormal condensation_ice_supersat deposition_sublimation condensation_cloudth cloudth cloudth_vert cloudth_v3 cloudth_vert_v3 cloudth_v6

Subroutines

public subroutine condensation_lognormal(klon, temp, qtot, qsat, gamma_cond, ratqs, keepgoing, cldfra, qincld, qvc)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	klon
real,	intent(in),	DIMENSION(klon)	::	temp
real,	intent(in),	DIMENSION(klon)	::	qtot
real,	intent(in),	DIMENSION(klon)	::	qsat
real,	intent(in),	DIMENSION(klon)	::	gamma_cond
real,	intent(in),	DIMENSION(klon)	::	ratqs
logical,	intent(in),	DIMENSION(klon)	::	keepgoing
real,	intent(inout),	DIMENSION(klon)	::	cldfra
real,	intent(inout),	DIMENSION(klon)	::	qincld
real,	intent(inout),	DIMENSION(klon)	::	qvc

public subroutine condensation_ice_supersat(klon, dtime, missing_val, pplay, paprsdn, paprsup, cf_seri, rvc_seri, ql_seri, qi_seri, shear, pbl_eps, cell_area, temp, qtot, qsat, gamma_cond, ratqs, keepgoing, cldfra, qincld, qvc, issrfra, qissr, dcf_sub, dcf_con, dcf_mix, dqi_adj, dqi_sub, dqi_con, dqi_mix, dqvc_adj, dqvc_sub, dqvc_con, dqvc_mix, Tcontr, qcontr, qcontr2, fcontrN, fcontrP, flight_dist, flight_h2o, dcf_avi, dqi_avi, dqvc_avi)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	klon
real,	intent(in)		::	dtime
real,	intent(in)		::	missing_val
real,	intent(in),	DIMENSION(klon)	::	pplay
real,	intent(in),	DIMENSION(klon)	::	paprsdn
real,	intent(in),	DIMENSION(klon)	::	paprsup
real,	intent(in),	DIMENSION(klon)	::	cf_seri
real,	intent(in),	DIMENSION(klon)	::	rvc_seri
real,	intent(in),	DIMENSION(klon)	::	ql_seri
real,	intent(in),	DIMENSION(klon)	::	qi_seri
real,	intent(in),	DIMENSION(klon)	::	shear
real,	intent(in),	DIMENSION(klon)	::	pbl_eps
real,	intent(in),	DIMENSION(klon)	::	cell_area
real,	intent(in),	DIMENSION(klon)	::	temp
real,	intent(in),	DIMENSION(klon)	::	qtot
real,	intent(in),	DIMENSION(klon)	::	qsat
real,	intent(in),	DIMENSION(klon)	::	gamma_cond
real,	intent(in),	DIMENSION(klon)	::	ratqs
logical,	intent(in),	DIMENSION(klon)	::	keepgoing
real,	intent(inout),	DIMENSION(klon)	::	cldfra
real,	intent(inout),	DIMENSION(klon)	::	qincld
real,	intent(inout),	DIMENSION(klon)	::	qvc
real,	intent(inout),	DIMENSION(klon)	::	issrfra
real,	intent(inout),	DIMENSION(klon)	::	qissr
real,	intent(inout),	DIMENSION(klon)	::	dcf_sub
real,	intent(inout),	DIMENSION(klon)	::	dcf_con
real,	intent(inout),	DIMENSION(klon)	::	dcf_mix
real,	intent(inout),	DIMENSION(klon)	::	dqi_adj
real,	intent(inout),	DIMENSION(klon)	::	dqi_sub
real,	intent(inout),	DIMENSION(klon)	::	dqi_con
real,	intent(inout),	DIMENSION(klon)	::	dqi_mix
real,	intent(inout),	DIMENSION(klon)	::	dqvc_adj
real,	intent(inout),	DIMENSION(klon)	::	dqvc_sub
real,	intent(inout),	DIMENSION(klon)	::	dqvc_con
real,	intent(inout),	DIMENSION(klon)	::	dqvc_mix
real,	intent(inout),	DIMENSION(klon)	::	Tcontr
real,	intent(inout),	DIMENSION(klon)	::	qcontr
real,	intent(inout),	DIMENSION(klon)	::	qcontr2
real,	intent(inout),	DIMENSION(klon)	::	fcontrN
real,	intent(inout),	DIMENSION(klon)	::	fcontrP
real,	intent(in),	DIMENSION(klon)	::	flight_dist
real,	intent(in),	DIMENSION(klon)	::	flight_h2o
real,	intent(inout),	DIMENSION(klon)	::	dcf_avi
real,	intent(inout),	DIMENSION(klon)	::	dqi_avi
real,	intent(inout),	DIMENSION(klon)	::	dqvc_avi

public subroutine deposition_sublimation(qvapincld, qiceincld, temp, qsat, pplay, dtime, qvapincld_new)

Arguments

Type	Intent		Name
real,	intent(in)	::	qvapincld
real,	intent(in)	::	qiceincld
real,	intent(in)	::	temp
real,	intent(in)	::	qsat
real,	intent(in)	::	pplay
real,	intent(in)	::	dtime
real,	intent(out)	::	qvapincld_new

public subroutine condensation_cloudth(klon, temp, qt, qt_th, frac_th, zpspsk, play, thetal_th, ratqs, sigma_qtherm, qsth, qsenv, qcloud, ctot, ctotth, ctot_vol, cloudth_sth, cloudth_senv, cloudth_sigmath, cloudth_sigmaenv)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	klon
real,	intent(in),	DIMENSION(klon)	::	temp
real,	intent(in),	DIMENSION(klon)	::	qt
real,	intent(in),	DIMENSION(klon)	::	qt_th
real,	intent(in),	DIMENSION(klon)	::	frac_th
real,	intent(in),	DIMENSION(klon)	::	zpspsk
real,	intent(in),	DIMENSION(klon)	::	play
real,	intent(in),	DIMENSION(klon)	::	thetal_th
real,	intent(in),	DIMENSION(klon)	::	ratqs
real,	intent(in),	DIMENSION(klon)	::	sigma_qtherm
real,	intent(in),	DIMENSION(klon)	::	qsth
real,	intent(in),	DIMENSION(klon)	::	qsenv
real,	intent(inout),	DIMENSION(klon)	::	qcloud
real,	intent(inout),	DIMENSION(klon)	::	ctot
real,	intent(inout),	DIMENSION(klon)	::	ctotth
real,	intent(inout),	DIMENSION(klon)	::	ctot_vol
real,	intent(out),	DIMENSION(klon)	::	cloudth_sth
real,	intent(out),	DIMENSION(klon)	::	cloudth_senv
real,	intent(out),	DIMENSION(klon)	::	cloudth_sigmath
real,	intent(out),	DIMENSION(klon)	::	cloudth_sigmaenv

public subroutine cloudth(ngrid, klev, ind2, ztv, po, zqta, fraca, qcloud, ctot, zpspsk, paprs, pplay, ztla, zthl, ratqs, zqs, t, cloudth_sth, cloudth_senv, cloudth_sigmath, cloudth_sigmaenv)

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Arguments

Type	Intent	Attributes		Name
integer			::	ngrid
integer			::	klev
integer			::	ind2
real			::	ztv(ngrid,klev)
real			::	po(ngrid)
real			::	zqta(ngrid,klev)
real			::	fraca(ngrid,klev+1)
real			::	qcloud(ngrid)	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Read more…
real			::	ctot(ngrid,klev)
real			::	zpspsk(ngrid,klev)
real			::	paprs(ngrid,klev+1)
real			::	pplay(ngrid,klev)
real			::	ztla(ngrid,klev)
real			::	zthl(ngrid,klev)
real			::	ratqs(ngrid,klev)
real			::	zqs(ngrid)	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Read more…
real			::	t(ngrid,klev)
real,	intent(out),	dimension(ngrid,klev)	::	cloudth_sth
real,	intent(out),	dimension(ngrid,klev)	::	cloudth_senv
real,	intent(out),	dimension(ngrid,klev)	::	cloudth_sigmath
real,	intent(out),	dimension(ngrid,klev)	::	cloudth_sigmaenv

public subroutine cloudth_vert(ngrid, klev, ind2, ztv, po, zqta, fraca, qcloud, ctot, zpspsk, paprs, pplay, ztla, zthl, ratqs, zqs, t)

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Arguments

Type		Name
integer	::	ngrid
integer	::	klev
integer	::	ind2
real	::	ztv(ngrid,klev)
real	::	po(ngrid)
real	::	zqta(ngrid,klev)
real	::	fraca(ngrid,klev+1)
real	::	qcloud(ngrid)
real	::	ctot(ngrid,klev)
real	::	zpspsk(ngrid,klev)
real	::	paprs(ngrid,klev+1)
real	::	pplay(ngrid,klev)
real	::	ztla(ngrid,klev)
real	::	zthl(ngrid,klev)
real	::	ratqs(ngrid,klev)
real	::	zqs(ngrid)
real	::	t(ngrid,klev)

public subroutine cloudth_v3(ngrid, klev, ind2, ztv, po, zqta, fraca, qcloud, ctot, ctot_vol, zpspsk, paprs, pplay, ztla, zthl, ratqs, sigma_qtherm, zqs, t, cloudth_sth, cloudth_senv, cloudth_sigmath, cloudth_sigmaenv)

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	ngrid
integer,	intent(in)		::	klev
integer,	intent(in)		::	ind2
real,	intent(in),	dimension(ngrid,klev)	::	ztv
real,	intent(in),	dimension(ngrid)	::	po
real,	intent(in),	dimension(ngrid,klev)	::	zqta
real,	intent(in),	dimension(ngrid,klev+1)	::	fraca
real,	intent(out),	dimension(ngrid)	::	qcloud
real,	intent(out),	dimension(ngrid,klev)	::	ctot
real,	intent(out),	dimension(ngrid,klev)	::	ctot_vol
real,	intent(in),	dimension(ngrid,klev)	::	zpspsk
real,	intent(in),	dimension(ngrid,klev+1)	::	paprs
real,	intent(in),	dimension(ngrid,klev)	::	pplay
real,	intent(in),	dimension(ngrid,klev)	::	ztla
real,	intent(inout),	dimension(ngrid,klev)	::	zthl
real,	intent(in),	dimension(ngrid,klev)	::	ratqs
real,	intent(in),	dimension(ngrid,klev)	::	sigma_qtherm
real,	intent(in),	dimension(ngrid)	::	zqs
real,	intent(in),	dimension(ngrid,klev)	::	t
real,	intent(out),	dimension(ngrid,klev)	::	cloudth_sth
real,	intent(out),	dimension(ngrid,klev)	::	cloudth_senv
real,	intent(out),	dimension(ngrid,klev)	::	cloudth_sigmath
real,	intent(out),	dimension(ngrid,klev)	::	cloudth_sigmaenv

public subroutine cloudth_vert_v3(ngrid, klev, ind2, ztv, po, zqta, fraca, qcloud, ctot, ctot_vol, zpspsk, paprs, pplay, ztla, zthl, ratqs, sigma_qtherm, zqs, t, cloudth_sth, cloudth_senv, cloudth_sigmath, cloudth_sigmaenv)

Arguments

Type	Intent	Attributes		Name
integer			::	ngrid
integer			::	klev
integer			::	ind2
real			::	ztv(ngrid,klev)
real			::	po(ngrid)
real			::	zqta(ngrid,klev)
real			::	fraca(ngrid,klev+1)
real			::	qcloud(ngrid)
real			::	ctot(ngrid,klev)
real			::	ctot_vol(ngrid,klev)
real			::	zpspsk(ngrid,klev)
real			::	paprs(ngrid,klev+1)
real			::	pplay(ngrid,klev)
real			::	ztla(ngrid,klev)
real			::	zthl(ngrid,klev)
real			::	ratqs(ngrid,klev)
real			::	sigma_qtherm(ngrid,klev)
real			::	zqs(ngrid)
real			::	t(ngrid,klev)
real,	intent(out),	dimension(ngrid,klev)	::	cloudth_sth
real,	intent(out),	dimension(ngrid,klev)	::	cloudth_senv
real,	intent(out),	dimension(ngrid,klev)	::	cloudth_sigmath
real,	intent(out),	dimension(ngrid,klev)	::	cloudth_sigmaenv

public subroutine cloudth_v6(ngrid, klev, ind2, ztv, po, zqta, fraca, qcloud, ctot_surf, ctot_vol, zpspsk, paprs, pplay, ztla, zthl, ratqs, zqs, T, cloudth_sth, cloudth_senv, cloudth_sigmath, cloudth_sigmaenv)

Arguments

Type	Intent	Attributes		Name
integer			::	ngrid
integer			::	klev
integer			::	ind2
real			::	ztv(ngrid,klev)
real			::	po(ngrid)
real			::	zqta(ngrid,klev)
real			::	fraca(ngrid,klev+1)
real			::	qcloud(ngrid)
real			::	ctot_surf(ngrid,klev)
real			::	ctot_vol(ngrid,klev)
real			::	zpspsk(ngrid,klev)
real			::	paprs(ngrid,klev+1)
real			::	pplay(ngrid,klev)
real			::	ztla(ngrid,klev)
real			::	zthl(ngrid,klev)
real			::	ratqs(ngrid,klev)
real			::	zqs(ngrid)
real			::	T(ngrid,klev)
real,	intent(out),	dimension(ngrid,klev)	::	cloudth_sth
real,	intent(out),	dimension(ngrid,klev)	::	cloudth_senv
real,	intent(out),	dimension(ngrid,klev)	::	cloudth_sigmath
real,	intent(out),	dimension(ngrid,klev)	::	cloudth_sigmaenv

lmdz_lscp_condensation Module

Contents

Subroutines

Used by

Contents

Subroutines

Subroutines

public subroutine condensation_lognormal(klon, temp, qtot, qsat, gamma_cond, ratqs, keepgoing, cldfra, qincld, qvc)

Arguments

Arguments

public subroutine deposition_sublimation(qvapincld, qiceincld, temp, qsat, pplay, dtime, qvapincld_new)

Arguments

public subroutine condensation_cloudth(klon, temp, qt, qt_th, frac_th, zpspsk, play, thetal_th, ratqs, sigma_qtherm, qsth, qsenv, qcloud, ctot, ctotth, ctot_vol, cloudth_sth, cloudth_senv, cloudth_sigmath, cloudth_sigmaenv)

Arguments

public subroutine cloudth(ngrid, klev, ind2, ztv, po, zqta, fraca, qcloud, ctot, zpspsk, paprs, pplay, ztla, zthl, ratqs, zqs, t, cloudth_sth, cloudth_senv, cloudth_sigmath, cloudth_sigmaenv)

Arguments

public subroutine cloudth_vert(ngrid, klev, ind2, ztv, po, zqta, fraca, qcloud, ctot, zpspsk, paprs, pplay, ztla, zthl, ratqs, zqs, t)

Arguments

public subroutine cloudth_v3(ngrid, klev, ind2, ztv, po, zqta, fraca, qcloud, ctot, ctot_vol, zpspsk, paprs, pplay, ztla, zthl, ratqs, sigma_qtherm, zqs, t, cloudth_sth, cloudth_senv, cloudth_sigmath, cloudth_sigmaenv)

Arguments

public subroutine cloudth_vert_v3(ngrid, klev, ind2, ztv, po, zqta, fraca, qcloud, ctot, ctot_vol, zpspsk, paprs, pplay, ztla, zthl, ratqs, sigma_qtherm, zqs, t, cloudth_sth, cloudth_senv, cloudth_sigmath, cloudth_sigmaenv)

Arguments

public subroutine cloudth_v6(ngrid, klev, ind2, ztv, po, zqta, fraca, qcloud, ctot_surf, ctot_vol, zpspsk, paprs, pplay, ztla, zthl, ratqs, zqs, T, cloudth_sth, cloudth_senv, cloudth_sigmath, cloudth_sigmaenv)

Arguments