wx_pbl_prelim_0 Subroutine

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)

zcvm5 = R5LES*RLVTT*(1.-zdelta) + R5IES*RLSTT*zdelta
dqsatdT0_x(j) = (RLvtt*(1.-zdelta)+RLSTT*zdelta)*qsat0_x(j)/(Rv*Ts0_x(j)*Ts0_x(j))
zcvm5 = R5LES*RLVTT*(1.-zdelta) + R5IES*RLSTT*zdelta
dqsatdT0_w(j) = (RLvtt*(1.-zdelta)+RLSTT*zdelta)*qsat0_w(j)/(Rv*Ts0_w(j)*Ts0_w(j))
   rho1 = ypplay(j,1)/(RD*yt(j,1))

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