lmdz_thermcell_old – Fortran Program

Subroutines

thermcell_2002 thermcell_cld thermcell_eau thermcell dqthermcell dvthermcell dqthermcell2 dvthermcell2 thermcell_sec calcul_sec fermeture_seche

Subroutines

public subroutine thermcell_2002(ngrid, nlay, ptimestep, iflag_thermals, pplay, pplev, pphi, pu, pv, pt, po, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0, fraca, wa_moy, r_aspect, l_mix, w2di, tho)

Arguments

Type		Name
integer	::	ngrid
integer	::	nlay
real	::	ptimestep
integer	::	iflag_thermals
real	::	pplay(ngrid,nlay)
real	::	pplev(ngrid,nlay+1)
real	::	pphi(ngrid,nlay)
real	::	pu(ngrid,nlay)
real	::	pv(ngrid,nlay)
real	::	pt(ngrid,nlay)
real	::	po(ngrid,nlay)
real	::	pduadj(ngrid,nlay)
real	::	pdvadj(ngrid,nlay)
real	::	pdtadj(ngrid,nlay)
real	::	pdoadj(ngrid,nlay)
real	::	fm0(klon,klev+1)
real	::	entr0(klon,klev)
real	::	fraca(ngrid,nlay+1)
real	::	wa_moy(klon,klev+1)
real	::	r_aspect
real	::	l_mix
integer	::	w2di
real	::	tho

public subroutine thermcell_cld(ngrid, nlay, ptimestep, pplay, pplev, pphi, zlev, debut, pu, pv, pt, po, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0, zqla, lmax, zmax_sec, wmax_sec, zw_sec, lmix_sec, ratqscth, ratqsdiff, r_aspect, l_mix, w2di, tho)

Arguments

Type		Name
integer	::	ngrid
integer	::	nlay
real	::	ptimestep
real	::	pplay(ngrid,nlay)
real	::	pplev(ngrid,nlay+1)
real	::	pphi(ngrid,nlay)
real	::	zlev(klon,klev+1)
logical	::	debut
real	::	pu(ngrid,nlay)
real	::	pv(ngrid,nlay)
real	::	pt(ngrid,nlay)
real	::	po(ngrid,nlay)
real	::	pduadj(ngrid,nlay)
real	::	pdvadj(ngrid,nlay)
real	::	pdtadj(ngrid,nlay)
real	::	pdoadj(ngrid,nlay)
real	::	fm0(klon,klev+1)
real	::	entr0(klon,klev)
real	::	zqla(klon,klev)
integer	::	lmax(klon)
real	::	zmax_sec(klon)
real	::	wmax_sec(klon)
real	::	zw_sec(klon,klev+1)
integer	::	lmix_sec(klon)
real	::	ratqscth(klon,klev)
real	::	ratqsdiff(klon,klev)
real	::	r_aspect
real	::	l_mix
integer	::	w2di
real	::	tho

public subroutine thermcell_eau(ngrid, nlay, ptimestep, pplay, pplev, pphi, pu, pv, pt, po, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0, r_aspect, l_mix, w2di, tho)

Arguments

Type		Name
integer	::	ngrid
integer	::	nlay
real	::	ptimestep
real	::	pplay(ngrid,nlay)
real	::	pplev(ngrid,nlay+1)
real	::	pphi(ngrid,nlay)
real	::	pu(ngrid,nlay)
real	::	pv(ngrid,nlay)
real	::	pt(ngrid,nlay)
real	::	po(ngrid,nlay)
real	::	pduadj(ngrid,nlay)
real	::	pdvadj(ngrid,nlay)
real	::	pdtadj(ngrid,nlay)
real	::	pdoadj(ngrid,nlay)
real	::	fm0(klon,klev+1)
real	::	entr0(klon,klev)
real	::	r_aspect
real	::	l_mix
integer	::	w2di
real	::	tho

public subroutine thermcell(ngrid, nlay, ptimestep, pplay, pplev, pphi, pu, pv, pt, po, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0, r_aspect, l_mix, w2di, tho)

Arguments

Type		Name
integer	::	ngrid
integer	::	nlay
real	::	ptimestep
real	::	pplay(ngrid,nlay)
real	::	pplev(ngrid,nlay+1)
real	::	pphi(ngrid,nlay)
real	::	pu(ngrid,nlay)
real	::	pv(ngrid,nlay)
real	::	pt(ngrid,nlay)
real	::	po(ngrid,nlay)
real	::	pduadj(ngrid,nlay)
real	::	pdvadj(ngrid,nlay)
real	::	pdtadj(ngrid,nlay)
real	::	pdoadj(ngrid,nlay)
real	::	fm0(klon,klev+1)
real	::	entr0(klon,klev)
real	::	r_aspect
real	::	l_mix
integer	::	w2di
real	::	tho

public subroutine dqthermcell(ngrid, nlay, ptimestep, fm, entr, masse, q, dq, qa)

Arguments

Type		Name
integer	::	ngrid
integer	::	nlay
real	::	ptimestep
real	::	fm(ngrid,nlay+1)
real	::	entr(ngrid,nlay)
real	::	masse(ngrid,nlay)
real	::	q(ngrid,nlay)
real	::	dq(ngrid,nlay)
real	::	qa(klon,klev)

public subroutine dvthermcell(ngrid, nlay, ptimestep, fm, entr, masse, fraca, larga, u, v, du, dv, ua, va)

Arguments

Type		Name
integer	::	ngrid
integer	::	nlay
real	::	ptimestep
real	::	fm(ngrid,nlay+1)
real	::	entr(ngrid,nlay)
real	::	masse(ngrid,nlay)
real	::	fraca(ngrid,nlay+1)
real	::	larga(ngrid)
real	::	u(ngrid,nlay)
real	::	v(ngrid,nlay)
real	::	du(ngrid,nlay)
real	::	dv(ngrid,nlay)
real	::	ua(ngrid,nlay)
real	::	va(ngrid,nlay)

public subroutine dqthermcell2(ngrid, nlay, ptimestep, fm, entr, masse, frac, q, dq, qa)

Arguments

Type		Name
integer	::	ngrid
integer	::	nlay
real	::	ptimestep
real	::	fm(ngrid,nlay+1)
real	::	entr(ngrid,nlay)
real	::	masse(ngrid,nlay)
real	::	frac(ngrid,nlay)
real	::	q(ngrid,nlay)
real	::	dq(ngrid,nlay)
real	::	qa(klon,klev)

public subroutine dvthermcell2(ngrid, nlay, ptimestep, fm, entr, masse, fraca, larga, u, v, du, dv, ua, va)

Arguments

Type		Name
integer	::	ngrid
integer	::	nlay
real	::	ptimestep
real	::	fm(ngrid,nlay+1)
real	::	entr(ngrid,nlay)
real	::	masse(ngrid,nlay)
real	::	fraca(ngrid,nlay+1)
real	::	larga(ngrid)
real	::	u(ngrid,nlay)
real	::	v(ngrid,nlay)
real	::	du(ngrid,nlay)
real	::	dv(ngrid,nlay)
real	::	ua(ngrid,nlay)
real	::	va(ngrid,nlay)

public subroutine thermcell_sec(ngrid, nlay, ptimestep, pplay, pplev, pphi, zlev, pu, pv, pt, po, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0, r_aspect, l_mix, w2di, tho)

Arguments

Type		Name
integer	::	ngrid
integer	::	nlay
real	::	ptimestep
real	::	pplay(ngrid,nlay)
real	::	pplev(ngrid,nlay+1)
real	::	pphi(ngrid,nlay)
real	::	zlev(klon,klev+1)
real	::	pu(ngrid,nlay)
real	::	pv(ngrid,nlay)
real	::	pt(ngrid,nlay)
real	::	po(ngrid,nlay)
real	::	pduadj(ngrid,nlay)
real	::	pdvadj(ngrid,nlay)
real	::	pdtadj(ngrid,nlay)
real	::	pdoadj(ngrid,nlay)
real	::	fm0(klon,klev+1)
real	::	entr0(klon,klev)
real	::	r_aspect
real	::	l_mix
integer	::	w2di
real	::	tho

public subroutine calcul_sec(ngrid, nlay, ptimestep, pplay, pplev, pphi, zlev, pu, pv, pt, po, zmax, wmax, zw2, lmix, r_aspect, l_mix, w2di, tho)

Arguments

Type		Name
integer	::	ngrid
integer	::	nlay
real	::	ptimestep
real	::	pplay(ngrid,nlay)
real	::	pplev(ngrid,nlay+1)
real	::	pphi(ngrid,nlay)
real	::	zlev(klon,klev+1)
real	::	pu(ngrid,nlay)
real	::	pv(ngrid,nlay)
real	::	pt(ngrid,nlay)
real	::	po(ngrid,nlay)
real	::	zmax(klon)
real	::	wmax(klon)
real	::	zw2(klon,klev+1)
integer	::	lmix(klon)
real	::	r_aspect
real	::	l_mix
integer	::	w2di
real	::	tho

public subroutine fermeture_seche(ngrid, nlay, pplay, pplev, pphi, zlev, rhobarz, f0, zpspsk, alim_star, zh, zo, lentr, lmin, nu_min, nu_max, r_aspect, zmax, wmax)

Arguments

Type		Name
integer	::	ngrid
integer	::	nlay
real	::	pplay(ngrid,nlay)
real	::	pplev(ngrid,nlay+1)
real	::	pphi(ngrid,nlay)
real	::	zlev(klon,klev+1)
real	::	rhobarz(klon,klev+1)
real	::	f0(klon)
real	::	zpspsk(klon,klev)
real	::	alim_star(klon,klev)
real	::	zh(klon,klev)
real	::	zo(klon,klev)
integer	::	lentr(klon)
integer	::	lmin(klon)
real	::	nu_min
real	::	nu_max
real	::	r_aspect
real	::	zmax(klon)
real	::	wmax(klon)

lmdz_thermcell_old Module

Contents

Subroutines

Contents

Subroutines

Subroutines

public subroutine thermcell_2002(ngrid, nlay, ptimestep, iflag_thermals, pplay, pplev, pphi, pu, pv, pt, po, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0, fraca, wa_moy, r_aspect, l_mix, w2di, tho)

Arguments

public subroutine thermcell_cld(ngrid, nlay, ptimestep, pplay, pplev, pphi, zlev, debut, pu, pv, pt, po, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0, zqla, lmax, zmax_sec, wmax_sec, zw_sec, lmix_sec, ratqscth, ratqsdiff, r_aspect, l_mix, w2di, tho)

Arguments

public subroutine thermcell_eau(ngrid, nlay, ptimestep, pplay, pplev, pphi, pu, pv, pt, po, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0, r_aspect, l_mix, w2di, tho)

Arguments

public subroutine thermcell(ngrid, nlay, ptimestep, pplay, pplev, pphi, pu, pv, pt, po, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0, r_aspect, l_mix, w2di, tho)

Arguments

public subroutine dqthermcell(ngrid, nlay, ptimestep, fm, entr, masse, q, dq, qa)

Arguments

public subroutine dvthermcell(ngrid, nlay, ptimestep, fm, entr, masse, fraca, larga, u, v, du, dv, ua, va)

Arguments

public subroutine dqthermcell2(ngrid, nlay, ptimestep, fm, entr, masse, frac, q, dq, qa)

Arguments

public subroutine dvthermcell2(ngrid, nlay, ptimestep, fm, entr, masse, fraca, larga, u, v, du, dv, ua, va)

Arguments

public subroutine thermcell_sec(ngrid, nlay, ptimestep, pplay, pplev, pphi, zlev, pu, pv, pt, po, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0, r_aspect, l_mix, w2di, tho)

Arguments

public subroutine calcul_sec(ngrid, nlay, ptimestep, pplay, pplev, pphi, zlev, pu, pv, pt, po, zmax, wmax, zw2, lmix, r_aspect, l_mix, w2di, tho)

Arguments

public subroutine fermeture_seche(ngrid, nlay, pplay, pplev, pphi, zlev, rhobarz, f0, zpspsk, alim_star, zh, zo, lentr, lmin, nu_min, nu_max, r_aspect, zmax, wmax)

Arguments