climb_wind_up Subroutine

public subroutine climb_wind_up(knon, dtime, u_old, v_old, flx_u1, flx_v1, Acoef_U_in, Acoef_V_in, Bcoef_U_in, Bcoef_V_in, Ccoef_U_in, Ccoef_V_in, Dcoef_U_in, Dcoef_V_in, Kcoef_m_in, flx_u_new, flx_v_new, d_u_new, d_v_new)

Uses

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

! nrlmd le 02/05/2011 !

! nrlmd le 02/05/2011 ! !

Calcul flux

== flux_u/v est le flux de moment angulaire (positif vers bas) == dont l'unite est: (kg m/s)/(m**2 s)

Calcul tendances

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: knon
real, intent(in) :: dtime
real, intent(in), DIMENSION(klon,klev) :: u_old
real, intent(in), DIMENSION(klon,klev) :: v_old
real, intent(in), DIMENSION(klon) :: flx_u1

! nrlmd le 02/05/2011
real, intent(in), DIMENSION(klon) :: flx_v1

! nrlmd le 02/05/2011
real, intent(in), DIMENSION(klon) :: Acoef_U_in
real, intent(in), DIMENSION(klon) :: Acoef_V_in
real, intent(in), DIMENSION(klon) :: Bcoef_U_in
real, intent(in), DIMENSION(klon) :: Bcoef_V_in
real, intent(in), DIMENSION(klon,klev) :: Ccoef_U_in
real, intent(in), DIMENSION(klon,klev) :: Ccoef_V_in
real, intent(in), DIMENSION(klon,klev) :: Dcoef_U_in
real, intent(in), DIMENSION(klon,klev) :: Dcoef_V_in
real, intent(in), DIMENSION(klon,klev) :: Kcoef_m_in

!
real, intent(out), DIMENSION(klon,klev) :: flx_u_new
real, intent(out), DIMENSION(klon,klev) :: flx_v_new
real, intent(out), DIMENSION(klon,klev) :: d_u_new
real, intent(out), DIMENSION(klon,klev) :: d_v_new

Contents