cva_driver Subroutine

public subroutine cva_driver(len, nd, ndp1, 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, p1, ph1, Ale1, Alp1, omega1, sig1feed1, sig2feed1, wght1, iflag1, ft1, fq1, fqcomp1, fu1, fv1, 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, coef_clos1, coef_clos_eff1, 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)

                  delt, t1, q1, qs1, t1_wake, q1_wake, qs1_wake, s1_wake, &  ! jyg
                  u1, v1, tra1, &                                                   !jyg: get rid of ntra
                  iflag1, ft1, fq1, fqcomp1, fu1, fv1, ftra1, &                     !jyg: get rid of ntra
                  da1,phi1,mp1,phi21,d1a1,dam1,sigij1,clw1, &        ! RomP
                  elij1,evap1,ep1,epmlmMm1,eplaMm1, &                ! RomP

jygprl

nword3 = lenndntra !jyg: get rid of ntra ftra1(:, :, :) = 0. !jyg: get rid of ntra 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

  CALL cv3a_compress(len, nloc, ncum, nd, ntra, compress, &                                        !jyg: get rid of ntra
                     tra1, &                                                                       !jyg: get rid of ntra
                     tra, &                                                                        !jyg: get rid of ntra

jygprl CALL cv3p_mixing(nloc, ncum, nd, nd, ntra, icb, nk, inb, & ! na->nd !jyg: get rid of ntra ph, t, q, qs, u, v, tra, h, lv, lf, frac, qnk, & ph, t, q, qs, u, v, tra, h, lv, lf, frac_s, qta, & !!jygprl !jyg: get rid of ntra jygprl
sigij, elij, supmax, ments, qents, traent) !jyg: get rid of ntra sigij, elij, supmax, ments, qents) !jyg: get rid of ments

    CALL cv3_mixing(nloc, ncum, nd, nd, ntra, icb, nk, inb, &             ! na->nd       !jyg: get rid of ntra
                    ph, t, q, qs, u, v, tra, h, lv, lf, frac_s, qnk, &                   !jyg: get rid of ntra
                    ment, qent, uent, vent, nent, sigij, elij, ments, qents, traent)     !jyg: get rid of ntra
                    ment, qent, uent, vent, nent, sigij, elij, ments, qents)             !jyg: get rid of ments

jyg: Essais absurde pour voir mm(:,1) = 0. DO i = 2,nd mm(:,i) = m(:,i)*(1.-qta(:,i-1)) ENDDO CALL cv3_unsat(nloc, ncum, nd, nd, ntra, icb, inb, iflag, & ! na->nd !jyg: get rid of ntra t_wake, q_wake, qs_wake, gz, u, v, tra, p, ph, & !jyg: get rid of ntra jygprl mp, qp, up, vp, trap, wt, water, evap, fondue, ice, & !jyg: get rid of ntra wdtrainA, wdtrainM) ! RomP jygprl

jygprl jygprl CALL cv3_yield(nloc, ncum, nd, nd, ntra, ok_conserv_q, & ! na->nd !jyg: get rid of ntra t, q, t_wake, q_wake, s_wake, u, v, tra, & !jyg: get rid of ntra ep, clw, qpreca, m, tp, mp, qp, up, vp, trap, & !jyg: get rid of ntra nent, elij, traent, sig, & !jyg: get rid of ntra iflag, precip, Vprecip, Vprecipi, ft, fq, fqcomp, fu, fv, ftra, & !jyg: get rid of ntra tls, tps, & ! useless . jyg ftd, fqd, qnk, qtc, sigt, tau_cld_cv, coefw_cld_cv) jygprl

  CALL cv3a_uncompress(nloc, len, ncum, nd, ntra, idcum, is_convect, compress,  &              !jyg: get rid of ntra
                       ft, fq, fqcomp, fu, fv, ftra, &                                         !jyg: get rid of ntra
                       ft1, fq1, fqcomp1, fu1, fv1, ftra1, &                                   !jyg: get rid of ntra

Arguments