lmdz_thermcell_main – Fortran Program

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

thermcell_main test_ltherm thermcell_tke_transport

Subroutines

public subroutine thermcell_main(itap, ngrid, nlay, ptimestep, pplay, pplev, pphi, debut, puwind, pvwind, ptemp, p_o, ptemp_env, po_env, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0, detr0, zqta, zqla, lmax, ratqscth, ratqsdiff, zqsatth, zmax0, f0, zw2, fraca, ztv, zpspsk, ztla, zthl, ztva, pcon, rhobarz, wth3, wmax_sec, lalim, fm, alim_star, zmax, zcong)

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

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	itap
integer,	intent(in)		::	ngrid
integer,	intent(in)		::	nlay
real,	intent(in)		::	ptimestep
real,	intent(in),	dimension(ngrid,nlay)	::	pplay
real,	intent(in),	dimension(ngrid,nlay+1)	::	pplev
real,	intent(in),	dimension(ngrid,nlay)	::	pphi
logical,	intent(in)		::	debut
real,	intent(in),	dimension(ngrid,nlay)	::	puwind
real,	intent(in),	dimension(ngrid,nlay)	::	pvwind
real,	intent(in),	dimension(ngrid,nlay)	::	ptemp
real,	intent(in),	dimension(ngrid,nlay)	::	p_o
real,	intent(in),	dimension(ngrid,nlay)	::	ptemp_env
real,	intent(in),	dimension(ngrid,nlay)	::	po_env
real,	intent(out),	dimension(ngrid,nlay)	::	pduadj
real,	intent(out),	dimension(ngrid,nlay)	::	pdvadj
real,	intent(out),	dimension(ngrid,nlay)	::	pdtadj
real,	intent(out),	dimension(ngrid,nlay)	::	pdoadj
real,	intent(out),	dimension(ngrid,nlay+1)	::	fm0
real,	intent(out),	dimension(ngrid,nlay)	::	entr0
real,	intent(out),	dimension(ngrid,nlay)	::	detr0
real,	intent(out),	dimension(ngrid,nlay)	::	zqta
real,	intent(out),	dimension(ngrid,nlay)	::	zqla
integer,	intent(out),	dimension(ngrid)	::	lmax
real,	intent(out),	dimension(ngrid,nlay)	::	ratqscth
real,	intent(out),	dimension(ngrid,nlay)	::	ratqsdiff
real,	intent(out),	dimension(ngrid,nlay)	::	zqsatth
real,	intent(inout),	dimension(ngrid)	::	zmax0
real,	intent(inout),	dimension(ngrid)	::	f0
real,	intent(out),	dimension(ngrid,nlay+1)	::	zw2
real,	intent(out),	dimension(ngrid,nlay+1)	::	fraca
real,	intent(out),	dimension(ngrid,nlay)	::	ztv
real,	intent(out),	dimension(ngrid,nlay)	::	zpspsk
real,	intent(out),	dimension(ngrid,nlay)	::	ztla
real,	intent(out),	dimension(ngrid,nlay)	::	zthl
real,	intent(out),	dimension(ngrid,nlay)	::	ztva
real,	intent(out),	dimension(ngrid)	::	pcon
real,	intent(out),	dimension(ngrid,nlay)	::	rhobarz
real,	intent(out),	dimension(ngrid,nlay)	::	wth3
real,	intent(out),	dimension(ngrid)	::	wmax_sec
integer,	intent(out),	dimension(ngrid)	::	lalim
real,	intent(out),	dimension(ngrid,nlay+1)	::	fm
real,	intent(out),	dimension(ngrid,nlay)	::	alim_star
real,	intent(out),	dimension(ngrid)	::	zmax
real,	intent(out),	dimension(ngrid)	::	zcong

public subroutine test_ltherm(ngrid, nlay, pplay, long, ztv, p_o, ztva, zqla, f_star, zw2, comment)

Arguments

Type	Intent	Attributes		Name
integer			::	ngrid
integer			::	nlay
real,	intent(in),	dimension(ngrid,nlay)	::	pplay
integer,	intent(in),	dimension(ngrid)	::	long
real,	intent(in),	dimension(ngrid,nlay)	::	ztv
real,	intent(in),	dimension(ngrid,nlay)	::	p_o
real,	intent(in),	dimension(ngrid,nlay)	::	ztva
real,	intent(in),	dimension(ngrid,nlay)	::	zqla
real,	intent(in),	dimension(ngrid,nlay)	::	f_star
real,	intent(in),	dimension(ngrid,nlay)	::	zw2
character(len=21)			::	comment

public subroutine thermcell_tke_transport(ngrid, nlay, ptimestep, fm0, entr0, rg, pplev, therm_tke_max)

! nrlmd le 16/09/2010 !

Arguments

Type	Intent	Attributes		Name
integer			::	ngrid
integer			::	nlay
real,	intent(in)		::	ptimestep
real,	intent(in),	dimension(ngrid,nlay+1)	::	fm0
real,	intent(in),	dimension(ngrid,nlay)	::	entr0
real,	intent(in)		::	rg
real,	intent(in),	dimension(ngrid,nlay+1)	::	pplev
real,	intent(out),	dimension(ngrid,nlay)	::	therm_tke_max

lmdz_thermcell_main Module

Contents

Subroutines

Used by

Contents

Subroutines

Subroutines

Arguments

public subroutine test_ltherm(ngrid, nlay, pplay, long, ztv, p_o, ztva, zqla, f_star, zw2, comment)

Arguments

public subroutine thermcell_tke_transport(ngrid, nlay, ptimestep, fm0, entr0, rg, pplev, therm_tke_max)

Arguments