subroutine mp_thompson::get_niwfa |
( |
real (kind=kind_phys), dimension(:,:,:), intent(in) |
aerfld, |
|
|
real (kind=kind_phys), dimension(:,:), intent(out) |
nifa, |
|
|
real (kind=kind_phys), dimension(:,:), intent(out) |
nwfa, |
|
|
integer, intent(in) |
ncol, |
|
|
integer, intent(in) |
nlev |
|
) |
| |
|
private |