traclmdz_mod Module


Contents

Variables

Subroutines


Variables

Type Visibility Attributes Name Initial
real, public, DIMENSION(:,:), ALLOCATABLE, SAVE :: masktr
real, public, DIMENSION(:,:), ALLOCATABLE, SAVE :: fshtr
real, public, DIMENSION(:), ALLOCATABLE, SAVE :: hsoltr
real, public, DIMENSION(:), ALLOCATABLE, SAVE :: tautr
real, public, DIMENSION(:), ALLOCATABLE, SAVE :: vdeptr
real, public, DIMENSION(:), ALLOCATABLE, SAVE :: scavtr
real, public, DIMENSION(:,:), ALLOCATABLE, SAVE :: srcbe
logical, public, DIMENSION(:), ALLOCATABLE, SAVE :: radio
real, public, DIMENSION(:,:), ALLOCATABLE, SAVE :: trs
integer, public, SAVE :: id_aga
integer, public, SAVE :: lev_1p5km
integer, public, SAVE :: id_rn
integer, public, SAVE :: id_pb
integer, public, SAVE :: id_be
integer, public, SAVE :: id_pcsat
integer, public, SAVE :: id_pcocsat
integer, public, SAVE :: id_pcq
integer, public, SAVE :: id_pcs0
integer, public, SAVE :: id_pcos0
integer, public, SAVE :: id_pcq0
integer, public, SAVE :: id_o3
logical, public, SAVE :: rnpb = .FALSE.

Subroutines

public subroutine traclmdz_from_restart(trs_in)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(klon,nbtr) :: trs_in

public subroutine traclmdz_init(pctsrf, xlat, xlon, ftsol, tr_seri, t_seri, pplay, sh, pdtphys, aerosol, lessivage)

jyg(20130206) : le choix d activation du lessivage est fait dans phytrac avec iflag_lscav call getin('lessivage',lessivage) if(lessivage) then print,'lessivage lsc ON' else print,'lessivage lsc OFF' endif

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(klon,nbsrf) :: pctsrf
real, intent(in), DIMENSION(klon) :: xlat
real, intent(in), DIMENSION(klon) :: xlon
real, intent(in), DIMENSION(klon,nbsrf) :: ftsol
real, intent(inout), DIMENSION(klon,klev,nbtr) :: tr_seri
real, intent(in), DIMENSION(klon,klev) :: t_seri
real, intent(in), DIMENSION(klon,klev) :: pplay
real, intent(in), DIMENSION(klon,klev) :: sh
real, intent(in) :: pdtphys
logical, intent(out), DIMENSION(nbtr) :: aerosol
logical, intent(out) :: lessivage

public subroutine traclmdz(nstep, julien, gmtime, pdtphys, t_seri, paprs, pplay, cdragh, coefh, yu1, yv1, ftsol, pctsrf, xlat, xlon, couchelimite, sh, rh, pphi, ustar, wstar, ale_bl, ale_wake, zu10m, zv10m, tr_seri, source, d_tr_cl, d_tr_dec, zmasse)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nstep
integer, intent(in) :: julien
real, intent(in) :: gmtime
real, intent(in) :: pdtphys
real, intent(in), DIMENSION(klon,klev) :: t_seri
real, intent(in), DIMENSION(klon,klev+1) :: paprs
real, intent(in), DIMENSION(klon,klev) :: pplay
real, intent(in), DIMENSION(klon) :: cdragh
real, intent(in), DIMENSION(klon,klev) :: coefh
real, intent(in), DIMENSION(klon) :: yu1
real, intent(in), DIMENSION(klon) :: yv1
real, intent(in), DIMENSION(klon,nbsrf) :: ftsol
real, intent(in), DIMENSION(klon,nbsrf) :: pctsrf
real, intent(in), DIMENSION(klon) :: xlat
real, intent(in) :: xlon(:)
logical, intent(in) :: couchelimite
real, intent(in), DIMENSION(klon,klev) :: sh
real, intent(in), DIMENSION(klon,klev) :: rh
real, intent(in), DIMENSION(klon,klev) :: pphi
real, intent(in), DIMENSION(klon) :: ustar
real, intent(in), DIMENSION(klon) :: wstar
real, intent(in), DIMENSION(klon) :: ale_bl
real, intent(in), DIMENSION(klon) :: ale_wake
real, intent(in), DIMENSION(klon) :: zu10m
real, intent(in), DIMENSION(klon) :: zv10m
real, intent(inout), DIMENSION(klon,klev,nbtr) :: tr_seri
real, intent(out), DIMENSION(klon,nbtr) :: source
real, intent(out), DIMENSION(klon,klev,nbtr) :: d_tr_cl
real, DIMENSION(klon,klev,nbtr) :: d_tr_dec
real, intent(in) :: zmasse(:,:)

public subroutine traclmdz_to_restart(trs_out)

Arguments

Type IntentOptional Attributes Name
real, intent(out), DIMENSION(klon,nbtr) :: trs_out