lmdz_thermcell_plume_6A Module

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


Contents

Subroutines


Subroutines

public subroutine thermcell_plume_6A(itap, ngrid, nlay, ptimestep, ztv, zthl, po, zl, rhobarz, zlev, pplev, pphi, zpspsk, alim_star, alim_star_tot, lalim, f0, detr_star, entr_star, f_star, csc, ztva, ztla, zqla, zqta, zha, zw2, w_est, ztva_est, zqsatth, lmix, lmix_bis, linter, lev_out, lunout1, igout)

!!!!! fact_epsilon=0.002

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: itap
integer, intent(in) :: ngrid
integer, intent(in) :: nlay
real, intent(in) :: ptimestep
real, intent(in), dimension(ngrid,nlay) :: ztv
real, intent(in), dimension(ngrid,nlay) :: zthl
real, intent(in), dimension(ngrid,nlay) :: po
real, intent(in), dimension(ngrid,nlay) :: zl
real, intent(in), dimension(ngrid,nlay) :: rhobarz
real, intent(in), dimension(ngrid,nlay+1) :: zlev
real, intent(in), dimension(ngrid,nlay+1) :: pplev
real, intent(in), dimension(ngrid,nlay) :: pphi
real, intent(in), dimension(ngrid,nlay) :: zpspsk
real, intent(out), dimension(ngrid,nlay) :: alim_star
real, intent(out), dimension(ngrid) :: alim_star_tot
integer, intent(out) :: lalim(ngrid)
real, intent(in), dimension(ngrid) :: f0
real, intent(out), dimension(ngrid,nlay) :: detr_star
real, intent(out), dimension(ngrid,nlay) :: entr_star
real, intent(out), dimension(ngrid,nlay+1) :: f_star
real, intent(out), dimension(ngrid,nlay) :: csc
real, intent(out), dimension(ngrid,nlay) :: ztva
real, intent(out), dimension(ngrid,nlay) :: ztla
real, intent(out), dimension(ngrid,nlay) :: zqla
real, intent(out), dimension(ngrid,nlay) :: zqta
real, intent(out), dimension(ngrid,nlay) :: zha
real, intent(out), dimension(ngrid,nlay+1) :: zw2
real, intent(out), dimension(ngrid,nlay+1) :: w_est
real, intent(out), dimension(ngrid,nlay) :: ztva_est
real, intent(out), dimension(ngrid,nlay) :: zqsatth
integer, intent(out), dimension(ngrid) :: lmix
integer, intent(out), dimension(ngrid) :: lmix_bis
real, intent(out), dimension(ngrid) :: linter
integer, intent(in) :: lev_out
integer, intent(in) :: lunout1
integer, intent(in) :: igout

public subroutine thermcell_plume_5B(itap, ngrid, nlay, ptimestep, ztv, zthl, po, zl, rhobarz, zlev, pplev, pphi, zpspsk, alim_star, alim_star_tot, lalim, f0, detr_star, entr_star, f_star, csc, ztva, ztla, zqla, zqta, zha, zw2, w_est, ztva_est, zqsatth, lmix, lmix_bis, linter, lev_out, lunout1, igout)

Arguments

Type IntentOptional Attributes Name
integer :: itap
integer :: ngrid
integer :: nlay
real :: ptimestep
real :: ztv(ngrid,nlay)
real :: zthl(ngrid,nlay)
real, intent(in) :: po(ngrid,nlay)
real :: zl(ngrid,nlay)
real :: rhobarz(ngrid,nlay)
real :: zlev(ngrid,nlay+1)
real :: pplev(ngrid,nlay+1)
real :: pphi(ngrid,nlay)
real :: zpspsk(ngrid,nlay)
real :: alim_star(ngrid,nlay)
real :: alim_star_tot(ngrid)
integer :: lalim(ngrid)
real :: f0(ngrid)
real :: detr_star(ngrid,nlay)
real :: entr_star(ngrid,nlay)
real :: f_star(ngrid,nlay+1)
real :: csc(ngrid,nlay)
real :: ztva(ngrid,nlay)
real :: ztla(ngrid,nlay)
real :: zqla(ngrid,nlay)
real :: zqta(ngrid,nlay)
real :: zha(ngrid,nlay)
real :: zw2(ngrid,nlay+1)
real :: w_est(ngrid,nlay+1)
real :: ztva_est(ngrid,nlay)
real :: zqsatth(ngrid,nlay)
integer :: lmix(ngrid)
integer :: lmix_bis(ngrid)
real :: linter(ngrid)
integer :: lev_out
integer :: lunout1
integer :: igout