UFS only counts 1:work in source bank

This commit is contained in:
Bryan Herman 2013-08-28 22:54:53 -04:00
parent 2dcc6e666c
commit f971c83162

View file

@ -752,7 +752,7 @@ contains
else
! count number of source sites in each ufs mesh cell
call count_bank_sites(ufs_mesh, source_bank, source_frac, &
sites_outside=sites_outside)
sites_outside=sites_outside, size_bank=work)
! Check for sites outside of the mesh
if (master .and. sites_outside) then