wx_pbl_split Subroutine

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)

Uses

  • proc~~wx_pbl_split~2~~UsesGraph proc~wx_pbl_split~2 wx_pbl_split module~indice_sol_mod indice_sol_mod proc~wx_pbl_split~2->module~indice_sol_mod module~print_control_mod print_control_mod proc~wx_pbl_split~2->module~print_control_mod module~yomcst_mod_h yomcst_mod_h proc~wx_pbl_split~2->module~yomcst_mod_h module~wx_pbl_var_mod wx_pbl_var_mod proc~wx_pbl_split~2->module~wx_pbl_var_mod module~dimphy~3 dimphy module~wx_pbl_var_mod->module~dimphy~3

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

Do j = 1,knon print ,'XXXsplit : j, q1_x(j), AQ_x(j), BQ_x(j), phiQ_x(j) ', j, q1_x(j), AQ_x(j), BQ_x(j), phiQ_x(j) print ,'XXXsplit : j, q1_w(j), AQ_w(j), BQ_w(j), phiQ_w(j) ', j, q1_w(j), AQ_w(j), BQ_w(j), phiQ_w(j) ENDDO

      print *,' wx_pbl_split, verif dqsatsrf = beta dqsatdT0 dTs '
      print *,' wx_pbl_split, dqsatsrf, dqsatdT0*dTs ', dqsatsrf, dqsatdT0*dTs
IF (knon .NE. 0) THEN
   call  iophys_ecrit('sigw', 1,'sigw', '.',sigw)
   call  iophys_ecrit('phit', 1,'phit', 'W/m2',phit)
   call  iophys_ecrit('phit_w', 1,'phit_w', 'W/m2',phit_w)
   call  iophys_ecrit('phit_x', 1,'phit_x', 'W/m2',phit_x)
   call  iophys_ecrit('phiq', 1,'phiq', 'kg/m2/s',phiq)
   call  iophys_ecrit('phiq_w', 1,'phiq_w', 'kg/m2/s',phiq_w)
   call  iophys_ecrit('phiq_x', 1,'phiq_x', 'kg/m2/s',phiq_x)
   call  iophys_ecrit('q1_w', 1,'q1_w', '.',q1_w)
   call  iophys_ecrit('q1_x', 1,'q1_x', '.',q1_x)
ENDIF  ! (knon .NE. 0)

Arguments

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

Contents