lsc_scav_orig Subroutine

subroutine lsc_scav_orig(pdtime, it, iflag_lscav, oliq, flxr, flxs, rneb, beta_fisrt, beta_v1, pplay, paprs, t, tr_seri, d_tr_insc, d_tr_bcscav, d_tr_evap, qPrls)

Uses

  • proc~~lsc_scav_orig~~UsesGraph proc~lsc_scav_orig lsc_scav_orig module~yomcst_mod_h yomcst_mod_h proc~lsc_scav_orig->module~yomcst_mod_h module~traclmdz_mod traclmdz_mod proc~lsc_scav_orig->module~traclmdz_mod module~infotrac_phy~2 infotrac_phy proc~lsc_scav_orig->module~infotrac_phy~2 module~iophy iophy proc~lsc_scav_orig->module~iophy module~mod_phys_lmdz_para mod_phys_lmdz_para proc~lsc_scav_orig->module~mod_phys_lmdz_para module~dimphy~3 dimphy proc~lsc_scav_orig->module~dimphy~3 module~mod_grid_phy_lmdz mod_grid_phy_lmdz proc~lsc_scav_orig->module~mod_grid_phy_lmdz module~yoecumf_mod_h yoecumf_mod_h proc~lsc_scav_orig->module~yoecumf_mod_h module~chem_mod_h chem_mod_h proc~lsc_scav_orig->module~chem_mod_h ioipsl ioipsl proc~lsc_scav_orig->ioipsl module~strings_mod strings_mod module~infotrac_phy~2->module~strings_mod module~readtracfiles_mod readTracFiles_mod module~infotrac_phy~2->module~readtracfiles_mod module~mod_phys_lmdz_mpi_data mod_phys_lmdz_mpi_data module~mod_phys_lmdz_para->module~mod_phys_lmdz_mpi_data module~mod_phys_lmdz_transfert_para mod_phys_lmdz_transfert_para module~mod_phys_lmdz_para->module~mod_phys_lmdz_transfert_para module~mod_phys_lmdz_omp_data mod_phys_lmdz_omp_data module~mod_phys_lmdz_para->module~mod_phys_lmdz_omp_data module~lmdz_cppkeys_wrapper lmdz_cppkeys_wrapper module~mod_phys_lmdz_mpi_data->module~lmdz_cppkeys_wrapper module~lmdz_mpi lmdz_mpi module~mod_phys_lmdz_mpi_data->module~lmdz_mpi module~mod_phys_lmdz_omp_transfert mod_phys_lmdz_omp_transfert module~mod_phys_lmdz_transfert_para->module~mod_phys_lmdz_omp_transfert module~mod_phys_lmdz_mpi_transfert mod_phys_lmdz_mpi_transfert module~mod_phys_lmdz_transfert_para->module~mod_phys_lmdz_mpi_transfert iso_fortran_env iso_fortran_env module~strings_mod->iso_fortran_env module~readtracfiles_mod->module~strings_mod module~ioipsl_getin_p_mod ioipsl_getin_p_mod module~readtracfiles_mod->module~ioipsl_getin_p_mod module~lmdz_cppkeys_wrapper->iso_fortran_env netcdf netcdf module~lmdz_cppkeys_wrapper->netcdf module~ioipsl_getin_p_mod->module~mod_phys_lmdz_para module~ioipsl_getin_p_mod->ioipsl module~ioipsl_getin_p_mod->module~mod_phys_lmdz_transfert_para module~ioipsl_getin_p_mod->module~strings_mod

! USE geometry_mod !!!!!!!!!!!!!!!!!!!!!!!!!

for output

  dxev=frac_ev*deltaP(i,k)*pdtime * his_dh(i) /(zrho(i,k)*zdz(i,k))

  dxev=frac_ev*deltaP(i,k)*his_dh(i) *pdtime/(zrho(i,k)*zdz(i,k)) &
                                  /max(flxr(i,k)+flxs(i,k),1.e-16)


 tendency is further added in phytrac x = x + dx

do i do k

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: pdtime
integer, intent(in) :: it
integer, intent(in) :: iflag_lscav
real, intent(in) :: oliq
real, intent(in), DIMENSION(klon,klev+1) :: flxr
real, intent(in), DIMENSION(klon,klev+1) :: flxs
real, intent(in), DIMENSION(klon,klev) :: rneb
real, intent(in), DIMENSION(klon,klev) :: beta_fisrt
real, intent(out), DIMENSION(klon,klev) :: beta_v1
real, intent(in), DIMENSION(klon,klev) :: pplay
real, intent(in), DIMENSION(klon,klev+1) :: paprs
real, intent(in), DIMENSION(klon,klev) :: t
real, intent(in), DIMENSION(klon,klev,nbtr) :: tr_seri
real, intent(out), DIMENSION(klon,klev,nbtr) :: d_tr_insc
real, intent(out), DIMENSION(klon,klev,nbtr) :: d_tr_bcscav
real, intent(out), DIMENSION(klon,klev,nbtr) :: d_tr_evap
real, intent(out), DIMENSION(klon,nbtr) :: qPrls

Contents