calltherm Subroutine

public subroutine calltherm(itap, dtime, pplay, paprs, pphi, weak_inversion, u_seri_, v_seri_, t_seri_, q_seri_, t_env, q_env, zqsat, debut, d_u_ajs, d_v_ajs, d_t_ajs, d_q_ajs, fm_therm, entr_therm, detr_therm, zqasc, clwcon0, lmax, ratqscth, ratqsdiff, zqsatth, ale_bl, alp_bl, lalim_conv, wght_th, zmax0, f0, zw2, fraca, ztv, zpspsk, ztla, zthl, pbl_tke, pctsrf, omega, airephy, zlcl_th, fraca0, w0, w_conv, therm_tke_max0, env_tke_max0, n2, s2, strig, zcong, ale_bl_stat, therm_tke_max, env_tke_max, alp_bl_det, alp_bl_fluct_m, alp_bl_fluct_tke, alp_bl_conv, alp_bl_stat, zqla, ztva)

Uses

! nrlmd le 10/04/2012 ! fin nrlmd le 10/04/2012

 calcul du flux ascencant conservatif
        print*,'<<<<calcul flux ascendant conservatif'

 calcul de l'humidite dans l'ascendance
  print*,'<<<<calcul de lhumidite dans thermique'

CR:on ne le calcule que pour le cas sec

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: itap
real :: dtime
real :: pplay(klon,klev)
real :: paprs(klon,klev+1)
real :: pphi(klon,klev)
real :: weak_inversion(klon)
real, intent(in), DIMENSION(klon,klev) :: u_seri_
real, intent(in), DIMENSION(klon,klev) :: v_seri_
real, intent(in), DIMENSION(klon,klev) :: t_seri_
real, intent(in), DIMENSION(klon,klev) :: q_seri_
real, intent(in), DIMENSION(klon,klev) :: t_env
real, intent(in), DIMENSION(klon,klev) :: q_env
real :: zqsat(klon,klev)
logical :: debut
real :: d_u_ajs(klon,klev)
real :: d_v_ajs(klon,klev)
real :: d_t_ajs(klon,klev)
real :: d_q_ajs(klon,klev)
real :: fm_therm(klon,klev+1)
real :: entr_therm(klon,klev) 
 declarations
real :: detr_therm(klon,klev) 
 declarations
real :: zqasc(klon,klev)
real :: clwcon0(klon,klev)
integer :: lmax(klon)
real :: ratqscth(klon,klev)
real :: ratqsdiff(klon,klev)
real :: zqsatth(klon,klev)
real :: ale_bl(klon)
real :: alp_bl(klon)
integer :: lalim_conv(klon)
real :: wght_th(klon,klev)
real :: zmax0(klon)

! nrlmd le 10/04/2012
real :: f0(klon)

! nrlmd le 10/04/2012
real :: zw2(klon,klev+1)
real :: fraca(klon,klev+1)
real :: ztv(klon,klev)
real :: zpspsk(klon,klev)
real :: ztla(klon,klev)
real :: zthl(klon,klev)
real :: pbl_tke(klon,klev+1,nbsrf)
real :: pctsrf(klon,nbsrf)
real :: omega(klon,klev)
real :: airephy(klon)
real :: zlcl_th(klon)
real :: fraca0(klon)
real :: w0(klon)
real :: w_conv(klon)
real :: therm_tke_max0(klon)
real :: env_tke_max0(klon)
real :: n2(klon)
real :: s2(klon)
real :: strig(klon)
real :: zcong(klon)
real :: ale_bl_stat(klon)
real :: therm_tke_max(klon,klev)
real :: env_tke_max(klon,klev)
real :: alp_bl_det(klon)

! fin nrlmd le 10/04/2012
real :: alp_bl_fluct_m(klon)

! fin nrlmd le 10/04/2012
real :: alp_bl_fluct_tke(klon)

! fin nrlmd le 10/04/2012
real :: alp_bl_conv(klon)

! fin nrlmd le 10/04/2012
real :: alp_bl_stat(klon)

! fin nrlmd le 10/04/2012
real :: zqla(klon,klev)
real :: ztva(klon,klev)

Calls

proc~~calltherm~~CallsGraph proc~calltherm calltherm proc~thermcell thermcell proc~calltherm->proc~thermcell proc~abort_physic abort_physic proc~calltherm->proc~abort_physic proc~calcul_sec calcul_sec proc~calltherm->proc~calcul_sec proc~thermcell_2002 thermcell_2002 proc~calltherm->proc~thermcell_2002 proc~thermcell_eau thermcell_eau proc~calltherm->proc~thermcell_eau proc~thermcell_alp thermcell_alp proc~calltherm->proc~thermcell_alp proc~thermcell_main thermcell_main proc~calltherm->proc~thermcell_main proc~thermcell_sec thermcell_sec proc~calltherm->proc~thermcell_sec proc~thermcell->proc~abort_physic proc~dqthermcell dqthermcell proc~thermcell->proc~dqthermcell proc~dqthermcell2 dqthermcell2 proc~thermcell->proc~dqthermcell2 proc~dvthermcell2 dvthermcell2 proc~thermcell->proc~dvthermcell2 getin_dump getin_dump proc~abort_physic->getin_dump histclo histclo proc~abort_physic->histclo proc~mpi_abort MPI_ABORT proc~abort_physic->proc~mpi_abort restclo restclo proc~abort_physic->restclo proc~calcul_sec->proc~abort_physic proc~calcul_sec->proc~dqthermcell proc~calcul_sec->proc~dqthermcell2 proc~calcul_sec->proc~dvthermcell2 proc~thermcell_2002->proc~abort_physic proc~thermcell_2002->proc~dqthermcell proc~thermcell_dv2 thermcell_dv2 proc~thermcell_2002->proc~thermcell_dv2 proc~thermcell_2002->proc~dqthermcell2 proc~thermcell_2002->proc~dvthermcell2 proc~thermcell_dq thermcell_dq proc~thermcell_2002->proc~thermcell_dq proc~thermcell_eau->proc~abort_physic proc~thermcell_eau->proc~dqthermcell proc~thermcell_eau->proc~dqthermcell2 proc~thermcell_eau->proc~dvthermcell2 proc~thermcell_tke_transport thermcell_tke_transport proc~thermcell_alp->proc~thermcell_tke_transport proc~thermcell_main->proc~abort_physic proc~thermcell_plume_6a thermcell_plume_6A proc~thermcell_main->proc~thermcell_plume_6a proc~thermcell_main->proc~thermcell_dv2 proc~thermcell_plume thermcell_plume proc~thermcell_main->proc~thermcell_plume proc~thermcell_updown_dq thermcell_updown_dq proc~thermcell_main->proc~thermcell_updown_dq proc~thermcell_plume_5b thermcell_plume_5B proc~thermcell_main->proc~thermcell_plume_5b proc~thermcell_closure thermcell_closure proc~thermcell_main->proc~thermcell_closure proc~thermcell_flux2 thermcell_flux2 proc~thermcell_main->proc~thermcell_flux2 proc~thermcell_qsat thermcell_qsat proc~thermcell_main->proc~thermcell_qsat proc~thermcell_height thermcell_height proc~thermcell_main->proc~thermcell_height proc~thermcell_env thermcell_env proc~thermcell_main->proc~thermcell_env proc~test_ltherm test_ltherm proc~thermcell_main->proc~test_ltherm proc~thermcell_main->proc~thermcell_dq proc~thermcell_dry thermcell_dry proc~thermcell_main->proc~thermcell_dry proc~thermcell_sec->proc~abort_physic proc~thermcell_sec->proc~dqthermcell proc~thermcell_sec->proc~dqthermcell2 proc~thermcell_sec->proc~dvthermcell2 proc~thermcell_plume_6a->proc~thermcell_qsat proc~thermcell_alim thermcell_alim proc~thermcell_plume_6a->proc~thermcell_alim proc~thermcell_plume->proc~thermcell_qsat proc~thermcell_plume->proc~thermcell_alim proc~lmdz_mpi_wrapper_abort lmdz_mpi_wrapper_abort proc~mpi_abort->proc~lmdz_mpi_wrapper_abort proc~thermcell_updown_dq->proc~abort_physic proc~thermcell_plume_5b->proc~thermcell_qsat proc~thermcell_flux2->proc~abort_physic proc~thermcell_env->proc~thermcell_qsat proc~thermcell_dq->proc~abort_physic proc~thermcell_dq_o thermcell_dq_o proc~thermcell_dq->proc~thermcell_dq_o proc~thermcell_dq_o->proc~abort_physic

Called by

proc~~calltherm~~CalledByGraph proc~calltherm calltherm proc~physiq physiq proc~physiq->proc~calltherm proc~physiq~2 physiq proc~physiq~2->proc~calltherm proc~old_lmdz1d old_lmdz1d proc~old_lmdz1d->proc~physiq proc~call_physiq call_physiq proc~call_physiq->proc~physiq proc~call_physiq~2 call_physiq proc~call_physiq~2->proc~physiq proc~scm scm proc~scm->proc~physiq program~lmdz1d lmdz1d program~lmdz1d->proc~old_lmdz1d program~lmdz1d->proc~scm proc~calfis calfis proc~calfis->proc~call_physiq proc~leapfrog leapfrog proc~leapfrog->proc~calfis program~gcm~2 gcm program~gcm~2->proc~leapfrog

Contents