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 |