cvltr_scav Subroutine

subroutine cvltr_scav(pdtime, da, phi, phi2, d1a, dam, mpIN, epIN, sigd, sij, wght_cvfd, clw, elij, epmlmMm, eplaMm, pmflxrIN, pmflxsIN, ev, te, wdtrainA, wdtrainM, paprs, it, tr, upd, dnd, inb, icb, ccntrAA_3d, ccntrENV_3d, coefcoli_3d, dtrcv, trsptd, dtrSscav, dtrsat, dtrUscav, flux_tr_wet, qDi, qPr, qPa, qMel, qTrdi, dtrcvMA, Mint, zmfd1a, zmfphi2, zmfdam)

Uses

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

jyg jyg !!! quantite de traceur dans la descente d'air insaturee : 4 juin 2012 !!!

    zmfa(i,j,it)=da(i,j)*(tr(i,1,it)-tr(i,j,it))                     ! da

jyg (20130119) correction pour le sommet du nuage if(j.GE.inb(i)) THEN !au-dessus du nuage, sommet inclu print test descente insaturee

     'zmfdam',zmfdam(i,j,it),'zmfpsi',zmfphi2(i,j,it),&


      'zmfa',zmfa(i,j,it),'zmfp',zmfp(i,j,it),&

      'Pa',Pa(i,j),'eplaMm',eplaMm(i,j)
     'zmfd1a=da1*qa',zmfd1a(i,j,it),'Pa*qPa',wdtrainA(i,j)*qPa(i,j,it),'da1',d1a(i,j)

JE adds

Je end

!!!!

Arguments

Type IntentOptional Attributes Name
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,klev) :: phi2
real, intent(in), DIMENSION(klon,klev) :: d1a
real, intent(in), DIMENSION(klon,klev) :: dam
real, intent(in), DIMENSION(klon,klev) :: mpIN
real, intent(in), DIMENSION(klon,klev) :: epIN
real, intent(in), DIMENSION(klon) :: sigd
real, intent(in), DIMENSION(klon,klev,klev) :: sij
real, intent(in), DIMENSION(klon,klev) :: wght_cvfd
real, intent(in), DIMENSION(klon,klev) :: clw
real, intent(in), DIMENSION(klon,klev,klev) :: elij
real, intent(in), DIMENSION(klon,klev,klev) :: epmlmMm
real, intent(in), DIMENSION(klon,klev) :: eplaMm
real, intent(in), DIMENSION(klon,klev+1) :: pmflxrIN
real, intent(in), DIMENSION(klon,klev+1) :: pmflxsIN
real, intent(in), DIMENSION(klon,klev) :: ev
real, intent(in), DIMENSION(klon,klev) :: te
real, intent(in), DIMENSION(klon,klev) :: wdtrainA
real, intent(in), DIMENSION(klon,klev) :: wdtrainM
real, intent(in), DIMENSION(klon,klev+1) :: paprs
integer, intent(in) :: it
real, intent(in), DIMENSION(klon,klev,nbtr) :: tr
real, intent(in), DIMENSION(klon,klev) :: upd
real, intent(in), DIMENSION(klon,klev) :: dnd
integer, intent(in), DIMENSION(klon) :: inb
integer, intent(in), DIMENSION(klon) :: icb
real, intent(in), DIMENSION(klon,klev) :: ccntrAA_3d
real, intent(in), DIMENSION(klon,klev) :: ccntrENV_3d
real, intent(in), DIMENSION(klon,klev) :: coefcoli_3d
real, intent(out), DIMENSION(klon,klev,nbtr) :: dtrcv
real, intent(out), DIMENSION(klon,klev,nbtr) :: trsptd
real, intent(out), DIMENSION(klon,klev,nbtr) :: dtrSscav
real, intent(out), DIMENSION(klon,klev,nbtr) :: dtrsat
real, intent(out), DIMENSION(klon,klev,nbtr) :: dtrUscav
real, intent(out), DIMENSION(klon,nbtr) :: flux_tr_wet
real, intent(out), DIMENSION(klon,klev,nbtr) :: qDi
real, intent(out), DIMENSION(klon,klev,nbtr) :: qPr
real, intent(out), DIMENSION(klon,klev,nbtr) :: qPa
real, intent(out), DIMENSION(klon,klev,nbtr) :: qMel
real, intent(out), DIMENSION(klon,klev,nbtr) :: qTrdi
real, intent(out), DIMENSION(klon,klev,nbtr) :: dtrcvMA
real, intent(out), DIMENSION(klon,klev) :: Mint
real, intent(out), DIMENSION(klon,klev,nbtr) :: zmfd1a
real, intent(out), DIMENSION(klon,klev,nbtr) :: zmfphi2
real, intent(out), DIMENSION(klon,klev,nbtr) :: zmfdam

Called by

proc~~cvltr_scav~~CalledByGraph proc~cvltr_scav cvltr_scav proc~phytrac phytrac proc~phytrac->proc~cvltr_scav proc~phytrac~2 phytrac proc~phytrac~2->proc~cvltr_scav 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