subroutine cldmacro::precip3 |
( |
integer, intent(in) | k, |
|
|
integer, intent(in) | lm, |
|
|
real, intent(in) | dt, |
|
|
real, intent(in) | frland, |
|
|
real, intent(in) | rhcr3, |
|
|
real, intent(inout) | qpl, |
|
|
real, intent(inout) | qpi, |
|
|
real, intent(inout) | qcl, |
|
|
real, intent(inout) | qci, |
|
|
real, intent(inout) | te, |
|
|
real, intent(inout) | qv, |
|
|
real, intent(in) | mass, |
|
|
real, intent(in) | imass, |
|
|
real, intent(in) | pl, |
|
|
real, intent(in) | dze, |
|
|
real, intent(in) | qddf3, |
|
|
real, intent(in) | aa, |
|
|
real, intent(in) | bb, |
|
|
real, intent(in) | area, |
|
|
real, intent(out) | rain, |
|
|
real, intent(out) | snow, |
|
|
real, intent(inout) | pfl_above, |
|
|
real, intent(inout) | pfi_above, |
|
|
real, intent(inout) | evap_dd_above, |
|
|
real, intent(inout) | subl_dd_above, |
|
|
real, intent(out) | revap_diag, |
|
|
real, intent(out) | rsubl_diag, |
|
|
real, intent(out) | acrll_diag, |
|
|
real, intent(out) | acril_diag, |
|
|
real, intent(out) | pfl_diag, |
|
|
real, intent(out) | pfi_diag, |
|
|
real, intent(out) | vfallrn, |
|
|
real, intent(out) | vfallsn, |
|
|
real, intent(inout) | frz_diag, |
|
|
real, intent(in) | envfc, |
|
|
real, intent(in) | ddrfc, |
|
|
real, intent(in) | af, |
|
|
real, intent(in) | cf, |
|
|
real, intent(in) | pcbl, |
|
|
integer, intent(in) | i ) |
|
private |