cvltr_noscav Subroutine

subroutine cvltr_noscav(it, pdtime, da, phi, mp, wght_cvfd, paprs, pplay, x, upd, dnd, dx)

Uses

  • proc~~cvltr_noscav~2~~UsesGraph proc~cvltr_noscav~2 cvltr_noscav module~yomcst_mod_h yomcst_mod_h proc~cvltr_noscav~2->module~yomcst_mod_h module~yoecumf_mod_h yoecumf_mod_h proc~cvltr_noscav~2->module~yoecumf_mod_h module~dimphy~3 dimphy proc~cvltr_noscav~2->module~dimphy~3 module~infotrac_phy~2 infotrac_phy proc~cvltr_noscav~2->module~infotrac_phy~2 module~strings_mod strings_mod module~infotrac_phy~2->module~strings_mod module~readtracfiles_mod readTracFiles_mod module~infotrac_phy~2->module~readtracfiles_mod 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~ioipsl_getin_p_mod->module~strings_mod module~mod_phys_lmdz_transfert_para mod_phys_lmdz_transfert_para module~ioipsl_getin_p_mod->module~mod_phys_lmdz_transfert_para module~mod_phys_lmdz_para mod_phys_lmdz_para module~ioipsl_getin_p_mod->module~mod_phys_lmdz_para ioipsl ioipsl module~ioipsl_getin_p_mod->ioipsl 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 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~mod_phys_lmdz_mpi_data mod_phys_lmdz_mpi_data module~mod_phys_lmdz_para->module~mod_phys_lmdz_mpi_data module~lmdz_mpi lmdz_mpi module~mod_phys_lmdz_mpi_data->module~lmdz_mpi module~lmdz_cppkeys_wrapper lmdz_cppkeys_wrapper module~mod_phys_lmdz_mpi_data->module~lmdz_cppkeys_wrapper module~lmdz_cppkeys_wrapper->iso_fortran_env netcdf netcdf module~lmdz_cppkeys_wrapper->netcdf 
      if(mp(i,j+1).ne.0) then
         zmd(i,j,k)=zmd(i,j+1,k)*min(1.,mp(i,j)/mp(i,j+1))
      ENDif
   zmfa(i,j,it)=da(i,j)*(x(i,1,it)-x(i,j,it))                     ! da

print ,'it, qfeed(1,it), x(1,1,it) ', it, qfeed(1,it), x(1,1,it) !jyg print ,'wght_cvfd ', (j, wght_cvfd(1,j), j=1,5) !jyg

test de conservation du traceur print *,'it',it,'cvltr_noscav conserv, smfd, smfu, smfa, smfp ',conserv, & smfd, smfu, smfa, smfp

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: it
real, intent(in) :: pdtime
real, intent(in), DIMENSION(klon,klev) :: da
real, intent(in), DIMENSION(klon,klev,klev) :: phi
real, intent(in), DIMENSION(klon,klev) :: mp
real, intent(in), DIMENSION(klon,klev) :: wght_cvfd
real, intent(in), DIMENSION(klon,klev+1) :: paprs
real, intent(in), DIMENSION(klon,klev) :: pplay
real, intent(in), DIMENSION(klon,klev,nbtr) :: x
real, intent(in), DIMENSION(klon,klev) :: upd
real, intent(in), DIMENSION(klon,klev) :: dnd
real, intent(inout), DIMENSION(klon,klev,nbtr) :: dx

Contents