subroutine micro_mg_utils::graupel_rime_splintering |
( |
real(r8), dimension(mgncol), intent(in) |
t, |
|
|
real(r8), dimension(mgncol), intent(in) |
qcic, |
|
|
real(r8), dimension(mgncol), intent(in) |
qric, |
|
|
real(r8), dimension(mgncol), intent(in) |
qgic, |
|
|
real(r8), dimension(mgncol), intent(inout) |
psacwg, |
|
|
real(r8), dimension(mgncol), intent(inout) |
pracg, |
|
|
real(r8), dimension(mgncol), intent(out) |
qmultg, |
|
|
real(r8), dimension(mgncol), intent(out) |
nmultg, |
|
|
real(r8), dimension(mgncol), intent(out) |
qmultrg, |
|
|
real(r8), dimension(mgncol), intent(out) |
nmultrg, |
|
|
integer, intent(in) |
mgncol |
|
) |
| |
|
private |