◆ pcomp()

subroutine gfdl_cloud_microphys_v3_mod::pcomp	(	integer, intent(in)	ks,
		integer, intent(in)	ke,
		real(kind_phys), dimension (ks:ke), intent(inout)	qv,
		real(kind_phys), dimension (ks:ke), intent(inout)	ql,
		real(kind_phys), dimension (ks:ke), intent(inout)	qr,
		real(kind_phys), dimension (ks:ke), intent(inout)	qi,
		real(kind_phys), dimension (ks:ke), intent(inout)	qs,
		real(kind_phys), dimension (ks:ke), intent(inout)	qg,
		real (kind = r8), dimension (ks:ke), intent(inout)	tz,
		real (kind = r8), dimension (ks:ke), intent(inout)	cvm,
		real (kind = r8), dimension (ks:ke), intent(in)	te8,
		real(kind_phys), dimension (ks:ke), intent(inout)	lcpk,
		real(kind_phys), dimension (ks:ke), intent(inout)	icpk,
		real(kind_phys), dimension (ks:ke), intent(inout)	tcpk,
		real(kind_phys), dimension (ks:ke), intent(inout)	tcp3
	)

private