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 |