wx_pbl_mod – Fortran Program

Uses

- clesphys_mod_h
- 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.

Subroutines

wx_pbl0_merge wx_pbl_dts_merge wx_pbl_split wx_pbl_check wx_pbl_dts_check wx_evappot

Subroutines

public subroutine wx_pbl0_merge(knon, ypplay, ypaprs, sigw, dTs_forcing, dqs_forcing, 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, AcoefT, AcoefQ, AcoefU, AcoefV, BcoefT, BcoefQ, BcoefU, BcoefV, ycdragh, ycdragq, ycdragm, yt1, yq1, yu1, yv1)

Print ,'YYYYpbl0: BcoefT_x, sigw, sigx, dd_Kh, dd_KTp, Kech_h_w ', & BcoefT_x, sigw, sigx, dd_Kh, dd_KTp, Kech_h_w Print ,'YYYYpbl0: Kech_T_pw, dd_BT, Kech_h, Kech_Tp ', & Kech_T_pw, dd_BT, Kech_h, Kech_Tp jyg yt1(j) = yt_x(j,1) + sigw(j)dd_t(1.+sigx(j)dd_Kh/KCT) yq1(j) = yq_x(j,1) + sigw(j)dd_q(1.+sigx(j)dd_Kh/KCQ) yu1(j) = yu_x(j,1) + sigw(j)dd_u(1.+sigx(j)dd_Km/KCU) yv1(j) = yv_x(j,1) + sigw(j)dd_v(1.+sigx(j)dd_Km/KCV)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	knon
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)	::	dTs_forcing
real,	intent(in),	DIMENSION(knon)	::	dqs_forcing
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)	::	AcoefT
real,	intent(out),	DIMENSION(knon)	::	AcoefQ
real,	intent(out),	DIMENSION(knon)	::	AcoefU
real,	intent(out),	DIMENSION(knon)	::	AcoefV
real,	intent(out),	DIMENSION(knon)	::	BcoefT
real,	intent(out),	DIMENSION(knon)	::	BcoefQ
real,	intent(out),	DIMENSION(knon)	::	BcoefU
real,	intent(out),	DIMENSION(knon)	::	BcoefV
real,	intent(out),	DIMENSION(knon)	::	ycdragh
real,	intent(out),	DIMENSION(knon)	::	ycdragq
real,	intent(out),	DIMENSION(knon)	::	ycdragm
real,	intent(out),	DIMENSION(knon)	::	yt1
real,	intent(out),	DIMENSION(knon)	::	yq1
real,	intent(out),	DIMENSION(knon)	::	yu1
real,	intent(out),	DIMENSION(knon)	::	yv1

public subroutine wx_pbl_dts_merge(knon, dtime, ypplay, ypaprs, sigw, beta, wcstar, wdens, AT_x, AT_w, BT_x, BT_w, AcoefT0, AcoefQ0, BcoefT0, BcoefQ0, AcoefT, AcoefQ, BcoefT, BcoefQ, HTphiT_b, dd_HTphiT, HTphiQ_b, dd_HTphiQ, HTRn_b, dd_HTRn, phiT0_b, dphiT0, phiQ0_b, dphiQ0, Rn0_b, dRn0, g_T, g_Q, Gamma_phiT, Gamma_phiQ, dTs_ins, dqsatsrf_ins)

Compute Cp, Lv, qsat, dqsat_dT.

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	knon
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)	::	beta
real,	intent(in),	DIMENSION(knon)	::	wcstar
real,	intent(in),	DIMENSION(knon)	::	wdens
real,	intent(in),	DIMENSION(knon)	::	AT_x
real,	intent(in),	DIMENSION(knon)	::	AT_w
real,	intent(in),	DIMENSION(knon)	::	BT_x
real,	intent(in),	DIMENSION(knon)	::	BT_w
real,	intent(in),	DIMENSION(knon)	::	AcoefT0
real,	intent(in),	DIMENSION(knon)	::	AcoefQ0
real,	intent(in),	DIMENSION(knon)	::	BcoefT0
real,	intent(in),	DIMENSION(knon)	::	BcoefQ0
real,	intent(out),	DIMENSION(knon)	::	AcoefT
real,	intent(out),	DIMENSION(knon)	::	AcoefQ
real,	intent(out),	DIMENSION(knon)	::	BcoefT
real,	intent(out),	DIMENSION(knon)	::	BcoefQ
real,	intent(out),	DIMENSION(knon)	::	HTphiT_b
real,	intent(out),	DIMENSION(knon)	::	dd_HTphiT
real,	intent(out),	DIMENSION(knon)	::	HTphiQ_b
real,	intent(out),	DIMENSION(knon)	::	dd_HTphiQ
real,	intent(out),	DIMENSION(knon)	::	HTRn_b
real,	intent(out),	DIMENSION(knon)	::	dd_HTRn
real,	intent(out),	DIMENSION(knon)	::	phiT0_b
real,	intent(out),	DIMENSION(knon)	::	dphiT0
real,	intent(out),	DIMENSION(knon)	::	phiQ0_b
real,	intent(out),	DIMENSION(knon)	::	dphiQ0
real,	intent(out),	DIMENSION(knon)	::	Rn0_b
real,	intent(out),	DIMENSION(knon)	::	dRn0
real,	intent(out),	DIMENSION(knon)	::	g_T
real,	intent(out),	DIMENSION(knon)	::	g_Q
real,	intent(out),	DIMENSION(knon)	::	Gamma_phiT
real,	intent(out),	DIMENSION(knon)	::	Gamma_phiQ
real,	intent(out),	DIMENSION(knon)	::	dTs_ins
real,	intent(out),	DIMENSION(knon)	::	dqsatsrf_ins

public subroutine wx_pbl_split(knon, nsrf, dtime, sigw, beta, iflag_split, g_T, g_Q, Gamma_phiT, Gamma_phiQ, dTs_ins, dqsatsrf_ins, phiT, phiQ, phiU, phiV, phiQ0_b, phiT0_b, phiT_x, phiT_w, phiQ_x, phiQ_w, phiU_x, phiU_w, phiV_x, phiV_w, philat_x, philat_w, dqsatsrf, dTs, delta_qsurf)

!! HTRn_b, dd_HTRn, HTphiT_b, dd_HTphiT, & !! Rn_b, dRn, &

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	knon
integer,	intent(in)		::	nsrf
real,	intent(in)		::	dtime
real,	intent(in),	DIMENSION(knon)	::	sigw
real,	intent(in),	DIMENSION(knon)	::	beta
integer,	intent(in)		::	iflag_split
real,	intent(in),	DIMENSION(knon)	::	g_T
real,	intent(in),	DIMENSION(knon)	::	g_Q
real,	intent(in),	DIMENSION(knon)	::	Gamma_phiT
real,	intent(in),	DIMENSION(knon)	::	Gamma_phiQ
real,	intent(in),	DIMENSION(knon)	::	dTs_ins
real,	intent(in),	DIMENSION(knon)	::	dqsatsrf_ins
real,	intent(in),	DIMENSION(knon)	::	phiT
real,	intent(in),	DIMENSION(knon)	::	phiQ
real,	intent(in),	DIMENSION(knon)	::	phiU
real,	intent(in),	DIMENSION(knon)	::	phiV
real,	intent(in),	DIMENSION(knon)	::	phiQ0_b
real,	intent(in),	DIMENSION(knon)	::	phiT0_b
real,	intent(out),	DIMENSION(knon)	::	phiT_x
real,	intent(out),	DIMENSION(knon)	::	phiT_w
real,	intent(out),	DIMENSION(knon)	::	phiQ_x
real,	intent(out),	DIMENSION(knon)	::	phiQ_w
real,	intent(out),	DIMENSION(knon)	::	phiU_x
real,	intent(out),	DIMENSION(knon)	::	phiU_w
real,	intent(out),	DIMENSION(knon)	::	phiV_x
real,	intent(out),	DIMENSION(knon)	::	phiV_w
real,	intent(out),	DIMENSION(knon)	::	philat_x
real,	intent(out),	DIMENSION(knon)	::	philat_w
real,	intent(out),	DIMENSION(knon)	::	dqsatsrf
real,	intent(out),	DIMENSION(knon)	::	dTs
real,	intent(out),	DIMENSION(knon)	::	delta_qsurf	Local variables

public subroutine wx_pbl_check(knon, dtime, ypplay, ypaprs, sigw, beta, iflag_split, Ts0_b9, dTs09, qs_b9, Ts_b9, dTs9, dqsatsrf9, AcoefT_x, AcoefT_w, BcoefT_x, BcoefT_w, AcoefT0, AcoefQ0, BcoefT0, BcoefQ0, AcoefT, AcoefQ, BcoefT, BcoefQ, phiT_b9, phiQ_b9, phiT_x9, phiT_w9, phiQ_x9, phiQ_w9)

C_p(1:knon) = RCpd L_v(1:knon) = RLvtt dqsatdT0(j) = FOEDE(Ts0_b(j),zdelta,zcvm5,qsat0(j),zcor)/RLVTT ! jyg 20210116 dqsatdT0(j) = (RLvtt(1.-zdelta)+RLSTTzdelta)qsat0(j)/(RvTs0_b(j)*Ts0_b(j)) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	knon
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)	::	beta
integer,	intent(in)		::	iflag_split
real,	intent(in),	DIMENSION(knon)	::	Ts0_b9
real,	intent(in),	DIMENSION(knon)	::	dTs09
real,	intent(in),	DIMENSION(knon)	::	qs_b9
real,	intent(in),	DIMENSION(knon)	::	Ts_b9
real,	intent(in),	DIMENSION(knon)	::	dTs9
real,	intent(in),	DIMENSION(knon)	::	dqsatsrf9
real,	intent(in),	DIMENSION(knon)	::	AcoefT_x
real,	intent(in),	DIMENSION(knon)	::	AcoefT_w
real,	intent(in),	DIMENSION(knon)	::	BcoefT_x
real,	intent(in),	DIMENSION(knon)	::	BcoefT_w
real,	intent(in),	DIMENSION(knon)	::	AcoefT0
real,	intent(in),	DIMENSION(knon)	::	AcoefQ0
real,	intent(in),	DIMENSION(knon)	::	BcoefT0
real,	intent(in),	DIMENSION(knon)	::	BcoefQ0
real,	intent(in),	DIMENSION(knon)	::	AcoefT
real,	intent(in),	DIMENSION(knon)	::	AcoefQ
real,	intent(in),	DIMENSION(knon)	::	BcoefT
real,	intent(in),	DIMENSION(knon)	::	BcoefQ
real,	intent(in),	DIMENSION(knon)	::	phiT_b9
real,	intent(in),	DIMENSION(knon)	::	phiQ_b9
real,	intent(in),	DIMENSION(knon)	::	phiT_x9
real,	intent(in),	DIMENSION(knon)	::	phiT_w9
real,	intent(in),	DIMENSION(knon)	::	phiQ_x9	Local variables
real,	intent(in),	DIMENSION(knon)	::	phiQ_w9	Local variables

public subroutine wx_pbl_dts_check(knon, dtime, ypplay, ypaprs, sigw, beta, iflag_split, Ts0_b9, dTs09, qs_b9, Ts_b9, dqsatsrf9, dTs9, delta_qsurf9, AcoefT_x, AcoefT_w, BcoefT_x, BcoefT_w, AcoefT0, AcoefQ0, BcoefT0, BcoefQ0, AcoefT, AcoefQ, BcoefT, BcoefQ, HTphiT_b, dd_HTphiT, HTphiQ_b, dd_HTphiQ, HTRn_b, dd_HTRn, phiT0_b9, dphiT09, phiQ0_b9, dphiQ09, Rn0_b9, dRn09, g_T, g_Q, Gamma_phiT, Gamma_phiQ, dTs_ins, dqsatsrf_ins, phiT_b9, phiQ_b9, phiT_x9, phiT_w9, phiQ_x9, phiQ_w9)

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

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	knon
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)	::	beta
integer,	intent(in)		::	iflag_split
real,	intent(in),	DIMENSION(knon)	::	Ts0_b9
real,	intent(in),	DIMENSION(knon)	::	dTs09
real,	intent(in),	DIMENSION(knon)	::	qs_b9
real,	intent(in),	DIMENSION(knon)	::	Ts_b9
real,	intent(in),	DIMENSION(knon)	::	dqsatsrf9
real,	intent(in),	DIMENSION(knon)	::	dTs9
real,	intent(in),	DIMENSION(knon)	::	delta_qsurf9
real,	intent(in),	DIMENSION(knon)	::	AcoefT_x
real,	intent(in),	DIMENSION(knon)	::	AcoefT_w
real,	intent(in),	DIMENSION(knon)	::	BcoefT_x
real,	intent(in),	DIMENSION(knon)	::	BcoefT_w
real,	intent(in),	DIMENSION(knon)	::	AcoefT0
real,	intent(in),	DIMENSION(knon)	::	AcoefQ0
real,	intent(in),	DIMENSION(knon)	::	BcoefT0
real,	intent(in),	DIMENSION(knon)	::	BcoefQ0
real,	intent(in),	DIMENSION(knon)	::	AcoefT
real,	intent(in),	DIMENSION(knon)	::	AcoefQ
real,	intent(in),	DIMENSION(knon)	::	BcoefT
real,	intent(in),	DIMENSION(knon)	::	BcoefQ
real,	intent(in),	DIMENSION(knon)	::	HTphiT_b
real,	intent(in),	DIMENSION(knon)	::	dd_HTphiT
real,	intent(in),	DIMENSION(knon)	::	HTphiQ_b
real,	intent(in),	DIMENSION(knon)	::	dd_HTphiQ
real,	intent(in),	DIMENSION(knon)	::	HTRn_b
real,	intent(in),	DIMENSION(knon)	::	dd_HTRn
real,	intent(in),	DIMENSION(knon)	::	phiT0_b9
real,	intent(in),	DIMENSION(knon)	::	dphiT09
real,	intent(in),	DIMENSION(knon)	::	phiQ0_b9
real,	intent(in),	DIMENSION(knon)	::	dphiQ09
real,	intent(in),	DIMENSION(knon)	::	Rn0_b9
real,	intent(in),	DIMENSION(knon)	::	dRn09
real,	intent(in),	DIMENSION(knon)	::	g_T
real,	intent(in),	DIMENSION(knon)	::	g_Q
real,	intent(in),	DIMENSION(knon)	::	Gamma_phiT
real,	intent(in),	DIMENSION(knon)	::	Gamma_phiQ
real,	intent(in),	DIMENSION(knon)	::	dTs_ins
real,	intent(in),	DIMENSION(knon)	::	dqsatsrf_ins
real,	intent(in),	DIMENSION(knon)	::	phiT_b9
real,	intent(in),	DIMENSION(knon)	::	phiQ_b9
real,	intent(in),	DIMENSION(knon)	::	phiT_x9
real,	intent(in),	DIMENSION(knon)	::	phiT_w9
real,	intent(in),	DIMENSION(knon)	::	phiQ_x9	Local variables
real,	intent(in),	DIMENSION(knon)	::	phiQ_w9	Local variables

public subroutine wx_evappot(knon, q1, Ts, evap_pot)

print *,'wx_evappot : Kech_q, qsat_bs, qa, evap_pot ', Kech_q(j), qsat_bs, q1(j), evap_pot(j)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	knon
real,	intent(in),	DIMENSION(knon)	::	q1
real,	intent(in),	DIMENSION(knon)	::	Ts
real,	intent(out),	DIMENSION(knon)	::	evap_pot

wx_pbl_mod Module

Contents

Subroutines

Uses

Contents

Subroutines

Subroutines

Arguments

Arguments

public subroutine wx_pbl_split(knon, nsrf, dtime, sigw, beta, iflag_split, g_T, g_Q, Gamma_phiT, Gamma_phiQ, dTs_ins, dqsatsrf_ins, phiT, phiQ, phiU, phiV, phiQ0_b, phiT0_b, phiT_x, phiT_w, phiQ_x, phiQ_w, phiU_x, phiU_w, phiV_x, phiV_w, philat_x, philat_w, dqsatsrf, dTs, delta_qsurf)

Arguments

public subroutine wx_pbl_check(knon, dtime, ypplay, ypaprs, sigw, beta, iflag_split, Ts0_b9, dTs09, qs_b9, Ts_b9, dTs9, dqsatsrf9, AcoefT_x, AcoefT_w, BcoefT_x, BcoefT_w, AcoefT0, AcoefQ0, BcoefT0, BcoefQ0, AcoefT, AcoefQ, BcoefT, BcoefQ, phiT_b9, phiQ_b9, phiT_x9, phiT_w9, phiQ_x9, phiQ_w9)

Arguments

Arguments

public subroutine wx_evappot(knon, q1, Ts, evap_pot)

Arguments