cv3a_uncompress Subroutine

public subroutine cv3a_uncompress(nloc, len, ncum, nd, idcum, is_convect, compress, iflag, kbas, ktop, precip, cbmf, plcl, plfc, wbeff, sig, w0, ptop2, ft, fq, fqcomp, fu, fv, sigd, ma, mip, vprecip, vprecipi, upwd, dnwd, dnwd0, qcondc, wd, cape, cin, tvp, ftd, fqd, plim1, plim2, asupmax, supmax0, asupmaxmin, coef_clos, coef_clos_eff, da, phi, mp, phi2, d1a, dam, sigij, qta, clw, elij, evap, ep, epmlmMm, eplamM, wdtrainA, wdtrainS, wdtrainM, qtc, sigt, detrain, epmax_diag, iflag1, kbas1, ktop1, precip1, cbmf1, plcl1, plfc1, wbeff1, sig1, w01, ptop21, ft1, fq1, fqcomp1, fu1, fv1, 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, da1, phi1, mp1, phi21, d1a1, dam1, sigij1, qta1, clw1, elij1, evap1, ep1, epmlmMm1, eplamM1, wdtrainA1, wdtrainS1, wdtrainM1, qtc1, sigt1, detrain1, epmax_diag1)

                       ft, fq, fqcomp, fu, fv, ftra,  &                                       !jyg: get rid of ntra
                       ft1, fq1, fqcomp1, fu1, fv1, ftra1, &                                  !jyg: get rid of ntra

INTEGER, INTENT (IN) :: nloc, len, ncum, nd, ntra !jyg: get rid of ntra jyg DO j = 1, nd DO k = 1, nd DO i = 1, ncum phi1(idcum(i), k, j) = phi(i, k, j) !AC! phi21(idcum(i), k, j) = phi2(i, k, j) !RomP sigij1(idcum(i), k, j) = sigij(i, k, j) !RomP elij1(idcum(i), k, j) = elij(i, k, j) !RomP epmlmMm(idcum(i), k, j) = epmlmMm(i, k, j) !RomP+jyg END DO END DO END DO

  DO i = 1, ncum
    jdcum=idcum(i)
    phi1    (jdcum, 1:nl+1, 1:nl+1) = phi    (i, 1:nl+1, 1:nl+1)          !AC!
    phi21   (jdcum, 1:nl+1, 1:nl+1) = phi2   (i, 1:nl+1, 1:nl+1)          !RomP
    sigij1  (jdcum, 1:nl+1, 1:nl+1) = sigij  (i, 1:nl+1, 1:nl+1)          !RomP
    elij1   (jdcum, 1:nl+1, 1:nl+1) = elij   (i, 1:nl+1, 1:nl+1)          !RomP
    epmlmMm1(jdcum, 1:nl+1, 1:nl+1) = epmlmMm(i, 1:nl+1, 1:nl+1)          !RomP+jyg
  END DO

jyg

jyg

Arguments