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)

! 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	Intent	Optional	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