wx_pbl_var_mod – Fortran Program

Uses

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

eps_1 fqsat smallestreal C_p L_v Ts0 dTs0 Ts0_x Ts0_w qsat0 dqsatdT0 qsat0_x dqsatdT0_x qsat0_w dqsatdT0_w QQ_b dd_QQ QQ_x QQ_w qsatsrf0_x qsatsrf0_w dqsatsrf0 q1_0b dd_Cdragh dd_Cdragm dd_Cdragq Kech_h Kech_h_x Kech_h_w Kech_q Kech_q_x Kech_q_w Kech_m Kech_m_x Kech_m_w Kech_Tp Kech_T_px Kech_T_pw dd_KTp KxKwTp dd_AT dd_BT Kech_Qp Kech_Q_px Kech_Q_pw dd_KQp KxKwQp Kech_Qs Kech_Q_sx Kech_Q_sw dd_KQs KxKwQs dd_AQ dd_BQ AQ_x AQ_w BQ_x BQ_w Kech_Up Kech_U_px Kech_U_pw dd_KUp KxKwUp dd_AU dd_BU Kech_Vp Kech_V_px Kech_V_pw dd_KVp KxKwVp dd_AV dd_BV

Subroutines

wx_pbl_init wx_pbl_prelim_0 wx_pbl_prelim_beta wx_pbl_final

Variables

Type	Visibility	Attributes		Name
real,	protected,	SAVE	::	eps_1
real,	protected,	SAVE	::	fqsat
real,	protected,	SAVE	::	smallestreal
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	C_p
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	L_v
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Ts0
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dTs0
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Ts0_x
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Ts0_w
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	qsat0
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dqsatdT0
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	qsat0_x
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dqsatdT0_x
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	qsat0_w
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dqsatdT0_w
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	QQ_b
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dd_QQ
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	QQ_x
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	QQ_w
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	qsatsrf0_x
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	qsatsrf0_w
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dqsatsrf0
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	q1_0b
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dd_Cdragh
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dd_Cdragm
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dd_Cdragq
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_h
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_h_x
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_h_w
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_q
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_q_x
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_q_w
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_m
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_m_x
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_m_w
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_Tp
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_T_px
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_T_pw
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dd_KTp
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	KxKwTp
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dd_AT
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dd_BT
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_Qp
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_Q_px
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_Q_pw
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dd_KQp
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	KxKwQp
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_Qs
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_Q_sx
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_Q_sw
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dd_KQs
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	KxKwQs
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dd_AQ
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dd_BQ
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	AQ_x
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	AQ_w
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	BQ_x
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	BQ_w
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_Up
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_U_px
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_U_pw
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dd_KUp
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	KxKwUp
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dd_AU
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dd_BU
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_Vp
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_V_px
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	Kech_V_pw
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dd_KVp
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	KxKwVp
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dd_AV
real,	protected,	ALLOCATABLE, DIMENSION(:), SAVE	::	dd_BV

Subroutines

public subroutine wx_pbl_init()

!!!!!!!!

Arguments

None

public subroutine wx_pbl_prelim_0(knon, nsrf, dtime, ypplay, ypaprs, sigw, yt_s, ydeltat_s, ygustiness, yt_x, yt_w, yq_x, yq_w, yu_x, yu_w, yv_x, yv_w, ycdragh_x, ycdragh_w, ycdragq_x, ycdragq_w, ycdragm_x, ycdragm_w, AcoefT_x, AcoefT_w, AcoefQ_x, AcoefQ_w, AcoefU_x, AcoefU_w, AcoefV_x, AcoefV_w, BcoefT_x, BcoefT_w, BcoefQ_x, BcoefQ_w, BcoefU_x, BcoefU_w, BcoefV_x, BcoefV_w, Kech_h_x_out, Kech_h_w_out, Kech_h_out)

Print ,'YYYYpbl0: ycdragh_x, ycdragq_x, mod_wind_x, rho1, Kech_q_x, Kech_h_x ', & ycdragh_x(j), ycdragq_x(j), mod_wind_x, rho1, Kech_q_x(j), Kech_h_x(j) Print ,'YYYYpbl0: ycdragh_w, ycdragq_w, mod_wind_w, rho1, Kech_q_w, Kech_h_w ', & ycdragh_w(j), ycdragq_w(j), mod_wind_w, rho1, Kech_q_w(j), Kech_h_w(j)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	knon
integer,	intent(in)		::	nsrf
real,	intent(in)		::	dtime
real,	intent(in),	DIMENSION(knon,klev)	::	ypplay
real,	intent(in),	DIMENSION(knon,klev)	::	ypaprs
real,	intent(in),	DIMENSION(knon)	::	sigw
real,	intent(in),	DIMENSION(knon)	::	yt_s
real,	intent(in),	DIMENSION(knon)	::	ydeltat_s
real,	intent(in),	DIMENSION(knon)	::	ygustiness
real,	intent(in),	DIMENSION(knon,klev)	::	yt_x
real,	intent(in),	DIMENSION(knon,klev)	::	yt_w
real,	intent(in),	DIMENSION(knon,klev)	::	yq_x
real,	intent(in),	DIMENSION(knon,klev)	::	yq_w
real,	intent(in),	DIMENSION(knon,klev)	::	yu_x
real,	intent(in),	DIMENSION(knon,klev)	::	yu_w
real,	intent(in),	DIMENSION(knon,klev)	::	yv_x
real,	intent(in),	DIMENSION(knon,klev)	::	yv_w
real,	intent(in),	DIMENSION(knon)	::	ycdragh_x
real,	intent(in),	DIMENSION(knon)	::	ycdragh_w
real,	intent(in),	DIMENSION(knon)	::	ycdragq_x
real,	intent(in),	DIMENSION(knon)	::	ycdragq_w
real,	intent(in),	DIMENSION(knon)	::	ycdragm_x
real,	intent(in),	DIMENSION(knon)	::	ycdragm_w
real,	intent(in),	DIMENSION(knon)	::	AcoefT_x
real,	intent(in),	DIMENSION(knon)	::	AcoefT_w
real,	intent(in),	DIMENSION(knon)	::	AcoefQ_x
real,	intent(in),	DIMENSION(knon)	::	AcoefQ_w
real,	intent(in),	DIMENSION(knon)	::	AcoefU_x
real,	intent(in),	DIMENSION(knon)	::	AcoefU_w
real,	intent(in),	DIMENSION(knon)	::	AcoefV_x
real,	intent(in),	DIMENSION(knon)	::	AcoefV_w
real,	intent(in),	DIMENSION(knon)	::	BcoefT_x
real,	intent(in),	DIMENSION(knon)	::	BcoefT_w
real,	intent(in),	DIMENSION(knon)	::	BcoefQ_x
real,	intent(in),	DIMENSION(knon)	::	BcoefQ_w
real,	intent(in),	DIMENSION(knon)	::	BcoefU_x
real,	intent(in),	DIMENSION(knon)	::	BcoefU_w
real,	intent(in),	DIMENSION(knon)	::	BcoefV_x
real,	intent(in),	DIMENSION(knon)	::	BcoefV_w
real,	intent(out),	DIMENSION(knon)	::	Kech_h_x_out
real,	intent(out),	DIMENSION(knon)	::	Kech_h_w_out
real,	intent(out),	DIMENSION(knon)	::	Kech_h_out

public subroutine wx_pbl_prelim_beta(knon, dtime, sigw, beta, BcoefQ_x, BcoefQ_w)

print *,'BBBBwx_prelim_beta : beta ', beta(j)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	knon
real,	intent(in)		::	dtime
real,	intent(in),	DIMENSION(knon)	::	sigw
real,	intent(in),	DIMENSION(knon)	::	beta
real,	intent(in),	DIMENSION(knon)	::	BcoefQ_x
real,	intent(in),	DIMENSION(knon)	::	BcoefQ_w

public subroutine wx_pbl_final()

Deallocate module variables

Arguments

None

wx_pbl_var_mod Module

Contents

Variables

Subroutines

Uses

Contents

Variables

Subroutines

Variables

Subroutines

public subroutine wx_pbl_init()

Arguments

Arguments

public subroutine wx_pbl_prelim_beta(knon, dtime, sigw, beta, BcoefQ_x, BcoefQ_w)

Arguments

public subroutine wx_pbl_final()

Arguments