lmdz_lscp_old Module


Contents


Subroutines

public subroutine fisrtilp(dtime, paprs, pplay, t, q, ptconv, ratqs, sigma_qtherm, d_t, d_q, d_ql, d_qi, rneb, radliq, rain, snow, pfrac_impa, pfrac_nucl, pfrac_1nucl, frac_impa, frac_nucl, beta, prfl, psfl, rhcl, zqta, fraca, ztv, zpspsk, ztla, zthl, iflag_cld_th, iflag_ice_thermo)

RLVTT = 2.501e6 ! pas de redefinition des constantes physiques (jyg) RLSTT = 2.834e6 ! pas de redefinition des constantes physiques (jyg) AJ ! On ne tient compte de cette fraction que sous une seule ! couche sous le nuage JLD debut de partie a supprimer a terme JLD fin de partie a supprimer a terme ! zmelt = ((zt(i)-273.15)/(ztfondue-273.15))**2 !!!!!!!!! jyg

Read more…

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: dtime
real, intent(in), DIMENSION(klon,klev+1) :: paprs
real, intent(in), DIMENSION(klon,klev) :: pplay
real, intent(in), DIMENSION(klon,klev) :: t
real, intent(in), DIMENSION(klon,klev) :: q
logical, intent(in), DIMENSION(klon,klev) :: ptconv
real, intent(inout), DIMENSION(klon,klev) :: ratqs
real, intent(inout), DIMENSION(klon,klev) :: sigma_qtherm
real, intent(out), DIMENSION(klon,klev) :: d_t
real, intent(out), DIMENSION(klon,klev) :: d_q
real, intent(out), DIMENSION(klon,klev) :: d_ql
real, intent(out), DIMENSION(klon,klev) :: d_qi
real, intent(out), DIMENSION(klon,klev) :: rneb
real, intent(out), DIMENSION(klon,klev) :: radliq
real, intent(out), DIMENSION(klon) :: rain
real, intent(out), DIMENSION(klon) :: snow
real, intent(inout), DIMENSION(klon,klev) :: pfrac_impa
real, intent(inout), DIMENSION(klon,klev) :: pfrac_nucl
real, intent(inout), DIMENSION(klon,klev) :: pfrac_1nucl
real, intent(out), DIMENSION(klon,klev) :: frac_impa
real, intent(out), DIMENSION(klon,klev) :: frac_nucl
real :: beta(klon,klev)
real, intent(out), DIMENSION(klon,klev+1) :: prfl
real, intent(out), DIMENSION(klon,klev+1) :: psfl
real, intent(out), DIMENSION(klon,klev) :: rhcl
real, intent(in), DIMENSION(klon,klev) :: zqta
real, intent(in), DIMENSION(klon,klev) :: fraca
real, intent(in), DIMENSION(klon,klev) :: ztv
real, intent(in), DIMENSION(klon,klev) :: zpspsk
real, intent(in), DIMENSION(klon,klev) :: ztla
real, intent(inout), DIMENSION(klon,klev) :: zthl
integer, intent(in) :: iflag_cld_th
integer, intent(in) :: iflag_ice_thermo