cvltr_noscav Subroutine

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

Uses

  • proc~~cvltr_noscav~~UsesGraph proc~cvltr_noscav cvltr_noscav module~yomcst_mod_h yomcst_mod_h proc~cvltr_noscav->module~yomcst_mod_h module~yoecumf_mod_h yoecumf_mod_h proc~cvltr_noscav->module~yoecumf_mod_h module~dimphy~3 dimphy proc~cvltr_noscav->module~dimphy~3 module~infotrac_phy~2 infotrac_phy proc~cvltr_noscav->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

Called by

proc~~cvltr_noscav~~CalledByGraph proc~cvltr_noscav cvltr_noscav proc~phytrac phytrac proc~phytrac->proc~cvltr_noscav proc~phytrac~2 phytrac proc~phytrac~2->proc~cvltr_noscav proc~physiq physiq proc~physiq->proc~phytrac proc~physiq~2 physiq proc~physiq~2->proc~phytrac proc~old_lmdz1d old_lmdz1d proc~old_lmdz1d->proc~physiq proc~call_physiq call_physiq proc~call_physiq->proc~physiq proc~call_physiq~2 call_physiq proc~call_physiq~2->proc~physiq proc~scm scm proc~scm->proc~physiq program~lmdz1d lmdz1d program~lmdz1d->proc~old_lmdz1d program~lmdz1d->proc~scm proc~calfis calfis proc~calfis->proc~call_physiq proc~leapfrog leapfrog proc~leapfrog->proc~calfis program~gcm~2 gcm program~gcm~2->proc~leapfrog

Contents