subroutine gfdl_cloud_microphys_mod::icloud |
( |
integer, intent(in) | ktop, |
|
|
integer, intent(in) | kbot, |
|
|
real, dimension (ktop:kbot), intent(inout) | tzk, |
|
|
real, dimension (ktop:kbot), intent(in) | p1, |
|
|
real, dimension (ktop:kbot), intent(inout) | qvk, |
|
|
real, dimension (ktop:kbot), intent(inout) | qlk, |
|
|
real, dimension (ktop:kbot), intent(inout) | qrk, |
|
|
real, dimension (ktop:kbot), intent(inout) | qik, |
|
|
real, dimension (ktop:kbot), intent(inout) | qsk, |
|
|
real, dimension (ktop:kbot), intent(inout) | qgk, |
|
|
real, dimension (ktop:kbot), intent(in) | dp1, |
|
|
real, dimension (ktop:kbot), intent(in) | den, |
|
|
real, dimension (ktop:kbot), intent(in) | denfac, |
|
|
real, dimension (ktop:kbot), intent(in) | vts, |
|
|
real, dimension (ktop:kbot), intent(in) | vtg, |
|
|
real, dimension (ktop:kbot), intent(in) | vtr, |
|
|
real, dimension (ktop:kbot), intent(inout) | qak, |
|
|
real, intent(in) | rh_adj, |
|
|
real, intent(in) | rh_rain, |
|
|
real, intent(in) | dts, |
|
|
real, intent(in) | h_var ) |
|
private |