subroutine micro_mg3_0::calc_rercld |
( |
real(r8), dimension(mgncol,nlev), intent(in) | lamr, |
|
|
real(r8), dimension(mgncol,nlev), intent(in) | n0r, |
|
|
real(r8), dimension(mgncol,nlev), intent(in) | lamc, |
|
|
real(r8), dimension(mgncol,nlev), intent(in) | pgam, |
|
|
real(r8), dimension(mgncol,nlev), intent(in) | qric, |
|
|
real(r8), dimension(mgncol,nlev), intent(in) | qcic, |
|
|
real(r8), dimension(mgncol,nlev), intent(in) | ncic, |
|
|
real(r8), dimension(mgncol,nlev), intent(inout) | rercld, |
|
|
integer, intent(in) | mgncol, |
|
|
integer, intent(in) | nlev ) |
|
private |