neg_adj()

subroutine gfdl_cloud_microphys_v3_mod::neg_adj ( integer, intent(in) ks, integer, intent(in) ke, real (kind = r8), dimension (ks:ke), intent(inout) tz, real(kind_phys), dimension (ks:ke), intent(in) dp, 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_phys), intent(out) cond )

private