subroutine gfdl_cloud_microphys::qsmith ( integer, intent(in)  im, integer, intent(in)  km, integer, intent(in)  ks, real, dimension (im, km), intent(in)  t, real, dimension (im, km), intent(in)  p, real, dimension (im, km), intent(in)  q, real, dimension (im, km), intent(out)  qs, real, dimension (im, km), intent(out), optional  dqdt  )

private