m_simu_airs Module


Uses

  • module~~m_simu_airs~~UsesGraph module~m_simu_airs m_simu_airs module~print_control_mod print_control_mod module~m_simu_airs->module~print_control_mod

Used by

  • module~~m_simu_airs~~UsedByGraph module~m_simu_airs m_simu_airs proc~simu_airs simu_airs proc~simu_airs->module~m_simu_airs proc~simu_airs~2 simu_airs proc~simu_airs~2->module~m_simu_airs

Contents


Variables

Type Visibility Attributes Name Initial
real, public, parameter :: tau_thresh = 0.05
real, public, parameter :: p_thresh = 445.
real, public, parameter :: em_min = 0.2
real, public, parameter :: em_max = 0.85
real, public, parameter :: undef = 999.

Functions

public function search_tropopause(P, T, alt, N) result(P_tropo)

Arguments

Type IntentOptional Attributes Name
real :: P(N)
real :: T(N)
real :: alt(N)
integer :: N

Return Value real


Subroutines

public subroutine cloud_structure(len_cs, rneb_cs, temp_cs, emis_cs, iwco_cs, pres_cs, dz_cs, rhodz_cs, rad_cs, cc_tot_cs, cc_hc_cs, cc_hist_cs, cc_Cb_cs, cc_ThCi_cs, cc_Anv_cs, pcld_hc_cs, tcld_hc_cs, em_hc_cs, iwp_hc_cs, deltaz_hc_cs, pcld_Cb_cs, tcld_Cb_cs, em_Cb_cs, pcld_ThCi_cs, tcld_ThCi_cs, em_ThCi_cs, pcld_Anv_cs, tcld_Anv_cs, em_Anv_cs, em_hist_cs, iwp_hist_cs, deltaz_hist_cs, rad_hist_cs)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: len_cs
real, intent(in), DIMENSION(:) :: rneb_cs
real, intent(in), DIMENSION(:) :: temp_cs
real, intent(in), DIMENSION(:) :: emis_cs
real, intent(in), DIMENSION(:) :: iwco_cs
real, intent(in), DIMENSION(:) :: pres_cs
real, intent(in), DIMENSION(:) :: dz_cs
real, intent(in), DIMENSION(:) :: rhodz_cs
real, intent(in), DIMENSION(:) :: rad_cs
real, intent(out) :: cc_tot_cs
real, intent(out) :: cc_hc_cs
real, intent(out) :: cc_hist_cs
real, intent(out) :: cc_Cb_cs
real, intent(out) :: cc_ThCi_cs
real, intent(out) :: cc_Anv_cs
real, intent(out) :: pcld_hc_cs
real, intent(out) :: tcld_hc_cs
real, intent(out) :: em_hc_cs
real, intent(out) :: iwp_hc_cs
real, intent(out) :: deltaz_hc_cs
real, intent(out) :: pcld_Cb_cs
real, intent(out) :: tcld_Cb_cs
real, intent(out) :: em_Cb_cs
real, intent(out) :: pcld_ThCi_cs
real, intent(out) :: tcld_ThCi_cs
real, intent(out) :: em_ThCi_cs
real, intent(out) :: pcld_Anv_cs
real, intent(out) :: tcld_Anv_cs
real, intent(out) :: em_Anv_cs
real, intent(out) :: em_hist_cs
real, intent(out) :: iwp_hist_cs
real, intent(out) :: deltaz_hist_cs
real, intent(out) :: rad_hist_cs

public subroutine normal_undef(num, den)

Arguments

Type IntentOptional Attributes Name
real, intent(inout) :: num
real, intent(in) :: den

public subroutine normal2_undef(res, num, den)

Arguments

Type IntentOptional Attributes Name
real, intent(out) :: res
real, intent(in) :: num
real, intent(in) :: den

public subroutine sous_section(len_cs, rneb_cs, temp_cs, emis_cs, iwco_cs, pres_cs, dz_cs, rhodz_cs, rad_cs, rneb_ord, rnebmax, stot, shc, shist, sCb, sThCi, sAnv, emis, pcld, tcld, iwp, deltaz, rad)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: len_cs
real, intent(in), DIMENSION(len_cs) :: rneb_cs
real, intent(in), DIMENSION(len_cs) :: temp_cs
real, intent(in), DIMENSION(len_cs) :: emis_cs
real, intent(in), DIMENSION(len_cs) :: iwco_cs
real, intent(in), DIMENSION(len_cs) :: pres_cs
real, intent(in), DIMENSION(len_cs) :: dz_cs
real, intent(in), DIMENSION(len_cs) :: rhodz_cs
real, intent(in), DIMENSION(len_cs) :: rad_cs
real, intent(in), DIMENSION(len_cs) :: rneb_ord
real, intent(in) :: rnebmax
real, intent(inout) :: stot
real, intent(inout) :: shc
real, intent(inout) :: shist
real, intent(inout) :: sCb
real, intent(inout) :: sThCi
real, intent(inout) :: sAnv
real, intent(out) :: emis
real, intent(out) :: pcld
real, intent(out) :: tcld
real, intent(out) :: iwp
real, intent(out) :: deltaz
real, intent(out) :: rad

public subroutine masque(ibeg, iend, som_tau, visible, w)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ibeg
integer, intent(in) :: iend
real, intent(in) :: som_tau
integer, intent(inout) :: visible
real, intent(inout), DIMENSION(:) :: w

public subroutine caract(ibeg, iend, temp_cs, tau_cs, iwco_cs, pres_cs, dz_cs, rhodz_cs, rad_cs, pcld, tcld, som_tau, som_iwc, som_dz, som_rad)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ibeg
integer, intent(in) :: iend
real, intent(in), DIMENSION(:) :: temp_cs
real, intent(in), DIMENSION(:) :: tau_cs
real, intent(in), DIMENSION(:) :: iwco_cs
real, intent(in), DIMENSION(:) :: pres_cs
real, intent(in), DIMENSION(:) :: dz_cs
real, intent(in), DIMENSION(:) :: rhodz_cs
real, intent(in), DIMENSION(:) :: rad_cs
real, intent(out) :: pcld
real, intent(out) :: tcld
real, intent(out) :: som_tau
real, intent(out) :: som_iwc
real, intent(out) :: som_dz
real, intent(out) :: som_rad

public subroutine topbot(ideb, w, ibeg, iend)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ideb
real, intent(in), DIMENSION(:) :: w
integer, intent(out) :: ibeg
integer, intent(out) :: iend

public subroutine ordonne(len_cs, rneb_cs, rneb_ord)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: len_cs
real, intent(in), DIMENSION(:) :: rneb_cs
real, intent(out), DIMENSION(:) :: rneb_ord

public subroutine sim_mesh(rneb_1D, temp_1D, emis_1D, iwcon_1D, rad_1D, pres, dz, rhodz_1D, cc_tot_mesh, cc_hc_mesh, cc_hist_mesh, pcld_hc_mesh, tcld_hc_mesh, em_hc_mesh, iwp_hc_mesh, deltaz_hc_mesh, cc_Cb_mesh, cc_ThCi_mesh, cc_Anv_mesh, pcld_Cb_mesh, tcld_Cb_mesh, em_Cb_mesh, pcld_ThCi_mesh, tcld_ThCi_mesh, em_ThCi_mesh, pcld_Anv_mesh, tcld_Anv_mesh, em_Anv_mesh, em_hist_mesh, iwp_hist_mesh, deltaz_hist_mesh, rad_hist_mesh)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(klev) :: rneb_1D
real, intent(in), DIMENSION(klev) :: temp_1D
real, intent(in), DIMENSION(klev) :: emis_1D
real, intent(in), DIMENSION(klev) :: iwcon_1D
real, intent(in), DIMENSION(klev) :: rad_1D
real, intent(in), DIMENSION(klev) :: pres
real, intent(in), DIMENSION(klev) :: dz
real, intent(in), DIMENSION(klev) :: rhodz_1D
real, intent(out) :: cc_tot_mesh
real, intent(out) :: cc_hc_mesh
real, intent(out) :: cc_hist_mesh
real, intent(out) :: pcld_hc_mesh
real, intent(out) :: tcld_hc_mesh
real, intent(out) :: em_hc_mesh
real, intent(out) :: iwp_hc_mesh
real, intent(out) :: deltaz_hc_mesh
real, intent(out) :: cc_Cb_mesh
real, intent(out) :: cc_ThCi_mesh
real, intent(out) :: cc_Anv_mesh
real, intent(out) :: pcld_Cb_mesh
real, intent(out) :: tcld_Cb_mesh
real, intent(out) :: em_Cb_mesh
real, intent(out) :: pcld_ThCi_mesh
real, intent(out) :: tcld_ThCi_mesh
real, intent(out) :: em_ThCi_mesh
real, intent(out) :: pcld_Anv_mesh
real, intent(out) :: tcld_Anv_mesh
real, intent(out) :: em_Anv_mesh
real, intent(out) :: em_hist_mesh
real, intent(out) :: iwp_hist_mesh
real, intent(out) :: deltaz_hist_mesh
real, intent(out) :: rad_hist_mesh

public subroutine test_bornes(sx, x, bsup, binf)

Arguments

Type IntentOptional Attributes Name
character(len=14), intent(in) :: sx
real, intent(in) :: x
real, intent(in) :: bsup
real, intent(in) :: binf