10 subroutine cs_conv_pre_run(im, levs, ntrac, q, clw1, clw2, &
11 & work1, work2, cs_parm1, cs_parm2, wcbmax, &
12 & fswtr, fscav, save_q1, save_q2, save_q3, &
21 integer,
intent(in) :: im, levs, ntrac
22 real(kind_phys),
dimension(:,:),
intent(in) :: q
23 real(kind_phys),
dimension(:,:),
intent(in) :: clw1,clw2
24 real(kind_phys),
dimension(:),
intent(in) :: work1, work2
25 real(kind_phys),
intent(in) :: cs_parm1, cs_parm2
28 real(kind_phys),
dimension(:),
intent(out) :: fswtr, fscav
29 real(kind_phys),
dimension(:),
intent(out) :: wcbmax
30 real(kind_phys),
dimension(:,:),
intent(out) :: save_q1,save_q2
32 real(kind_phys),
dimension(:,:),
intent(out) :: save_q3
34 character(len=*),
intent(out) :: errmsg
35 integer,
intent(out) :: errflg
45 wcbmax(i) = cs_parm1 * work1(i) + cs_parm2 * work2(i)
56 save_q2(i,k) = max(0.0,clw2(i,k))
57 save_q3(i,k) = max(0.0,clw1(i,k))