wx_pbl_check Subroutine

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)

Uses

  • proc~~wx_pbl_check~2~~UsesGraph proc~wx_pbl_check~2 wx_pbl_check module~print_control_mod print_control_mod proc~wx_pbl_check~2->module~print_control_mod module~yoethf_mod_h yoethf_mod_h proc~wx_pbl_check~2->module~yoethf_mod_h module~yomcst_mod_h yomcst_mod_h proc~wx_pbl_check~2->module~yomcst_mod_h module~wx_pbl_var_mod wx_pbl_var_mod proc~wx_pbl_check~2->module~wx_pbl_var_mod module~dimphy~3 dimphy module~wx_pbl_var_mod->module~dimphy~3

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

Contents