1 |
|
|
2 |
SUBROUTINE cv3_undilute1(len,nd,t,q,qs,gz,plcl,p,nk,icb & |
SUBROUTINE cv3_undilute1(len,nd,t,q,qs,gz,plcl,p,nk,icb & |
3 |
,tp,tvp,clw,icbs) |
,tp,tvp,clw,icbs) |
4 |
use cvparam3 |
use cv3_param_m |
5 |
use cvthermo |
use cvthermo |
6 |
implicit none |
implicit none |
7 |
|
|
22 |
! inputs: |
! inputs: |
23 |
integer len, nd |
integer len, nd |
24 |
integer nk(len), icb(len) |
integer nk(len), icb(len) |
25 |
real t(len,nd), q(len,nd), qs(len,nd), gz(len,nd) |
real, intent(in):: t(len,nd) |
26 |
|
real q(len,nd), qs(len,nd), gz(len,nd) |
27 |
real p(len,nd) |
real p(len,nd) |
28 |
real plcl(len) ! convect3 |
real plcl(len) ! convect3 |
29 |
|
|