subroutine, public micro_mg_utils::contact_freezing |
( |
logical, intent(in) |
microp_uniform, |
|
|
real(r8), dimension(mgncol), intent(in) |
t, |
|
|
real(r8), dimension(mgncol), intent(in) |
p, |
|
|
real(r8), dimension(mgncol, mdust), intent(in) |
rndst, |
|
|
real(r8), dimension(mgncol, mdust), intent(in) |
nacon, |
|
|
real(r8), dimension(mgncol), intent(in) |
pgam, |
|
|
real(r8), dimension(mgncol), intent(in) |
lamc, |
|
|
real(r8), dimension(mgncol), intent(in) |
qcic, |
|
|
real(r8), dimension(mgncol), intent(in) |
ncic, |
|
|
real(r8), dimension(mgncol), intent(in) |
relvar, |
|
|
real(r8), dimension(mgncol), intent(out) |
mnucct, |
|
|
real(r8), dimension(mgncol), intent(out) |
nnucct, |
|
|
integer, intent(in) |
mgncol, |
|
|
integer, intent(in) |
mdust |
|
) |
| |