lmdz_lscp_old Module


Used by

  • module~~lmdz_lscp_old~~UsedByGraph module~lmdz_lscp_old lmdz_lscp_old proc~physiq physiq proc~physiq->module~lmdz_lscp_old proc~physiq~2 physiq proc~physiq~2->module~lmdz_lscp_old

Contents

Subroutines


Subroutines

public subroutine fisrtilp_first(klon, klev, dtime, pfrac_nucl, pfrac_1nucl, pfrac_impa)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: klon
integer, intent(in) :: klev
real, intent(in) :: dtime
real, intent(out), DIMENSION(klon,klev) :: pfrac_nucl
real, intent(out), DIMENSION(klon,klev) :: pfrac_1nucl
real, intent(out), DIMENSION(klon,klev) :: pfrac_impa

public subroutine fisrtilp(klon, klev, dtime, paprs, pplay, t, q, ptconv, ratqs, sigma_qtherm, d_t, d_q, d_ql, d_qi, rneb, rneblsvol, 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, cloudth_sth, cloudth_senv, cloudth_sigmath, cloudth_sigmaenv)

LTP RLVTT = 2.501e6 ! pas de redefinition des constantes physiques (jyg) RLSTT = 2.834e6 ! pas de redefinition des constantes physiques (jyg) AJ LTP ! 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 LTP LTP LTP LTP
! zmelt = ((zt(i)-273.15)/(ztfondue-273.15))**2 !!!!!!!!! jyg

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: klon
integer, intent(in) :: klev
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) :: rneblsvol
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, intent(out), DIMENSION(klon,klev) :: beta
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
real, intent(out), DIMENSION(klon,klev) :: cloudth_sth
real, intent(out), DIMENSION(klon,klev) :: cloudth_senv
real, intent(out), DIMENSION(klon,klev) :: cloudth_sigmath
real, intent(out), DIMENSION(klon,klev) :: cloudth_sigmaenv