subroutine gfdl_cloud_microphys::neg_adj ( integer, intent(in)  ktop, integer, intent(in)  kbot, real, dimension (ktop:kbot), intent(inout)  pt, real, dimension (ktop:kbot), intent(in)  dp, real, dimension (ktop:kbot), intent(inout)  qv, real, dimension (ktop:kbot), intent(inout)  ql, real, dimension (ktop:kbot), intent(inout)  qr, real, dimension (ktop:kbot), intent(inout)  qi, real, dimension (ktop:kbot), intent(inout)  qs, real, dimension (ktop:kbot), intent(inout)  qg  )

private

This is designed for 6-class micro-physics schemes.

Referenced by mpdrv().