SUBROUTINE cv3p_mixing(nloc, ncum, nd, na, ntra, icb, nk, inb, & !jyg: get rid of ntra
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
| Type | Intent | Optional | 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 |