neg_adj()

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.

Definition at line 4579 of file module_gfdl_cloud_microphys.F90.

Referenced by mpdrv().

Here is the caller graph for this function: