lmdz_thermcell_main Module


Contents

Subroutines


Subroutines

public subroutine thermcell_main(itap, ngrid, nlay, ptimestep, pplay, pplev, pphi, debut, puwind, pvwind, ptemp, p_o, ptemp_env, po_env, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0, detr0, zqta, zqla, lmax, ratqscth, ratqsdiff, zqsatth, zmax0, f0, zw2, fraca, ztv, zpspsk, ztla, zthl, ztva, pcon, rhobarz, wth3, wmax_sec, lalim, fm, alim_star, zmax, zcong)

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

Read more…

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) :: pplay
real, intent(in), dimension(ngrid,nlay+1) :: pplev
real, intent(in), dimension(ngrid,nlay) :: pphi
logical, intent(in) :: debut
real, intent(in), dimension(ngrid,nlay) :: puwind
real, intent(in), dimension(ngrid,nlay) :: pvwind
real, intent(in), dimension(ngrid,nlay) :: ptemp
real, intent(in), dimension(ngrid,nlay) :: p_o
real, intent(in), dimension(ngrid,nlay) :: ptemp_env
real, intent(in), dimension(ngrid,nlay) :: po_env
real, intent(out), dimension(ngrid,nlay) :: pduadj
real, intent(out), dimension(ngrid,nlay) :: pdvadj
real, intent(out), dimension(ngrid,nlay) :: pdtadj
real, intent(out), dimension(ngrid,nlay) :: pdoadj
real, intent(out), dimension(ngrid,nlay+1) :: fm0
real, intent(out), dimension(ngrid,nlay) :: entr0
real, intent(out), dimension(ngrid,nlay) :: detr0
real, intent(out), dimension(ngrid,nlay) :: zqta
real, intent(out), dimension(ngrid,nlay) :: zqla
integer, intent(out), dimension(ngrid) :: lmax
real, intent(out), dimension(ngrid,nlay) :: ratqscth
real, intent(out), dimension(ngrid,nlay) :: ratqsdiff
real, intent(out), dimension(ngrid,nlay) :: zqsatth
real, intent(inout), dimension(ngrid) :: zmax0
real, intent(inout), dimension(ngrid) :: f0
real, intent(out), dimension(ngrid,nlay+1) :: zw2
real, intent(out), dimension(ngrid,nlay+1) :: fraca
real, intent(out), dimension(ngrid,nlay) :: ztv
real, intent(out), dimension(ngrid,nlay) :: zpspsk
real, intent(out), dimension(ngrid,nlay) :: ztla
real, intent(out), dimension(ngrid,nlay) :: zthl
real, intent(out), dimension(ngrid,nlay) :: ztva
real, intent(out), dimension(ngrid) :: pcon
real, intent(out), dimension(ngrid,nlay) :: rhobarz
real, intent(out), dimension(ngrid,nlay) :: wth3
real, intent(out), dimension(ngrid) :: wmax_sec
integer, intent(out), dimension(ngrid) :: lalim
real, intent(out), dimension(ngrid,nlay+1) :: fm
real, intent(out), dimension(ngrid,nlay) :: alim_star
real, intent(out), dimension(ngrid) :: zmax
real, intent(out), dimension(ngrid) :: zcong

public subroutine test_ltherm(ngrid, nlay, pplay, long, ztv, p_o, ztva, zqla, f_star, zw2, comment)

Arguments

Type IntentOptional Attributes Name
integer :: ngrid
integer :: nlay
real, intent(in), dimension(ngrid,nlay) :: pplay
integer, intent(in), dimension(ngrid) :: long
real, intent(in), dimension(ngrid,nlay) :: ztv
real, intent(in), dimension(ngrid,nlay) :: p_o
real, intent(in), dimension(ngrid,nlay) :: ztva
real, intent(in), dimension(ngrid,nlay) :: zqla
real, intent(in), dimension(ngrid,nlay) :: f_star
real, intent(in), dimension(ngrid,nlay) :: zw2
character(len=21) :: comment

public subroutine thermcell_tke_transport(ngrid, nlay, ptimestep, fm0, entr0, rg, pplev, therm_tke_max)

! nrlmd le 16/09/2010 !

Read more…

Arguments

Type IntentOptional Attributes Name
integer :: ngrid
integer :: nlay
real, intent(in) :: ptimestep
real, intent(in), dimension(ngrid,nlay+1) :: fm0
real, intent(in), dimension(ngrid,nlay) :: entr0
real, intent(in) :: rg
real, intent(in), dimension(ngrid,nlay+1) :: pplev
real, intent(out), dimension(ngrid,nlay) :: therm_tke_max