subroutine gfdl_cloud_microphys_mod::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.

References c_air, c_ice, c_liq, c_vap, d0_vap, dc_ice, li00, and lv00.

Referenced by mpdrv().