climb_wind_down Subroutine

public subroutine climb_wind_down(knon, dtime, coef_in, pplay, paprs, temp, delp, u_old, v_old, Ccoef_U_out, Ccoef_V_out, Dcoef_U_out, Dcoef_V_out, Kcoef_m_out, alf_1_out, alf_2_out, Acoef_U_out, Acoef_V_out, Bcoef_U_out, Bcoef_V_out)

Uses

  • proc~~climb_wind_down~2~~UsesGraph proc~climb_wind_down~2 climb_wind_down module~yomcst_mod_h yomcst_mod_h proc~climb_wind_down~2->module~yomcst_mod_h module~compbl_mod_h compbl_mod_h proc~climb_wind_down~2->module~compbl_mod_h

! nrlmd le 02/05/2011 !

Calculate the coefficients C and D in : u(k) = C(k) + D(k)*u(k-1)

  • Define alpha (alf1 and alf2)

6) Return the first layer in output variables

7) If Pbl is split, return also the other layers in output variables

! jyg le 07/02/2012 jyg IF (mod(iflag_pbl_split,2) .eq.1) THEN ! nrlmd le 02/05/2011 !
!

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: knon
real, intent(in) :: dtime
real, intent(in), DIMENSION(klon,klev) :: coef_in
real, intent(in), DIMENSION(klon,klev) :: pplay
real, intent(in), DIMENSION(klon,klev+1) :: paprs
real, intent(in), DIMENSION(klon,klev) :: temp
real, intent(in), DIMENSION(klon,klev) :: delp
real, intent(in), DIMENSION(klon,klev) :: u_old
real, intent(in), DIMENSION(klon,klev) :: v_old
real, intent(out), DIMENSION(klon,klev) :: Ccoef_U_out
real, intent(out), DIMENSION(klon,klev) :: Ccoef_V_out
real, intent(out), DIMENSION(klon,klev) :: Dcoef_U_out
real, intent(out), DIMENSION(klon,klev) :: Dcoef_V_out
real, intent(out), DIMENSION(klon,klev) :: Kcoef_m_out
real, intent(out), DIMENSION(klon) :: alf_1_out
real, intent(out), DIMENSION(klon) :: alf_2_out

!
real, intent(out), DIMENSION(klon) :: Acoef_U_out
real, intent(out), DIMENSION(klon) :: Acoef_V_out
real, intent(out), DIMENSION(klon) :: Bcoef_U_out
real, intent(out), DIMENSION(klon) :: Bcoef_V_out

! nrlmd le 02/05/2011

Contents