cva_driver Subroutine

subroutine cva_driver(len, nd, ndp1, ntra, nloc, k_upper, iflag_con, iflag_mix, iflag_ice_thermo, iflag_clos, ok_conserv_q, delt, comp_threshold, t1, q1, qs1, t1_wake, q1_wake, qs1_wake, s1_wake, u1, v1, tra1, p1, ph1, Ale1, Alp1, omega1, sig1feed1, sig2feed1, wght1, iflag1, ft1, fq1, fqcomp1, fu1, fv1, ftra1, precip1, kbas1, ktop1, cbmf1, plcl1, plfc1, wbeff1, sig1, w01, ptop21, sigd1, ma1, mip1, vprecip1, vprecipi1, upwd1, dnwd1, dnwd01, qcondc1, wd1, cape1, cin1, tvp1, ftd1, fqd1, Plim11, Plim21, asupmax1, supmax01, asupmaxmin1, lalim_conv1, da1, phi1, mp1, phi21, d1a1, dam1, sigij1, wghti1, qta1, clw1, elij1, evap1, ep1, epmlmMm1, eplaMm1, wdtrainA1, wdtrainS1, wdtrainM1, qtc1, sigt1, detrain1, tau_cld_cv, coefw_cld_cv, epmax_diag1)

Uses

  • proc~~cva_driver~2~~UsesGraph proc~cva_driver~2 cva_driver module~cv3_mixscale_mod cv3_mixscale_mod proc~cva_driver~2->module~cv3_mixscale_mod module~cv3p1_closure_mod~2 cv3p1_closure_mod proc~cva_driver~2->module~cv3p1_closure_mod~2 module~cv3p2_closure_mod~2 cv3p2_closure_mod proc~cva_driver~2->module~cv3p2_closure_mod~2 module~add_phys_tend_mod add_phys_tend_mod proc~cva_driver~2->module~add_phys_tend_mod module~print_control_mod print_control_mod proc~cva_driver~2->module~print_control_mod 
                  delt, t1, q1, qs1, t1_wake, q1_wake, qs1_wake, s1_wake, &  ! jyg
                  da1,phi1,mp1,phi21,d1a1,dam1,sigij1,clw1, &        ! RomP
                  elij1,evap1,ep1,epmlmMm1,eplaMm1, &                ! RomP

jygprl

cin1(il) = -100000.
cape1(il) = -1.

IF (iflag_con==3) THEN DO il = 1, len sig1(il, nd) = sig1(il, nd) + 1. sig1(il, nd) = amin1(sig1(il,nd), 12.1) END DO END IF

jyg

jygprl

                     ph, t, q, qs, u, v, tra, h, lv, lf, frac, qnk, &

jygprl

jyg: Essais absurde pour voir mm(:,1) = 0. DO i = 2,nd mm(:,i) = m(:,i)*(1.-qta(:,i-1)) ENDDO jygprl wdtrainA, wdtrainM) ! RomP jygprl

jygprl jygprl tls, tps, & ! useless . jyg ftd, fqd, qnk, qtc, sigt, tau_cld_cv, coefw_cld_cv) jygprl

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: len
integer, intent(in) :: nd
integer, intent(in) :: ndp1
integer, intent(in) :: ntra
integer, intent(in) :: nloc
integer, intent(in) :: k_upper
integer, intent(in) :: iflag_con
integer, intent(in) :: iflag_mix
integer, intent(in) :: iflag_ice_thermo
integer, intent(in) :: iflag_clos
logical, intent(in) :: ok_conserv_q
real, intent(in) :: delt
real, intent(in) :: comp_threshold
real, intent(in), DIMENSION (len, nd) :: t1
real, intent(in), DIMENSION (len, nd) :: q1
real, intent(in), DIMENSION (len, nd) :: qs1
real, intent(in), DIMENSION (len, nd) :: t1_wake
real, intent(in), DIMENSION (len, nd) :: q1_wake
real, intent(in), DIMENSION (len, nd) :: qs1_wake
real, intent(in), DIMENSION (len) :: s1_wake
real, intent(in), DIMENSION (len, nd) :: u1
real, intent(in), DIMENSION (len, nd) :: v1
real, intent(in), DIMENSION (len, nd, ntra) :: tra1
real, intent(in), DIMENSION (len, nd) :: p1
real, intent(in), DIMENSION (len, ndp1) :: ph1
real, intent(in), DIMENSION (len) :: Ale1
real, intent(in), DIMENSION (len) :: Alp1
real, intent(in), DIMENSION (len, nd) :: omega1
real, intent(in) :: sig1feed1
real, intent(in) :: sig2feed1
real, intent(in), DIMENSION (nd) :: wght1
integer, intent(out), DIMENSION (len) :: iflag1
real, intent(out), DIMENSION (len, nd) :: ft1
real, intent(out), DIMENSION (len, nd) :: fq1
real, intent(out), DIMENSION (len, nd) :: fqcomp1
real, intent(out), DIMENSION (len, nd) :: fu1
real, intent(out), DIMENSION (len, nd) :: fv1
real, intent(out), DIMENSION (len, nd, ntra) :: ftra1
real, intent(out), DIMENSION (len) :: precip1
integer, intent(out), DIMENSION (len) :: kbas1
integer, intent(out), DIMENSION (len) :: ktop1
real, intent(out), DIMENSION (len) :: cbmf1
real, intent(out), DIMENSION (len) :: plcl1
real, intent(out), DIMENSION (len) :: plfc1
real, intent(out), DIMENSION (len) :: wbeff1
real, intent(inout), DIMENSION (len, nd) :: sig1
real, intent(inout), DIMENSION (len, nd) :: w01
real, intent(out), DIMENSION (len) :: ptop21
real, intent(out), DIMENSION (len) :: sigd1
real, intent(out), DIMENSION (len, nd) :: ma1
real, intent(out), DIMENSION (len, nd) :: mip1
real, intent(out), DIMENSION (len, ndp1) :: vprecip1
real, intent(out), DIMENSION (len, ndp1) :: vprecipi1
real, intent(out), DIMENSION (len, nd) :: upwd1
real, intent(out), DIMENSION (len, nd) :: dnwd1
real, intent(out), DIMENSION (len, nd) :: dnwd01
real, intent(out), DIMENSION (len, nd) :: qcondc1
real, intent(out), DIMENSION (len) :: wd1
real, intent(out), DIMENSION (len) :: cape1
real, intent(out), DIMENSION (len) :: cin1
real, intent(out), DIMENSION (len, nd) :: tvp1

real da1(len,nd),phi1(len,nd,nd) real da(len,nd),phi(len,nd,nd)
real, intent(out), DIMENSION (len, nd) :: ftd1
real, intent(out), DIMENSION (len, nd) :: fqd1
real, intent(out), DIMENSION (len) :: Plim11
real, intent(out), DIMENSION (len) :: Plim21
real, intent(out), DIMENSION (len, nd) :: asupmax1
real, intent(out), DIMENSION (len) :: supmax01
real, intent(out), DIMENSION (len) :: asupmaxmin1
integer, intent(in), DIMENSION (len) :: lalim_conv1
real, intent(out), DIMENSION (len, nd) :: da1
real, intent(out), DIMENSION (len, nd, nd) :: phi1
real, intent(out), DIMENSION (len, nd) :: mp1
real, intent(out), DIMENSION (len, nd, nd) :: phi21
real, intent(out), DIMENSION (len, nd) :: d1a1
real, intent(out), DIMENSION (len, nd) :: dam1
real, intent(out), DIMENSION (len, nd, nd) :: sigij1
real, intent(out), DIMENSION (len, nd) :: wghti1
real, intent(out), DIMENSION (len, nd) :: qta1
real, intent(out), DIMENSION (len, nd) :: clw1
real, intent(out), DIMENSION (len, nd, nd) :: elij1
real, intent(out), DIMENSION (len, nd) :: evap1
real, intent(out), DIMENSION (len, nd) :: ep1
real, intent(out), DIMENSION (len, nd, nd) :: epmlmMm1
real, intent(out), DIMENSION (len, nd) :: eplaMm1
real, intent(out), DIMENSION (len, nd) :: wdtrainA1
real, intent(out), DIMENSION (len, nd) :: wdtrainS1
real, intent(out), DIMENSION (len, nd) :: wdtrainM1
real, intent(out), DIMENSION (len, nd) :: qtc1
real, intent(out), DIMENSION (len, nd) :: sigt1
real, intent(out), DIMENSION (len, nd) :: detrain1
real, intent(in) :: tau_cld_cv
real, intent(in) :: coefw_cld_cv
real, intent(out), DIMENSION (len ) :: epmax_diag1

Calls

proc~~cva_driver~2~~CallsGraph proc~cva_driver~2 cva_driver cv3_incrcount cv3_incrcount proc~cva_driver~2->cv3_incrcount proc~abort_physic abort_physic proc~cva_driver~2->proc~abort_physic proc~cv_mixing~2 cv_mixing proc~cva_driver~2->proc~cv_mixing~2 proc~cv3p2_closure cv3p2_closure proc~cva_driver~2->proc~cv3p2_closure proc~cv3p1_closure cv3p1_closure proc~cva_driver~2->proc~cv3p1_closure cv3_yield cv3_yield proc~cva_driver~2->cv3_yield proc~cv_flag cv_flag proc~cva_driver~2->proc~cv_flag proc~cv_undilute2~2 cv_undilute2 proc~cva_driver~2->proc~cv_undilute2~2 cv3_undilute2 cv3_undilute2 proc~cva_driver~2->cv3_undilute2 cv3_unsat cv3_unsat proc~cva_driver~2->cv3_unsat proc~cv_trigger~2 cv_trigger proc~cva_driver~2->proc~cv_trigger~2 proc~cv_thermo cv_thermo proc~cva_driver~2->proc~cv_thermo proc~cv3a_compress~2 cv3a_compress proc~cva_driver~2->proc~cv3a_compress~2 proc~cv3a_uncompress~2 cv3a_uncompress proc~cva_driver~2->proc~cv3a_uncompress~2 proc~cv_uncompress~2 cv_uncompress proc~cva_driver~2->proc~cv_uncompress~2 proc~cv_feed~2 cv_feed proc~cva_driver~2->proc~cv_feed~2 proc~cv3p_mixing~2 cv3p_mixing proc~cva_driver~2->proc~cv3p_mixing~2 cv3_feed cv3_feed proc~cva_driver~2->cv3_feed proc~cv_unsat~2 cv_unsat proc~cva_driver~2->proc~cv_unsat~2 cv3_trigger cv3_trigger proc~cva_driver~2->cv3_trigger cv3_mixing cv3_mixing proc~cva_driver~2->cv3_mixing cv3_closure cv3_closure proc~cva_driver~2->cv3_closure proc~cv_closure~2 cv_closure proc~cva_driver~2->proc~cv_closure~2 cv3_tracer cv3_tracer proc~cva_driver~2->cv3_tracer proc~cv_param~2 cv_param proc~cva_driver~2->proc~cv_param~2 cv3_epmax_fn_cape cv3_epmax_fn_cape proc~cva_driver~2->cv3_epmax_fn_cape cv3_undilute1 cv3_undilute1 proc~cva_driver~2->cv3_undilute1 proc~cv_compress~2 cv_compress proc~cva_driver~2->proc~cv_compress~2 proc~cv3_mixscale cv3_mixscale proc~cva_driver~2->proc~cv3_mixscale proc~cv_undilute1~2 cv_undilute1 proc~cva_driver~2->proc~cv_undilute1~2 proc~cv_prelim~2 cv_prelim proc~cva_driver~2->proc~cv_prelim~2 cv3_param cv3_param proc~cva_driver~2->cv3_param cv3_prelim cv3_prelim proc~cva_driver~2->cv3_prelim proc~cv_yield~2 cv_yield proc~cva_driver~2->proc~cv_yield~2 proc~zilch zilch proc~cva_driver~2->proc~zilch proc~mpi_abort MPI_ABORT proc~abort_physic->proc~mpi_abort getin_dump getin_dump proc~abort_physic->getin_dump restclo restclo proc~abort_physic->restclo histclo histclo proc~abort_physic->histclo proc~cv_mixing~2->proc~zilch proc~cv3p2_closure->proc~abort_physic amin1 amin1 proc~cv3p2_closure->amin1 amax1 amax1 proc~cv3p2_closure->amax1 proc~cv3_buoy cv3_buoy proc~cv3p2_closure->proc~cv3_buoy proc~cv3_cine cv3_cine proc~cv3p2_closure->proc~cv3_cine proc~cv3p1_closure->proc~abort_physic proc~cv3p1_closure->amin1 proc~cv3p1_closure->amax1 proc~cv3p1_closure->proc~cv3_buoy proc~cv3p1_closure->proc~cv3_cine interface~getin_p getin_p proc~cv_flag->interface~getin_p proc~cv_undilute2~2->proc~zilch proc~cv3a_compress~2->proc~abort_physic proc~cv3p_mixing~2->proc~zilch proc~cv3p_mixing~2->amin1 proc~cv3p_mixing~2->amax1 proc~cv_unsat~2->proc~zilch proc~cv_compress~2->proc~abort_physic proc~cv_yield~2->proc~zilch proc~lmdz_mpi_wrapper_abort lmdz_mpi_wrapper_abort proc~mpi_abort->proc~lmdz_mpi_wrapper_abort

Called by

proc~~cva_driver~2~~CalledByGraph proc~cva_driver~2 cva_driver proc~concvl~2 concvl proc~concvl~2->proc~cva_driver~2

Contents