call_dissip_mod Module

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.

Contents

Variables

ucov vcov teta p pk ucont vcont ecin ecin0 dudis dvdis dtetadis dtetaecdt

Subroutines

call_dissip_allocate call_dissip_switch_dissip call_dissip

Variables

Type	Visibility	Attributes		Name		Initial
real,	public,	POINTER, SAVE	::	ucov(:,:)
real,	public,	POINTER, SAVE	::	vcov(:,:)
real,	public,	POINTER, SAVE	::	teta(:,:)
real,	public,	POINTER, SAVE	::	p(:,:)
real,	public,	POINTER, SAVE	::	pk(:,:)
real,	public,	POINTER, SAVE	::	ucont(:,:)
real,	public,	POINTER, SAVE	::	vcont(:,:)
real,	public,	POINTER, SAVE	::	ecin(:,:)
real,	public,	POINTER, SAVE	::	ecin0(:,:)
real,	public,	POINTER, SAVE	::	dudis(:,:)
real,	public,	POINTER, SAVE	::	dvdis(:,:)
real,	public,	POINTER, SAVE	::	dtetadis(:,:)
real,	public,	POINTER, SAVE	::	dtetaecdt(:,:)

Subroutines

public subroutine call_dissip_allocate()

Arguments

None

public subroutine call_dissip_switch_dissip(dist)

Arguments

Type	Intent	Optional	Attributes		Name
type(distrib),	intent(in)			::	dist

public subroutine call_dissip(ucov_dyn, vcov_dyn, teta_dyn, p_dyn, pk_dyn, ps_dyn)

! Ehouarn: lines here 1) kill 1+1=2 in the dynamics ! 2) should probably not be here anyway ! but are kept for those who would want to revert to previous behaviour

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(inout)			::	ucov_dyn(ijb_u:ije_u,llm)
real,	intent(inout)			::	vcov_dyn(ijb_v:ije_v,llm)
real,	intent(inout)			::	teta_dyn(ijb_u:ije_u,llm)
real,	intent(inout)			::	p_dyn(ijb_u:ije_u,llmp1)
real,	intent(inout)			::	pk_dyn(ijb_u:ije_u,llm)
real,	intent(inout)			::	ps_dyn(ijb_u:ije_u)