climb_hq_up Subroutine

public subroutine climb_hq_up(knon, dtime, t_old, q_old, flx_q1, flx_h1, paprs, pplay, Acoef_H_in, Acoef_Q_in, Bcoef_H_in, Bcoef_Q_in, Ccoef_H_in, Ccoef_Q_in, Dcoef_H_in, Dcoef_Q_in, Kcoef_hq_in, gama_q_in, gama_h_in, flux_q, flux_h, d_q, d_t)

Uses

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

! nrlmd le 02/05/2011 !

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

2) Calculation of Q and H

3) Calculation of the flux for Q and H

4) Calculation of tendency for Q and H

Some deallocations

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: knon
real, intent(in) :: dtime
real, intent(in), DIMENSION(klon,klev) :: t_old
real, intent(in), DIMENSION(klon,klev) :: q_old
real, intent(in), DIMENSION(klon) :: flx_q1
real, intent(in), DIMENSION(klon) :: flx_h1
real, intent(in), DIMENSION(klon,klev+1) :: paprs
real, intent(in), DIMENSION(klon,klev) :: pplay

! nrlmd le 02/05/2011
real, intent(in), DIMENSION(klon) :: Acoef_H_in
real, intent(in), DIMENSION(klon) :: Acoef_Q_in
real, intent(in), DIMENSION(klon) :: Bcoef_H_in
real, intent(in), DIMENSION(klon) :: Bcoef_Q_in
real, intent(in), DIMENSION(klon,klev) :: Ccoef_H_in
real, intent(in), DIMENSION(klon,klev) :: Ccoef_Q_in
real, intent(in), DIMENSION(klon,klev) :: Dcoef_H_in
real, intent(in), DIMENSION(klon,klev) :: Dcoef_Q_in
real, intent(in), DIMENSION(klon,klev) :: Kcoef_hq_in

!
real, intent(in), DIMENSION(klon,klev) :: gama_q_in

!
real, intent(in), DIMENSION(klon,klev) :: gama_h_in

!
real, intent(out), DIMENSION(klon,klev) :: flux_q
real, intent(out), DIMENSION(klon,klev) :: flux_h
real, intent(out), DIMENSION(klon,klev) :: d_q
real, intent(out), DIMENSION(klon,klev) :: d_t

Contents