cv3p_mixing Subroutine

public subroutine cv3p_mixing(nloc, ncum, nd, na, icb, nk, inb, ph, t, rr, rs, u, v, h, lv, lf, frac, qta, unk, vnk, hp, tv, tvp, ep, clw, sig, Ment, Qent, hent, uent, vent, nent, Sigij, elij, supmax)

Uses

  • proc~~cv3p_mixing~~UsesGraph proc~cv3p_mixing cv3p_mixing module~cvflag_mod_h~2 cvflag_mod_h proc~cv3p_mixing->module~cvflag_mod_h~2 module~lmdz_cv_ini~2 lmdz_cv_ini proc~cv3p_mixing->module~lmdz_cv_ini~2 module~add_phys_tend_mod add_phys_tend_mod proc~cv3p_mixing->module~add_phys_tend_mod module~ioipsl_getin_p_mod ioipsl_getin_p_mod proc~cv3p_mixing->module~ioipsl_getin_p_mod module~yomcst2_mod_h yomcst2_mod_h proc~cv3p_mixing->module~yomcst2_mod_h module~print_control_mod print_control_mod proc~cv3p_mixing->module~print_control_mod module~mod_phys_lmdz_transfert_para mod_phys_lmdz_transfert_para module~ioipsl_getin_p_mod->module~mod_phys_lmdz_transfert_para module~strings_mod strings_mod module~ioipsl_getin_p_mod->module~strings_mod 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_mpi_transfert mod_phys_lmdz_mpi_transfert module~mod_phys_lmdz_transfert_para->module~mod_phys_lmdz_mpi_transfert module~mod_phys_lmdz_omp_transfert mod_phys_lmdz_omp_transfert module~mod_phys_lmdz_transfert_para->module~mod_phys_lmdz_omp_transfert iso_fortran_env iso_fortran_env module~strings_mod->iso_fortran_env module~mod_phys_lmdz_para->module~mod_phys_lmdz_transfert_para 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_omp_data mod_phys_lmdz_omp_data module~mod_phys_lmdz_para->module~mod_phys_lmdz_omp_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 
                   ph, t, rr, rs, u, v, tra, h, lv, lf, frac, qta, &                !jyg: get rid of ntra
                   Sigij, elij, supmax, Ments, Qents, traent)                       !jyg: get rid of ntra
                   Sigij, elij, supmax, Ments, Qents)                               !jyg: get rid of ments









        rti = qnk(il) - ep(il, i)*clw(il, i)

jyg jyg ! Ment(il,i,j)=m(il,i) jygdebug ! Ment(il,i,i)=m(il,i) Qent(il, i, i) = qnk(il) - ep(il, i)clw(il, i) rti = qnk(il) - ep(il, i)clw(il, i) jyg rti = qnk(il) - ep(il, i)*clw(il, i) jyg

jyg

          rti = qnk(il) - ep(il, i)*clw(il, i)

! Ment(il,i,i) = m(il,i)abs(Qmixmax(il)(1.-Sjmax(il)) ASij(il) = 1.0/ASij(il) jyg+lluis Qent(il, i, i) = qnk(il) - ep(il, i)*clw(il, i)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nloc
integer, intent(in) :: ncum

INTEGER, INTENT (IN) :: ntra, nloc !jyg: get rid of ntra
integer, intent(in) :: nd

INTEGER, INTENT (IN) :: ntra, nloc !jyg: get rid of ntra
integer, intent(in) :: na

INTEGER, INTENT (IN) :: ntra, nloc !jyg: get rid of ntra
integer, intent(in), DIMENSION (nloc) :: icb
integer, intent(in), DIMENSION (nloc) :: nk
integer, intent(in), DIMENSION (nloc) :: inb
real, intent(in), DIMENSION (nloc, nd+1) :: ph
real, intent(in), DIMENSION (nloc, nd) :: t
real, intent(in), DIMENSION (nloc, nd) :: rr
real, intent(in), DIMENSION (nloc, nd) :: rs
real, intent(in), DIMENSION (nloc, nd) :: u

REAL, DIMENSION (nloc, nd, ntra), INTENT (IN) :: tra ! input of convect3 !jyg: get rid of ntra
real, intent(in), DIMENSION (nloc, nd) :: v

REAL, DIMENSION (nloc, nd, ntra), INTENT (IN) :: tra ! input of convect3 !jyg: get rid of ntra
real, intent(in), DIMENSION (nloc, na) :: h
real, intent(in), DIMENSION (nloc, na) :: lv
real, intent(in), DIMENSION (nloc, na) :: lf
real, intent(in), DIMENSION (nloc, na) :: frac
real, intent(in), DIMENSION (nloc, nd) :: qta
real, intent(in), DIMENSION (nloc) :: unk
real, intent(in), DIMENSION (nloc) :: vnk
real, intent(in), DIMENSION (nloc, na) :: hp
real, intent(in), DIMENSION (nloc, na) :: tv
real, intent(in), DIMENSION (nloc, na) :: tvp
real, intent(in), DIMENSION (nloc, na) :: ep
real, intent(in), DIMENSION (nloc, na) :: clw
real, intent(in), DIMENSION (nloc, nd) :: sig
real, intent(out), DIMENSION (nloc, na, na) :: Ment
real, intent(out), DIMENSION (nloc, na, na) :: Qent
real, intent(out), DIMENSION (nloc, nd, nd) :: hent
real, intent(out), DIMENSION (nloc, na, na) :: uent
real, intent(out), DIMENSION (nloc, na, na) :: vent
integer, intent(out), DIMENSION (nloc, nd) :: nent
real, intent(out), DIMENSION (nloc, na, na) :: Sigij
real, intent(out), DIMENSION (nloc, na, na) :: elij
real, intent(out), DIMENSION (nloc, na) :: supmax

REAL, DIMENSION (nloc, nd, nd, ntra), INTENT (OUT) :: traent !jyg: get rid of ntra REAL, DIMENSION (nloc, nd, nd), INTENT (OUT) :: Ments, Qents !jyg: get rid of ments

Calls

proc~~cv3p_mixing~~CallsGraph proc~cv3p_mixing cv3p_mixing amax1 amax1 proc~cv3p_mixing->amax1 amin1 amin1 proc~cv3p_mixing->amin1

Called by

proc~~cv3p_mixing~~CalledByGraph proc~cv3p_mixing cv3p_mixing proc~cva_driver cva_driver proc~cva_driver->proc~cv3p_mixing proc~concvl concvl proc~concvl->proc~cva_driver proc~physiq physiq proc~physiq->proc~concvl proc~physiq~2 physiq proc~physiq~2->proc~concvl 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